Print NewAngle(225)
WaitKey
End

Function NewAngle#(OldAngle#)
	If ((OldAngle >= 315) Or (OldAngle < 45)) Then
		; Berührt Hindernis von links
		If (OldAngle >= 315) Then
			; Kommt von schräg unten
			Return (180 + 360 - OldAngle)
		Else
			; Kommt von schräg oben
			Return (180 - OldAngle)
		EndIf
	ElseIf ( ( OldAngle >= 135) And ( OldAngle < 225 ) ) Then
		; Berührt Hindernis von rechts
		If (OldAngle >= 180) Then
			; Kommt von schräg unten
			Return (360 - (OldAngle - 180))
		Else
			; Kommt von schräg oben
			Return (180 - OldAngle)
		EndIf
	ElseIf ( ( OldAngle >= 225) And ( OldAngle <= 315 ) ) Then
		; Berührt Hindernis von oben
		If (OldAngle > 270) Then
			; Kommt von schräg links
			Return (90 - (OldAngle - 270))
		Else
			; Kommt von schräg rechts
			Return (90 + (270 - OldAngle))
		EndIf
	ElseIf ( ( OldAngle >= 45 ) And ( OldAngle <= 135 ) ) Then
		; Berührt Hindernis von unten
		If (OldAngle >= 90) Then
			; Kommt von schräg rechts
			Return (270 - (OldAngle - 90))
		Else
			; Kommt von schräg links
			Return (270 + (90 - OldAngle))
		EndIf		
	EndIf
End Function