mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
70 lines
1.5 KiB
Plaintext
70 lines
1.5 KiB
Plaintext
puts "========"
|
|
puts "OCC26401"
|
|
puts "========"
|
|
puts ""
|
|
###########################################################################################
|
|
# Visualization - small boxes in front of big one disappear in perspective view
|
|
###########################################################################################
|
|
|
|
# Boxes {1 x 1 x 1}
|
|
box b0 0 0 0 1 1 1
|
|
box b1 -1 0 0 1 1 1
|
|
box b2 1 0 0 1 1 1
|
|
box b3 0 1 0 1 1 1
|
|
box b4 -1 1 0 1 1 1
|
|
box b5 1 1 0 1 1 1
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vsetdispmode 1
|
|
vcamera -persp
|
|
vdisplay b0 b1 b2 b3 b4 b5
|
|
vsetcolor b1 b2 GREEN
|
|
vsetcolor b4 b5 RED
|
|
vsetcolor b3 GRAY55
|
|
vfit
|
|
vautozfit
|
|
vzrange
|
|
vtrihedron t
|
|
|
|
set color "[vreadpixel 230 230 rgb]"
|
|
if { [lindex $color 0] == 0 &&
|
|
[lindex $color 1] == 0 &&
|
|
[lindex $color 2] == 0 } {
|
|
puts "Error : Boxes disappear."
|
|
}
|
|
|
|
vdump $imagedir/${casename}_1.png
|
|
|
|
# Boxes {0.01 x 0.01 x 0.01}
|
|
box b0 0.00 0.00 0.00 0.01 0.01 0.01
|
|
box b1 -0.01 0.00 0.00 0.01 0.01 0.01
|
|
box b2 0.01 0.00 0.00 0.01 0.01 0.01
|
|
box b3 0.00 0.01 0.00 0.01 0.01 0.01
|
|
box b4 -0.01 0.01 0.00 0.01 0.01 0.01
|
|
box b5 0.01 0.01 0.00 0.01 0.01 0.01
|
|
|
|
vinit View2
|
|
vclear
|
|
vaxo
|
|
vsetdispmode 1
|
|
vcamera -persp
|
|
vdisplay b0 b1 b2 b3 b4 b5
|
|
vsetcolor b1 b2 GREEN
|
|
vsetcolor b4 b5 RED
|
|
vsetcolor b3 GRAY55
|
|
vfit
|
|
vautozfit
|
|
vzrange
|
|
vtrihedron t
|
|
|
|
set color "[vreadpixel 230 230 rgb]"
|
|
if { [lindex $color 0] == 0 &&
|
|
[lindex $color 1] == 0 &&
|
|
[lindex $color 2] == 0 } {
|
|
puts "Error : Boxes disappear."
|
|
}
|
|
|
|
vdump $imagedir/${casename}_2.png
|