Screenshot of CustomDashPath's example code:
Code: Select all
If OpenWindow(0, 0, 0, 400, 200, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 400, 200)
If StartVectorDrawing(CanvasVectorOutput(0))
MovePathCursor(40, 20)
For i = 1 To 4
AddPathLine(80, 0, #PB_Path_Relative)
AddPathLine(0, 40, #PB_Path_Relative)
Next i
VectorSourceColor(RGBA(255, 0, 0, 255))
Dim dashes.d(7)
dashes(0) = 20
dashes(1) = 10
dashes(2) = 0 ;<<< THIS DOT IS NOT DRAWN
dashes(3) = 10
dashes(4) = 0 ;<<< THIS DOT IS NOT DRAWN
dashes(5) = 10
dashes(6) = 20
dashes(7) = 10
CustomDashPath(5, dashes())
StopVectorDrawing()
EndIf
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
Screenshot of eddy's Path Moves code:
While it should look like that: