mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
23 lines
644 B
Plaintext
23 lines
644 B
Plaintext
puts "========"
|
|
puts "0028069: Visualization, TKOpenGl - handle flat shading model within GLSL programs"
|
|
puts "========"
|
|
|
|
vclear
|
|
vclose ALL
|
|
vinit View1
|
|
vviewparams -scale 551.55 -proj 0.85 -0.16 0.51 -up -0.41 0.41 0.82 -at 0.55 0.55 0.55
|
|
|
|
restore [locate_data_file occ/fuse.brep] f
|
|
tclean f
|
|
vdefaults -absDefl 0.5
|
|
vdisplay -dispMode 1 f
|
|
|
|
# setup lights
|
|
vlight -clear
|
|
vlight amblight -type AMBIENT -color WHITE
|
|
vlight dirlight1 -type DIRECTIONAL -dir 1 0 0 -color GREEN -headlight 1
|
|
vlight dirlight2 -type DIRECTIONAL -dir -1 0 0 -color RED1 -headlight 1
|
|
|
|
vrenderparams -shadingModel flat
|
|
vdump $::imagedir/${::casename}.png
|