115 changed files with 40004 additions and 97650 deletions
@ -1,349 +0,0 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt |
||||
# |
||||
# 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) 2023 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application dictn 0.1.1 |
||||
# Meta platform tcl |
||||
# Meta license <unspecified> |
||||
# @@ Meta End |
||||
|
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
##e.g package require frobz |
||||
|
||||
|
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
namespace eval dictn { |
||||
namespace export {[a-z]*} |
||||
namespace ensemble create |
||||
} |
||||
|
||||
|
||||
## ::dictn::append |
||||
#This can of course 'ruin' a nested dict if applied to the wrong element |
||||
# - i.e using the string op 'append' on an element that is itself a nested dict is analogous to the standard Tcl: |
||||
# %set list {a b {c d}} |
||||
# %append list x |
||||
# a b {c d}x |
||||
# IOW - don't do that unless you really know that's what you want. |
||||
# |
||||
proc ::dictn::append {dictvar path {value {}}} { |
||||
if {[llength $path] == 1} { |
||||
uplevel 1 [list dict append $dictvar $path $value] |
||||
} else { |
||||
upvar 1 $dictvar dvar |
||||
|
||||
::set str [dict get $dvar {*}$path] |
||||
append str $val |
||||
dict set dvar {*}$path $str |
||||
} |
||||
} |
||||
|
||||
proc ::dictn::create {args} { |
||||
::set data {} |
||||
foreach {path val} $args { |
||||
dict set data {*}$path $val |
||||
} |
||||
return $data |
||||
} |
||||
|
||||
proc ::dictn::exists {dictval path} { |
||||
return [dict exists $dictval {*}$path] |
||||
} |
||||
|
||||
proc ::dictn::filter {dictval path filterType args} { |
||||
::set sub [dict get $dictval {*}$path] |
||||
dict filter $sub $filterType {*}$args |
||||
} |
||||
|
||||
proc ::dictn::for {keyvalvars dictval path body} { |
||||
::set sub [dict get $dictval {*}$path] |
||||
dict for $keyvalvars $sub $body |
||||
} |
||||
|
||||
proc ::dictn::get {dictval {path {}}} { |
||||
return [dict get $dictval {*}$path] |
||||
} |
||||
|
||||
proc ::dictn::getdef {dictval path default} { |
||||
return [dict getdef $dictval {*}$path $default] |
||||
} |
||||
|
||||
proc ::dictn::getwithdefault {dictval path default} { |
||||
return [dict getdef $dictval {*}$path $default] |
||||
} |
||||
|
||||
if {[info commands ::tcl::dict::getdef] ne ""} { |
||||
proc ::dictn::incr {dictvar path {increment {}} } { |
||||
if {$increment eq ""} { |
||||
::set increment 1 |
||||
} |
||||
if {[llength $path] == 1} { |
||||
uplevel 1 [list dict incr $dictvar $path $increment] |
||||
} else { |
||||
upvar 1 $dictvar dvar |
||||
if {![::info exists dvar]} { |
||||
dict set dvar {*}$path $increment |
||||
} else { |
||||
::set newval [expr {[dict getdef $dvar {*}$path 0] + $increment}] |
||||
dict set dvar {*}$path $newval |
||||
} |
||||
return $dvar |
||||
} |
||||
} |
||||
} else { |
||||
proc ::dictn::incr {dictvar path {increment {}} } { |
||||
if {$increment eq ""} { |
||||
::set increment 1 |
||||
} |
||||
if {[llength $path] == 1} { |
||||
uplevel 1 [list dict incr $dictvar $path $increment] |
||||
} else { |
||||
upvar 1 $dictvar dvar |
||||
if {![::info exists dvar]} { |
||||
dict set dvar {*}$path $increment |
||||
} else { |
||||
if {![dict exists $dvar {*}$path]} { |
||||
::set val 0 |
||||
} else { |
||||
::set val [dict get $dvar {*}$path] |
||||
} |
||||
::set newval [expr {$val + $increment}] |
||||
dict set dvar {*}$path $newval |
||||
} |
||||
return $dvar |
||||
} |
||||
} |
||||
} |
||||
|
||||
proc ::dictn::info {dictval {path {}}} { |
||||
if {![string length $path]} { |
||||
return [dict info $dictval] |
||||
} else { |
||||
::set sub [dict get $dictval {*}$path] |
||||
return [dict info $sub] |
||||
} |
||||
} |
||||
|
||||
proc ::dictn::keys {dictval {path {}} {glob {}}} { |
||||
::set sub [dict get $dictval {*}$path] |
||||
if {[string length $glob]} { |
||||
return [dict keys $sub $glob] |
||||
} else { |
||||
return [dict keys $sub] |
||||
} |
||||
} |
||||
|
||||
proc ::dictn::lappend {dictvar path args} { |
||||
if {[llength $path] == 1} { |
||||
uplevel 1 [list dict lappend $dictvar $path {*}$args] |
||||
} else { |
||||
upvar 1 $dictvar dvar |
||||
|
||||
::set list [dict get $dvar {*}$path] |
||||
::lappend list {*}$args |
||||
dict set dvar {*}$path $list |
||||
} |
||||
} |
||||
|
||||
proc ::dictn::merge {args} { |
||||
error "nested merge not yet supported" |
||||
} |
||||
|
||||
#dictn remove dictionaryValue ?path ...? |
||||
proc ::dictn::remove {dictval args} { |
||||
::set basic [list] ;#buffer basic (1element path) removals to do in a single call. |
||||
|
||||
foreach path $args { |
||||
if {[llength $path] == 1} { |
||||
::lappend basic $path |
||||
} else { |
||||
#extract,modify,replace |
||||
::set subpath [lrange $path 0 end-1] |
||||
|
||||
::set sub [dict get $dictval {*}$subpath] |
||||
::set sub [dict remove $sub [lindex $path end]] |
||||
|
||||
dict set dictval {*}$subpath $sub |
||||
} |
||||
} |
||||
|
||||
if {[llength $basic]} { |
||||
return [dict remove $dictval {*}$basic] |
||||
} else { |
||||
return $dictval |
||||
} |
||||
} |
||||
|
||||
|
||||
proc ::dictn::replace {dictval args} { |
||||
::set basic [list] ;#buffer basic (1element path) replacements to do in a single call. |
||||
|
||||
foreach {path val} $args { |
||||
if {[llength $path] == 1} { |
||||
::lappend basic $path $val |
||||
} else { |
||||
#extract,modify,replace |
||||
::set subpath [lrange $path 0 end-1] |
||||
|
||||
::set sub [dict get $dictval {*}$subpath] |
||||
::set sub [dict replace $sub [lindex $path end] $val] |
||||
|
||||
dict set dictval {*}$subpath $sub |
||||
} |
||||
} |
||||
|
||||
|
||||
if {[llength $basic]} { |
||||
return [dict replace $dictval {*}$basic] |
||||
} else { |
||||
return $dictval |
||||
} |
||||
} |
||||
|
||||
|
||||
proc ::dictn::set {dictvar path newval} { |
||||
upvar 1 $dictvar dvar |
||||
return [dict set dvar {*}$path $newval] |
||||
} |
||||
|
||||
proc ::dictn::size {dictval {path {}}} { |
||||
return [dict size [dict get $dictval {*}$path]] |
||||
} |
||||
|
||||
proc ::dictn::unset {dictvar path} { |
||||
upvar 1 $dictvar dvar |
||||
return [dict unset dvar {*}$path |
||||
} |
||||
|
||||
proc ::dictn::update {dictvar args} { |
||||
::set body [lindex $args end] |
||||
::set maplist [lrange $args 0 end-1] |
||||
|
||||
upvar 1 $dictvar dvar |
||||
foreach {path var} $maplist { |
||||
if {[dict exists $dvar {*}$path]} { |
||||
uplevel 1 [list set $var [dict get $dvar $path]] |
||||
} |
||||
} |
||||
|
||||
catch {uplevel 1 $body} result |
||||
|
||||
foreach {path var} $maplist { |
||||
if {[dict exists $dvar {*}$path]} { |
||||
upvar 1 $var $var |
||||
if {![::info exists $var]} { |
||||
uplevel 1 [list dict unset $dictvar {*}$path] |
||||
} else { |
||||
uplevel 1 [list dict set $dictvar {*}$path [::set $var]] |
||||
} |
||||
} |
||||
} |
||||
return $result |
||||
} |
||||
|
||||
#an experiment. |
||||
proc ::dictn::Applyupdate {dictvar args} { |
||||
::set body [lindex $args end] |
||||
::set maplist [lrange $args 0 end-1] |
||||
|
||||
upvar 1 $dictvar dvar |
||||
|
||||
::set headscript "" |
||||
::set i 0 |
||||
foreach {path var} $maplist { |
||||
if {[dict exists $dvar {*}$path]} { |
||||
#uplevel 1 [list set $var [dict get $dvar $path]] |
||||
::lappend arglist $var |
||||
::lappend vallist [dict get $dvar {*}$path] |
||||
::append headscript [string map [list %i% $i %v% $var] {upvar 1 %v% %v%; set %v% [lindex $args %i%]} ] |
||||
::append headscript \n |
||||
::incr i |
||||
} |
||||
} |
||||
|
||||
::set body $headscript\r\n$body |
||||
|
||||
puts stderr "BODY: $body" |
||||
|
||||
#set result [apply [list args $body] {*}$vallist] |
||||
catch {apply [list args $body] {*}$vallist} result |
||||
|
||||
foreach {path var} $maplist { |
||||
if {[dict exists $dvar {*}$path] && [::info exists $var]} { |
||||
dict set dvar {*}$path [::set $var] |
||||
} |
||||
} |
||||
return $result |
||||
} |
||||
|
||||
proc ::dictn::values {dictval {path {}} {glob {}}} { |
||||
::set sub [dict get $dictval {*}$path] |
||||
if {[string length $glob]} { |
||||
return [dict values $sub $glob] |
||||
} else { |
||||
return [dict values $sub] |
||||
} |
||||
} |
||||
|
||||
# Standard form: |
||||
#'dictn with dictVariable path body' |
||||
# |
||||
# Extended form: |
||||
#'dictn with dictVariable path arrayVariable body' |
||||
# |
||||
proc ::dictn::with {dictvar path args} { |
||||
if {[llength $args] == 1} { |
||||
::set body [lindex $args 0] |
||||
return [uplevel 1 [list dict with $dictvar {*}$path $body]] |
||||
} else { |
||||
upvar 1 $dictvar dvar |
||||
::lassign $args arrayname body |
||||
|
||||
upvar 1 $arrayname arr |
||||
array set arr [dict get $dvar {*}$path] |
||||
::set prevkeys [array names arr] |
||||
|
||||
catch {uplevel 1 $body} result |
||||
|
||||
|
||||
foreach k $prevkeys { |
||||
if {![::info exists arr($k)]} { |
||||
dict unset $dvar {*}$path $k |
||||
} |
||||
} |
||||
foreach k [array names arr] { |
||||
dict set $dvar {*}$path $k $arr($k) |
||||
} |
||||
|
||||
return $result |
||||
} |
||||
} |
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide dictn [namespace eval dictn { |
||||
variable version |
||||
::set version 0.1.1 |
||||
}] |
||||
return |
||||
@ -1,702 +0,0 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt |
||||
# |
||||
# 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) 2024 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application modpod 0.1.2 |
||||
# Meta platform tcl |
||||
# Meta license <unspecified> |
||||
# @@ Meta End |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# doctools header |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[manpage_begin modpod_module_modpod 0 0.1.2] |
||||
#[copyright "2024"] |
||||
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
||||
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
||||
#[require modpod] |
||||
#[keywords module] |
||||
#[description] |
||||
#[para] - |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section Overview] |
||||
#[para] overview of modpod |
||||
#[subsection Concepts] |
||||
#[para] - |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[subsection dependencies] |
||||
#[para] packages used by modpod |
||||
#[list_begin itemized] |
||||
|
||||
package require Tcl 8.6- |
||||
package require struct::set ;#review |
||||
package require punk::lib |
||||
package require punk::args |
||||
#*** !doctools |
||||
#[item] [package {Tcl 8.6-}] |
||||
|
||||
# #package require frobz |
||||
# #*** !doctools |
||||
# #[item] [package {frobz}] |
||||
|
||||
#*** !doctools |
||||
#[list_end] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section API] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# oo::class namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
namespace eval modpod::class { |
||||
#*** !doctools |
||||
#[subsection {Namespace modpod::class}] |
||||
#[para] class definitions |
||||
if {[info commands [namespace current]::interface_sample1] eq ""} { |
||||
#*** !doctools |
||||
#[list_begin enumerated] |
||||
|
||||
# oo::class create interface_sample1 { |
||||
# #*** !doctools |
||||
# #[enum] CLASS [class interface_sample1] |
||||
# #[list_begin definitions] |
||||
|
||||
# method test {arg1} { |
||||
# #*** !doctools |
||||
# #[call class::interface_sample1 [method test] [arg arg1]] |
||||
# #[para] test method |
||||
# puts "test: $arg1" |
||||
# } |
||||
|
||||
# #*** !doctools |
||||
# #[list_end] [comment {-- end definitions interface_sample1}] |
||||
# } |
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end class enumeration ---}] |
||||
} |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Base namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
namespace eval modpod { |
||||
namespace export {[a-z]*}; # Convention: export all lowercase |
||||
|
||||
variable connected |
||||
if {![info exists connected(to)]} { |
||||
set connected(to) list |
||||
} |
||||
variable modpodscript |
||||
set modpodscript [info script] |
||||
if {[string tolower [file extension $modpodscript]] eq ".tcl"} { |
||||
set connected(self) [file dirname $modpodscript] |
||||
} else { |
||||
#expecting a .tm |
||||
set connected(self) $modpodscript |
||||
} |
||||
variable loadables [info sharedlibextension] |
||||
variable sourceables {.tcl .tk} ;# .tm ? |
||||
|
||||
#*** !doctools |
||||
#[subsection {Namespace modpod}] |
||||
#[para] Core API functions for modpod |
||||
#[list_begin definitions] |
||||
|
||||
|
||||
|
||||
#proc sample1 {p1 args} { |
||||
# #*** !doctools |
||||
# #[call [fun sample1] [arg p1] [opt {?option value...?}]] |
||||
# #[para]Description of sample1 |
||||
# return "ok" |
||||
#} |
||||
|
||||
#old tar connect mechanism - review - not needed? |
||||
proc connect {args} { |
||||
puts stderr "modpod::connect--->>$args" |
||||
set argd [punk::args::get_dict { |
||||
@id -id ::modpod::connect |
||||
-type -default "" |
||||
@values -min 1 -max 1 |
||||
path -type string -minsize 1 -help "path to .tm file or toplevel .tcl script within #modpod-<pkg>-<ver> folder (unwrapped modpod)" |
||||
} $args] |
||||
catch { |
||||
punk::lib::showdict $argd ;#heavy dependencies |
||||
} |
||||
set opt_path [dict get $argd values path] |
||||
variable connected |
||||
set original_connectpath $opt_path |
||||
set modpodpath [modpod::system::normalize $opt_path] ;# |
||||
|
||||
if {$modpodpath in $connected(to)} { |
||||
return [dict create ok ALREADY_CONNECTED] |
||||
} |
||||
lappend connected(to) $modpodpath |
||||
|
||||
set connected(connectpath,$opt_path) $original_connectpath |
||||
set is_sourced [expr {[file normalize $modpodpath] eq [file normalize [info script]]}] |
||||
|
||||
set connected(location,$modpodpath) [file dirname $modpodpath] |
||||
set connected(startdata,$modpodpath) -1 |
||||
set connected(type,$modpodpath) [dict get $argd opts -type] |
||||
set connected(fh,$modpodpath) "" |
||||
|
||||
if {[string range [file tail $modpodpath] 0 7] eq "#modpod-"} { |
||||
set connected(type,$modpodpath) "unwrapped" |
||||
lassign [::split [file tail [file dirname $modpodpath]] -] connected(package,$modpodpath) connected(version,$modpodpath) |
||||
set this_pkg_tm_folder [file dirname [file dirname $modpodpath]] |
||||
|
||||
} else { |
||||
#connect to .tm but may still be unwrapped version available |
||||
lassign [::split [file rootname [file tail $modpodath]] -] connected(package,$modpodpath) connected(version,$modpodpath) |
||||
set this_pkg_tm_folder [file dirname $modpodpath] |
||||
if {$connected(type,$modpodpath) ne "unwrapped"} { |
||||
#Not directly connected to unwrapped version - but may still be redirected there |
||||
set unwrappedFolder [file join $connected(location,$modpodpath) #modpod-$connected(package,$modpodpath)-$connected(version,$modpodpath)] |
||||
if {[file exists $unwrappedFolder]} { |
||||
#folder with exact version-match must exist for redirect to 'unwrapped' |
||||
set con(type,$modpodpath) "modpod-redirecting" |
||||
} |
||||
} |
||||
|
||||
} |
||||
set unwrapped_tm_file [file join $this_pkg_tm_folder] "[set connected(package,$modpodpath)]-[set connected(version,$modpodpath)].tm" |
||||
set connected(tmfile,$modpodpath) |
||||
set tail_segments [list] |
||||
set lcase_tmfile_segments [string tolower [file split $this_pkg_tm_folder]] |
||||
set lcase_modulepaths [string tolower [tcl::tm::list]] |
||||
foreach lc_mpath $lcase_modulepaths { |
||||
set mpath_segments [file split $lc_mpath] |
||||
if {[llength [struct::set intersect $lcase_tmfile_segments $mpath_segments]] == [llength $mpath_segments]} { |
||||
set tail_segments [lrange [file split $this_pkg_tm_folder] [llength $mpath_segments] end] |
||||
break |
||||
} |
||||
} |
||||
if {[llength $tail_segments]} { |
||||
set connected(fullpackage,$modpodpath) [join [concat $tail_segments [set connected(package,$modpodpath)]] ::] ;#full name of package as used in package require |
||||
} else { |
||||
set connected(fullpackage,$modpodpath) [set connected(package,$modpodpath)] |
||||
} |
||||
|
||||
switch -exact -- $connected(type,$modpodpath) { |
||||
"modpod-redirecting" { |
||||
#redirect to the unwrapped version |
||||
set loadscript_name [file join $unwrappedFolder #modpod-loadscript-$con(package,$modpod).tcl] |
||||
|
||||
} |
||||
"unwrapped" { |
||||
if {[info commands ::thread::id] ne ""} { |
||||
set from [pid],[thread::id] |
||||
} else { |
||||
set from [pid] |
||||
} |
||||
#::modpod::Puts stderr "$from-> Package $connected(package,$modpodpath)-$connected(version,$modpodpath) is using unwrapped version: $modpodpath" |
||||
return [list ok ""] |
||||
} |
||||
default { |
||||
#autodetect .tm - zip/tar ? |
||||
#todo - use vfs ? |
||||
|
||||
#connect to tarball - start at 1st header |
||||
set connected(startdata,$modpodpath) 0 |
||||
set fh [open $modpodpath r] |
||||
set connected(fh,$modpodpath) $fh |
||||
fconfigure $fh -encoding iso8859-1 -translation binary -eofchar {} |
||||
|
||||
if {$connected(startdata,$modpodpath) >= 0} { |
||||
#verify we have a valid tar header |
||||
if {![catch {::modpod::system::tar::readHeader [red $fh 512]}]} { |
||||
seek $fh $connected(startdata,$modpodpath) start |
||||
return [list ok $fh] |
||||
} else { |
||||
#error "cannot verify tar header" |
||||
} |
||||
} |
||||
lpop connected(to) end |
||||
set connected(startdata,$modpodpath) -1 |
||||
unset connected(fh,$modpodpath) |
||||
catch {close $fh} |
||||
return [dict create err {Does not appear to be a valid modpod}] |
||||
} |
||||
} |
||||
} |
||||
proc disconnect {{modpod ""}} { |
||||
variable connected |
||||
if {![llength $connected(to)]} { |
||||
return 0 |
||||
} |
||||
if {$modpod eq ""} { |
||||
puts stderr "modpod::disconnect WARNING: modpod not explicitly specified. Disconnecting last connected: [lindex $connected(to) end]" |
||||
set modpod [lindex $connected(to) end] |
||||
} |
||||
|
||||
if {[set posn [lsearch $connected(to) $modpod]] == -1} { |
||||
puts stderr "modpod::disconnect WARNING: disconnect called when not connected: $modpod" |
||||
return 0 |
||||
} |
||||
if {[string length $connected(fh,$modpod)]} { |
||||
close $connected(fh,$modpod) |
||||
} |
||||
array unset connected *,$modpod |
||||
set connected(to) [lreplace $connected(to) $posn $posn] |
||||
return 1 |
||||
} |
||||
proc get {args} { |
||||
set argd [punk::args::get_dict { |
||||
-from -default "" -help "path to pod" |
||||
*values -min 1 -max 1 |
||||
filename |
||||
} $args] |
||||
set frompod [dict get $argd opts -from] |
||||
set filename [dict get $argd values filename] |
||||
|
||||
variable connected |
||||
#//review |
||||
set modpod [::modpod::system::connect_if_not $frompod] |
||||
set fh $connected(fh,$modpod) |
||||
if {$connected(type,$modpod) eq "unwrapped"} { |
||||
#for unwrapped connection - $connected(location) already points to the #modpod-pkg-ver folder |
||||
if {[string range $filename 0 0 eq "/"]} { |
||||
#absolute path (?) |
||||
set path [file join $connected(location,$modpod) .. [string trim $filename /]] |
||||
} else { |
||||
#relative path - use #modpod-xxx as base |
||||
set path [file join $connected(location,$modpod) $filename] |
||||
} |
||||
set fd [open $path r] |
||||
#utf-8? |
||||
#fconfigure $fd -encoding iso8859-1 -translation binary |
||||
return [list ok [lindex [list [read $fd] [close $fd]] 0]] |
||||
} else { |
||||
#read from vfs |
||||
puts stderr "get $filename from wrapped pod '$frompod' not implemented" |
||||
} |
||||
} |
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace modpod ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Secondary API namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
namespace eval modpod::lib { |
||||
namespace export {[a-z]*}; # Convention: export all lowercase |
||||
namespace path [namespace parent] |
||||
#*** !doctools |
||||
#[subsection {Namespace modpod::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 |
||||
#} |
||||
|
||||
proc is_valid_tm_version {versionpart} { |
||||
#Needs to be suitable for use with Tcl's 'package vcompare' |
||||
if {![catch [list package vcompare $versionparts $versionparts]]} { |
||||
return 1 |
||||
} else { |
||||
return 0 |
||||
} |
||||
} |
||||
|
||||
#zipfile is a pure zip at this point - ie no script/exe header |
||||
proc make_zip_modpod {args} { |
||||
set argd [punk::args::get_dict { |
||||
@id -id ::modpod::lib::make_zip_modpod |
||||
-offsettype -default "archive" -choices {archive file} -help\ |
||||
"Whether zip offsets are relative to start of file or start of zip-data within the file. |
||||
'archive' relative offsets are easier to work with (for writing/updating) in tools such as 7zip,peazip, |
||||
but other tools may be easier with 'file' relative offsets. (e.g info-zip,pkzip) |
||||
info-zip's 'zip -A' can sometimes convert archive-relative to file-relative. |
||||
-offsettype archive is equivalent to plain 'cat prefixfile zipfile > modulefile'" |
||||
@values -min 2 -max 2 |
||||
zipfile -type path -minsize 1 -help "path to plain zip file with subfolder #modpod-packagename-version containing .tm, data files and/or binaries" |
||||
outfile -type path -minsize 1 -help "path to output file. Name should be of the form packagename-version.tm" |
||||
} $args] |
||||
set zipfile [dict get $argd values zipfile] |
||||
set outfile [dict get $argd values outfile] |
||||
set opt_offsettype [dict get $argd opts -offsettype] |
||||
|
||||
|
||||
set mount_stub [string map [list %offsettype% $opt_offsettype] { |
||||
#zip file with Tcl loader prepended. Requires either builtin zipfs, or vfs::zip to mount while zipped. |
||||
#Alternatively unzip so that extracted #modpod-package-version folder is in same folder as .tm file. |
||||
#generated using: modpod::lib::make_zip_modpod -offsettype %offsettype% <zipfile> <tmfile> |
||||
if {[catch {file normalize [info script]} modfile]} { |
||||
error "modpod zip stub error. Unable to determine module path. (possible safe interp restrictions?)" |
||||
} |
||||
if {$modfile eq "" || ![file exists $modfile]} { |
||||
error "modpod zip stub error. Unable to determine module path" |
||||
} |
||||
set moddir [file dirname $modfile] |
||||
set mod_and_ver [file rootname [file tail $modfile]] |
||||
lassign [split $mod_and_ver -] moduletail version |
||||
if {[file exists $moddir/#modpod-$mod_and_ver]} { |
||||
source $moddir/#modpod-$mod_and_ver/$mod_and_ver.tm |
||||
} else { |
||||
#determine module namespace so we can mount appropriately |
||||
proc intersect {A B} { |
||||
if {[llength $A] == 0} {return {}} |
||||
if {[llength $B] == 0} {return {}} |
||||
if {[llength $B] > [llength $A]} { |
||||
set res $A |
||||
set A $B |
||||
set B $res |
||||
} |
||||
set res {} |
||||
foreach x $A {set ($x) {}} |
||||
foreach x $B { |
||||
if {[info exists ($x)]} { |
||||
lappend res $x |
||||
} |
||||
} |
||||
return $res |
||||
} |
||||
set lcase_tmfile_segments [string tolower [file split $moddir]] |
||||
set lcase_modulepaths [string tolower [tcl::tm::list]] |
||||
foreach lc_mpath $lcase_modulepaths { |
||||
set mpath_segments [file split $lc_mpath] |
||||
if {[llength [intersect $lcase_tmfile_segments $mpath_segments]] == [llength $mpath_segments]} { |
||||
set tail_segments [lrange [file split $moddir] [llength $mpath_segments] end] ;#use properly cased tail |
||||
break |
||||
} |
||||
} |
||||
if {[llength $tail_segments]} { |
||||
set fullpackage [join [concat $tail_segments $moduletail] ::] ;#full name of package as used in package require |
||||
set mount_at #modpod/[file join {*}$tail_segments]/#mounted-modpod-$mod_and_ver |
||||
} else { |
||||
set fullpackage $moduletail |
||||
set mount_at #modpod/#mounted-modpod-$mod_and_ver |
||||
} |
||||
|
||||
if {[info commands tcl::zipfs::mount] ne ""} { |
||||
#argument order changed to be consistent with vfs::zip::Mount etc |
||||
#early versions: zipfs::Mount mountpoint zipname |
||||
#since 2023-09: zipfs::Mount zipname mountpoint |
||||
#don't use 'file exists' when testing mountpoints. (some versions at least give massive delays on windows platform for non-existance) |
||||
#This is presumably related to // being interpreted as a network path |
||||
set mountpoints [dict keys [tcl::zipfs::mount]] |
||||
if {"//zipfs:/$mount_at" ni $mountpoints} { |
||||
#despite API change tcl::zipfs package version was unfortunately not updated - so we don't know argument order without trying it |
||||
if {[catch { |
||||
#tcl::zipfs::mount $modfile //zipfs:/#mounted-modpod-$mod_and_ver ;#extremely slow if this is a wrong guess (artifact of aforementioned file exists issue ?) |
||||
#puts "tcl::zipfs::mount $modfile $mount_at" |
||||
tcl::zipfs::mount $modfile $mount_at |
||||
} errM]} { |
||||
#try old api |
||||
if {![catch {tcl::zipfs::mount //zipfs:/$mount_at $modfile}]} { |
||||
puts stderr "modpod stub>>> tcl::zipfs::mount <file> <mountpoint> failed.\nbut old api: tcl::zipfs::mount <mountpoint> <file> succeeded\n tcl::zipfs::mount //zipfs://$mount_at $modfile" |
||||
puts stderr "Consider upgrading tcl runtime to one with fixed zipfs API" |
||||
} |
||||
} |
||||
if {![file exists //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} { |
||||
puts stderr "modpod stub>>> mount at //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm failed\n zipfs mounts: [zipfs mount]" |
||||
#tcl::zipfs::unmount //zipfs:/$mount_at |
||||
error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage" |
||||
} |
||||
} |
||||
# #modpod-$mod_and_ver subdirectory always present in the archive so it can be conveniently extracted and run in that form |
||||
source //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm |
||||
} else { |
||||
#fallback to slower vfs::zip |
||||
#NB. We don't create the intermediate dirs - but the mount still works |
||||
if {![file exists $moddir/$mount_at]} { |
||||
if {[catch {package require vfs::zip} errM]} { |
||||
set msg "Unable to load vfs::zip package to mount module $mod_and_ver (and zipfs not available either)" |
||||
append msg \n "If neither zipfs or vfs::zip are available - the module can still be loaded by manually unzipping the file $modfile in place." |
||||
append msg \n "The unzipped data will all be contained in a folder named #modpod-$mod_and_ver in the same parent folder as $modfile" |
||||
error $msg |
||||
} else { |
||||
set fd [vfs::zip::Mount $modfile $moddir/$mount_at] |
||||
if {![file exists $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} { |
||||
vfs::zip::Unmount $fd $moddir/$mount_at |
||||
error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage" |
||||
} |
||||
} |
||||
} |
||||
source $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm |
||||
} |
||||
} |
||||
#zipped data follows |
||||
}] |
||||
#todo - test if supplied zipfile has #modpod-loadcript.tcl or some other script/executable before even creating? |
||||
append mount_stub \x1A |
||||
modpod::system::make_mountable_zip $zipfile $outfile $mount_stub $opt_offsettype |
||||
|
||||
} |
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace modpod::lib ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[section Internal] |
||||
namespace eval modpod::system { |
||||
#*** !doctools |
||||
#[subsection {Namespace modpod::system}] |
||||
#[para] Internal functions that are not part of the API |
||||
|
||||
#deflate,store only supported |
||||
|
||||
#zipfile here is plain zip - no script/exe prefix part. |
||||
proc make_mountable_zip {zipfile outfile mount_stub {offsettype "archive"}} { |
||||
set inzip [open $zipfile r] |
||||
fconfigure $inzip -encoding iso8859-1 -translation binary |
||||
set out [open $outfile w+] |
||||
fconfigure $out -encoding iso8859-1 -translation binary |
||||
puts -nonewline $out $mount_stub |
||||
set stuboffset [tell $out] |
||||
lappend report "stub size: $stuboffset" |
||||
fcopy $inzip $out |
||||
close $inzip |
||||
|
||||
set size [tell $out] |
||||
lappend report "tmfile : [file tail $outfile]" |
||||
lappend report "output size : $size" |
||||
lappend report "offsettype : $offsettype" |
||||
|
||||
if {$offsettype eq "file"} { |
||||
#make zip offsets relative to start of whole file including prepended script. |
||||
#same offset structure as Tcl's 'zipfs mkimg' as at 2024-10 |
||||
#not editable by 7z,nanazip,peazip |
||||
|
||||
#we aren't adding any new files/folders so we can edit the offsets in place |
||||
|
||||
#Now seek in $out to find the end of directory signature: |
||||
#The structure itself is 24 bytes Long, followed by a maximum of 64Kbytes text |
||||
if {$size < 65559} { |
||||
set tailsearch_start 0 |
||||
} else { |
||||
set tailsearch_start [expr {$size - 65559}] |
||||
} |
||||
seek $out $tailsearch_start |
||||
set data [read $out] |
||||
#EOCD - End of Central Directory record |
||||
#PK\5\6 |
||||
set start_of_end [string last "\x50\x4b\x05\x06" $data] |
||||
#set start_of_end [expr {$start_of_end + $seek}] |
||||
#incr start_of_end $seek |
||||
set filerelative_eocd_posn [expr {$start_of_end + $tailsearch_start}] |
||||
|
||||
lappend report "kitfile-relative START-OF-EOCD: $filerelative_eocd_posn" |
||||
|
||||
seek $out $filerelative_eocd_posn |
||||
set end_of_ctrl_dir [read $out] |
||||
binary scan $end_of_ctrl_dir issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \ |
||||
eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len) |
||||
|
||||
lappend report "End of central directory: [array get eocd]" |
||||
seek $out [expr {$filerelative_eocd_posn+16}] |
||||
|
||||
#adjust offset of start of central directory by the length of our sfx stub |
||||
puts -nonewline $out [binary format i [expr {$eocd(diroffset) + $stuboffset}]] |
||||
flush $out |
||||
|
||||
seek $out $filerelative_eocd_posn |
||||
set end_of_ctrl_dir [read $out] |
||||
binary scan $end_of_ctrl_dir issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \ |
||||
eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len) |
||||
|
||||
# 0x06054b50 - end of central dir signature |
||||
puts stderr "$end_of_ctrl_dir" |
||||
puts stderr "comment_len: $eocd(comment_len)" |
||||
puts stderr "eocd sig: $eocd(signature) [punk::lib::dec2hex $eocd(signature)]" |
||||
lappend report "New dir offset: $eocd(diroffset)" |
||||
lappend report "Adjusting $eocd(totalnum) zip file items." |
||||
catch { |
||||
punk::lib::showdict -roottype list -chan stderr $report ;#heavy dependencies |
||||
} |
||||
|
||||
seek $out $eocd(diroffset) |
||||
for {set i 0} {$i <$eocd(totalnum)} {incr i} { |
||||
set current_file [tell $out] |
||||
set fileheader [read $out 46] |
||||
puts -------------- |
||||
puts [ansistring VIEW -lf 1 $fileheader] |
||||
puts -------------- |
||||
#binary scan $fileheader is2sss2ii2s3ssii x(sig) x(version) x(flags) x(method) \ |
||||
# x(date) x(crc32) x(sizes) x(lengths) x(diskno) x(iattr) x(eattr) x(offset) |
||||
|
||||
binary scan $fileheader ic4sss2ii2s3ssii x(sig) x(version) x(flags) x(method) \ |
||||
x(date) x(crc32) x(sizes) x(lengths) x(diskno) x(iattr) x(eattr) x(offset) |
||||
set ::last_header $fileheader |
||||
|
||||
puts "sig: $x(sig) (hex: [punk::lib::dec2hex $x(sig)])" |
||||
puts "ver: $x(version)" |
||||
puts "method: $x(method)" |
||||
|
||||
#PK\1\2 |
||||
#33639248 dec = 0x02014b50 - central directory file header signature |
||||
if { $x(sig) != 33639248 } { |
||||
error "modpod::system::make_mountable_zip Bad file header signature at item $i: dec:$x(sig) hex:[punk::lib::dec2hex $x(sig)]" |
||||
} |
||||
|
||||
foreach size $x(lengths) var {filename extrafield comment} { |
||||
if { $size > 0 } { |
||||
set x($var) [read $out $size] |
||||
} else { |
||||
set x($var) "" |
||||
} |
||||
} |
||||
set next_file [tell $out] |
||||
lappend report "file $i: $x(offset) $x(sizes) $x(filename)" |
||||
|
||||
seek $out [expr {$current_file+42}] |
||||
puts -nonewline $out [binary format i [expr {$x(offset)+$stuboffset}]] |
||||
|
||||
#verify: |
||||
flush $out |
||||
seek $out $current_file |
||||
set fileheader [read $out 46] |
||||
lappend report "old $x(offset) + $stuboffset" |
||||
binary scan $fileheader is2sss2ii2s3ssii x(sig) x(version) x(flags) x(method) \ |
||||
x(date) x(crc32) x(sizes) x(lengths) x(diskno) x(iattr) x(eattr) x(offset) |
||||
lappend report "new $x(offset)" |
||||
|
||||
seek $out $next_file |
||||
} |
||||
} |
||||
|
||||
close $out |
||||
#pdict/showdict reuire punk & textlib - ie lots of dependencies |
||||
#don't fall over just because of that |
||||
catch { |
||||
punk::lib::showdict -roottype list -chan stderr $report |
||||
} |
||||
#puts [join $report \n] |
||||
return |
||||
} |
||||
|
||||
proc connect_if_not {{podpath ""}} { |
||||
upvar ::modpod::connected connected |
||||
set podpath [::modpod::system::normalize $podpath] |
||||
set docon 0 |
||||
if {![llength $connected(to)]} { |
||||
if {![string length $podpath]} { |
||||
error "modpod::system::connect_if_not - Not connected to a modpod file, and no podpath specified" |
||||
} else { |
||||
set docon 1 |
||||
} |
||||
} else { |
||||
if {![string length $podpath]} { |
||||
set podpath [lindex $connected(to) end] |
||||
puts stderr "modpod::system::connect_if_not WARNING: using last connected modpod:$podpath for operation\n -podpath not explicitly specified during operation: [info level -1]" |
||||
} else { |
||||
if {$podpath ni $connected(to)} { |
||||
set docon 1 |
||||
} |
||||
} |
||||
} |
||||
if {$docon} { |
||||
if {[lindex [modpod::connect $podpath]] 0] ne "ok"} { |
||||
error "modpod::system::connect_if_not error. file $podpath does not seem to be a valid modpod" |
||||
} else { |
||||
return $podpath |
||||
} |
||||
} |
||||
#we were already connected |
||||
return $podpath |
||||
} |
||||
|
||||
proc myversion {} { |
||||
upvar ::modpod::connected connected |
||||
set script [info script] |
||||
if {![string length $script]} { |
||||
error "No result from \[info script\] - modpod::system::myversion should only be called from within a loading modpod" |
||||
} |
||||
set fname [file tail [file rootname [file normalize $script]]] |
||||
set scriptdir [file dirname $script] |
||||
|
||||
if {![string match "#modpod-*" $fname]} { |
||||
lassign [lrange [split $fname -] end-1 end] _pkgname version |
||||
} else { |
||||
lassign [scan [file tail [file rootname $script]] {#modpod-loadscript-%[a-z]-%s}] _pkgname version |
||||
if {![string length $version]} { |
||||
#try again on the name of the containing folder |
||||
lassign [scan [file tail $scriptdir] {#modpod-%[a-z]-%s}] _pkgname version |
||||
#todo - proper walk up the directory tree |
||||
if {![string length $version]} { |
||||
#try again on the grandparent folder (this is a standard depth for sourced .tcl files in a modpod) |
||||
lassign [scan [file tail [file dirname $scriptdir]] {#modpod-%[a-z]-%s}] _pkgname version |
||||
} |
||||
} |
||||
} |
||||
|
||||
#tarjar::Log debug "'myversion' determined version for [info script]: $version" |
||||
return $version |
||||
} |
||||
|
||||
proc myname {} { |
||||
upvar ::modpod::connected connected |
||||
set script [info script] |
||||
if {![string length $script]} { |
||||
error "No result from \[info script\] - modpod::system::myname should only be called from within a loading modpod" |
||||
} |
||||
return $connected(fullpackage,$script) |
||||
} |
||||
proc myfullname {} { |
||||
upvar ::modpod::connected connected |
||||
set script [info script] |
||||
#set script [::tarjar::normalize $script] |
||||
set script [file normalize $script] |
||||
if {![string length $script]} { |
||||
error "No result from \[info script\] - modpod::system::myfullname should only be called from within a loading tarjar" |
||||
} |
||||
return $::tarjar::connected(fullpackage,$script) |
||||
} |
||||
proc normalize {path} { |
||||
#newer versions of Tcl don't do tilde sub |
||||
|
||||
#Tcl's 'file normalize' seems to do some unfortunate tilde substitution on windows.. (at least for relative paths) |
||||
# we take the assumption here that if Tcl's tilde substitution is required - it should be done before the path is provided to this function. |
||||
set matilda "<_tarjar_tilde_placeholder_>" ;#token that is *unlikely* to occur in the wild, and is somewhat self describing in case it somehow ..escapes.. |
||||
set path [string map [list ~ $matilda] $path] ;#give our tildes to matilda to look after |
||||
set path [file normalize $path] |
||||
#set path [string tolower $path] ;#must do this after file normalize |
||||
return [string map [list $matilda ~] $path] ;#get our tildes back. |
||||
} |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide modpod [namespace eval modpod { |
||||
variable pkg modpod |
||||
variable version |
||||
set version 0.1.2 |
||||
}] |
||||
return |
||||
|
||||
#*** !doctools |
||||
#[manpage_end] |
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,966 @@
|
||||
# -*- 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: shellspy/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 shellspy_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 |
||||
#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] |
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,966 @@
|
||||
# -*- 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: shellspy/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 shellspy_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 |
||||
#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] |
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,966 @@
|
||||
# -*- 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: shellspy/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 shellspy_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 |
||||
#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] |
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in new issue