0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug26726
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 }