tests/bugs/vis/bug27945

   1 puts "==========="
   2 puts "OCC27945"
   3 puts "Visualization - handle correctly view clipping planes within zoom-persistent objects"
   4 puts "==========="
   5 puts ""
   6
   7 pload MODELING VISUALIZATION
   8
   9 box b 3 1 2
  10 box z000 50 40 30
  11 box z010 50 40 30
  12 box z002 50 40 30
  13 box z012 50 40 30
  14 box z300 50 40 30
  15 box z302 50 40 30
  16 box z310 50 40 30
  17 box z312 50 40 30
  18 box r1 0.2 0.1 0.1
  19 box r2 0.2 0.1 0.1
  20
  21 vclear
  22 vinit View1
  23 vaxo
  24 vzbufftrihedron
  25 vdisplay -dispMode 1 b
  26
  27 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 0 z000
  28 vsetlocation z000 -25 -20 -15
  29 vdrawtext    t000 "000\n" -pos 0 0 0 -color RED -halign right
  30
  31 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 0 z010
  32 vsetlocation z010 -25 -20 -15
  33 vdrawtext    t010 "010\n" -pos 0 1 0 -color RED -halign right
  34
  35 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 2 z002
  36 vsetlocation z002 -25 -20 -15
  37 vdrawtext    t002 "002\n" -pos 0 0 2 -color RED -halign right
  38
  39 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 2 z012
  40 vsetlocation z012 -25 -20 -15
  41 vdrawtext    t012 "012\n" -pos 0 1 2 -color RED -halign right
  42
  43 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 0 z300
  44 vsetlocation z300 -25 -20 -15
  45 vdrawtext    t300 "300\n" -pos 3 0 0 -color RED -halign left
  46
  47 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 2 z302
  48 vsetlocation z302 -25 -20 -15
  49 vdrawtext    t302 "302\n" -pos 3 0 2 -color RED -halign left
  50
  51 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 0 z310
  52 vsetlocation z310 -25 -20 -15
  53 vdrawtext    t310 "310\n" -pos 3 1 0 -color RED -halign left
  54
  55 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 2 z312
  56 vsetlocation z312 -25 -20 -15
  57 vdrawtext    t312 "312\n" -pos 3 1 2 -color RED -halign left
  58
  59 vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos -1 1 2 r1
  60 vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos  4 1 2 r2
  61
  62 vfit
  63 vrotate 0.1 0 0
  64
  65 vclipplane pln -equation -1 0 0 2 -set
  66
  67 set aColor1 [vreadpixel 320 160 rgb name]
  68 set aColor2 [vreadpixel 80  250 rgb name]
  69 if { "$aColor1" != "BLACK"      } { puts "Error: zoom-persistent object is not clipped" }
  70 if { "$aColor2" != "GOLDENROD3" } { puts "Error: zoom-persistent object is clipped" }
  71
  72 vdump $imagedir/${casename}.png