puts "============"
puts "CR25552"
puts "Provide the way to hide objects within different Views of the one Viewer"
puts "============"
puts ""

set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png
set aShapeTriang $imagedir/${casename}_shape_triangulation.png
set aDiff $imagedir/${casename}_diff.png

vinit View1
vclear
vaxo
vsetdispmode 1

vinit View2
vclear
vaxo
vsetdispmode 1

box b1 0 0 0 1 2 3
box b2 3 0 0 2 3 1
box b3 0 3 0 2 3 1

vdisplay b1 b3
# b2 should be displayed only in View2, but not in View1
vdisplay -inview b2
#vdisplay b2
vaspects -noupdate b1 -setcolor RED
vaspects -noupdate b2 -setcolor GREEN
vfit
# b1 should be displayed only in View1
verase -inview b1
vmoveto 250 347

set aColorV2B1 [vreadpixel  50 250 rgb name]
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!"
}

set aColorV2B3 [vreadpixel 250 200 rgb name]
if { $aColorV2B3 != "DARKGOLDENROD3" } {
  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!"
}

set aColorV1B2 [vreadpixel 200 350 rgb name]
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!"
}
vdump $imagedir/${casename}_v1.png
