AddPathCircle(PathCursorX(), PathCursorY(), 6) ;<<--- How do you turn these Circles into Arrowheads ???
Code: Select all
If OpenWindow(0, 0, 0, 400, 400, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowColor(0,RGB(240,240,240))
CreateImage(0,400,400,32,#PB_Image_Transparent)
If StartVectorDrawing(ImageVectorOutput(0))
w = VectorOutputWidth()
h = VectorOutputHeight()
VectorSourceColor(RGBA(100, 0, 100, 255))
RotateCoordinates(w/2, h/2, 45)
For i=0 To 360 Step 45
MovePathCursor(w/2, h-10)
AddPathLine(w/2, h-55)
SaveVectorState()
MovePathCursor(w/2, h-60)
RotateCoordinates(w/2, h/2, 360-i)
AddPathCircle(PathCursorX(), PathCursorY(), 6) ;<<--- How do you turn these Circles into Arrowheads ???
RestoreVectorState()
StrokePath(5)
RotateCoordinates(w/2, h/2, 45)
Next
StopVectorDrawing()
EndIf
ImageGadget(12, 0, 0, 400, 400,ImageID(0),32)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf