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