2 puts "OCC24131 Markers using Point Sprites"
5 # reflects Aspect_TypeOfMarker enumeration
20 Aspect_TOM_USERDEFINED
25 set aCustom1 [locate_data_file images/marker_box1.png]
26 set aCustom2 [locate_data_file images/marker_box2.png]
27 set aCustom3 [locate_data_file images/marker_dot.png]
29 # draw box in advance which should fit all our markers
32 for { set aMode 0 } { $aMode <= 1 } { incr aMode } {
34 if { $aMode == 1 } { set aTitle "sprites" }
36 set aV "Driver${aMode}/Viewer1/View1"
37 vinit name=$aV l=32 t=32 w=512 h=512
46 for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } {
47 set aRow [expr $aMarkerType - 7]
49 set aName [lindex $aMarkerTypeNames $aMarkerType]
50 vdrawtext "$aName" 0 [expr $aRow + 0.5] 0 128 255 255 1 1 000 0 12 2 Arial
51 if { $aMarkerType == 13 } {
52 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1
53 set aCol [expr $aCol - 1]
54 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2
55 set aCol [expr $aCol - 1]
56 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom3
58 for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } {
59 vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1
60 set aCol [expr $aCol - 1]
64 vdump $imagedir/${casename}_${aTitle}.png