mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
abe4607711
Add pre-rendered images for custom markers. OpenGl_Window - drop overcomplicated find_pixel_format() function OpenGl_Caps - add option to force software OpenGL imlementation (MS or Apple) Remove TODO from test case Add grayscale custom marker to the test Correct color bitness in attributes list
66 lines
1.9 KiB
Plaintext
66 lines
1.9 KiB
Plaintext
puts "========"
|
|
puts "OCC24131 Markers using Point Sprites"
|
|
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
|
|
puts "hI"
|
|
for { set aMode 0 } { $aMode <= 1 } { incr aMode } {
|
|
set aTitle "bitmaps"
|
|
if { $aMode == 1 } { set aTitle "sprites" }
|
|
vcaps sprites=$aMode
|
|
set aV "Driver${aMode}/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]
|
|
}
|
|
}
|
|
}
|
|
vdump $imagedir/${casename}_${aTitle}.png
|
|
}
|