mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
8e0a2b19ab
Graphic3d_TypeOfShaderObject enumeration has been extended by Geometry shader object type. OpenGl_ShaderProgram::Initialize() processes new shader object types when supported by OpenGL version. Declarations.glsl has been fixed so that occFragColor is defined only for Fragment Shader object only (by handling new FRAGMENT_SHADER macros). Improved documentation of Graphic3d_ArrayOfPrimitives class. vshader Draw Harness command has been extended to support definition of Shader Object types other than Vertex and Fragment shader.
21 lines
373 B
Plaintext
21 lines
373 B
Plaintext
puts "========"
|
|
puts "Test to verify the lights are turned off after 'vlight clear' (and scene is black)"
|
|
puts "========"
|
|
|
|
# create box
|
|
box b 1 2 3
|
|
|
|
# draw box
|
|
vclear
|
|
vclose ALL
|
|
vinit View1
|
|
vsetdispmode 1
|
|
vdisplay b
|
|
vfit
|
|
|
|
vlight clear
|
|
|
|
set color [vreadpixel 100 100 rgb]
|
|
set black "0 0 0"
|
|
if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}
|