' DDA (Digital Differential Analyzer - Rasterung von Linien)
While hit = 0
	        ' springe zum nächsten Quadraht, oder in X-Richtung oder in Y-Richtung
	        If sideDistX < sideDistY
	          	sideDistX = sideDistX + deltaDistX
	          	mapX = mapX + stepX
	          	side = 0
	        Else
	          	sideDistY = sideDistY + deltaDistY
	         	mapY = mapY + stepY
	          	side = 1
		End If
				
	        ' Überprüfe ob Strahl eine Mauer getroffen hat
	        If Map[mapX, mapY] > 0 Then hit = 1
Wend
	
			
	' Berechnet die Distanz zur Kamerarichtung (normale distanz verursacht den sog. fisheye effect!)
	If side = 0
	      	perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
	Else
	      	perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
	End If
			
			
			
	' Berechnet die Höhe der Linie um sie auf den Bildschirm zu zeichnen
	 Local lineHeight:Int = Abs(Int(h / perpWallDist))
	
			
	' Berechnet den niedrigsten und höchsten Pixel um den aktuellen Streifen zu füllen
	Local drawStart:Int = -lineHeight / 2 + h / 2
	If drawStart < 0 Then drawStart = 0
	Local drawEnd:Int = lineHeight / 2 + h / 2
	If drawEnd >= h Then drawEnd = h - 1
			
	
	' Berechnet den X-Wert der Mauer
	Local wallX:Float ' wo genau die Mauer vom Strahl getroffen wurde
	If side = 1 
		wallX = rayPosX + ((mapY - rayPosY + (1 - stepY) / 2) / rayDirY) * rayDirX
		wallX = wallX - Floor((wallX))
	Else
		wallX = rayPosY + ((mapX - rayPosX + (1 - stepX) / 2) / rayDirX) * rayDirY
	      	wallX = wallX - Floor((wallX))
	End If
			
			
	' x Koordinate auf der Textur
	Local texX:Int = Int(wallX * Float(texWidth))
	If side = 0 And rayDirX > 0
		texX = texWidth - texX - 1
	End If
	If side = 1 And rayDirY < 0
		texX = texWidth - texX - 1
	End If
			
			
	' Zeichnet die Pixel des Streifens als vertikale Linie
	DrawSubImageRect(Texture[0], x, drawStart, 1, drawEnd-drawStart, texX, 0, 1, texHeight)