set aShapeTriang $imagedir/${casename}_shape_triangulation.png
set aDiff $imagedir/${casename}_diff.png
-vinit View1
vclear
+vinit View1
vaxo
vsetdispmode 1
vmoveto 250 347
set aColorV2B1 [vreadpixel 50 250 rgb name]
-if { $aColorV2B1 != "BLACK" } {
- puts "Error: box b1 (red) should NOT be visible in View2!"
-}
+if { $aColorV2B1 != "BLACK" } { puts "Error: box b1 (red) should NOT be visible in View2!" }
set aColorV2B2 [vreadpixel 200 350 rgb name]
-if { $aColorV2B2 != "GREEN3" } {
- puts "Error: box b2 (green) should be visible in View2!"
-}
+if { $aColorV2B2 != "GREEN2" } { puts "Error: box b2 (green) should be visible in View2!" }
set aColorV2B3 [vreadpixel 250 200 rgb name]
-if { $aColorV2B3 != "DARKGOLDENROD3" } {
- puts "Error: box b3 (goldenrod) should be visible in View2!"
-}
+if { $aColorV2B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View2!" }
vdump $imagedir/${casename}_v2.png
vactivate View1
vfit
set aColorV1B1 [vreadpixel 50 250 rgb name]
-if { $aColorV1B1 != "RED3" } {
- puts "Error: box b1 (red) should be visible in View1!"
-}
+if { $aColorV1B1 != "RED2" } { puts "Error: box b1 (red) should be visible in View1!" }
set aColorV1B2 [vreadpixel 200 350 rgb name]
-if { $aColorV1B2 != "BLACK" } {
- puts "Error: box b2 (green) should NOT be visible in View1!"
-}
+if { $aColorV1B2 != "BLACK" } { puts "Error: box b2 (green) should NOT be visible in View1!" }
set aColorV1B3 [vreadpixel 250 200 rgb name]
-if { $aColorV1B3 != "DARKGOLDENROD3" } {
- puts "Error: box b3 (goldenrod) should be visible in View1!"
-}
+if { $aColorV1B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View1!" }
vdump $imagedir/${casename}_v1.png