;just a tiny Atan2 Demo
; (c) 2004 by walski

Const screenmode_fullscreen = 1,screenmode_windowed = 2
Const screen_width = 800, screen_height = 600, screen_depth = 32, screen_mode = screenmode_fullscreen
Const PlayerX = screen_width/2-13,PlayerY = screen_height/2-13
Graphics screen_width,screen_height,screen_depth,screen_mode

;Ein Bild das eben alle 5 Grad eine Linie hat die in die Richtung dieses Winkels zeigt
;Bitte beachten 0° = diese (->) Richtung nicht diese (^)!!

TempImage = CreateImage(25,25,73)
	For i=0 To 72
		SetBuffer ImageBuffer(TempImage,i)
		Line 13,13,13+Cos(i*5)*12,13+Sin(i*5)*12
	Next
	
SetBuffer BackBuffer()
Color 255,0,0

While Not KeyHit(1)
	Cls
	;Maus Koordinaten zwischenspeichern
	mX = MouseX()
	mY = MouseY()
	;Einen Kreis und eine Linie Zeichnen zur besseren Orientierung und zur Kontrolle der unteren Funktion
	Oval playerx-46,playery-46,91,91,0
	Line mx,my,playerx,playery

	;Erstmaliges aufrufen der Atan2 Funktion
	CurDegree=ATan2(mX-PlayerX,mY-PlayerY)
	;Umrechnen des Wertes in einen der stimmt  Glaub mir einfach, dass es so geht!
	If CurDegree>0 Then
		CurDegree = 90 - CurDegree
		If CurDegree<0 Then
			CurDegree = CurDegree + 360
		EndIf
	Else
		CurDegree = (CurDegree *-1) + 90
	EndIf
	;Hier wird der Winkel dann durch 5 geteilt und zur Sicherheit nochma \"modulo 72\" gerechnet, damit auch ein gescheiter Frame draus wird. Du erinnerst dich? Wir haben oben ein Bild mit 73 (360/5 und Frame 0) Frames.
	CurDegree = (CurDegree / 5)Mod 72

	;Debug Anzeige:
	Text 1,1,\"Momentaner Winkel: \" + Str(CurDegree*5)
	Text 1,20,\"Momentaner Frame (Winkel/5): \" + Str(CurDegree)
	;Zeichnen des Images
	DrawImage TempImage,PlayerX-13,PlayerY-13,CurDegree
	;und ein kleiner Mauscursor
	Plot mX,mY
	Flip
Wend

Graphics 640,480,0,2
SetBuffer BackBuffer()

While Not KeyDown(1)
 Cls
 Color 255,0,0
 Oval 320-50,240-50,100,100,0
 Line 320,240,MouseX(),MouseY()
 Color 255,255,255
 Winkel = (450-ATan2(MouseX()-320,MouseY()-240)) Mod 360
 Line 320,240,320+Cos(Winkel)*20,240+Sin(Winkel)*20
 Text 1,1,Winkel
 Flip
Wend
End