mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
33 lines
939 B
Plaintext
33 lines
939 B
Plaintext
puts "========"
|
|
puts "0030700: Visualization, TKOpenGl - support PBR Metallic-Roughness shading model"
|
|
puts "Spheres grid with different roughness values"
|
|
puts "========"
|
|
|
|
# PBR doesn't work with Compatible Profile on macOS
|
|
if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
|
|
|
|
vclear
|
|
vclose ALL
|
|
source $env(CSF_OCCTSamplesPath)/tcl/vis_pbr_spheres.tcl
|
|
|
|
vcamera -ortho
|
|
vfit
|
|
vlight -change 1 -intensity 0.0001
|
|
vdump $::imagedir/${::casename}_ortho0.png
|
|
vlight -change 1 -intensity 0.3
|
|
vdump $::imagedir/${::casename}_ortho30.png
|
|
vcamera -persp
|
|
vfit
|
|
vlight -change 1 -intensity 0.0001
|
|
vdump $::imagedir/${::casename}_persp0.png
|
|
vlight -change 1 -intensity 0.3
|
|
vdump $::imagedir/${::casename}_persp30.png
|
|
|
|
set aCubeMap [locate_data_file Circus_CubeMap_V.png]
|
|
vlight -change 1 -intensity 1
|
|
vbackground -cubemap $aCubeMap
|
|
vcamera -ortho
|
|
vdump $::imagedir/${::casename}_orthoenv.png
|
|
vcamera -persp
|
|
vdump $::imagedir/${::casename}_perspenv.png
|