Code: Select all
If OpenWindow(0, 0, 0, 400, 400, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 400, 400)
If StartVectorDrawing(CanvasVectorOutput(0))
w = VectorOutputWidth()
h = VectorOutputHeight()
VectorFont(LoadFont(0, "Arial", 16))
VectorSourceColor(RGBA(0, 0, 0, 255))
RotateCoordinates(w/2, h/2, 40)
For i=40 To 320 Step 40
MovePathCursor(w/2, h-10)
AddPathLine(w/2, h-20)
SaveVectorState()
MovePathCursor(w/2, h-40)
RotateCoordinates(w/2, h/2, 360-i)
DrawVectorText(Str(i/40-1))
RestoreVectorState()
StrokePath(1)
RotateCoordinates(w/2, h/2, 40)
Next
StopVectorDrawing()
EndIf
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf