mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-26 11:05:31 +03:00
27 lines
433 B
Plaintext
Executable File
27 lines
433 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC270"
|
|
puts "========"
|
|
|
|
vinit
|
|
box box 10 10 10
|
|
vaxis axis 1 1 1 7 7 7
|
|
vdisplay box
|
|
vdisplay axis
|
|
vsetdispmode 1
|
|
|
|
set x1 172
|
|
set y1 223
|
|
|
|
checkcolor ${x1} ${y1} 1 0 0
|
|
|
|
vzclipping FRONT
|
|
set ZClippingMode [lindex [vzclipping] 2]
|
|
if {${ZClippingMode} != "FRONT"} {
|
|
puts "OCC270: Error (ZClippingMode != FRONT)"
|
|
}
|
|
|
|
checkcolor ${x1} ${y1} 1 0 0
|
|
vfit
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|