1: #!/usr/bin/tcl 2: 3: set extra "" 4: foreach ele $argv { 5: if {[string index $ele 0]=="#"} { set ele [string range $ele 1 end]; set extra "#" } 6: lappend colorlist $ele 7: } 8: set num_colors [llength $colorlist] 9: 10: for {set i 0} {$i<6} {incr i 2} { 11: set colors($i) 0 12: } 13: for {set i 0} {$i<6} {incr i 2} { 14: foreach pt $colorlist { 15: set cpt 0x[string range $pt $i [expr $i+1]] 16: set colors($i) [expr $colors($i)+$cpt] 17: } 18: } 19: for {set i 0} {$i<6} {incr i 2} { 20: append ret [format %02x [expr $colors($i)/$num_colors]] 21: } 22: puts $extra$ret |