[occt.git] / tests / v3d / trihedron / bug25340

puts "========"
puts "0025340: Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point"
puts "========"
puts ""

pload MODELING VISUALIZATION QAcommands

vinit View1

box b 1 2 3
vdisplay b
vfit
vtrihedron t
set color_1 [vreadpixel 87 25 -rgb -name]

OCC25340
vselect 87 25
set color_2 [vreadpixel 87 25 -rgb -name]

if {$color_2 != $color_1} {
  puts "ERROR: OCC25340 is reproduced"
  puts "       initial color of trihedron is: $color_1"
  puts "       final color of trihedron is:   $color_2"
}

if {$color_2 != "LIGHTSTEELBLUE4"} {
  puts "ERROR: OCC25340 is reproduced"
  puts "       additional investigation is needed"
  puts "       expected color is: LIGHTSTEELBLUE4"
  puts "       current color is:  $color_2"
}

vdump $imagedir/${casename}.png
Commit	Line	Data
54a16ee4	1	puts "========"
ba00aab7	2	puts "0025340: Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point"
54a16ee4	3	puts "========"
54a16ee4	4	puts ""
54a16ee4	5
0d828ac8	6	pload MODELING VISUALIZATION QAcommands
54a16ee4	7
ba00aab7	8	vinit View1
54a16ee4	9
	10	box b 1 2 3
	11	vdisplay b
	12	vfit
	13	vtrihedron t
ba00aab7	14	set color_1 [vreadpixel 87 25 -rgb -name]
54a16ee4	15
	16	OCC25340
	17	vselect 87 25
ba00aab7	18	set color_2 [vreadpixel 87 25 -rgb -name]
54a16ee4	19
	20	if {$color_2 != $color_1} {
	21	puts "ERROR: OCC25340 is reproduced"
	22	puts " initial color of trihedron is: $color_1"
	23	puts " final color of trihedron is: $color_2"
	24	}
	25
ba00aab7	26	if {$color_2 != "LIGHTSTEELBLUE4"} {
54a16ee4	27	puts "ERROR: OCC25340 is reproduced"
54a16ee4	28	puts " additional investigation is needed"
ba00aab7	29	puts " expected color is: LIGHTSTEELBLUE4"
ba00aab7	30	puts " current color is: $color_2"
54a16ee4	31	}
54a16ee4	32
0d828ac8	33	vdump $imagedir/${casename}.png