mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
daf73ab7c9
OpenGl_ShaderManager now overrides THE_MAX_LIGHTS within built-in shading programs so that maximum number of lights is now limited only by OpenGL hardware (e.g. length of GLSL program, number of defined uniforms, result performance, etc.). THE_MAX_CLIP_PLANES is now also defined by OpenGl_ShaderManager, so that unused lights and clipping planes do not reserve extra uniforms in GLSL programs. V3d_View::SetLightOn() does not throw exception anymore, when the number of lights exceeds 8. Instead, OpenGl_ShaderManager::PushLightSourceState() emits warning in case of usage of FFP providing consistent behavior with Clipping Planes number limit.
45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
puts "========"
|
|
puts "0029283: Visualization - allow defining more than 8 light sources"
|
|
puts "========"
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
# display objects
|
|
vclear
|
|
vclose ALL
|
|
vinit View1 -width 1024 -height 768
|
|
vcaps -ffp 0
|
|
vrenderparams -shadingModel phong
|
|
vaxo
|
|
for { set anObjIter 0 } { $anObjIter < 3 } { incr anObjIter } {
|
|
set aShiftX [expr -4 + $anObjIter * 4]
|
|
psphere s$anObjIter 0.5
|
|
vdisplay -dispMode 1 s$anObjIter
|
|
vsetlocation s$anObjIter $aShiftX 0 0
|
|
}
|
|
vfit
|
|
|
|
# define lights
|
|
set THE_LIGHTS {
|
|
{ -1 -1 -1 RED1 }
|
|
{ 1 -1 -1 YELLOW }
|
|
{ -1 1 -1 BLUE1 }
|
|
{ -1 -1 1 CYAN1 }
|
|
{ 1 1 -1 PURPLE }
|
|
{ 1 1 1 WHITE }
|
|
{ -1 1 1 HOTPINK }
|
|
{ 1 -1 1 GREEN }
|
|
{ -4 -1 0 MAGENTA1 }
|
|
{ 4 -1 0 MAGENTA3 }
|
|
}
|
|
vlight clear
|
|
for { set aLightIter 1 } { $aLightIter <= 10 } { incr aLightIter } {
|
|
set aLight [lindex $THE_LIGHTS [expr $aLightIter - 1]]
|
|
set aColor [lindex $aLight 3]
|
|
set aPos [list [lindex $aLight 0] [lindex $aLight 1] [lindex $aLight 2]]
|
|
vlight add positional pos {*}$aPos color $aColor headLight 0
|
|
vpoint v${aLightIter} {*}$aPos
|
|
vdrawtext t${aLightIter} "light${aLightIter} $aColor" -pos {*}$aPos -color $aColor
|
|
vdump $::imagedir/${::casename}_${aLightIter}.png
|
|
}
|