Graphics 1024,768,32,1

ClsColor 0,0,255
;-------Der Type-----
Type pfeilspur
	Field x,y
End Type
;--------------------


Global pfeil.pfeilspur,grad


For a=1 To 25
	pfeil =New pfeilspur
	pfeil\x=MouseX()
	pfeil\y=MouseY()
Next





Dim winkel(360)   ;der Bilderspeicher

tempbild=LoadImage(\"C:/windows/desktop/1.png\") Laden des Bildes, Pfad eventuell ersetzen!


HandleImage tempbild,49,22
TFormFilter 0

For a=0 To 360        ;das Bilderarray wird mit gedrehten Kopien des Urbildes gefüllt!
	winkel(a)=CopyImage(tempbild)
	RotateImage winkel(a),a
	DrawImage winkel(a),100,100

Next



SetBuffer BackBuffer()


zeit=MilliSecs()

Repeat


;====Framezähler===
frames=frames+1

If MilliSecs()-zeit>1000 Then
framesanzeig=frames
frames=0
zeit=MilliSecs()
End If
;===============

Cls








mausx=MouseX()
mausy=MouseY()


Malepfeil(mausx,mausy)   ;Handlich in ne Funktion verpackt!^^

Text 1,1,\"Fps: \"+framesanzeig
Flip 0



Until KeyHit(1)




Function Malepfeil(mausx,mausy)

	pfeil=First pfeilspur
	
	If mausx<>pfeil\x Or mausy<>pfeil\y Then  ;Nur wenn die Maus auch bewegt wurde.....
	
	
			pfeil=Last pfeilspur
				letzterx=pfeil\x
				letztery=pfeil\y
			
			a=0
			
			While ((mausx-letzterx)^2)+((mausy-letztery)^2)>45^2  ;Satz des Pytagoras, der Punkt, der am nächsten am Ende des Pfeils liegt wird ausgewählt!
			
			
				pfeil=Before pfeil
				
				If pfeil=Null Then
					pfeil=First pfeilspur
					letzterx=pfeil\x
					letztery=pfeil\y
					Exit
				End If
				
				
					
				letzterx=pfeil\x
				letztery=pfeil\y
			
			a=a+1
			Wend
			
			
			
			
			
			grad = ATan2 (mausy - letztery, mausx - letzterx) ;Ausrechnen des Winkels zu diesem Punkt
			
			
			If grad<0 Then grad=360+grad  ;Die Winkellrechnung produziert manchmal unbrauchbare Minuszahlen!
			
			pfeil=Last pfeilspur
			Delete pfeil  ; letzter Punkt wird rausgeworfen!
			
			pfeil=New pfeilspur
			Insert pfeil Before First pfeilspur ;Neuer Punkt hinzugefügt!
			
			pfeil\x=mausx
			pfeil\y=mausy
	End If
	DrawImage winkel(grad),mausx,mausy
End Function

;by Waveblue

For a=1 To 25 
        pfeil =New pfeilspur 
        pfeil\x=MouseX() 
        pfeil\y=MouseY() 
Next 

Graphics 800,600,32,2


;-------Der Type----- 
Type pfeilspur 
Field x,y 
End Type 
;-------------------- 


Global pfeil.pfeilspur,grad 


For a=1 To 25 
pfeil =New pfeilspur 
pfeil\x=MouseX() 
pfeil\y=MouseY() 
Next 





Dim winkel(180) ;der Bilderspeicher 

tempbild=LoadImage(\"C:/windows/desktop/1.png\") ;laden des ungedrehen Picts, Pfad eventuell ersetzen 
HandleImage tempbild,49,22 
TFormFilter 0 

For a=0 To 180 ;Diese schleife füllt das Bilderarray mit gedrehten Kopien des Urbildes 
winkel(a)=CopyImage(tempbild) 
RotateImage winkel(a),a*2 
DrawImage winkel(a),100,100 

Next 



SetBuffer BackBuffer() 
;############# INI
time = MilliSecs()
;############# End INI
Repeat 
;############# framecounter
loops = loops+1
If MilliSecs()-time > 100 Then
	fps = loops
	loops = 0
	time = MilliSecs()
EndIf
;############ end framecounter
Cls 
Color 255,255,255
Text 10,10,\"FPS: \"+fps







mausx=MouseX() 
mausy=MouseY() 

Malepfeil(mausx,mausy) 
Flip 

Until KeyHit(1) 




Function Malepfeil(mausx,mausy) 

pfeil=First pfeilspur 

If mausx<>pfeil\x Or mausy<>pfeil\y Then ;Nur wenn sich die Mausposition verändert hat, wird das hier ausgeführt! 


pfeil=Last pfeilspur 
letzterx=pfeil\x 
letztery=pfeil\y 



While ((mausx-letzterx)^2)+((mausy-letztery)^2)>45^2 ;Satz des Pytagoras! Ausrichtung des Pfeils nach dem Punkt, der am dichtesten am Pfeilende liegt! 


pfeil=Before pfeil 

If pfeil=Null Then 
pfeil=First pfeilspur 
letzterx=pfeil\x 
letztery=pfeil\y 
Exit 
End If 



letzterx=pfeil\x 
letztery=pfeil\y 


Wend 





grad = ATan2 (mausy - letztery, mausx - letzterx) 


If grad<0 Then grad=360+grad ;weil leider die Winkelrechnung manchmal Minuszahlen ausspuckt! 

pfeil=Last pfeilspur 
Delete pfeil ;letzter Punkt raus 

pfeil=New pfeilspur ;neuer Punkt rein! 
Insert pfeil Before First pfeilspur 

pfeil\x=mausx 
pfeil\y=mausy 
End If 
DrawImage winkel(grad/2),mausx,mausy 
End Function 

;by Waveblue