3 puts "Provide the way to hide objects within different Views of the one Viewer"
7 set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png
8 set aShapeTriang $imagedir/${casename}_shape_triangulation.png
9 set aDiff $imagedir/${casename}_diff.png
26 # b2 should be displayed only in View2, but not in View1
29 vaspects -noupdate b1 -setcolor RED
30 vaspects -noupdate b2 -setcolor GREEN
32 # b1 should be displayed only in View1
36 set aColorV2B1 [vreadpixel 50 250 rgb name]
37 if { $aColorV2B1 != "BLACK" } {
38 puts "Error: box b1 (red) should NOT be visible in View2!"
41 set aColorV2B2 [vreadpixel 200 350 rgb name]
42 if { $aColorV2B2 != "GREEN3" } {
43 puts "Error: box b2 (green) should be visible in View2!"
46 set aColorV2B3 [vreadpixel 250 200 rgb name]
47 if { $aColorV2B3 != "DARKGOLDENROD3" } {
48 puts "Error: box b3 (goldenrod) should be visible in View2!"
50 vdump $imagedir/${casename}_v2.png
54 set aColorV1B1 [vreadpixel 50 250 rgb name]
55 if { $aColorV1B1 != "RED3" } {
56 puts "Error: box b1 (red) should be visible in View1!"
59 set aColorV1B2 [vreadpixel 200 350 rgb name]
60 if { $aColorV1B2 != "BLACK" } {
61 puts "Error: box b2 (green) should NOT be visible in View1!"
64 set aColorV1B3 [vreadpixel 250 200 rgb name]
65 if { $aColorV1B3 != "DARKGOLDENROD3" } {
66 puts "Error: box b3 (goldenrod) should be visible in View1!"
68 vdump $imagedir/${casename}_v1.png