
Code: Select all
OpenWindow(0, 0, 0, 1200, 800, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 1200, 800)
#dist_y = 50
StartVectorDrawing(CanvasVectorOutput(0, #PB_Unit_Millimeter))
For copy = 1 To 10
ResetCoordinates()
ScaleCoordinates(copy / 25, copy / 25)
For i = 0 To 10
MovePathCursor(copy * 70, 25 + i * #dist_y)
AddPathLine(100, 0, #PB_Path_Relative)
StrokePath(1)
Next i
MovePathCursor(copy * 70, 25)
AddPathLine(0, 10 * #dist_y, #PB_Path_Relative)
DashPath(1, #dist_y / 2)
Next copy
StopVectorDrawing()
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow


