mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
8625ef7e94
Enumerations Visual3d_TypeOfModel, V3d_TypeOfShadingModel. - Remove unused values V3d_MULTICOLOR, V3d_HIDDEN, Visual3d_TOM_INTERP_COLOR. - Add per-pixel shading mode - V3d_PHONG, Visual3d_TOM_FRAGMENT. Draw Harness command vrenderparams. Add option -shadingModel to setup Shading Model. OpenGl_Caps::ffpEnable - new option to switch FFP/built-in GLSL programs. OpenGl_ShaderManager - add built-in GLSL programs. Draw Harness command vcaps. - Fix command syntax to meet coding rules. - Add option -ffp to activate/disable built-in GLSL programs. GLSL API changes. - Rename vertex attribute occColor -> occVertColor. - Introduce vec4 occColor uniform variable for light-less shaders. - Introduce float occPointSize uniform variable for marker programs. OpenGl_VertexBuffer::bindAttribute() - activate normalization for non-GL_FLOAT types, since color attribute is defined as 32-bit vector of 4 unsigned byte values. OpenGl_Context - add methods SetColor4fv() and SetPointSize() for parameters redirection to active GLSL program (as alternative to glColor4fv() and glPointSize()). OpenGl_ShaderProgram - define default precision for float types in Fragment Shader within OpenGL ES 2.0+ context. OpenGl_AspectMarker, initialize Aspect_TOM_O_POINT display list in the same way as sprite texture. OpenGl_Texture, do not use sized internal formats on OpenGL ES.
75 lines
1.9 KiB
Plaintext
75 lines
1.9 KiB
Plaintext
puts "========"
|
|
puts "OCC23654 Markers recompute"
|
|
puts "========"
|
|
|
|
# reflects Aspect_TypeOfMarker enumeration
|
|
set aMarkerTypeNames {
|
|
Aspect_TOM_POINT
|
|
Aspect_TOM_PLUS
|
|
Aspect_TOM_STAR
|
|
Aspect_TOM_X
|
|
Aspect_TOM_O
|
|
Aspect_TOM_O_POINT
|
|
Aspect_TOM_O_PLUS
|
|
Aspect_TOM_O_STAR
|
|
Aspect_TOM_O_X
|
|
Aspect_TOM_RING1
|
|
Aspect_TOM_RING2
|
|
Aspect_TOM_RING3
|
|
Aspect_TOM_BALL
|
|
Aspect_TOM_USERDEFINED
|
|
}
|
|
|
|
# custom marker
|
|
set aCustom1 [locate_data_file images/marker_box1.png]
|
|
set aCustom2 [locate_data_file images/marker_box2.png]
|
|
set aCustom3 [locate_data_file images/marker_dot.png]
|
|
|
|
# draw box in advance which should fit all our markers
|
|
box b -8 -8 0 16 16 2
|
|
|
|
vcaps -sprites
|
|
set aV "Driver1/Viewer1/View1"
|
|
vinit name=$aV l=32 t=32 w=512 h=512
|
|
vactivate $aV
|
|
vclear
|
|
|
|
vbottom
|
|
vdisplay b
|
|
vfit
|
|
verase b
|
|
|
|
for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } {
|
|
set aRow [expr $aMarkerType - 7]
|
|
set aCol 5
|
|
set aName [lindex $aMarkerTypeNames $aMarkerType]
|
|
vdrawtext "$aName" 0 [expr $aRow + 0.5] 0 128 255 255 1 1 000 0 12 2 Arial
|
|
if { $aMarkerType == 13 } {
|
|
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1
|
|
set aCol [expr $aCol - 1]
|
|
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2
|
|
set aCol [expr $aCol - 1]
|
|
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom3
|
|
} else {
|
|
for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } {
|
|
vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1
|
|
set aCol [expr $aCol - 1]
|
|
}
|
|
}
|
|
}
|
|
|
|
set anImage1 $imagedir/${casename}_1.png
|
|
set anImage2 $imagedir/${casename}_2.png
|
|
|
|
vdump $anImage1
|
|
|
|
vclose $aV 1
|
|
|
|
vinit name=$aV l=32 t=32 w=512 h=512
|
|
vactivate $aV
|
|
vbottom
|
|
vdisplay b
|
|
vfit
|
|
verase b
|
|
|
|
vdump $anImage2 |