tests/bugs/vis/bug25552

   1 puts "============"
   2 puts "CR25552"
   3 puts "Provide the way to hide objects within different Views of the one Viewer"
   4 puts "============"
   5 puts ""
   6
   7 set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png
   8 set aShapeTriang $imagedir/${casename}_shape_triangulation.png
   9 set aDiff $imagedir/${casename}_diff.png
  10
  11 vclear
  12 vinit View1
  13 vaxo
  14 vsetdispmode 1
  15
  16 vinit View2
  17 vclear
  18 vaxo
  19 vsetdispmode 1
  20
  21 box b1 0 0 0 1 2 3
  22 box b2 3 0 0 2 3 1
  23 box b3 0 3 0 2 3 1
  24
  25 vdisplay b1 b3
  26 # b2 should be displayed only in View2, but not in View1
  27 vdisplay -inview b2
  28 #vdisplay b2
  29 vaspects -noupdate b1 -setcolor RED
  30 vaspects -noupdate b2 -setcolor GREEN
  31 vfit
  32 # b1 should be displayed only in View1
  33 verase -inview b1
  34 vmoveto 250 347
  35
  36 set aColorV2B1 [vreadpixel  50 250 rgb name]
  37 if { $aColorV2B1 != "BLACK" } { puts "Error: box b1 (red) should NOT be visible in View2!" }
  38
  39 set aColorV2B2 [vreadpixel 200 350 rgb name]
  40 if { $aColorV2B2 != "GREEN2" } { puts "Error: box b2 (green) should be visible in View2!" }
  41
  42 set aColorV2B3 [vreadpixel 250 200 rgb name]
  43 if { $aColorV2B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View2!" }
  44 vdump $imagedir/${casename}_v2.png
  45
  46 vactivate View1
  47 vfit
  48 set aColorV1B1 [vreadpixel  50 250 rgb name]
  49 if { $aColorV1B1 != "RED2" } { puts "Error: box b1 (red) should be visible in View1!" }
  50
  51 set aColorV1B2 [vreadpixel 200 350 rgb name]
  52 if { $aColorV1B2 != "BLACK" } { puts "Error: box b2 (green) should NOT be visible in View1!" }
  53
  54 set aColorV1B3 [vreadpixel 250 200 rgb name]
  55 if { $aColorV1B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View1!" }
  56 vdump $imagedir/${casename}_v1.png