Function DrawBezier:Int(line:String)
		'd="m 41.416254,139.18428 c 0,0 16.667517,-74.246211 80.812206,-2.0203"
		'd= is the required opener
		'm is the "move to" command. it explains the starting point.
		'c is the "cubic" modifier. It tells us, that 3 vectors are inside the package.
		
		line = line.Trim()
		line = line.ToLower()
		line = line.Replace("~q", " ")
		line = line.Replace("~t", " ")
		Local tmpLen:Int = line.Length()
		
		line = line.Replace("  ", " ")
		While (tmpLen <> line.Length())
			tmpLen = line.Length()
			
			line = line.Replace("  ", " ")
		Wend
		
		
		Local parts:String[] = line.Split(" ")
		
		Local p0:Vec2
		Local p1:Vec2
		Local p2:Vec2
		Local p3:Vec2
		
		Local beziers:List<Vec2> = New List<Vec2>
		
		Print("ANFANG")
		For Local i:Int = 0 Until parts.Length()
			Select parts[i]
				Case "d="
					'opener
				Case "m"
					'median point
					Local tmp:String[] = parts[i + 1].Split(",")
					
					p0 = Vec2.Create(Float(tmp[0]), Float(tmp[1]))
					beziers.AddLast(p0)
					Print("V0: "+parts[i+1])
					i = i + 1
				Case "c"
					'cubic modifier
					'3 following vectors
					
					
					For Local a:Int = i + 1 Until parts.Length() Step 3
						'-> still something to read. 
						'-> No alphanumeric sign in this part? 
						If parts[a].Length() > 0 And  Not IsAlphaNum(parts[a]) Then

							Local v1:String = parts[a + 0]
							Local v2:String = parts[a + 1]
							Local v3:String = parts[a + 2]
							
							Local tmp:String[] = v1.Split(",")
							Print("V1: " + v1)
							p1 = Vec2.Create(Float(tmp[0]), Float(tmp[1]))
							
							tmp = v2.Split(",")
							Print("V2: " + v2)
							p2 = Vec2.Create(Float(tmp[0]), Float(tmp[1]))
							
							tmp = v3.Split(",")
							Print("V3: " + v3)
							p3 = Vec2.Create(Float(tmp[0]), Float(tmp[1]))
							
							i = i + 3
							
							beziers.AddLast(p1)
							beziers.AddLast(p2)
							beziers.AddLast(p3)
							
						Else
							Exit
						EndIf
					Next
				Case "q"
					'Quadratic modifier
					
					'2 following vectors
					Local v1:String = parts[i + 1]
					Local v2:String = parts[i + 2]
					
					Local tmp:String[] = v1.Split(",")
					p2 = Vec2.Create(Float(tmp[0]), Float(tmp[1]))
					
					tmp = v2.Split(",")
					p3 = Vec2.Create(Float(tmp[0]), Float(tmp[1]))
					
					
					p1 = Vec2.Create(0, 0)
					
					i = i + 2
				Default
					If parts[i].Length() > 0 Then Print("UNKNOWN:: " + i + " - len: " + parts[i].Length() + " ~q" + parts[i] + "~q")
			End
		Next
	
		
		If p1 <> Null And p2 <> Null And p3 <> Null And p0 <> Null Then 'At least one full bezier set.
			If beziers.Count() > 3 And (beziers.Count() -1) Mod 3 = 0 Then 'Is the list filled correctly?
				Return DrawBezier(beziers) '-> render the list
			EndIf
			Return DrawBezier(p0, p1.Add(p0), p2.Add(p0), p3.Add(p0)) '-> Render the vectors
		EndIf
	End

Function DrawBezier:Int(beziers:List<Vec2>)
	
		Local p0:Vec2 = beziers.RemoveFirst()
		
		Local p1:Vec2
		Local p2:Vec2
		Local p3:Vec2
		
		For Local px:Vec2 = EachIn beziers
			If Not p1 Then
				p1 = px
			ElseIf Not p2 Then
				p2 = px
			ElseIf Not p3 Then
				p3 = px
				
				DrawBezier(p0, p1.Add(p0), p2.Add(p0), p3.Add(p0))
				p1 = Null
				p2 = Null
				p3 = Null
			EndIf
		Next
	
	End