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 | } |