0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / 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