2 puts "OCC24130 Implementing ray tracing visualization core"
6 set aShape1 [locate_data_file occ/Top.brep]
7 set aShape2 [locate_data_file occ/Bottom.brep]
9 # setup 3D viewer content
10 vinit name=View1 w=512 h=512
15 vsetgradientbg 180 200 255 180 180 180 2
19 vsetmaterial s1 Silver
20 vsetmaterial s2 Pewter
21 vlight change 0 pos -1 1 1
24 # activate ray-tracing
28 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
29 for { set aReflMode 0 } { $aReflMode <= 1 } { incr aReflMode } {
30 for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
31 vsetraytracemode shad=$aShadMode refl=$aReflMode aa=$aAAMode
32 vdump $imagedir/${casename}_${aModeNum}.png
39 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
40 for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
41 vsetraytracemode shad=$aShadMode refl=1 aa=$aAAMode
42 vdump $imagedir/${casename}_${aModeNum}.png