0031225: Visualization, TKOpenGl - support cubemap for environment texture within...
[occt.git] / tests / v3d / glsl / pbr_spheres
1 puts "========"
2 puts "0030700: Visualization, TKOpenGl - support PBR Metallic-Roughness shading model"
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 vcamera -ortho
11 vfit
12 vlight -change 1 -intensity 0.0001
13 vdump $::imagedir/${::casename}_ortho0.png
14 vlight -change 1 -intensity 0.3
15 vdump $::imagedir/${::casename}_ortho30.png
16 vcamera -persp
17 vfit
18 vlight -change 1 -intensity 0.0001
19 vdump $::imagedir/${::casename}_persp0.png
20 vlight -change 1 -intensity 0.3
21 vdump $::imagedir/${::casename}_persp30.png
22
23 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
24 vlight -change 1 -intensity 1
25 vbackground -cubemap $aCubeMap
26 vcamera -ortho
27 vdump $::imagedir/${::casename}_orthoenv.png
28 vcamera -persp
29 vdump $::imagedir/${::casename}_perspenv.png