tests/bugs/vis/bug26344

   1 puts "============"
   2 puts "0026344: Visualization - provide a support of zoom persistent selection"
   3 puts "============"
   4 puts ""
   5
   6 vclear
   7 vclose ALL
   8 vinit View1 w=409 h=409
   9 vtrihedron tri
  10 vpan 50 50
  11
  12 box bz1 25 25 25
  13 box bz2 25 25 25
  14 box br 100 100 100
  15 box bzr 50 25 20
  16 box bt 100 100 100
  17
  18 # 1) Zoom persistence
  19 vpoint pz 200 200 200
  20
  21 vdisplay bz1 -dispMode 1 -highMode 1 -trsfPers zoom -trsfPersPos 200 200 200
  22 vdisplay bz2 -dispMode 1 -highMode 1 -trsfPers zoom -trsfPersPos 200 200 200
  23 vsetlocation bz2 -25 -25 -25
  24
  25 vselect 0 0
  26 vselect 387 77
  27 if { [vreadpixel 387 77 rgb name] != "GRAY66" } { puts "Error picking zoom persistence object(s)" }
  28
  29 vselect 0 0
  30 vselect 330 120 410 50
  31 if { [vreadpixel 387 77 rgb name] != "GRAY66" || [vreadpixel 352 96 rgb name] != "GRAY66" } { puts "Error selecting zoom persistence object(s)" }
  32
  33 # 2) Rotate persistence
  34
  35 vpoint pr -200 -200 -200
  36 vdisplay br -dispMode 1 -highMode 1 -trsfPers rotate -trsfPersPos -200 -200 -200
  37 vsetmaterial br PLASTIC
  38 vselect 0 0
  39 vselect 160 200
  40 if { [vreadpixel 160 180 rgb name] != "WHITE" } { puts "Error picking rotate persistence object" }
  41
  42 vselect 0 0
  43 vselect 130 230 190 170
  44 if { [vreadpixel 160 180 rgb name] != "WHITE" } { puts "Error selecting rotate persistence object" }
  45
  46 # 3) Zoom + Rotate persistence
  47
  48 vpoint pzr -200 100 0
  49 vdisplay bzr -dispMode 1 -highMode 1 -trsfPers zoomRotate -trsfPersPos -200 100 0
  50
  51 vsetmaterial bzr PLASTIC
  52 vselect 0 0
  53 vselect 250 90
  54 if { [vreadpixel 250 90 rgb name] != "WHITE" } { puts "Error picking zoom-rotate persistence object" }
  55 vselect 0 0
  56 vselect 200 70 286 110
  57 if { [vreadpixel 250 90 rgb name] != "WHITE" } { puts "Error selecting zoom-rotate persistence object" }
  58
  59 # 4) Trihedron persistence
  60
  61 vdisplay bt -dispMode 1 -highMode 1 -trsfPers trihedron -trsfPersPos -1 -1 62
  62 vselect 0 0
  63 vselect 132 300
  64 if { [vreadpixel 132 300 rgb name] != "GRAY66" } { puts "Error picking trihedron persistence object" }
  65 vselect 0 0
  66 vselect 50 223 235 395
  67 if { [vreadpixel 132 300 rgb name] != "GRAY66" } { puts "Error selecting trihedron persistence object" }
  68
  69 vselect 50 410 410 50
  70 vstate -entities
  71
  72 checkview -screenshot -3d -path ${imagedir}/${test_image}.png