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