tests/v3d/raytrace/bug24130

   1 puts "TODO ?OCC24130 Debian60-64: OCCT was compiled without OpenCL support!"
   2 puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"
   3 puts "TODO ?OCC24130 Debian60-64 Windows:  OpenCL device info is unavailable!"
   4
   5 puts "========"
   6 puts "OCC24130 Implementing ray tracing visualization core"
   7 puts "========"
   8
   9 # custom shapes
  10 set aShape1 [locate_data_file occ/Top.brep]
  11 set aShape2 [locate_data_file occ/Bottom.brep]
  12
  13 # setup 3D viewer content
  14 vinit name=View1 w=512 h=512
  15 vglinfo
  16
  17 vvbo 0
  18 vsetdispmode 1
  19 vsetgradientbg 180 200 255 180 180 180 2
  20 restore $aShape1 s1
  21 restore $aShape2 s2
  22 vdisplay s1 s2
  23 vsetmaterial s1 Silver
  24 vsetmaterial s2 Pewter
  25 vfit
  26
  27 # activate ray-tracing
  28 vraytrace 1
  29 vclinfo
  30
  31 set aModeNum 0
  32 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
  33   for { set aReflMode 0 } { $aReflMode <= 1 } { incr aReflMode } {
  34     for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
  35       vsetraytracemode shad=$aShadMode refl=$aReflMode aa=$aAAMode
  36       vdump $imagedir/${casename}_${aModeNum}.png
  37       incr aModeNum
  38     }
  39   }
  40 }
  41
  42 vtextureenv on 5
  43 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
  44   for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
  45     vsetraytracemode shad=$aShadMode refl=1 aa=$aAAMode
  46     vdump $imagedir/${casename}_${aModeNum}.png
  47     incr aModeNum
  48   }
  49 }