0031999: Tests - request Core Profile on macOS for Ray-Tracing tests
[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 # PBR doesn't work with Compatible Profile on macOS
7 if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
8
9 vclear
10 vclose ALL
11 source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl
12
13 vcamera -ortho
14 vfit
15 vlight -change 1 -intensity 0.0001
16 vdump $::imagedir/${::casename}_ortho0.png
17 vlight -change 1 -intensity 0.3
18 vdump $::imagedir/${::casename}_ortho30.png
19 vcamera -persp
20 vfit
21 vlight -change 1 -intensity 0.0001
22 vdump $::imagedir/${::casename}_persp0.png
23 vlight -change 1 -intensity 0.3
24 vdump $::imagedir/${::casename}_persp30.png
25
26 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
27 vlight -change 1 -intensity 1
28 vbackground -cubemap $aCubeMap
29 vcamera -ortho
30 vdump $::imagedir/${::casename}_orthoenv.png
31 vcamera -persp
32 vdump $::imagedir/${::casename}_perspenv.png