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
}