6.4.5 Setting the transparent colors according to solid

    Once you have set the RGB values for solid colors, you may want to set the transparent colors to the same RGB values. Here is how one could do it:

proc set_trans_colors {} {
   set numofcolors [colorinfo num]
   for {set i 0} {$i < $numofcolors} {incr i} {
     lassign [colorinfo rgb $i] r g b
     color change rgb [expr $i + $numofcolors] $r $g $b
   }
}