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
29 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
30 for { set aReflMode 0 } { $aReflMode <= 1 } { incr aReflMode } {
31 for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
32 vsetraytracemode shad=$aShadMode refl=$aReflMode aa=$aAAMode
33 vdump $imagedir/${casename}_${aModeNum}.png
40 for { set aAAMode 0 } { $aAAMode <= 1 } { incr aAAMode } {
41 for { set aShadMode 0 } { $aShadMode <= 1 } { incr aShadMode } {
42 vsetraytracemode shad=$aShadMode refl=1 aa=$aAAMode
43 vdump $imagedir/${casename}_${aModeNum}.png