mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
395d00e058
- Extended command Close with an option -silent
- Extended command Close to handle */-ALL for closing ALL document
- Replaced catch {Close D} by Close D -silent in tests
31 lines
860 B
Plaintext
31 lines
860 B
Plaintext
puts "========"
|
|
puts "0032039: Visualization, TKOpenGl - implement simple shadow mapping for a direct light source"
|
|
puts "Test shadow map from single directional light source on a buggy."
|
|
puts "========"
|
|
|
|
pload MODELING VISUALIZATION XDE OCAF
|
|
if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
|
|
Close D -silent
|
|
ReadGltf D [locate_data_file bug30691_Buggy.glb]
|
|
vclear
|
|
vinit View1
|
|
vzbufftrihedron
|
|
XDisplay -dispMode 1 D
|
|
vfit
|
|
vzoom 0.75
|
|
box bb -500000 -500000 -10875 1000000 1000000 0 -preview
|
|
vdisplay -dispMode 1 bb
|
|
vaspects bb -material STONE
|
|
vlight -change 0 -head 0 -dir -1 -1 -1 -castShadows 1
|
|
|
|
vraytrace 1
|
|
vdump $::imagedir/${::casename}_raytrace.png
|
|
|
|
vraytrace 0
|
|
vrenderparams -shadingModel phong
|
|
vrenderparams -shadowMapResolution 2048
|
|
vdump $::imagedir/${::casename}_phong.png
|
|
|
|
vrenderparams -shadingModel pbr
|
|
vdump $::imagedir/${::casename}_pbr.png
|