Graphics 400,300,32,2
SetBuffer BackBuffer()


X1 = 0
Y1 = 0

X2 = 250
Y2 = 200

X3 = 20
Y3 = 60



Repeat
Cls

	Text 10,10,InTriangle(X1,Y1,X2,Y2,X3,Y3,MouseX(),MouseY())
	
	Line X1,Y1,X2,Y2
	Line X2,Y2,X3,Y3
	Line X3,Y3,X1,Y1

Flip
Until KeyHit(1)
End



;Hauptfunktion die du gesucht hast
;X/Y 1-3 sind die Eckpunkte des Dreiecks, Xs/Ys ist der Punkt der darauf geprüft wird ob er im Dreieck liegt.
Function InTriangle(X1#,Y1#,X2#,Y2#,X3#,Y3#,Xs#,Ys#)
	Local Xa#,Ya#,Xb#,Yb#,Xc#,Yc#
	Local m#,b#
	Local tmpX#,tmpY

	;Erste Prüfung: Liegt Ps überhaupt im Definitionsbereich des Dreiecks?
	If (Xs<X1 And Xs<X2 And Xs<X3) Or (Xs>X1 And Xs>X2 And Xs>X3) Return 0
	If (Ys<Y1 And Ys<Y2 And Ys<Y3) Or (Ys>Y1 And Ys>Y2 And Ys>Y3) Return 0

	;Punkt liegt also im Df...


	If X1<>X2 And X2<>X3;Wenn kein Punkt (1,2,3) ÜBER dem anderen liegt (x-Koordinate)
		If X1<X2 And X1<X2;Welcher liegt am weitesten links?
			Xa = X1
			Ya = Y1
		ElseIf X2<X1 And X2<X3
			Xa = X2
			Ya = Y2
		Else
			Xa = X3
			Ya = Y3
		EndIf
		
		If X1>X2 And X1>X2;Welcher liegt am weitesten rechts?
			Xb = X1
			Yb = Y1
		ElseIf X2>X1 And X2>X3
			Xb = X2
			Yb = Y2
		Else
			Xb = X3
			Yb = Y3
		EndIf
	
		If X1>Xa And X1<Xb;Welcher ist der Mittelpunkt?
			Xc = X1
			Yc = Y1
		ElseIf X2>Xa And X2<Xb
			Xc = X2
			Yc = Y2
		Else
			Xc = X3
			Yc = Y3
		EndIf
	
		;Funktion für die Verbindungsgerade die über die Mitte geht
		m# = (Ya-Yb)/(Xa-Xb)
		b# = -m * Xa + Ya
	
		If Xs>Xc;Wenn der gesuchte Punkt rechts vom Mittelpunkt liegt
			;Neuen Pa Punkt festlegen
			Xa = Xc
			Ya = m * Xa + b
		
			If Ya>Yc
				X1 = Xa
				Y1 = Ya
				X2 = Xc
				Y2 = Yc
			Else
				X1 = Xc
				Y1 = Yc
				X2 = Xa
				Y2 = Ya
			EndIf
			X3 = Xb
			Y3 = Yb
		
		ElseIf Xs<Xc;Wenn der gesuchte Punkt links vom Mittelpunkt liegt
			;Neuen Pb Punkt festlegen
			Xb = Xc
			Yb = m * Xb + b
		
			If Yb>Yc
				X1 = Xb
				Y1 = Yb
				X2 = Xc
				Y2 = Yc
			Else
				X1 = Xc
				Y1 = Yc
				X2 = Xb
				Y2 = Yb
			EndIf
			X3 = Xa
			Y3 = Ya
		EndIf
	Else
		If X1=X2
			Xa = X1
			Ya = Y1
			Xc = X2
			Yc = Y2
			Xb = X3
			Yb = Y3
		Else ;if X1=X3
			Xa = X1
			Ya = Y1
			Xb = X3
			Yb = Y3
			Xb = X2
			Yb = Y2
		EndIf

		If Ya>Yc
			X1 = Xa
			Y1 = Ya
			X2 = Xc
			Y2 = Yc
		Else
			X1 = Xc
			Y1 = Yc
			X2 = Xa
			Y2 = Ya
		EndIf
		X3 = Xb
		Y3 = Yb
	EndIf
	
	;Definitionen der Punkte: Punkt 1 ist der Obere der Mittelpunkte, Punkt 2 ist der untere der Mittelpunkte
	;Punkt 3 ist der außenstehende Punkt.
	
	;Obere Verbindungslinie: Punkt 1 zu Punkt 3
	m# = (Y1-Y3) / (X1-X3)
	b# = -m * X1 + Y1
	;Wenn Ps über dieser ist, ist er nicht im Dreieck
	If Ys> m * Xs + b Return 0
	
	;Untere Verbindungslinie: Punkt 2 zu Punkt 3
	m# = (Y2-Y3) / (X2-X3)
	b# = -m * X2 + Y2
	;Wenn Ps unter dieser ist, ist er nicht im Dreieck
	If Ys< m * Xs + b Return 0
	
	;Ansonsten ist er wohl im Dreieck:
	Return 1
End Function