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 vsetlocation s1 0.0 0.1 0.0
22 vlight change 0 pos -1 1 1
25 # activate ray-tracing
26 vrenderparams -raytrace
29 foreach aFSAAMode {off on} {
30 foreach aReflMode {off on} {
31 foreach aShadMode {off on} {
32 vrenderparams -shadows $aShadMode -reflections $aReflMode -fsaa $aFSAAMode
33 vdump $imagedir/${casename}_${aModeNum}.png
40 foreach aFSAAMode {off on} {
41 foreach aShadMode {off on} {
42 vrenderparams -shadows $aShadMode -reflections -fsaa $aFSAAMode
43 vdump $imagedir/${casename}_${aModeNum}.png
48 vsettransparency s2 0.5
49 for { set aDepth 2 } { $aDepth <= 5 } { incr aDepth } {
50 foreach aFSAAMode {off on} {
51 vrenderparams -raydepth $aDepth -shadows off -fsaa $aFSAAMode
52 vdump $imagedir/${casename}_${aModeNum}.png