0031225: Visualization, TKOpenGl - support cubemap for environment texture within...
[occt.git] / tests / v3d / raytrace / pbr_spheres
1 puts "========"
2 puts "0031225: Visualization, TKOpenGl - support cubemap for environment texture within Ray-Tracing"
3 puts "Spheres grid with different roughness values"
4 puts "========"
5
6 vclear
7 vclose ALL
8 source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl
9
10 vrenderparams -ray -gi -rayDepth 10
11 vcamera -ortho
12 vfit
13 vlight -change 1 -intensity 0.0001
14 vfps 200
15 vdump $::imagedir/${::casename}_ortho0.png
16
17 vlight -change 1 -intensity 0.3
18 vfps 200
19 vdump $::imagedir/${::casename}_ortho30.png
20
21 vcamera -persp
22 vfit
23 vlight -change 1 -intensity 0.0001
24 vfps 200
25 vdump $::imagedir/${::casename}_persp0.png
26
27 vlight -change 1 -intensity 0.3
28 vfps 200
29 vdump $::imagedir/${::casename}_persp30.png
30
31 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
32 vlight -change 1 -intensity 1
33 vbackground -cubemap $aCubeMap
34 vcamera -ortho
35 vfps 200
36 vdump $::imagedir/${::casename}_orthoenv.png
37
38 vcamera -persp
39 vfps 200
40 vdump $::imagedir/${::casename}_perspenv.png