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\:"
5 puts "OCC24130 Implementing ray tracing visualization core"
9 set aShape1 [locate_data_file occ/Top.brep]
10 set aShape2 [locate_data_file occ/Bottom.brep]
12 # setup 3D viewer content
13 vinit name=View1 w=512 h=512
18 vsetgradientbg 180 200 255 180 180 180 2
22 vsetmaterial s1 Silver
23 vsetmaterial s2 Pewter
26 # activate ray-tracing
31 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
32 for { set aReflMode 0 } { $aReflMode <= 1 } { incr aReflMode } {
33 for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
34 vsetraytracemode shad=$aShadMode refl=$aReflMode aa=$aAAMode
35 vdump $imagedir/${casename}_${aModeNum}.png
42 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
43 for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
44 vsetraytracemode shad=$aShadMode refl=1 aa=$aAAMode
45 vdump $imagedir/${casename}_${aModeNum}.png