5 ###########################################################################################
6 # Visualization - small boxes in front of big one disappear in perspective view
7 ###########################################################################################
22 vdisplay b0 b1 b2 b3 b4 b5
31 set color "[vreadpixel 230 230 rgb]"
32 if { [lindex $color 0] == 0 &&
33 [lindex $color 1] == 0 &&
34 [lindex $color 2] == 0 } {
35 puts "Error : Boxes disappear."
38 vdump $imagedir/${casename}_1.png
40 # Boxes {0.01 x 0.01 x 0.01}
41 box b0 0.00 0.00 0.00 0.01 0.01 0.01
42 box b1 -0.01 0.00 0.00 0.01 0.01 0.01
43 box b2 0.01 0.00 0.00 0.01 0.01 0.01
44 box b3 0.00 0.01 0.00 0.01 0.01 0.01
45 box b4 -0.01 0.01 0.00 0.01 0.01 0.01
46 box b5 0.01 0.01 0.00 0.01 0.01 0.01
53 vdisplay b0 b1 b2 b3 b4 b5
62 set color "[vreadpixel 230 230 rgb]"
63 if { [lindex $color 0] == 0 &&
64 [lindex $color 1] == 0 &&
65 [lindex $color 2] == 0 } {
66 puts "Error : Boxes disappear."
69 vdump $imagedir/${casename}_2.png