PureBasic

Code : Tout sélectionner

EnableExplicit



;Left
Procedure VectorArrowL(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	
	MovePathCursor(xi, yi) 
	AddPathLine(xi+Length, yi) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xi-Amplitude, yi) 
	AddPathLine(xi+Amplitude,yi-Amplitude) 
	AddPathLine(xi,yi) 
	AddPathLine(xi+Amplitude,yi+Amplitude) 
	ClosePath()   
	FillPath() 
	
EndProcedure

;Right
Procedure VectorArrowR(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi+Length, yf.d=yi
	
	MovePathCursor(xi, yi) 
	AddPathLine(xi+Length, yi) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xf+Amplitude, yf) 
	AddPathLine(xf-Amplitude,yf-Amplitude) 
	AddPathLine(xf,yf) 
	AddPathLine(xf-Amplitude,yf+Amplitude) 
	ClosePath()   
	FillPath() 
	
EndProcedure

;Down
Procedure VectorArrowD(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi, yf.d=yi+Length
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xf, yf+Amplitude) 
	AddPathLine(xf-Amplitude,yf-Amplitude) 
	AddPathLine(xf, yf) 
	AddPathLine(xf+Amplitude,yf-Amplitude) 
	ClosePath()   
	FillPath() 
	
EndProcedure

;Up
Procedure VectorArrowU(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi, yf.d=yi+Length
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf)
	StrokePath(Thickness, Flag) 
	MovePathCursor(xi, yi-Amplitude)
	AddPathLine(xi-Amplitude,yi+Amplitude)
	AddPathLine(xi,yi)  
	AddPathLine(xi+Amplitude,yi+Amplitude) 
	ClosePath()   
	FillPath() 
	
EndProcedure

;Right
Procedure VectorArrowTailR(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi+Length, yf.d=yi
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xf+Amplitude, yf) 
	AddPathLine(xf+2*Amplitude,yf-Amplitude) 
	AddPathLine(xf-Amplitude,yf) 
	AddPathLine(xf+2*Amplitude,yf+Amplitude) 
	ClosePath()   
	FillPath()  
	
EndProcedure

;Left
Procedure VectorArrowTailL(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi+Length, yf.d=yi
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xi-Amplitude, yi) 
	AddPathLine(xi-2*Amplitude,yi-Amplitude) 
	AddPathLine(xi+Amplitude,yi) 
	AddPathLine(xi-2*Amplitude,yi+Amplitude) 
	ClosePath()   
	FillPath()  
	
EndProcedure

;Down
Procedure VectorArrowTailD(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi, yf.d=yi+Length
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xf, yf+Amplitude) 
	AddPathLine(xf-Amplitude,yf+2*Amplitude) 
	AddPathLine(xf, yf-Amplitude) 
	AddPathLine(xf+Amplitude,yf+2*Amplitude) 
	ClosePath()   
	FillPath() 
	
EndProcedure

;Up
Procedure VectorArrowTailU(Xi.d, Yi.d, Length.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd)
	Protected xf.d=xi, yf.d=yi+Length
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf) 
	StrokePath(Thickness, Flag) 
	MovePathCursor(xi, yi-Amplitude) 
	AddPathLine(xi-Amplitude,yi-2*Amplitude) 
	AddPathLine(xi, yi+Amplitude) 
	AddPathLine(xi+Amplitude,yi-2*Amplitude) 
	ClosePath()   
	FillPath() ; U can try to comment this line...
	
EndProcedure

Procedure VectorArrowXY(xi.d, yi.d, xf.d, yf.d, Amplitude.d, Thickness.d, Flag.i = #PB_Path_RoundEnd, Angle.d = 40)
	Protected.d xx1, yy1, xx2, yy2, xxx1, yyy1, xxx2, yyy2, Anglef
	
	
	Angle = Abs(Angle*#PI/180.0)
	
	MovePathCursor(xi, yi) 
	AddPathLine(xf, yf)
	StrokePath(Thickness, Flag) 
	
	xx1 = -1.0*Cos(Angle) * Amplitude
	yy1 =      Sin(Angle) * Amplitude
	xx2 = -1.0*Cos(Angle) * Amplitude
	yy2 = -1.0*Sin(Angle) * Amplitude
	
	Anglef.d = ATan2((xf - xi),(yi - yf))
	
	xxx1 = Cos(Anglef)*xx1 + Sin(Anglef)*yy1
	yyy1 = Cos(Anglef)*yy1 - Sin(Anglef)*xx1
	xxx2 = Cos(Anglef)*xx2 + Sin(Anglef)*yy2
	yyy2 = Cos(Anglef)*yy2 - Sin(Anglef)*xx2
	
	MovePathCursor(xf, yf) 
	AddPathLine(xf + xxx1, yf + yyy1)
	MovePathCursor(xf, yf) 
	AddPathLine(xf + xxx2, yf + yyy2)
	StrokePath(Thickness, Flag)
	
EndProcedure


CompilerIf #PB_Compiler_IsMainFile
If OpenWindow(0, 0, 0, 800, 600, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	CanvasGadget(0, 0, 0, 800, 600)
	
	If StartVectorDrawing(CanvasVectorOutput(0))
		
		
		VectorSourceColor($FF0000FF) 
		
		;Arrows
		VectorArrowD(50, 10, 100, 20, 10)
		VectorArrowU(350, 30, 100, 20, 10)
		VectorArrowR(150, 50, 100, 20, 10)
		VectorArrowL(150, 100,100, 20, 10)
		
		;Tails
		VectorArrowTailR(150, 350, 100, 20, 10)
		VectorArrowTailL(150, 400, 100, 20, 10)
		VectorArrowTailD(50, 200, 100, 20, 10)
		VectorArrowTailU(350, 200, 100, 20, 10)
		
		;Arrows + tail
		VectorArrowL(150, 500,100, 20, 10)
		VectorArrowTailR(150, 500, 100, 20, 10)
		VectorArrowD(50, 450, 100, 20, 10)
		VectorArrowTailU(50, 450, 100, 20, 10)
		
		
		;Double arrow
		VectorArrowL(150, 550,100, 20, 10)
		VectorArrowR(150, 550,100, 20, 10)
		VectorArrowU(350, 450, 100, 20, 10)
		VectorArrowD(350, 450, 100, 20, 10)
		
		
		;Free
		;Arrow
		VectorArrowXY(550, 25, 650, 50, 40, 10)
		;Tail
		VectorArrowXY(550, 200, 650, 150, -40, 10)
		;Double Arrow
		VectorArrowXY(550, 400, 650, 250, 40, 10)
		VectorArrowXY(650, 250, 550, 400, 40, 10)
		;Arrow+tail
		VectorArrowXY(550, 550, 650, 400, -40, 10)
		VectorArrowXY(650, 400, 550, 550, 40, 10)
		
		
		;Oblique
		RotateCoordinates(0, 0, 45)
		TranslateCoordinates(250, 00)
		VectorArrowL(0, 0, 100, 20, 10)
		VectorArrowTailR(0, 0, 100, 20, 10)
		
		RotateCoordinates(0, 0, 90)
		TranslateCoordinates(-50, -50)
		VectorArrowL(0, 0, 100, 20, 10)
		VectorArrowTailR(0, 0, 100, 20, 10)
		
		
		StopVectorDrawing()
		
	EndIf
	
	Define Event
	Repeat
		Event = WaitWindowEvent()
	Until Event = #PB_Event_CloseWindow
EndIf

CompilerEndIf