Code: Select all
#FIB=0.01745329 ; pi/180
#RAD=57.2957795 ; 180/ pi
#HeadCap=1 ;arrow head only
#TailCap=2 ;arrow tail only
#BothCaps=3 ;arrow head and tail
Procedure APILine(DC,x,y,x1,y1,Width,Color)
pen=CreatePen_(#PS_SOLID,Width,Color)
SelectObject_(DC,pen)
MoveToEx_(DC,x,y,0):LineTo_(DC,x1,y1)
DeleteObject_(pen)
EndProcedure
Procedure AngleEndPoint(x,y,Ang,LineLenght,*p.Point)
*p\x= x+LineLenght*Cos(Ang*#FIB)
*p\y= y+LineLenght*Sin(Ang*#FIB)
EndProcedure
Procedure AngLine(DC,x,y,Ang.f,LineLenght,LineWidth,RGB)
x2 = x+LineLenght*Cos(Ang*#FIB)
y2 = y+LineLenght*Sin(Ang*#FIB)
APILine(DC,x,y,x2 ,y2,LineWidth,RGB)
EndProcedure
Procedure GetANG(x1,y1,x2,y2)
a = x2-x1
b = y2-y1
c.f = Sqr(a*a+b*b)
Ang = ACos(a/c)*#RAD
If y1 < y2 : ProcedureReturn 360-Ang : EndIf
ProcedureReturn Ang
EndProcedure
Procedure ArrowLine(DC,x,y,x1,y1,LineWidth,CapType,CapSize,RGB)
APILine(DC,x,y,x1,y1,LineWidth,RGB)
Angle=GetANG(x,y,x1,y1)
If CapType=1 Or CapType=3 ; arrow head
AngLine(DC,x,y,(340-Angle),CapSize,LineWidth,RGB)
AngLine(DC,x,y,(380-Angle),CapSize,LineWidth,RGB)
EndIf
If CapType=2 Or CapType=3 ; arrow tail
AngLine(DC,x1,y1,(340-Angle),CapSize,LineWidth,RGB)
AngLine(DC,x1,y1,(380-Angle),CapSize,LineWidth,RGB)
EndIf
EndProcedure
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
hWnd = OpenWindow(0, 0, 0,0,0 ,"", #WS_OVERLAPPEDWINDOW | #WS_MAXIMIZE)
_Drawing=StartDrawing(WindowOutput(0))
;SetWindowColor(0,0) ; if uncomment, drawing fails ***********************
Box(0,0,WindowWidth(0),WindowHeight(0),0) ; this line replaces SetWindowColor()
xcenter=WindowWidth(0)/2
ycenter=WindowHeight(0)/2
;=====================================
LineWidth=3 ; here your settings
LineLenght=100
CapSize=15
CapType=#BothCaps ; select here Head, Tail or both
;=====================================
; Test it
For i= 0 To 360 Step 20
AngleEndPoint(xcenter,ycenter,i,200,@p.Point) ; just for test - line positions
AngleEndPoint(p\x,p\y,-i,LineLenght,@z.Point)
ArrowLine(_drawing,p\x,p\y,z\x,z\y,linewidth,CapType,CapSize,Random($FFFFFF))
Next
Repeat
Until WindowEvent() = #PB_Event_CloseWindow
)
