mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
37 lines
704 B
Plaintext
37 lines
704 B
Plaintext
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."
|
|
}
|