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
}
}