Cls
Graphics 800, 600, 0, 2
SetBuffer BackBuffer()
Zeiter = CreateTimer(50) ;Timer initiallisieren
Include "NooNooPhysics.bb"
NNP_CreatePhysics 512, 1024, 1024 ;Physik initialisieren
NNP_SetGravity 0, 0 ;Gravitation setzen
Strecke.TEntity = NNP_CreateEntity( 1 ) 

Global genauigkeit = 2 ;wie viele Pixel die MAus von der Vertice oder einem anderen Punkt entfernt sein muss
Global Modus = 1		; Edit Modus 1 => Vertex Zeichnen usw...
Global abstand 			;klein Variable um den mit Sqr berechneten Abstand kurz aufzubewahren.

Type ob					;Mein Type für alles
	
End Type 


Repeat
	Cls 
	Color 255,255,255
	Text 20,20,"1 => Vertex Zeichnen"
	Text 20,40,"2 => Edge   Zeichnen"
	Text 20,60,""
	Text 20,80,"4 => Vertex Loeschen"
	Text 20,100,""
	Text 20,140,"Derzeit Modus " + Modus
	
	
	Maustaste=0
	
	If MouseHit(1)
		Maustaste=1
	EndIf 
	If MouseHit(2)
		Maustaste=2
	EndIf 
	If MouseHit(3)
		Maustaste=3
	EndIf
	
	If KeyHit(2)
		Modus = 1
	EndIf 
	
	If KeyHit(3)
		Modus = 2
	EndIf 
	
	If KeyHit(4)
		Modus = 3
	EndIf 
	
	If KeyHit(5)
		Modus = 4
	EndIf 
		
	
	
	If Modus = 1
		If Maustaste=1
			ob.TVertex = NNP_CreateVertex( Strecke, MouseX(), MouseY() ) ;Vertex erzeugen
	EndIf
EndIf 

If Modus = 4
	If Maustaste=1
		
		NNP_DeleteVertex( ob.TVertex)
	EndIf 
EndIf 

	
	For ob.TVertex = Each TVertex
		abstand = Sqr((MouseX()-ob.TVertex\X#)^2+(MouseY()-ob.TVertex\Y#)^2)  	
		
		
		If abstand < genauigkeit
				Color 255,0,0
				Oval ob.TVertex\X#-3,ob.TVertex\Y#-3,6,6,1
				Color 255,255,255
			EndIf
			
			If Modus = 4 And Maustaste=1
				If  abstand < genauigkeit
					
					NNP_DeleteVertex( ob.TVertex) 
					
				EndIf 
			EndIf 
			
	Next
	
	
	
		
		NNP_UpdateForces  ;Kräfte berechnen
		NNP_UpdatePhysics ;Physik berechnen lassen
		NNP_DebugRender DEBUG_EDGES + DEBUG_VERTICES ;Zeichnen
	
	Flip
	WaitTimer (Zeiter)
Until KeyDown (1)