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.
31 lines
690 B
Plaintext
31 lines
690 B
Plaintext
puts "============"
|
|
puts "CR24725: Test texture color modulation for AIS_TexturedShape"
|
|
puts "============"
|
|
puts ""
|
|
|
|
pload MODELING VISUALIZATION
|
|
set aV "Driver1/Viewer1/View1"
|
|
vinit name=$aV l=32 t=32 w=400 h=400
|
|
vactivate $aV
|
|
vclear
|
|
|
|
box b 1 2 3
|
|
vdisplay b
|
|
vsetdispmode 1
|
|
vtexture b 0
|
|
vlight -clear
|
|
vlight amblight -type AMBIENT -color WHITE
|
|
vfit
|
|
|
|
vtexture b -modulate off
|
|
checkcolor 142 352 1 1 1
|
|
if { $stat != 1 } { puts "Error : color of non-modulated texture is incorrect" }
|
|
|
|
vdump $imagedir/${casename}_1.png
|
|
|
|
vtexture b -modulate on
|
|
checkcolor 142 352 0.329 0.224 0.027
|
|
if { $stat != 1 } { puts "Error : color of modulated texture is incorrect" }
|
|
|
|
vdump $imagedir/${casename}_2.png
|