moving stuff around

diff --git a/lib/inkpot/inkpot_lib_svg.tcl b/lib/inkpot/inkpot_lib_svg.tcl
new file mode 100755 (executable)
index 0000000..b99d5c2
--- /dev/null
+++ b/lib/inkpot/inkpot_lib_svg.tcl
@@ -0,0 +1,29 @@
+#!/usr/bin/tclsh
+
+set fn $argv
+
+set f [open $fn r]
+set d [read $f [file size $fn]]
+close $f
+regsub -all -- {[-= \t\n\r\"/]} $d {} d
+
+foreach {. c rgb r g b} [regexp -all -inline -- {e>(\w+)<\w+><\w+><\w+><\w+>(\w+)\((\d+),(\d+),(\d+)\)} $d] {
+       if {![string equal $rgb rgb]} {
+               puts stderr "non rgb color found: $c $rgb $r $g $b"
+       }
+       if {[info exists COLORS($c)]} {
+                foreach {rr gg bb} $COLORS($c) {break}
+                if {$r != $rr || $g != $gg || $b != $bb} {
+                       puts "$c is not unique and rgb doesn't match: $r $g $b != $rr $gg $bb"
+               } {
+#                   puts "$c is not unique"     
+               }
+       }
+       set COLORS($c) [list $r $g $b]
+}
+
+set COLORS() [list svg rgb]
+
+set f [open inkpot_lib_svg.dat w]
+puts $f [array get COLORS]
+close $f

diff --git a/lib/inkpot/inkpot_lib_tk.tcl b/lib/inkpot/inkpot_lib_tk.tcl
new file mode 100755 (executable)
index 0000000..be9b177
--- /dev/null
+++ b/lib/inkpot/inkpot_lib_tk.tcl
@@ -0,0 +1,27 @@
+#!/usr/bin/tclsh
+
+set fn $argv
+
+set f [open $fn r]
+set d [read $f [file size $fn]]
+close $f
+
+foreach {. c r g b} [regexp -all -inline -- {\{ \"([^\"]+)\",\s+(\d+),\s+(\d+),\s+(\d+)\s+\},} $d] {
+       regsub -all -- { } $c {} c
+       set c [string tolower $c]
+       if {[info exists COLORS($c)]} {
+                foreach {rr gg bb} $COLORS($c) {break}
+                if {$r != $rr || $g != $gg || $b != $bb} {
+                       puts "$c is not unique and rgb doesn't match: $r $g $b != $rr $gg $bb"
+               } {
+#                   puts "$c is not unique"     
+               }
+       }
+       set COLORS($c) [list $r $g $b]
+}
+
+set COLORS() [list tk rgb]
+
+set f [open inkpot_lib_tk.dat w]
+puts $f [array get COLORS]
+close $f

diff --git a/lib/inkpot/inkpot_lib_x11.tcl b/lib/inkpot/inkpot_lib_x11.tcl
new file mode 100755 (executable)
index 0000000..842c196
--- /dev/null
+++ b/lib/inkpot/inkpot_lib_x11.tcl
@@ -0,0 +1,31 @@
+#!/usr/bin/tclsh
+
+set fn $argv
+
+set f [open $fn r]
+set d [read $f [file size $fn]]
+close $f
+
+foreach {rec} [split $d \n] {
+       if {[string length $rec] == 0} {continue}
+       if {[string first "!" $rec] == 0} {continue}
+       set rc [regexp -inline -- {\s*(\d+)\s+(\d+)\s+(\d+)\s+(.*)} $rec]
+       foreach { . r g b c} $rc {break}
+       regsub -all -- { } $c {} c
+       set c [string tolower $c]
+       if {[info exists COLORS($c)]} {
+               foreach {rr gg bb} $COLORS($c) {break}
+               if {$r != $rr || $g != $gg || $b != $bb} {
+                   puts "$c is not unique and rgb doesn't match: $r $g $b != $rr $gg $bb"
+               } {
+#                  puts "$c is not unique"     
+               }
+       }
+       set COLORS($c) [list $r $g $b]
+}
+
+set COLORS() [list x11 rgb]
+
+set f [open inkpot_lib_x11.dat w]
+puts $f [array get COLORS]
+close $f