could this somehow be added?
thanks
created it now for the moment with code
thanks
created it now for the moment with code
B4X:
Sub DrawDottedLine(grp As ABMCanvasObject,x1 As Double,y1 As Double,x2 As Double,y2 As Double,dotRadius As Double,dotCount As Int)
Dim const dx=x2-x1 As Double
Dim const dy=y2-y1 As Double
Dim spaceX=dx/(dotCount-1) As Double
Dim spaceY=dy/(dotCount-1) As Double
Dim newX=x1 As Double
Dim newY=y1 As Double
For i=0 To dotCount
drawDot(grp,newX,newY,dotRadius)
newX=newX+spaceX
newY=newY+spaceY
Next
' drawDot(x1,y1,3,"red")
' drawDot(x2,y2,3,"red")
End Sub
Sub drawDot(grp As ABMCanvasObject,x As Int,y As Int,dotRadius As Double)
grp.beginPath
grp.arc(x,y, dotRadius, 0, 2 * cPI)
grp.fillStyleColor("#888888")
grp.stroke
End Sub