tests/bugs/vis/bug26344

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