You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
966 lines
53 KiB
966 lines
53 KiB
# -*- tcl -*- |
|
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake to update from <pkg>-buildversion.txt |
|
# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
|
# |
|
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
|
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# (C) 2025 |
|
# |
|
# @@ Meta Begin |
|
# Application ::punk::ansi::colourmap 0.1.0 |
|
# Meta platform tcl |
|
# Meta license MIT |
|
# @@ Meta End |
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# doctools header |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
#*** !doctools |
|
#[manpage_begin punkshell_module_::punk::ansi::colourmap 0 0.1.0] |
|
#[copyright "2025"] |
|
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
|
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
|
#[require ::punk::ansi::colourmap] |
|
#[keywords module] |
|
#[description] |
|
#[para] - |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
#*** !doctools |
|
#[section Overview] |
|
#[para] overview of ::punk::ansi::colourmap |
|
#[subsection Concepts] |
|
#[para] - |
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
## Requirements |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
#*** !doctools |
|
#[subsection dependencies] |
|
#[para] packages used by ::punk::ansi::colourmap |
|
#[list_begin itemized] |
|
|
|
package require Tcl 8.6- |
|
#*** !doctools |
|
#[item] [package {Tcl 8.6}] |
|
|
|
|
|
#*** !doctools |
|
#[list_end] |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
#*** !doctools |
|
#[section API] |
|
|
|
|
|
tcl::namespace::eval ::punk::ansi::colourmap { |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# Base namespace |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
#*** !doctools |
|
#[subsection {Namespace ::punk::ansi::colourmap}] |
|
#[para] Core API functions for ::punk::ansi::colourmap |
|
#[list_begin definitions] |
|
|
|
variable PUNKARGS |
|
|
|
#---------------------------------------------- |
|
#todo - document vars as part of package API |
|
#- or provide a function to return varnames? |
|
#- or wrap each in a function and see if any performance/memory impact? (readonly - so should just be a reference without any copying?) |
|
#TK_colour_map |
|
#TK_colour_map_lookup |
|
#TK_colour_map_merge |
|
#TK_colour_map_reverse |
|
#---------------------------------------------- |
|
|
|
|
|
|
|
#significantly slower than tables - but here as a check/test |
|
lappend PUNKARGS [list { |
|
@id -id ::punk::ansi::colourmap::get_rgb_using_tk |
|
@cmd -name punk::ansi::colourmap::get_rgb_using_tk -help\ |
|
"This function requires Tk to function, and will call |
|
'package require tk' to load it. |
|
The name argument accepts Tk colour names or hex values |
|
in either #XXX or #XXXXXX format. |
|
Tk colour names can be displayed using the command: |
|
punk::ansi::a? tk ?glob..? |
|
|
|
get_rgb_using_tk returns a decimal rgb string delimited with dashes. |
|
e.g |
|
get_rgb_using_tk #FFF |
|
255-255-255 |
|
get_rgb_using_tk SlateBlue |
|
106-90-205" |
|
@leaders |
|
name -type string|stringstartswith(#) |
|
}] |
|
proc get_rgb_using_tk {name} { |
|
package require Tk ;#package require tk (lowercase) doesn't always work |
|
#assuming 'winfo depth .' is always 32 ? |
|
set RGB [winfo rgb . $name] |
|
set rgb [lmap n $RGB {expr {$n / 256}}] |
|
return [join $rgb -] |
|
} |
|
|
|
variable TK_colour_map |
|
tcl::dict::set TK_colour_map "alice blue" 240-248-255 |
|
tcl::dict::set TK_colour_map AliceBlue 240-248-255 |
|
tcl::dict::set TK_colour_map "antique white" 250-235-215 |
|
tcl::dict::set TK_colour_map AntiqueWhite 250-235-215 |
|
tcl::dict::set TK_colour_map AntiqueWhite1 255-239-219 |
|
tcl::dict::set TK_colour_map AntiqueWhite2 238-223-204 |
|
tcl::dict::set TK_colour_map AntiqueWhite3 205-192-176 |
|
tcl::dict::set TK_colour_map AntiqueWhite4 139-131-120 |
|
tcl::dict::set TK_colour_map aqua 0-255-255 |
|
tcl::dict::set TK_colour_map aquamarine 127-255-212 |
|
tcl::dict::set TK_colour_map aquamarine1 127-255-212 |
|
tcl::dict::set TK_colour_map aquamarine2 118-238-198 |
|
tcl::dict::set TK_colour_map aquamarine3 102-205-170 |
|
tcl::dict::set TK_colour_map aquamarine4 69-139-16 |
|
tcl::dict::set TK_colour_map azure 240-255-255 |
|
tcl::dict::set TK_colour_map azure1 240-255-255 |
|
tcl::dict::set TK_colour_map azure2 224-238-238 |
|
tcl::dict::set TK_colour_map azure3 193-205-205 |
|
tcl::dict::set TK_colour_map azure4 131-139-139 |
|
tcl::dict::set TK_colour_map beige 245-245-220 |
|
tcl::dict::set TK_colour_map bisque 255-228-196 |
|
tcl::dict::set TK_colour_map bisque1 255-228-196 |
|
tcl::dict::set TK_colour_map bisque2 238-213-183 |
|
tcl::dict::set TK_colour_map bisque3 205-183-158 |
|
tcl::dict::set TK_colour_map bisque4 139-125-107 |
|
tcl::dict::set TK_colour_map black 0-0-0 |
|
tcl::dict::set TK_colour_map "blanched almond" 255-235-205 |
|
tcl::dict::set TK_colour_map BlanchedAlmond 255-235-205 |
|
tcl::dict::set TK_colour_map blue 0-0-255 |
|
tcl::dict::set TK_colour_map "blue violet" 138-43-226 |
|
tcl::dict::set TK_colour_map blue1 0-0-255 |
|
tcl::dict::set TK_colour_map blue2 0-0-238 |
|
tcl::dict::set TK_colour_map blue3 0-0-205 |
|
tcl::dict::set TK_colour_map blue4 0-0-139 |
|
tcl::dict::set TK_colour_map BlueViolet 138-43-226 |
|
tcl::dict::set TK_colour_map brown 165-42-42 |
|
tcl::dict::set TK_colour_map brown1 255-64-64 |
|
tcl::dict::set TK_colour_map brown2 238-59-59 |
|
tcl::dict::set TK_colour_map brown3 205-51-51 |
|
tcl::dict::set TK_colour_map brown4 139-35-35 |
|
tcl::dict::set TK_colour_map burlywood 222-184-135 |
|
tcl::dict::set TK_colour_map burlywood1 255-211-155 |
|
tcl::dict::set TK_colour_map burlywood2 238-197-145 |
|
tcl::dict::set TK_colour_map burlywood3 205-170-125 |
|
tcl::dict::set TK_colour_map burlywood4 139-115-85 |
|
tcl::dict::set TK_colour_map "cadet blue" 95-158-160 |
|
tcl::dict::set TK_colour_map CadetBlue 95-158-160 |
|
tcl::dict::set TK_colour_map CadetBlue1 152-245-255 |
|
tcl::dict::set TK_colour_map CadetBlue2 142-229-238 |
|
tcl::dict::set TK_colour_map CadetBlue3 122-197-205 |
|
tcl::dict::set TK_colour_map CadetBlue4 83-134-139 |
|
tcl::dict::set TK_colour_map chartreuse 127-255-0 |
|
tcl::dict::set TK_colour_map chartreuse1 127-255-0 |
|
tcl::dict::set TK_colour_map chartreuse2 118-238-0 |
|
tcl::dict::set TK_colour_map chartreuse3 102-205-0 |
|
tcl::dict::set TK_colour_map chartreuse4 69-139-0 |
|
tcl::dict::set TK_colour_map chocolate 210-105-30 |
|
tcl::dict::set TK_colour_map chocolate1 255-127-36 |
|
tcl::dict::set TK_colour_map chocolate2 238-118-33 |
|
tcl::dict::set TK_colour_map chocolate3 205-102-29 |
|
tcl::dict::set TK_colour_map chocolate4 139-69-19 |
|
tcl::dict::set TK_colour_map coral 255-127-80 |
|
tcl::dict::set TK_colour_map coral1 255-114-86 |
|
tcl::dict::set TK_colour_map coral2 238-106-80 |
|
tcl::dict::set TK_colour_map coral3 205-91-69 |
|
tcl::dict::set TK_colour_map coral4 139-62-47 |
|
tcl::dict::set TK_colour_map "cornflower blue" 100-149-237 |
|
tcl::dict::set TK_colour_map CornflowerBlue 100-149-237 |
|
tcl::dict::set TK_colour_map cornsilk 255-248-220 |
|
tcl::dict::set TK_colour_map cornsilk1 255-248-220 |
|
tcl::dict::set TK_colour_map cornsilk2 238-232-205 |
|
tcl::dict::set TK_colour_map cornsilk3 205-200-177 |
|
tcl::dict::set TK_colour_map cornsilk4 139-136-120 |
|
tcl::dict::set TK_colour_map crimson 220-20-60 |
|
tcl::dict::set TK_colour_map cyan 0-255-255 |
|
tcl::dict::set TK_colour_map cyan1 0-255-255 |
|
tcl::dict::set TK_colour_map cyan2 0-238-238 |
|
tcl::dict::set TK_colour_map cyan3 0-205-205 |
|
tcl::dict::set TK_colour_map cyan4 0-139-139 |
|
tcl::dict::set TK_colour_map "dark blue" 0-0-139 |
|
tcl::dict::set TK_colour_map "dark cyan" 0-139-139 |
|
tcl::dict::set TK_colour_map "dark goldenrod" 184-134-11 |
|
tcl::dict::set TK_colour_map "dark gray" 169-169-169 |
|
tcl::dict::set TK_colour_map "dark green" 0-100-0 |
|
tcl::dict::set TK_colour_map "dark grey" 169-169-169 |
|
tcl::dict::set TK_colour_map "dark khaki" 189-183-107 |
|
tcl::dict::set TK_colour_map "dark magenta" 139-0-139 |
|
tcl::dict::set TK_colour_map "dark olive green" 85-107-47 |
|
tcl::dict::set TK_colour_map "dark orange" 255-140-0 |
|
tcl::dict::set TK_colour_map "dark orchid" 153-50-204 |
|
tcl::dict::set TK_colour_map "dark red" 139-0-0 |
|
tcl::dict::set TK_colour_map "dark salmon" 233-150-122 |
|
tcl::dict::set TK_colour_map "dark sea green" 143-188-143 |
|
tcl::dict::set TK_colour_map "dark slate blue" 72-61-139 |
|
tcl::dict::set TK_colour_map "dark slate gray" 47-79-79 |
|
tcl::dict::set TK_colour_map "dark slate grey" 47-79-79 |
|
tcl::dict::set TK_colour_map "dark turquoise" 0-206-209 |
|
tcl::dict::set TK_colour_map "dark violet" 148-0-211 |
|
tcl::dict::set TK_colour_map DarkBlue 0-0-139 |
|
tcl::dict::set TK_colour_map DarkCyan 0-139-139 |
|
tcl::dict::set TK_colour_map DarkGoldenrod 184-134-11 |
|
tcl::dict::set TK_colour_map DarkGoldenrod1 255-185-15 |
|
tcl::dict::set TK_colour_map DarkGoldenrod2 238-173-14 |
|
tcl::dict::set TK_colour_map DarkGoldenrod3 205-149-12 |
|
tcl::dict::set TK_colour_map DarkGoldenrod4 139-101-8 |
|
tcl::dict::set TK_colour_map DarkGray 169-169-169 |
|
tcl::dict::set TK_colour_map DarkGreen 0-100-0 |
|
tcl::dict::set TK_colour_map DarkGrey 169-169-169 |
|
tcl::dict::set TK_colour_map DarkKhaki 189-183-107 |
|
tcl::dict::set TK_colour_map DarkMagenta 139-0-139 |
|
tcl::dict::set TK_colour_map DarkOliveGreen 85-107-47 |
|
tcl::dict::set TK_colour_map DarkOliveGreen1 202-255-112 |
|
tcl::dict::set TK_colour_map DarkOliveGreen2 188-238-104 |
|
tcl::dict::set TK_colour_map DarkOliveGreen3 162-205-90 |
|
tcl::dict::set TK_colour_map DarkOliveGreen4 110-139-61 |
|
tcl::dict::set TK_colour_map DarkOrange 255-140-0 |
|
tcl::dict::set TK_colour_map DarkOrange1 255-127-0 |
|
tcl::dict::set TK_colour_map DarkOrange2 238-118-0 |
|
tcl::dict::set TK_colour_map DarkOrange3 205-102-0 |
|
tcl::dict::set TK_colour_map DarkOrange4 139-69-0 |
|
tcl::dict::set TK_colour_map DarkOrchid 153-50-204 |
|
tcl::dict::set TK_colour_map DarkOrchid1 191-62-255 |
|
tcl::dict::set TK_colour_map DarkOrchid2 178-58-238 |
|
tcl::dict::set TK_colour_map DarkOrchid3 154-50-205 |
|
tcl::dict::set TK_colour_map DarkOrchid4 104-34-139 |
|
tcl::dict::set TK_colour_map DarkRed 139-0-0 |
|
tcl::dict::set TK_colour_map DarkSalmon 233-150-122 |
|
tcl::dict::set TK_colour_map DarkSeaGreen 43-188-143 |
|
tcl::dict::set TK_colour_map DarkSeaGreen1 193-255-193 |
|
tcl::dict::set TK_colour_map DarkSeaGreen2 180-238-180 |
|
tcl::dict::set TK_colour_map DarkSeaGreen3 155-205-155 |
|
tcl::dict::set TK_colour_map DarkSeaGreen4 105-139-105 |
|
tcl::dict::set TK_colour_map DarkSlateBlue 72-61-139 |
|
tcl::dict::set TK_colour_map DarkSlateGray 47-79-79 |
|
tcl::dict::set TK_colour_map DarkSlateGray1 151-255-255 |
|
tcl::dict::set TK_colour_map DarkSlateGray2 141-238-238 |
|
tcl::dict::set TK_colour_map DarkSlateGray3 121-205-205 |
|
tcl::dict::set TK_colour_map DarkSlateGray4 82-139-139 |
|
tcl::dict::set TK_colour_map DarkSlateGrey 47-79-79 |
|
tcl::dict::set TK_colour_map DarkTurquoise 0-206-209 |
|
tcl::dict::set TK_colour_map DarkViolet 148-0-211 |
|
tcl::dict::set TK_colour_map "deep pink" 255-20-147 |
|
tcl::dict::set TK_colour_map "deep sky blue" 0-191-255 |
|
tcl::dict::set TK_colour_map DeepPink 255-20-147 |
|
tcl::dict::set TK_colour_map DeepPink1 255-20-147 |
|
tcl::dict::set TK_colour_map DeepPink2 238-18-137 |
|
tcl::dict::set TK_colour_map DeepPink3 205-16-118 |
|
tcl::dict::set TK_colour_map DeepPink4 139-10-80 |
|
tcl::dict::set TK_colour_map DeepSkyBlue 0-191-255 |
|
tcl::dict::set TK_colour_map DeepSkyBlue1 0-191-255 |
|
tcl::dict::set TK_colour_map DeepSkyBlue2 0-178-238 |
|
tcl::dict::set TK_colour_map DeepSkyBlue3 0-154-205 |
|
tcl::dict::set TK_colour_map DeepSkyBlue4 0-104-139 |
|
tcl::dict::set TK_colour_map "dim gray" 105-105-105 |
|
tcl::dict::set TK_colour_map "dim grey" 105-105-105 |
|
tcl::dict::set TK_colour_map DimGray 105-105-105 |
|
tcl::dict::set TK_colour_map DimGrey 105-105-105 |
|
tcl::dict::set TK_colour_map "dodger blue" 30-144-255 |
|
tcl::dict::set TK_colour_map DodgerBlue 30-144-255 |
|
tcl::dict::set TK_colour_map DodgerBlue1 30-144-255 |
|
tcl::dict::set TK_colour_map DodgerBlue2 28-134-238 |
|
tcl::dict::set TK_colour_map DodgerBlue3 24-116-205 |
|
tcl::dict::set TK_colour_map DodgerBlue4 16-78-139 |
|
tcl::dict::set TK_colour_map firebrick 178-34-34 |
|
tcl::dict::set TK_colour_map firebrick1 255-48-48 |
|
tcl::dict::set TK_colour_map firebrick2 238-44-44 |
|
tcl::dict::set TK_colour_map firebrick3 205-38-38 |
|
tcl::dict::set TK_colour_map firebrick4 139-26-26 |
|
tcl::dict::set TK_colour_map "floral white" 255-250-240 |
|
tcl::dict::set TK_colour_map FloralWhite 255-250-240 |
|
tcl::dict::set TK_colour_map "forest green" 34-139-34 |
|
tcl::dict::set TK_colour_map ForestGreen 34-139-34 |
|
tcl::dict::set TK_colour_map fuchsia 255-0-255 |
|
tcl::dict::set TK_colour_map gainsboro 220-220-220 |
|
tcl::dict::set TK_colour_map "ghost white" 248-248-255 |
|
tcl::dict::set TK_colour_map GhostWhite 248-248-255 |
|
tcl::dict::set TK_colour_map gold 255-215-0 |
|
tcl::dict::set TK_colour_map gold1 255-215-0 |
|
tcl::dict::set TK_colour_map gold2 238-201-0 |
|
tcl::dict::set TK_colour_map gold3 205-173-0 |
|
tcl::dict::set TK_colour_map gold4 139-117-0 |
|
tcl::dict::set TK_colour_map goldenrod 218-165-32 |
|
tcl::dict::set TK_colour_map goldenrod1 255-193-37 |
|
tcl::dict::set TK_colour_map goldenrod2 238-180-34 |
|
tcl::dict::set TK_colour_map goldenrod3 205-155-29 |
|
tcl::dict::set TK_colour_map goldenrod4 139-105-20 |
|
tcl::dict::set TK_colour_map gray 128-128-128 |
|
tcl::dict::set TK_colour_map gray0 0-0-0 |
|
tcl::dict::set TK_colour_map gray1 3-3-3 |
|
tcl::dict::set TK_colour_map gray2 5-5-5 |
|
tcl::dict::set TK_colour_map gray3 8-8-8 |
|
tcl::dict::set TK_colour_map gray4 10-10-10 |
|
tcl::dict::set TK_colour_map gray5 13-13-13 |
|
tcl::dict::set TK_colour_map gray6 15-15-15 |
|
tcl::dict::set TK_colour_map gray7 18-18-18 |
|
tcl::dict::set TK_colour_map gray8 20-20-20 |
|
tcl::dict::set TK_colour_map gray9 23-23-23 |
|
tcl::dict::set TK_colour_map gray10 26-26-26 |
|
tcl::dict::set TK_colour_map gray11 28-28-28 |
|
tcl::dict::set TK_colour_map gray12 31-31-31 |
|
tcl::dict::set TK_colour_map gray13 33-33-33 |
|
tcl::dict::set TK_colour_map gray14 36-36-36 |
|
tcl::dict::set TK_colour_map gray15 38-38-38 |
|
tcl::dict::set TK_colour_map gray16 41-41-41 |
|
tcl::dict::set TK_colour_map gray17 43-43-43 |
|
tcl::dict::set TK_colour_map gray18 46-46-46 |
|
tcl::dict::set TK_colour_map gray19 48-48-48 |
|
tcl::dict::set TK_colour_map gray20 51-51-51 |
|
tcl::dict::set TK_colour_map gray21 54-54-54 |
|
tcl::dict::set TK_colour_map gray22 56-56-56 |
|
tcl::dict::set TK_colour_map gray23 59-59-59 |
|
tcl::dict::set TK_colour_map gray24 61-61-61 |
|
tcl::dict::set TK_colour_map gray25 64-64-64 |
|
tcl::dict::set TK_colour_map gray26 66-66-66 |
|
tcl::dict::set TK_colour_map gray27 69-69-69 |
|
tcl::dict::set TK_colour_map gray28 71-71-71 |
|
tcl::dict::set TK_colour_map gray29 74-74-74 |
|
tcl::dict::set TK_colour_map gray30 77-77-77 |
|
tcl::dict::set TK_colour_map gray31 79-79-79 |
|
tcl::dict::set TK_colour_map gray32 82-82-82 |
|
tcl::dict::set TK_colour_map gray33 84-84-84 |
|
tcl::dict::set TK_colour_map gray34 87-87-87 |
|
tcl::dict::set TK_colour_map gray35 89-89-89 |
|
tcl::dict::set TK_colour_map gray36 92-92-92 |
|
tcl::dict::set TK_colour_map gray37 94-94-94 |
|
tcl::dict::set TK_colour_map gray38 97-97-97 |
|
tcl::dict::set TK_colour_map gray39 99-99-99 |
|
tcl::dict::set TK_colour_map gray40 102-102-102 |
|
tcl::dict::set TK_colour_map gray41 105-105-105 |
|
tcl::dict::set TK_colour_map gray42 107-107-107 |
|
tcl::dict::set TK_colour_map gray43 110-110-110 |
|
tcl::dict::set TK_colour_map gray44 112-112-112 |
|
tcl::dict::set TK_colour_map gray45 115-115-115 |
|
tcl::dict::set TK_colour_map gray46 117-117-117 |
|
tcl::dict::set TK_colour_map gray47 120-120-120 |
|
tcl::dict::set TK_colour_map gray48 122-122-122 |
|
tcl::dict::set TK_colour_map gray49 125-125-125 |
|
tcl::dict::set TK_colour_map gray50 127-127-127 |
|
tcl::dict::set TK_colour_map gray51 130-130-130 |
|
tcl::dict::set TK_colour_map gray52 133-133-133 |
|
tcl::dict::set TK_colour_map gray53 135-135-135 |
|
tcl::dict::set TK_colour_map gray54 138-138-138 |
|
tcl::dict::set TK_colour_map gray55 140-140-140 |
|
tcl::dict::set TK_colour_map gray56 143-143-143 |
|
tcl::dict::set TK_colour_map gray57 145-145-145 |
|
tcl::dict::set TK_colour_map gray58 148-148-148 |
|
tcl::dict::set TK_colour_map gray59 150-150-150 |
|
tcl::dict::set TK_colour_map gray60 153-153-153 |
|
tcl::dict::set TK_colour_map gray61 156-156-156 |
|
tcl::dict::set TK_colour_map gray62 158-158-158 |
|
tcl::dict::set TK_colour_map gray63 161-161-161 |
|
tcl::dict::set TK_colour_map gray64 163-163-163 |
|
tcl::dict::set TK_colour_map gray65 166-166-166 |
|
tcl::dict::set TK_colour_map gray66 168-168-168 |
|
tcl::dict::set TK_colour_map gray67 171-171-171 |
|
tcl::dict::set TK_colour_map gray68 173-173-173 |
|
tcl::dict::set TK_colour_map gray69 176-176-176 |
|
tcl::dict::set TK_colour_map gray70 179-179-179 |
|
tcl::dict::set TK_colour_map gray71 181-181-181 |
|
tcl::dict::set TK_colour_map gray72 184-184-184 |
|
tcl::dict::set TK_colour_map gray73 186-186-186 |
|
tcl::dict::set TK_colour_map gray74 189-189-189 |
|
tcl::dict::set TK_colour_map gray75 191-191-191 |
|
tcl::dict::set TK_colour_map gray76 194-194-194 |
|
tcl::dict::set TK_colour_map gray77 196-196-196 |
|
tcl::dict::set TK_colour_map gray78 199-199-199 |
|
tcl::dict::set TK_colour_map gray79 201-201-201 |
|
tcl::dict::set TK_colour_map gray80 204-204-204 |
|
tcl::dict::set TK_colour_map gray81 207-207-207 |
|
tcl::dict::set TK_colour_map gray82 209-209-209 |
|
tcl::dict::set TK_colour_map gray83 212-212-212 |
|
tcl::dict::set TK_colour_map gray84 214-214-214 |
|
tcl::dict::set TK_colour_map gray85 217-217-217 |
|
tcl::dict::set TK_colour_map gray86 219-219-219 |
|
tcl::dict::set TK_colour_map gray87 222-222-222 |
|
tcl::dict::set TK_colour_map gray88 224-224-224 |
|
tcl::dict::set TK_colour_map gray89 227-227-227 |
|
tcl::dict::set TK_colour_map gray90 229-229-229 |
|
tcl::dict::set TK_colour_map gray91 232-232-232 |
|
tcl::dict::set TK_colour_map gray92 235-235-235 |
|
tcl::dict::set TK_colour_map gray93 237-237-237 |
|
tcl::dict::set TK_colour_map gray94 240-240-240 |
|
tcl::dict::set TK_colour_map gray95 242-242-242 |
|
tcl::dict::set TK_colour_map gray96 245-245-245 |
|
tcl::dict::set TK_colour_map gray97 247-247-247 |
|
tcl::dict::set TK_colour_map gray98 250-250-250 |
|
tcl::dict::set TK_colour_map gray99 252-252-252 |
|
tcl::dict::set TK_colour_map gray100 255-255-255 |
|
tcl::dict::set TK_colour_map green 0-128-0 |
|
tcl::dict::set TK_colour_map "green yellow" 173-255-47 |
|
tcl::dict::set TK_colour_map green1 0-255-0 |
|
tcl::dict::set TK_colour_map green2 0-238-0 |
|
tcl::dict::set TK_colour_map green3 0-205-0 |
|
tcl::dict::set TK_colour_map green4 0-139-0 |
|
tcl::dict::set TK_colour_map GreenYellow 173-255-47 |
|
tcl::dict::set TK_colour_map grey 128-128-128 |
|
tcl::dict::set TK_colour_map grey0 0-0-0 |
|
tcl::dict::set TK_colour_map grey1 3-3-3 |
|
tcl::dict::set TK_colour_map grey2 5-5-5 |
|
tcl::dict::set TK_colour_map grey3 8-8-8 |
|
tcl::dict::set TK_colour_map grey4 10-10-10 |
|
tcl::dict::set TK_colour_map grey5 13-13-13 |
|
tcl::dict::set TK_colour_map grey6 15-15-15 |
|
tcl::dict::set TK_colour_map grey7 18-18-18 |
|
tcl::dict::set TK_colour_map grey8 20-20-20 |
|
tcl::dict::set TK_colour_map grey9 23-23-23 |
|
tcl::dict::set TK_colour_map grey10 26-26-26 |
|
tcl::dict::set TK_colour_map grey11 28-28-28 |
|
tcl::dict::set TK_colour_map grey12 31-31-31 |
|
tcl::dict::set TK_colour_map grey13 33-33-33 |
|
tcl::dict::set TK_colour_map grey14 36-36-36 |
|
tcl::dict::set TK_colour_map grey15 38-38-38 |
|
tcl::dict::set TK_colour_map grey16 41-41-41 |
|
tcl::dict::set TK_colour_map grey17 43-43-43 |
|
tcl::dict::set TK_colour_map grey18 46-46-46 |
|
tcl::dict::set TK_colour_map grey19 48-48-48 |
|
tcl::dict::set TK_colour_map grey20 51-51-51 |
|
tcl::dict::set TK_colour_map grey21 54-54-54 |
|
tcl::dict::set TK_colour_map grey22 56-56-56 |
|
tcl::dict::set TK_colour_map grey23 59-59-59 |
|
tcl::dict::set TK_colour_map grey24 61-61-61 |
|
tcl::dict::set TK_colour_map grey25 64-64-64 |
|
tcl::dict::set TK_colour_map grey26 66-66-66 |
|
tcl::dict::set TK_colour_map grey27 69-69-69 |
|
tcl::dict::set TK_colour_map grey28 71-71-71 |
|
tcl::dict::set TK_colour_map grey29 74-74-74 |
|
tcl::dict::set TK_colour_map grey30 77-77-77 |
|
tcl::dict::set TK_colour_map grey31 79-79-79 |
|
tcl::dict::set TK_colour_map grey32 82-82-82 |
|
tcl::dict::set TK_colour_map grey33 84-84-84 |
|
tcl::dict::set TK_colour_map grey34 87-87-87 |
|
tcl::dict::set TK_colour_map grey35 89-89-89 |
|
tcl::dict::set TK_colour_map grey36 92-92-92 |
|
tcl::dict::set TK_colour_map grey37 94-94-94 |
|
tcl::dict::set TK_colour_map grey38 97-97-97 |
|
tcl::dict::set TK_colour_map grey39 99-99-99 |
|
tcl::dict::set TK_colour_map grey40 102-102-102 |
|
tcl::dict::set TK_colour_map grey41 105-105-105 |
|
tcl::dict::set TK_colour_map grey42 107-107-107 |
|
tcl::dict::set TK_colour_map grey43 110-110-110 |
|
tcl::dict::set TK_colour_map grey44 112-112-112 |
|
tcl::dict::set TK_colour_map grey45 115-115-115 |
|
tcl::dict::set TK_colour_map grey46 117-117-117 |
|
tcl::dict::set TK_colour_map grey47 120-120-120 |
|
tcl::dict::set TK_colour_map grey48 122-122-122 |
|
tcl::dict::set TK_colour_map grey49 125-125-125 |
|
tcl::dict::set TK_colour_map grey50 127-127-127 |
|
tcl::dict::set TK_colour_map grey51 130-130-130 |
|
tcl::dict::set TK_colour_map grey52 133-133-133 |
|
tcl::dict::set TK_colour_map grey53 135-135-135 |
|
tcl::dict::set TK_colour_map grey54 138-138-138 |
|
tcl::dict::set TK_colour_map grey55 140-140-140 |
|
tcl::dict::set TK_colour_map grey56 143-143-143 |
|
tcl::dict::set TK_colour_map grey57 145-145-145 |
|
tcl::dict::set TK_colour_map grey58 148-148-148 |
|
tcl::dict::set TK_colour_map grey59 150-150-150 |
|
tcl::dict::set TK_colour_map grey60 153-153-153 |
|
tcl::dict::set TK_colour_map grey61 156-156-156 |
|
tcl::dict::set TK_colour_map grey62 158-158-158 |
|
tcl::dict::set TK_colour_map grey63 161-161-161 |
|
tcl::dict::set TK_colour_map grey64 163-163-163 |
|
tcl::dict::set TK_colour_map grey65 166-166-166 |
|
tcl::dict::set TK_colour_map grey66 168-168-168 |
|
tcl::dict::set TK_colour_map grey67 171-171-171 |
|
tcl::dict::set TK_colour_map grey68 173-173-173 |
|
tcl::dict::set TK_colour_map grey69 176-176-176 |
|
tcl::dict::set TK_colour_map grey70 179-179-179 |
|
tcl::dict::set TK_colour_map grey71 181-181-181 |
|
tcl::dict::set TK_colour_map grey72 184-184-184 |
|
tcl::dict::set TK_colour_map grey73 186-186-186 |
|
tcl::dict::set TK_colour_map grey74 189-189-189 |
|
tcl::dict::set TK_colour_map grey75 191-191-191 |
|
tcl::dict::set TK_colour_map grey76 194-194-194 |
|
tcl::dict::set TK_colour_map grey77 196-196-196 |
|
tcl::dict::set TK_colour_map grey78 199-199-199 |
|
tcl::dict::set TK_colour_map grey79 201-201-201 |
|
tcl::dict::set TK_colour_map grey80 204-204-204 |
|
tcl::dict::set TK_colour_map grey81 207-207-207 |
|
tcl::dict::set TK_colour_map grey82 209-209-209 |
|
tcl::dict::set TK_colour_map grey83 212-212-212 |
|
tcl::dict::set TK_colour_map grey84 214-214-214 |
|
tcl::dict::set TK_colour_map grey85 217-217-217 |
|
tcl::dict::set TK_colour_map grey86 219-219-219 |
|
tcl::dict::set TK_colour_map grey87 222-222-222 |
|
tcl::dict::set TK_colour_map grey88 224-224-224 |
|
tcl::dict::set TK_colour_map grey89 227-227-227 |
|
tcl::dict::set TK_colour_map grey90 229-229-229 |
|
tcl::dict::set TK_colour_map grey91 232-232-232 |
|
tcl::dict::set TK_colour_map grey92 235-235-235 |
|
tcl::dict::set TK_colour_map grey93 237-237-237 |
|
tcl::dict::set TK_colour_map grey94 240-240-240 |
|
tcl::dict::set TK_colour_map grey95 242-242-242 |
|
tcl::dict::set TK_colour_map grey96 245-245-245 |
|
tcl::dict::set TK_colour_map grey97 247-247-247 |
|
tcl::dict::set TK_colour_map grey98 250-250-250 |
|
tcl::dict::set TK_colour_map grey99 252-252-252 |
|
tcl::dict::set TK_colour_map grey100 255-255-255 |
|
tcl::dict::set TK_colour_map honeydew 240-255-240 |
|
tcl::dict::set TK_colour_map honeydew1 240-255-240 |
|
tcl::dict::set TK_colour_map honeydew2 224-238-224 |
|
tcl::dict::set TK_colour_map honeydew3 193-205-193 |
|
tcl::dict::set TK_colour_map honeydew4 131-139-131 |
|
tcl::dict::set TK_colour_map "hot pink" 255-105-180 |
|
tcl::dict::set TK_colour_map HotPink 255-105-180 |
|
tcl::dict::set TK_colour_map HotPink1 255-110-180 |
|
tcl::dict::set TK_colour_map HotPink2 238-106-167 |
|
tcl::dict::set TK_colour_map HotPink3 205-96-144 |
|
tcl::dict::set TK_colour_map HotPink4 139-58-98 |
|
tcl::dict::set TK_colour_map "indian red" 205-92-92 |
|
tcl::dict::set TK_colour_map IndianRed 205-92-92 |
|
tcl::dict::set TK_colour_map IndianRed1 255-106-106 |
|
tcl::dict::set TK_colour_map IndianRed2 238-99-99 |
|
tcl::dict::set TK_colour_map IndianRed3 205-85-85 |
|
tcl::dict::set TK_colour_map IndianRed4 139-58-58 |
|
tcl::dict::set TK_colour_map indigo 75-0-130 |
|
tcl::dict::set TK_colour_map ivory 255-255-240 |
|
tcl::dict::set TK_colour_map ivory1 255-255-240 |
|
tcl::dict::set TK_colour_map ivory2 238-238-224 |
|
tcl::dict::set TK_colour_map ivory3 205-205-193 |
|
tcl::dict::set TK_colour_map ivory4 139-139-131 |
|
tcl::dict::set TK_colour_map khaki 240-230-140 |
|
tcl::dict::set TK_colour_map khaki1 255-246-143 |
|
tcl::dict::set TK_colour_map khaki2 238-230-133 |
|
tcl::dict::set TK_colour_map khaki3 205-198-115 |
|
tcl::dict::set TK_colour_map khaki4 139-134-78 |
|
tcl::dict::set TK_colour_map lavender 230-230-250 |
|
tcl::dict::set TK_colour_map "lavender blush" 255-240-245 |
|
tcl::dict::set TK_colour_map LavenderBlush 255-240-245 |
|
tcl::dict::set TK_colour_map LavenderBlush1 255-240-245 |
|
tcl::dict::set TK_colour_map LavenderBlush2 238-224-229 |
|
tcl::dict::set TK_colour_map LavenderBlush3 205-193-197 |
|
tcl::dict::set TK_colour_map LavenderBlush4 139-131-134 |
|
tcl::dict::set TK_colour_map "lawn green" 124-252-0 |
|
tcl::dict::set TK_colour_map LawnGreen 124-252-0 |
|
tcl::dict::set TK_colour_map "lemon chiffon" 255-250-205 |
|
tcl::dict::set TK_colour_map LemonChiffon 255-250-205 |
|
tcl::dict::set TK_colour_map LemonChiffon1 255-250-205 |
|
tcl::dict::set TK_colour_map LemonChiffon2 238-233-191 |
|
tcl::dict::set TK_colour_map LemonChiffon3 205-201-165 |
|
tcl::dict::set TK_colour_map LemonChiffon4 139-137-112 |
|
tcl::dict::set TK_colour_map "light blue" 173-216-230 |
|
tcl::dict::set TK_colour_map "light coral" 240-128-128 |
|
tcl::dict::set TK_colour_map "light cyan" 224-255-255 |
|
tcl::dict::set TK_colour_map "light goldenrod" 238-221-130 |
|
tcl::dict::set TK_colour_map "light goldenrod yellow" 250-250-210 |
|
tcl::dict::set TK_colour_map "light gray" 211-211-211 |
|
tcl::dict::set TK_colour_map "light green" 144-238-144 |
|
tcl::dict::set TK_colour_map "light grey" 211-211-211 |
|
tcl::dict::set TK_colour_map "light pink" 255-182-193 |
|
tcl::dict::set TK_colour_map "light salmon" 255-160-122 |
|
tcl::dict::set TK_colour_map "light sea green" 32-178-170 |
|
tcl::dict::set TK_colour_map "light sky blue" 135-206-250 |
|
tcl::dict::set TK_colour_map "light slate blue" 132-112-255 |
|
tcl::dict::set TK_colour_map "light slate gray" 119-136-153 |
|
tcl::dict::set TK_colour_map "light slate grey" 119-136-153 |
|
tcl::dict::set TK_colour_map "light steel blue" 176-196-222 |
|
tcl::dict::set TK_colour_map "light yellow" 255-255-224 |
|
tcl::dict::set TK_colour_map LightBlue 173-216-230 |
|
tcl::dict::set TK_colour_map LightBlue1 191-239-255 |
|
tcl::dict::set TK_colour_map LightBlue2 178-223-238 |
|
tcl::dict::set TK_colour_map LightBlue3 154-192-205 |
|
tcl::dict::set TK_colour_map LightBlue4 104-131-139 |
|
tcl::dict::set TK_colour_map LightCoral 240-128-128 |
|
tcl::dict::set TK_colour_map LightCyan 224-255-255 |
|
tcl::dict::set TK_colour_map LightCyan1 224-255-255 |
|
tcl::dict::set TK_colour_map LightCyan2 209-238-238 |
|
tcl::dict::set TK_colour_map LightCyan3 180-205-205 |
|
tcl::dict::set TK_colour_map LightCyan4 122-139-139 |
|
tcl::dict::set TK_colour_map LightGoldenrod 238-221-130 |
|
tcl::dict::set TK_colour_map LightGoldenrod1 255-236-139 |
|
tcl::dict::set TK_colour_map LightGoldenrod2 238-220-130 |
|
tcl::dict::set TK_colour_map LightGoldenrod3 205-190-112 |
|
tcl::dict::set TK_colour_map LightGoldenrod4 139-129-76 |
|
tcl::dict::set TK_colour_map LightGoldenrodYellow 250-250-210 |
|
tcl::dict::set TK_colour_map LightGray 211-211-211 |
|
tcl::dict::set TK_colour_map LightGreen 144-238-144 |
|
tcl::dict::set TK_colour_map LightGrey 211-211-211 |
|
tcl::dict::set TK_colour_map LightPink 255-182-193 |
|
tcl::dict::set TK_colour_map LightPink1 255-174-185 |
|
tcl::dict::set TK_colour_map LightPink2 238-162-173 |
|
tcl::dict::set TK_colour_map LightPink3 205-140-149 |
|
tcl::dict::set TK_colour_map LightPink4 139-95-101 |
|
tcl::dict::set TK_colour_map LightSalmon 255-160-122 |
|
tcl::dict::set TK_colour_map LightSalmon1 255-160-122 |
|
tcl::dict::set TK_colour_map LightSalmon2 238-149-114 |
|
tcl::dict::set TK_colour_map LightSalmon3 205-129-98 |
|
tcl::dict::set TK_colour_map LightSalmon4 139-87-66 |
|
tcl::dict::set TK_colour_map LightSeaGreen 32-178-170 |
|
tcl::dict::set TK_colour_map LightSkyBlue 135-206-250 |
|
tcl::dict::set TK_colour_map LightSkyBlue1 176-226-255 |
|
tcl::dict::set TK_colour_map LightSkyBlue2 164-211-238 |
|
tcl::dict::set TK_colour_map LightSkyBlue3 141-182-205 |
|
tcl::dict::set TK_colour_map LightSkyBlue4 96-123-139 |
|
tcl::dict::set TK_colour_map LightSlateBlue 132-112-255 |
|
tcl::dict::set TK_colour_map LightSlateGray 119-136-153 |
|
tcl::dict::set TK_colour_map LightSlateGrey 119-136-153 |
|
tcl::dict::set TK_colour_map LightSteelBlue 176-196-222 |
|
tcl::dict::set TK_colour_map LightSteelBlue1 202-225-255 |
|
tcl::dict::set TK_colour_map LightSteelBlue2 188-210-238 |
|
tcl::dict::set TK_colour_map LightSteelBlue3 162-181-205 |
|
tcl::dict::set TK_colour_map LightSteelBlue4 110-123-139 |
|
tcl::dict::set TK_colour_map LightYellow 255-255-224 |
|
tcl::dict::set TK_colour_map LightYellow1 255-255-224 |
|
tcl::dict::set TK_colour_map LightYellow2 238-238-209 |
|
tcl::dict::set TK_colour_map LightYellow3 205-205-180 |
|
tcl::dict::set TK_colour_map LightYellow4 139-139-122 |
|
tcl::dict::set TK_colour_map lime 0-255-0 |
|
tcl::dict::set TK_colour_map "lime green" 50-205-50 |
|
tcl::dict::set TK_colour_map LimeGreen 50-205-50 |
|
tcl::dict::set TK_colour_map linen 250-240-230 |
|
tcl::dict::set TK_colour_map magenta 255-0-255 |
|
tcl::dict::set TK_colour_map magenta1 255-0-255 |
|
tcl::dict::set TK_colour_map magenta2 238-0-238 |
|
tcl::dict::set TK_colour_map magenta3 205-0-205 |
|
tcl::dict::set TK_colour_map magenta4 139-0-139 |
|
tcl::dict::set TK_colour_map maroon 128-0-0 |
|
tcl::dict::set TK_colour_map maroon1 255-52-179 |
|
tcl::dict::set TK_colour_map maroon2 238-48-167 |
|
tcl::dict::set TK_colour_map maroon3 205-41-144 |
|
tcl::dict::set TK_colour_map maroon4 139-28-98 |
|
tcl::dict::set TK_colour_map "medium aquamarine" 102-205-170 |
|
tcl::dict::set TK_colour_map "medium blue" 0-0-205 |
|
tcl::dict::set TK_colour_map "medium orchid" 186-85-211 |
|
tcl::dict::set TK_colour_map "medium purple" 147-112-219 |
|
tcl::dict::set TK_colour_map "medium sea green" 60-179-113 |
|
tcl::dict::set TK_colour_map "medium slate blue" 123-104-238 |
|
tcl::dict::set TK_colour_map "medium spring green" 0-250-154 |
|
tcl::dict::set TK_colour_map "medium turquoise" 72-209-204 |
|
tcl::dict::set TK_colour_map "medium violet red" 199-21-133 |
|
tcl::dict::set TK_colour_map MediumAquamarine 102-205-170 |
|
tcl::dict::set TK_colour_map MediumBlue 0-0-205 |
|
tcl::dict::set TK_colour_map MediumOrchid 186-85-211 |
|
tcl::dict::set TK_colour_map MediumOrchid1 224-102-255 |
|
tcl::dict::set TK_colour_map MediumOrchid2 209-95-238 |
|
tcl::dict::set TK_colour_map MediumOrchid3 180-82-205 |
|
tcl::dict::set TK_colour_map MediumOrchid4 122-55-139 |
|
tcl::dict::set TK_colour_map MediumPurple 147-112-219 |
|
tcl::dict::set TK_colour_map MediumPurple1 171-130-255 |
|
tcl::dict::set TK_colour_map MediumPurple2 159-121-238 |
|
tcl::dict::set TK_colour_map MediumPurple3 137-104-205 |
|
tcl::dict::set TK_colour_map MediumPurple4 93-71-139 |
|
tcl::dict::set TK_colour_map MediumSeaGreen 60-179-113 |
|
tcl::dict::set TK_colour_map MediumSlateBlue 123-104-238 |
|
tcl::dict::set TK_colour_map MediumSpringGreen 0-250-154 |
|
tcl::dict::set TK_colour_map MediumTurquoise 72-209-204 |
|
tcl::dict::set TK_colour_map MediumVioletRed 199-21-133 |
|
tcl::dict::set TK_colour_map "midnight blue" 25-25-112 |
|
tcl::dict::set TK_colour_map MidnightBlue 25-25-112 |
|
tcl::dict::set TK_colour_map "mint cream" 245-255-250 |
|
tcl::dict::set TK_colour_map MintCream 245-255-250 |
|
tcl::dict::set TK_colour_map "misty rose" 255-228-225 |
|
tcl::dict::set TK_colour_map MistyRose 255-228-225 |
|
tcl::dict::set TK_colour_map MistyRose1 255-228-225 |
|
tcl::dict::set TK_colour_map MistyRose2 238-213-210 |
|
tcl::dict::set TK_colour_map MistyRose3 205-183-181 |
|
tcl::dict::set TK_colour_map MistyRose4 139-125-123 |
|
tcl::dict::set TK_colour_map moccasin 255-228-181 |
|
tcl::dict::set TK_colour_map "navajo white" 255-222-173 |
|
tcl::dict::set TK_colour_map NavajoWhite 255-222-173 |
|
tcl::dict::set TK_colour_map NavajoWhite1 255-222-173 |
|
tcl::dict::set TK_colour_map NavajoWhite2 238-207-161 |
|
tcl::dict::set TK_colour_map NavajoWhite3 205-179-139 |
|
tcl::dict::set TK_colour_map NavajoWhite4 139-121-94 |
|
tcl::dict::set TK_colour_map navy 0-0-128 |
|
tcl::dict::set TK_colour_map "navy blue" 0-0-128 |
|
tcl::dict::set TK_colour_map NavyBlue 0-0-128 |
|
tcl::dict::set TK_colour_map "old lace" 253-245-230 |
|
tcl::dict::set TK_colour_map OldLace 253-245-230 |
|
tcl::dict::set TK_colour_map olive 128-128-0 |
|
tcl::dict::set TK_colour_map "olive drab" 107-142-35 |
|
tcl::dict::set TK_colour_map OliveDrab 107-142-35 |
|
tcl::dict::set TK_colour_map OliveDrab1 192-255-62 |
|
tcl::dict::set TK_colour_map OliveDrab2 179-238-58 |
|
tcl::dict::set TK_colour_map OliveDrab3 154-205-50 |
|
tcl::dict::set TK_colour_map OliveDrab4 105-139-34 |
|
tcl::dict::set TK_colour_map orange 255-165-0 |
|
tcl::dict::set TK_colour_map "orange red" 255-69-0 |
|
tcl::dict::set TK_colour_map orange1 255-165-0 |
|
tcl::dict::set TK_colour_map orange2 238-154-0 |
|
tcl::dict::set TK_colour_map orange3 205-133-0 |
|
tcl::dict::set TK_colour_map orange4 139-90-0 |
|
tcl::dict::set TK_colour_map OrangeRed 255-69-0 |
|
tcl::dict::set TK_colour_map OrangeRed1 255-69-0 |
|
tcl::dict::set TK_colour_map OrangeRed2 238-64-0 |
|
tcl::dict::set TK_colour_map OrangeRed3 205-55-0 |
|
tcl::dict::set TK_colour_map OrangeRed4 139-37-0 |
|
tcl::dict::set TK_colour_map orchid 218-112-214 |
|
tcl::dict::set TK_colour_map orchid1 255-131-250 |
|
tcl::dict::set TK_colour_map orchid2 238-122-233 |
|
tcl::dict::set TK_colour_map orchid3 205-105-201 |
|
tcl::dict::set TK_colour_map orchid4 139-71-137 |
|
tcl::dict::set TK_colour_map "pale goldenrod" 238-232-170 |
|
tcl::dict::set TK_colour_map "pale green" 152-251-152 |
|
tcl::dict::set TK_colour_map "pale turquoise" 175-238-238 |
|
tcl::dict::set TK_colour_map "pale violet red" 219-112-147 |
|
tcl::dict::set TK_colour_map PaleGoldenrod 238-232-170 |
|
tcl::dict::set TK_colour_map PaleGreen 152-251-152 |
|
tcl::dict::set TK_colour_map PaleGreen1 154-255-154 |
|
tcl::dict::set TK_colour_map PaleGreen2 144-238-144 |
|
tcl::dict::set TK_colour_map PaleGreen3 124-205-124 |
|
tcl::dict::set TK_colour_map PaleGreen4 84-139-84 |
|
tcl::dict::set TK_colour_map PaleTurquoise 175-238-238 |
|
tcl::dict::set TK_colour_map PaleTurquoise1 187-255-255 |
|
tcl::dict::set TK_colour_map PaleTurquoise2 174-238-238 |
|
tcl::dict::set TK_colour_map PaleTurquoise3 150-205-205 |
|
tcl::dict::set TK_colour_map PaleTurquoise4 102-139-139 |
|
tcl::dict::set TK_colour_map PaleVioletRed 219-112-147 |
|
tcl::dict::set TK_colour_map PaleVioletRed1 255-130-171 |
|
tcl::dict::set TK_colour_map PaleVioletRed2 238-121-159 |
|
tcl::dict::set TK_colour_map PaleVioletRed3 205-104-127 |
|
tcl::dict::set TK_colour_map PaleVioletRed4 139-71-93 |
|
tcl::dict::set TK_colour_map "papaya whip" 255-239-213 |
|
tcl::dict::set TK_colour_map PapayaWhip 255-239-213 |
|
tcl::dict::set TK_colour_map "peach puff" 255-218-185 |
|
tcl::dict::set TK_colour_map PeachPuff 255-218-185 |
|
tcl::dict::set TK_colour_map PeachPuff1 255-218-185 |
|
tcl::dict::set TK_colour_map PeachPuff2 238-203-173 |
|
tcl::dict::set TK_colour_map PeachPuff3 205-175-149 |
|
tcl::dict::set TK_colour_map PeachPuff4 139-119-101 |
|
tcl::dict::set TK_colour_map peru 205-133-63 |
|
tcl::dict::set TK_colour_map pink 255-192-203 |
|
tcl::dict::set TK_colour_map pink1 255-181-197 |
|
tcl::dict::set TK_colour_map pink2 238-169-184 |
|
tcl::dict::set TK_colour_map pink3 205-145-158 |
|
tcl::dict::set TK_colour_map pink4 139-99-108 |
|
tcl::dict::set TK_colour_map plum 221-160-221 |
|
tcl::dict::set TK_colour_map plum1 255-187-255 |
|
tcl::dict::set TK_colour_map plum2 238-174-238 |
|
tcl::dict::set TK_colour_map plum3 205-150-205 |
|
tcl::dict::set TK_colour_map plum4 139-102-139 |
|
tcl::dict::set TK_colour_map "powder blue" 176-224-230 |
|
tcl::dict::set TK_colour_map PowderBlue 176-224-230 |
|
tcl::dict::set TK_colour_map purple 128-0-128 |
|
tcl::dict::set TK_colour_map purple1 155-48-255 |
|
tcl::dict::set TK_colour_map purple2 145-44-238 |
|
tcl::dict::set TK_colour_map purple3 125-38-205 |
|
tcl::dict::set TK_colour_map purple4 85-26-139 |
|
tcl::dict::set TK_colour_map red 255-0-0 |
|
tcl::dict::set TK_colour_map red1 255-0-0 |
|
tcl::dict::set TK_colour_map red2 238-0-0 |
|
tcl::dict::set TK_colour_map red3 205-0-0 |
|
tcl::dict::set TK_colour_map red4 139-0-0 |
|
tcl::dict::set TK_colour_map "rosy brown" 188-143-143 |
|
tcl::dict::set TK_colour_map RosyBrown 188-143-143 |
|
tcl::dict::set TK_colour_map RosyBrown1 255-193-193 |
|
tcl::dict::set TK_colour_map RosyBrown2 238-180-180 |
|
tcl::dict::set TK_colour_map RosyBrown3 205-155-155 |
|
tcl::dict::set TK_colour_map RosyBrown4 139-105-105 |
|
tcl::dict::set TK_colour_map "royal blue" 65-105-225 |
|
tcl::dict::set TK_colour_map RoyalBlue 65-105-225 |
|
tcl::dict::set TK_colour_map RoyalBlue1 72-118-255 |
|
tcl::dict::set TK_colour_map RoyalBlue2 67-110-238 |
|
tcl::dict::set TK_colour_map RoyalBlue3 58-95-205 |
|
tcl::dict::set TK_colour_map RoyalBlue4 39-64-139 |
|
tcl::dict::set TK_colour_map "saddle brown" 139-69-19 |
|
tcl::dict::set TK_colour_map SaddleBrown 139-69-19 |
|
tcl::dict::set TK_colour_map salmon 250-128-114 |
|
tcl::dict::set TK_colour_map salmon1 255-140-105 |
|
tcl::dict::set TK_colour_map salmon2 238-130-98 |
|
tcl::dict::set TK_colour_map salmon3 205-112-84 |
|
tcl::dict::set TK_colour_map salmon4 139-76-57 |
|
tcl::dict::set TK_colour_map "sandy brown" 244-164-96 |
|
tcl::dict::set TK_colour_map SandyBrown 244-164-96 |
|
tcl::dict::set TK_colour_map "sea green" 46-139-87 |
|
tcl::dict::set TK_colour_map SeaGreen 46-139-87 |
|
tcl::dict::set TK_colour_map SeaGreen1 84-255-159 |
|
tcl::dict::set TK_colour_map SeaGreen2 78-238-148 |
|
tcl::dict::set TK_colour_map SeaGreen3 67-205-128 |
|
tcl::dict::set TK_colour_map SeaGreen4 46-139-87 |
|
tcl::dict::set TK_colour_map seashell 255-245-238 |
|
tcl::dict::set TK_colour_map seashell1 255-245-238 |
|
tcl::dict::set TK_colour_map seashell2 238-229-222 |
|
tcl::dict::set TK_colour_map seashell3 205-197-191 |
|
tcl::dict::set TK_colour_map seashell4 139-134-130 |
|
tcl::dict::set TK_colour_map sienna 160-82-45 |
|
tcl::dict::set TK_colour_map sienna1 255-130-71 |
|
tcl::dict::set TK_colour_map sienna2 238-121-66 |
|
tcl::dict::set TK_colour_map sienna3 205-104-57 |
|
tcl::dict::set TK_colour_map sienna4 139-71-38 |
|
tcl::dict::set TK_colour_map silver 192-192-192 |
|
tcl::dict::set TK_colour_map "sky blue" 135-206-235 |
|
tcl::dict::set TK_colour_map SkyBlue 135-206-235 |
|
tcl::dict::set TK_colour_map SkyBlue1 135-206-255 |
|
tcl::dict::set TK_colour_map SkyBlue2 126-192-238 |
|
tcl::dict::set TK_colour_map SkyBlue3 108-166-205 |
|
tcl::dict::set TK_colour_map SkyBlue4 74-112-139 |
|
tcl::dict::set TK_colour_map "slate blue" 106-90-205 |
|
tcl::dict::set TK_colour_map "slate gray" 112-128-144 |
|
tcl::dict::set TK_colour_map "slate grey" 112-128-144 |
|
tcl::dict::set TK_colour_map SlateBlue 106-90-205 |
|
tcl::dict::set TK_colour_map SlateBlue1 131-111-255 |
|
tcl::dict::set TK_colour_map SlateBlue2 122-103-238 |
|
tcl::dict::set TK_colour_map SlateBlue3 105-89-205 |
|
tcl::dict::set TK_colour_map SlateBlue4 71-60-139 |
|
tcl::dict::set TK_colour_map SlateGray 112-128-144 |
|
tcl::dict::set TK_colour_map SlateGray1 198-226-255 |
|
tcl::dict::set TK_colour_map SlateGray2 185-211-238 |
|
tcl::dict::set TK_colour_map SlateGray3 159-182-205 |
|
tcl::dict::set TK_colour_map SlateGray4 108-123-139 |
|
tcl::dict::set TK_colour_map SlateGrey 112-128-144 |
|
tcl::dict::set TK_colour_map snow 255-250-250 |
|
tcl::dict::set TK_colour_map snow1 255-250-250 |
|
tcl::dict::set TK_colour_map snow2 238-233-233 |
|
tcl::dict::set TK_colour_map snow3 205-201-201 |
|
tcl::dict::set TK_colour_map snow4 139-137-137 |
|
tcl::dict::set TK_colour_map "spring green" 0-255-127 |
|
tcl::dict::set TK_colour_map SpringGreen 0-255-127 |
|
tcl::dict::set TK_colour_map SpringGreen1 0-255-127 |
|
tcl::dict::set TK_colour_map SpringGreen2 0-238-118 |
|
tcl::dict::set TK_colour_map SpringGreen3 0-205-102 |
|
tcl::dict::set TK_colour_map SpringGreen4 0-139-69 |
|
tcl::dict::set TK_colour_map "steel blue" 70-130-180 |
|
tcl::dict::set TK_colour_map SteelBlue 70-130-180 |
|
tcl::dict::set TK_colour_map SteelBlue1 99-184-255 |
|
tcl::dict::set TK_colour_map SteelBlue2 92-172-238 |
|
tcl::dict::set TK_colour_map SteelBlue3 79-148-205 |
|
tcl::dict::set TK_colour_map SteelBlue4 54-100-139 |
|
tcl::dict::set TK_colour_map tan 210-180-140 |
|
tcl::dict::set TK_colour_map tan1 255-165-79 |
|
tcl::dict::set TK_colour_map tan2 238-154-73 |
|
tcl::dict::set TK_colour_map tan3 205-133-63 |
|
tcl::dict::set TK_colour_map tan4 139-90-43 |
|
tcl::dict::set TK_colour_map teal 0-128-128 |
|
tcl::dict::set TK_colour_map thistle 216-191-216 |
|
tcl::dict::set TK_colour_map thistle1 255-225-255 |
|
tcl::dict::set TK_colour_map thistle2 238-210-238 |
|
tcl::dict::set TK_colour_map thistle3 205-181-205 |
|
tcl::dict::set TK_colour_map thistle4 139-123-139 |
|
tcl::dict::set TK_colour_map tomato 255-99-71 |
|
tcl::dict::set TK_colour_map tomato1 255-99-71 |
|
tcl::dict::set TK_colour_map tomato2 238-92-66 |
|
tcl::dict::set TK_colour_map tomato3 205-79-57 |
|
tcl::dict::set TK_colour_map tomato4 139-54-38 |
|
tcl::dict::set TK_colour_map turquoise 64-224-208 |
|
tcl::dict::set TK_colour_map turquoise1 0-245-255 |
|
tcl::dict::set TK_colour_map turquoise2 0-229-238 |
|
tcl::dict::set TK_colour_map turquoise3 0-197-205 |
|
tcl::dict::set TK_colour_map turquoise4 0-134-139 |
|
tcl::dict::set TK_colour_map violet 238-130-238 |
|
tcl::dict::set TK_colour_map "violet red" 208-32-144 |
|
tcl::dict::set TK_colour_map VioletRed 208-32-144 |
|
tcl::dict::set TK_colour_map VioletRed1 255-62-150 |
|
tcl::dict::set TK_colour_map VioletRed2 238-58-140 |
|
tcl::dict::set TK_colour_map VioletRed3 205-50-120 |
|
tcl::dict::set TK_colour_map VioletRed4 139-34-82 |
|
tcl::dict::set TK_colour_map wheat 245-222-179 |
|
tcl::dict::set TK_colour_map wheat1 255-231-186 |
|
tcl::dict::set TK_colour_map wheat2 238-216-174 |
|
tcl::dict::set TK_colour_map wheat3 205-186-150 |
|
tcl::dict::set TK_colour_map wheat4 139-126-102 |
|
tcl::dict::set TK_colour_map white 255-255-255 |
|
tcl::dict::set TK_colour_map "white smoke" 245-245-245 |
|
tcl::dict::set TK_colour_map WhiteSmoke 245-245-245 |
|
tcl::dict::set TK_colour_map yellow 255-255-0 |
|
tcl::dict::set TK_colour_map "yellow green" 154-205-50 |
|
tcl::dict::set TK_colour_map yellow1 255-255-0 |
|
tcl::dict::set TK_colour_map yellow2 238-238-0 |
|
tcl::dict::set TK_colour_map yellow3 205-205-0 |
|
tcl::dict::set TK_colour_map yellow4 139-139-0 |
|
tcl::dict::set TK_colour_map YellowGreen 154-205-50 |
|
|
|
variable TK_colour_map_lookup ;#same dict but with lower-case versions added |
|
set TK_colour_map_lookup $TK_colour_map |
|
dict for {key val} $TK_colour_map { |
|
dict set TK_colour_map_lookup [tcl::string::tolower $key] $val ;#no need to test if already present - just set. |
|
} |
|
|
|
variable TK_colour_map_reverse [dict create] |
|
dict for {key val} $TK_colour_map { |
|
dict lappend TK_colour_map_reverse $val $key |
|
} |
|
|
|
#using same order as inital colour map |
|
variable TK_colour_map_merge [dict create] |
|
set seen_names [dict create] |
|
dict for {key val} $TK_colour_map { |
|
if {[dict exists $seen_names $key]} { |
|
continue |
|
} |
|
set allnames [dict get $TK_colour_map_reverse $val] |
|
set names [list] |
|
foreach n $allnames { |
|
if {$n ne $key} { |
|
lappend names $n |
|
} |
|
} |
|
dict set TK_colour_map_merge $key [dict create colour $val names $names] |
|
foreach n $names { |
|
dict set seen_names $n 1 |
|
} |
|
} |
|
unset seen_names |
|
|
|
|
|
|
|
|
|
#*** !doctools |
|
#[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap ---}] |
|
} |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# Secondary API namespace |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
tcl::namespace::eval ::punk::ansi::colourmap::lib { |
|
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
|
tcl::namespace::path [tcl::namespace::parent] |
|
#*** !doctools |
|
#[subsection {Namespace ::punk::ansi::colourmap::lib}] |
|
#[para] Secondary functions that are part of the API |
|
#[list_begin definitions] |
|
|
|
#proc utility1 {p1 args} { |
|
# #*** !doctools |
|
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
|
# #[para]Description of utility1 |
|
# return 1 |
|
#} |
|
|
|
|
|
|
|
#*** !doctools |
|
#[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap::lib ---}] |
|
} |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
|
|
|
|
|
|
# ----------------------------------------------------------------------------- |
|
# register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked |
|
# ----------------------------------------------------------------------------- |
|
# variable PUNKARGS |
|
# variable PUNKARGS_aliases |
|
namespace eval ::punk::args::register { |
|
#use fully qualified so 8.6 doesn't find existing var in global namespace |
|
lappend ::punk::args::register::NAMESPACES ::punk::ansi::colourmap |
|
} |
|
# ----------------------------------------------------------------------------- |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
## Ready |
|
package provide punk::ansi::colourmap [tcl::namespace::eval ::punk::ansi::colourmap { |
|
variable pkg ::punk::ansi::colourmap |
|
variable version |
|
set version 0.1.0 |
|
}] |
|
return |
|
|
|
#*** !doctools |
|
#[manpage_end] |
|
|
|
|