tests/opengl/data/general/double_precision

   1 puts "========"
   2 puts "0024393: Visualization - objects position with enhanced precision"
   3 puts "========"
   4
   5 pload MODELING VISUALIZATION
   6 vclear
   7 vinit View1
   8 vaxo
   9 vzbufftrihedron
  10 circle c 0 0 0 0.001
  11 mkedge e c
  12 wire   w e
  13 plane  s
  14 mkface f0    s w
  15 mkface f1000 s w
  16 ttranslate f1000 1000 0 0
  17 # Display object with pre-applied transformation.
  18 # Result presentation is already corrupted
  19 # AND it jumps while rotating the camera.
  20 vpoint v1000 1000 0 0.001
  21 vdisplay -dispMode 1 f1000
  22 vfit
  23
  24 # Display object with external transformation.
  25 # Result presentation jumps while rotating the camera.
  26 vdisplay -dispMode 1 f0
  27 vsetlocation f0 1000 0 0
  28
  29 # Display object with external transformation
  30 # in Z-layer with translated Origin.
  31 # Result presentation does not jump while rotating the camera.
  32 vzlayer top -origin 1000 0 0
  33 vdisplay -dispMode 1 -top f0
  34
  35 # check transformation persistence
  36 vtrihedron tt
  37 vdisplay -top -trihedron topLeft 100 100 tt
  38
  39 box zp 40 50 30
  40 vdisplay -top -dispMode 1 -trsfPers zoom -trsfPersPos 1000 0 0 zp
  41
  42 # check clippling planes
  43 vclipplane pln -equation -1 0 0 1000 -set
  44
  45 # check positional lights
  46 vlight add positional pos 1000 0 0.001 color RED1 headlight 0
  47
  48 vremove f1000
  49 vmoveto 220 220
  50
  51 vdrawtext text Text -pos 0 0 0
  52 vdisplay -top text -trsfPers zoomRotate -trsfPersPos 1000 0 0.001
  53
  54 vdump $::imagedir/${::casename}.png