tests/bugs/vis/bug26641

   1 puts "============"
   2 puts "CR26641"
   3 puts "============"
   4 puts ""
   5
   6 ##############################################################################################################
   7 # 0026641: Visualization, TKOpenGl - handle correctly transformation persistence within perspective projection
   8 ##############################################################################################################
   9
  10 vinit
  11 vclear
  12
  13 box b0 30 0 0 10 10 10
  14 box b1 -30 -30 30 10 30 20
  15 vdisplay b0
  16 vdisplay b1
  17 vfit
  18
  19 vdump ${imagedir}/${casename}_none_pers_ortho.png
  20
  21 vdisplay b1 -trsfPers zoom -trsfPersPos -30 -30 30
  22 vfit
  23
  24 vdump ${imagedir}/${casename}_zoom_pers_ortho.png
  25
  26 vcamera -persp
  27 vfit
  28
  29 vdump ${imagedir}/${casename}_zoom_pers_persp.png
  30
  31 vselect 30 70
  32
  33 if {[vnbselected] != 1} {
  34   puts "ERROR: Transform persistence object is not selected!"
  35 }