mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
0d828ac838
Removed testgrids 'bugs/vis' and '3rdparty'; tests have been redistributed across other grids. Moved testgrid 'v3d/ivtk' into dedicated 'vtk/ivtk'. Added testgrid 'vselect' dedicated to 3D viewer picking/selection functionality and filled with tests from 'v3d/vertex', 'v3d/face' and similar groups. Added testgrid 'opengl' dedicated to OpenGL driver low-level functionality (GLSL programs and similar) and filled with tests from 'v3d/glsl', 'v3d/raytrace', '3rdparty/fonts', 'bugs/vis' (portion) and similar. Added testgrid 'opengles3' dedicated to OpenGL ES 3.0 driver low-level functionality and reusing tests from 'opengl' testgrid. Subgroup 'opengles3/raytrace' is disabled on Windows, as Ray-Tracing currently requires OpenGL ES 3.2. while ANGLE library implements only OpenGL ES 3.0. Added testgrid 'opengles2' dedicated to OpenGL ES 2.0 driver low-level functionality and reusing a limited subset of passing tests from 'opengl' testgrid. Currently testgrid is activated only on Windows platform when using ANGLE library (properietary OpenGL ES drivers do not allow creation of restricted 2.0 context). Test cases have been cleaned out to put bug description into log, to properly load necessary plugins and to explicitly dump viewer.
74 lines
1.8 KiB
Plaintext
74 lines
1.8 KiB
Plaintext
puts "========"
|
|
puts "0031099: Visualization, TKOpenGl - support Point light source with artistic full cut-off distance"
|
|
puts "Test of point light's (positional and spot) attenuation and range in PBR"
|
|
puts "========"
|
|
|
|
pload XDE OCAF VISUALIZATION MODELING
|
|
|
|
# PBR doesn't work with Compatible Profile on macOS
|
|
if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
|
|
|
|
Close D -silent
|
|
|
|
vclear
|
|
vclose ALL
|
|
vinit View1 -w 512 -h 512
|
|
|
|
vtop
|
|
vrenderparams -shadingmodel pbr
|
|
|
|
box b -2 -2 -0.00001 4 4 0.00001
|
|
XNewDoc D
|
|
set bs [XAddShape D b 0]
|
|
XAddVisMaterial D m -baseColor WHITE -transparency 0.0 -metallic 0.0 -roughness 1.0
|
|
XSetVisMaterial D $bs m
|
|
XDisplay -dispMode 1 D
|
|
vfit
|
|
|
|
vlight -clear
|
|
vlight -add positional -pos -1 0 1 -intensity 0.5
|
|
vlight -add spot -pos 1 0 1 -dir 0 0 -1 -intensity 0.5 -angle 100
|
|
|
|
vdump $::imagedir/${::casename}_norange_high.png
|
|
|
|
vlight -change 0 -pos -1 0 0.5
|
|
vlight -change 1 -pos 1 0 0.5
|
|
|
|
vdump $::imagedir/${::casename}_norange_low.png
|
|
|
|
vlight -change 0 -range 1
|
|
vlight -change 1 -range 1
|
|
|
|
vdump $::imagedir/${::casename}_range1.png
|
|
|
|
vlight -change 0 -range 0.5
|
|
vlight -change 1 -range 0.5
|
|
|
|
vdump $::imagedir/${::casename}_range0_5.png
|
|
|
|
vlight -change 0 -range 0.6
|
|
vlight -change 1 -range 0.6
|
|
|
|
vdump $::imagedir/${::casename}_range0_6.png
|
|
|
|
vlight -change 0 -range 10
|
|
vlight -change 1 -range 10
|
|
|
|
vdump $::imagedir/${::casename}_range10.png
|
|
|
|
box b -5.0 -5.0 -0.00001 10 10 0.00001
|
|
XNewDoc D
|
|
set bs [XAddShape D b 0]
|
|
XAddVisMaterial D m -baseColor WHITE -transparency 0.0 -metallic 0.0 -roughness 1.0
|
|
XSetVisMaterial D $bs m
|
|
XDisplay -dispMode 1 D
|
|
vfit
|
|
vlight -clear
|
|
for {set i 0} {$i < 5} {incr i} {
|
|
for {set j 0} {$j < 5} {incr j} {
|
|
vlight -add spot -pos [expr -4.0+2.0*$i] [expr -4.0+2.0*$j] 0.5 -dir 0 0 -1 -intensity 0.5 -angle 100 -exp [expr ($i*5+$j) / 24.0]
|
|
}
|
|
}
|
|
|
|
vdump $::imagedir/${::casename}_angle_attenuation.png
|