mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
06d40093b7
vlight command has been revised to provide more friendly syntax. Command now accepts light index or name as first argument. Added arguments -enable/-disable for managing enabled state. Added argument -reset to reset light parameters to default values. V3d_Viewer::SetDefaultLights() now sets names "headlight" and "ambient" to created lights. Graphic3d_TypeOfLightSource enumeration values have been renamed to avoid shortcuts. Draw::Atof(), applied corrections to avoid explicit new/delete calls.
46 lines
1.1 KiB
Plaintext
46 lines
1.1 KiB
Plaintext
puts "========"
|
|
puts "Per-vertex lighting using built-in GLSL program, one spot light source."
|
|
puts "Visual comparison with the reference snapshot should be performed for this test case."
|
|
puts "========"
|
|
|
|
pload MODELING VISUALIZATION
|
|
vclear
|
|
vclose ALL
|
|
vinit View1
|
|
|
|
# create objects
|
|
set anX 0.001
|
|
circle c 0 0 0 0.001
|
|
mkedge e c
|
|
wire w e
|
|
plane s
|
|
mkface f1 s w
|
|
mkface f2 s w
|
|
ttranslate f1 $anX -0.001 0
|
|
|
|
# display objects
|
|
vtop
|
|
vdisplay -dispMode 1 f1 f2
|
|
vsetlocation f2 $anX 0.001 0
|
|
vpoint vl $anX 0 0.001
|
|
vfit
|
|
|
|
# setup light
|
|
vcaps -ffp 0
|
|
vrenderparams -shadingModel vert
|
|
vlight -clear
|
|
vlight spot -type SPOTLIGHT -pos $anX 0 0.001 -dir 0 0 -1 -spotAngle 60 -constAtten 0.1 -exponent 0.1 -color RED1 -headLight 0
|
|
|
|
set aColor1 [vreadpixel 205 180 rgb name]
|
|
set aColor2 [vreadpixel 205 220 rgb name]
|
|
if { "$aColor1" != "RED" || "$aColor2" != "RED" } {
|
|
puts "Error: expected color near the light spot is RED"
|
|
}
|
|
|
|
set aColor3 [vreadpixel 205 132 rgb name]
|
|
set aColor4 [vreadpixel 205 280 rgb name]
|
|
if { "$aColor3" != "RED" || "$aColor4" != "RED4" } {
|
|
puts "Error: expected color mid from the light spot is RED4"
|
|
}
|
|
vdump ${imagedir}/${casename}.png
|