2837eec3b2a500191e38fa70661bc390aac7196e
[occt.git] / tests / v3d / raytrace / bug24130
1 puts "========"
2 puts "OCC24130 Implementing ray tracing visualization core"
3 puts "========"
4
5 # custom shapes
6 set aShape1 [locate_data_file occ/Top.brep]
7 set aShape2 [locate_data_file occ/Bottom.brep]
8
9 # setup 3D viewer content
10 vinit name=View1 w=512 h=512
11 vglinfo
12
13 vvbo 0
14 vsetdispmode 1
15 vsetgradientbg 180 200 255 180 180 180 2
16 restore $aShape1 s1
17 restore $aShape2 s2
18 vdisplay s1 s2
19 vsetmaterial s1 Silver
20 vsetmaterial s2 Pewter
21 vlight change 0 pos -1 1 1
22 vfit
23
24 # activate ray-tracing
25 vraytrace 1
26
27 set aModeNum 0
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
33       incr aModeNum
34     }
35   }
36 }
37
38 vtextureenv on 5
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
43     incr aModeNum
44   }
45 }