tests/bugs/vis/bug25136

   1 puts "============"
   2 puts "OCC25136"
   3 puts "Display customized colorscale."
   4 puts "============"
   5 puts ""
   6
   7 vclear
   8 vinit View1
   9 vaxo
  10
  11 # create default color scale
  12 vcolorscale cs1 -demo -xy 0 0
  13 foreach {y aColor} {20 RED 60 DARKORANGE1 100 GOLD 140 GREENYELLOW 220 GREEN 250 MEDIUMSPRINGGREEN 290 CYAN 330 DODGERBLUE1 370 BLUE} { if { [vreadpixel 15 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }
  14
  15 # reduce color scale range and number of intervals
  16 vcolorscale cs2 -range 0 20 5 -xy 60 0
  17 foreach {y aColor} {40 RED 120 YELLOW 200 GREEN 280 CYAN2 350 BLUE} { if { [vreadpixel 75 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }
  18
  19 # set user-defined colors and labels for color scale
  20 vcolorscale cs3 -range 0 20 5 -colors white 0 0 1 green 1 0 0 1 1 1 -labels start 1 2 3 4 end -xy 120 0
  21 foreach {y aColor} {40 WHITE 120 RED 200 GREEN 280 BLUE 350 WHITE} { if { [vreadpixel 135 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }
  22
  23 # change colors of first and last intervals
  24 vcolorscale cs4 -range 0 20 5 -colors white 0 0 1 green 1 0 0 1 1 1 -labels start 1 2 3 4 end -xy 200 0
  25 vcolorscale cs4 -color 1 0.42 0.35 0.8
  26 vcolorscale cs4 -color 5 pink
  27 vcolorscale cs4 -label 6 "last"
  28 vcolorscale cs4 -title "My color scale"
  29 foreach {y aColor} {60 PINK 120 RED 200 GREEN 280 BLUE 350 LIGHTSTEELBLUE3} { if { [vreadpixel 215 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }
  30 vdump ${imagedir}/${casename}.png