1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
puts "============"
puts "OCC24391"
puts "============"
puts ""
#######################################################################
# Erased AIS object can not be displayed in AIS_InteractiveContext
# after AIS_InteractiveContext::Remove
#######################################################################
pload VISUALLIZATION
vinit
box a 1 1 1
vdisplay a
verase a
vremove -context a
vdisplay a
vfit
vaspects -setwidth 5
vmoveto 204 205
if { "[vreadpixel 204 205 rgb name]" != "CYAN1" } {
puts "Error : Erased object is not displayed after its removing."
}
set only_screen 1
|
