0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / pbr_spheres
CommitLineData
67312b79 1puts "========"
2puts "0030700: Visualization, TKOpenGl - support PBR Metallic-Roughness shading model"
3puts "Spheres grid with different roughness values"
4puts "========"
5
67312b79 6vclear
89d855ba 7vclose ALL
8source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl
9
67312b79 10vcamera -ortho
11vfit
12vlight -change 1 -intensity 0.0001
13vdump $::imagedir/${::casename}_ortho0.png
14vlight -change 1 -intensity 0.3
15vdump $::imagedir/${::casename}_ortho30.png
16vcamera -persp
17vfit
18vlight -change 1 -intensity 0.0001
19vdump $::imagedir/${::casename}_persp0.png
20vlight -change 1 -intensity 0.3
21vdump $::imagedir/${::casename}_persp30.png
22
23set aCubeMap [locate_data_file Circus_CubeMap_V.png]
24vlight -change 1 -intensity 1
25vbackground -cubemap $aCubeMap
26vcamera -ortho
27vdump $::imagedir/${::casename}_orthoenv.png
28vcamera -persp
29vdump $::imagedir/${::casename}_perspenv.png