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

puts "============"
puts "OCC26726 erase selected objects"
puts "============"
puts ""
pload VISUALIZATION


vclear
vclose all
vinit
vsetdispmode 1

box b0 5 0 0 1 1 1
box b1 0 5 0 1 1 1
box b2 0 0 5 1 1 1
box b3 5 5 5 1 1 1

vdisplay b0 b1 b2 b3

vdump $imagedir/${casename}_0.png

vfit

vselect 0 0 500 500
verase

vdump $imagedir/${casename}_1.png

set info_b0 [vreadpixel 205 355 name]
set info_b1 [vreadpixel 205 190 name]
set info_b2 [vreadpixel 60 100 name]
set info_b3 [vreadpixel 350 100 name]

if { $info_b0 != "BLACK 0" || $info_b1 != "BLACK 0" || $info_b2 != "BLACK 0" || $info_b3 != "BLACK 0" } {
  puts "Error: OCC26726 is reproduced. AIS_InteractiveContext::EraseSelected is incorrect."
}
Commit	Line	Data
671b6fe0	1	puts "============"
	2	puts "OCC26726 erase selected objects"
	3	puts "============"
	4	puts ""
	5	pload VISUALIZATION
	6
	7
	8	vclear
	9	vclose all
	10	vinit
	11	vsetdispmode 1
	12
	13	box b0 5 0 0 1 1 1
	14	box b1 0 5 0 1 1 1
	15	box b2 0 0 5 1 1 1
	16	box b3 5 5 5 1 1 1
	17
	18	vdisplay b0 b1 b2 b3
	19
	20	vdump $imagedir/${casename}_0.png
	21
	22	vfit
	23
	24	vselect 0 0 500 500
	25	verase
	26
	27	vdump $imagedir/${casename}_1.png
	28
	29	set info_b0 [vreadpixel 205 355 name]
	30	set info_b1 [vreadpixel 205 190 name]
	31	set info_b2 [vreadpixel 60 100 name]
	32	set info_b3 [vreadpixel 350 100 name]
	33
	34	if { $info_b0 != "BLACK 0" \|\| $info_b1 != "BLACK 0" \|\| $info_b2 != "BLACK 0" \|\| $info_b3 != "BLACK 0" } {
	35	puts "Error: OCC26726 is reproduced. AIS_InteractiveContext::EraseSelected is incorrect."
	36	}