[occt.git] / tests / bugs / vis / bug25136

puts "============"
puts "OCC25136"
puts "Display customized colorscale."
puts "============"
puts ""

vclear
vinit View1
vaxo

# create default color scale
vcolorscale cs1 -demo -xy 0 0
foreach {y aColor} {20 RED 60 DARKORANGE1 100 GOLD 140 GREENYELLOW 180 CHARTREUSE2 220 GREEN 250 MEDIUMSPRINGGREEN 290 CYAN1 330 DODGERBLUE1 370 BLUE1} { if { [vreadpixel 15 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }

# reduce color scale range and number of intervals
vcolorscale cs2 -range 0 20 5 -xy 60 0
foreach {y aColor} {40 RED 120 YELLOW 200 GREEN 280 CYAN2 350 BLUE1} { if { [vreadpixel 75 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }

# set user-defined colors and labels for color scale
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
foreach {y aColor} {40 WHITE 120 RED 200 GREEN 280 BLUE1 350 WHITE} { if { [vreadpixel 135 $y rgb name] != "$aColor" } { puts "Error: wrong color at $y" } }

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