projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6f86447e8f7902c6fcf1ae77af5365e90779090f
[occt.git]
/
tests
/
bugs
/
vis
/
bug270_1
1
puts "========"
2
puts "OCC270"
3
puts "========"
4
5
vinit
6
box box 10 10 10
7
vaxis axis 1 1 1 7 7 7
8
vdisplay box
9
vdisplay axis
10
vsetdispmode 1
11
12
set x1 172
13
set y1 223
14
15
QAUpdateLights
16
checkcolor ${x1} ${y1} 1 0 0
17
18
QASetZClippingMode FRONT
19
set ZClippingMode [lindex [QAGetZClippingMode] 2]
20
if {${ZClippingMode} != "FRONT"} {
21
puts "OCC270: Error (ZClippingMode != FRONT)"
22
}
23
24
QAUpdateLights
25
checkcolor ${x1} ${y1} 1 0 0
26
vfit
27
28
set only_screen 1