Anyone up to a challenge?

BlitzMax Forums/BlitzMax Programming/Anyone up to a challenge?

jalih

(Posted 2010) [#1]

Hi all,

I recently wrote a little raycaster in Hollywood

Number keys 1-7 change the drawing mode in demo.

Problem is: Hollywood is not really very well suited for this kind of stuff and some bloke on a local programming forum just shot my implementation down without even seeing the code! He even hinted that porting code to BlitzMax wouldn't make much of an speed difference!

Since learning BlitzMax is still currently on my todo list, anyone here care to prove him wrong?

Porting from Hollywood to BlitzMax should be quite easy as Hollywood has a basic dialect. Code itself has only a very few lines and is very simple with stuff like basic vector addition and basic trigonometry.

I can post the code if someone is interested.

ima747

(Posted 2010) [#2]

If you're willing to post it go for it, never know what feedback you'll get :0) if it's short enough and I have time I'll take a stab. If it looks like basic there's a good chance a lot of it will just work, thought I've never seen Hollywood before so can't really promise that... porting math heavy code I find isn't usually that hard as math is usually about the same in every language... With a ray caster I would expect your bottleneck to be in the drawing implementation since pixel by pixel drawing on modern hardware is usually tedious to say the least (opengl and directx are made for bigger things than pixels)

_JIM	(Posted 2010) [#3]

I think he can be proved wrong.

However, there might be generic optimizations (algorithm rather than compiler) that can improve speed.

Also, with a bit of luck you can port the more intensive parts to C and include them in your BMax program. If that's not fast enough then swithing to raw opengl might make it a bit faster.

Could be an interesting challenge.

jalih

(Posted 2010) [#4]

Thanks for showing some interest!

Here is the Hollywood code

DrDeath

(Posted 2010) [#5]

Is this based on this example?

jalih

(Posted 2010) [#6]

Yep, that example was the starting point. I 'm gonna send it to Hollywood forums when it's finished as an example for beginners. I kept all the variable names intact, so they can easily follow the original tutorial.

I just added some stuff to guard for zero divides, added simple distance shading and removed some parts that did not seem to affect the end result.

slenkar

(Posted 2010) [#7]

i had a crack at it

Rem
/*
************************************************************
**
** Created by: CodeBench 0.13 (16.02.2010)
**
** Project: Raycaster
**
** File: 
**
** Date: 19-09-2010 19:09:22
**
************************************************************
*/
'
' Simple raycaster in Hollywood. There is some room For improvement in speed.
' For example I'm currently dividing the color RGB value of y-side walls by 2 to
' make them appear darker. Better way off course would be To use two separate textures
' lighter version For x-walls And darker version For y-walls. Distance And intensity
' values For Floor casting could also be pre-calculated And put in To tables.
'
EndRem

Graphics 240,360,0,60

Local img1:TPixmap=LoadPixmap( "pics\redbrick.png")
If img1=Null
RuntimeError "arg"
EndIf
Local img3:TPixmap=LoadPixmap( "pics\greystone.png")
Local img2:TPixmap=LoadPixmap(  "pics\mossy.png")

Const MAPWIDHT# = 24
Const MAPHEIGHT# = 24

Const ROTSPEED# = 0.10
Const MOVESPEED# = 0.25

Const TW#= 63
Const TH# = 63

Const DISTFACTOR# = 1/24

Global map[][24]
map[0]  = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
map[1]  = [1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
map[2]  = [1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
map[3]  = [1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
map[4]  = [1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,0,0,1]
map[5]  = [1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,1]
map[6]  = [1,0,0,0,0,0,1,0,0,0,1,1,1,1,1,1,0,0,0,3,1,0,0,1]
map[7]  = [1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1]
map[8]  = [1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,1,1,0,1,0,0,1]
map[9]  = [1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,1]
map[10] = [1,0,0,0,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,1,1,0,1]
map[11] = [1,0,0,0,0,0,0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,0,0,1]
map[12] = [1,0,0,0,0,0,0,0,0,1,0,1,1,0,1,0,0,0,0,0,0,0,0,1]
map[13] = [1,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,1]
map[14] = [1,0,0,0,0,0,0,0,0,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1]
map[15] = [1,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1]
map[16] = [1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
map[17] = [1,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,1,1,1,0,0,0,0,1]
map[18] = [1,0,0,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,0,0,0,0,1]
map[19] = [1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1]
map[20] = [1,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1]
map[21] = [1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1]
map[22] = [1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,0,0,0,0,0,0,1]
map[23] = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]



Global w=359 
Global h = 239

Global mode = 1

Global posX = 22
Global posY = 22

Global dirX = -1
Global dirY = 0

Global planeX = 0
Global planeY = 0.66

Global optionkeydown = False
Global walltexture:Double[TW,TH]
Global floortexture:Int[TW,TH]
Global ceilingtexture[TW,TH]

Rem
p_InitTexture()
' Textures from brushes To tables
Function p_InitTexture()


	
	For Local x = 0 To TW
		For Local y = 0 To TH
			walltexture[x,y] = ReadPixel(img1,x, y)
		Next
	Next
	
	

	
	For  x = 0 To TW 
		For  y = 0 To TH
			floortexture[x,y] = ReadPixel(img2,x, y)
		Next
	Next
	
	
	

	
	For  x = 0 To TW
		For  y = 0 To TH
			ceilingtexture[x,y] = ReadPixel(img3,x, y)
		Next
	Next
	
	
	
	
	
EndFunction
EndRem



' Filled walls And filled Floor And ceiling.
Function p_CastRays1()

	'SetFillStyle(#FILLCOLOR)
	SetColor	(255,255,0)
	DrawRect(0, 0, GraphicsWidth() + 1, (GraphicsHeight() + 1)/2)
	SetColor(0,255,255)
	DrawRect((GraphicsHeight() + 1)/2,0, GraphicsWidth() + 1, (GraphicsHeight() + 1))

	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		DebugLog camerax+"camerax"
		
		Local rayPosX = posX
		Local rayPosY = PosY
		
		DebugLog diry+"diry"
		
		DebugLog PlaneY+"planey"
		
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
		
		DebugLog raydiry+" raydiry"
		
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side


	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible	

		
		Local lineHeight = Abs(Int(h / perpWallDist))
			
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		If drawStart < 0 Then drawStart = 0
		Local drawEnd = lineHeight * 0.5 + h * 0.5
		If drawEnd > h Then drawEnd = h
		
		SetColor(100,100,100)
			
		DrawLine(x, drawStart, x, drawEnd)
						
	Next
	
EndFunction



' Filled distance shaded walls, filled Floor And ceiling.
Function p_CastRays2()

		
	SetColor	(255,255,0)
	DrawRect(0, 0, GraphicsWidth() + 1, (GraphicsHeight() + 1)/2)
	SetColor(0,255,255)
	DrawRect((GraphicsHeight() + 1)/2,0, GraphicsWidth() + 1, (GraphicsHeight() + 1))


	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		Local rayPosX = posX
		Local rayPosY = PosY
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
	
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side


	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible	
		Local intensity = DISTFACTOR * (24 - perpWallDist)
		
		Local lineHeight = Abs(Int(h / perpWallDist))
			
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		If drawStart < 0 Then drawStart = 0
		Local drawEnd = lineHeight * 0.5 + h * 0.5
		If drawEnd > h Then drawEnd = h
		SetColor 100*intensity,100*intensity,100*intensity
		'changecolor(color,intensity)
					
		DrawLine(x, drawStart, x, drawEnd)
						
	Next
	
EndFunction




' Filled walls, Floor And ceiling. All distance shaded.
Function p_CastRays3()

	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		Local rayPosX = posX
		Local rayPosY = PosY
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
	
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side
	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible	
		Local intensity = DISTFACTOR * (24 - perpWallDist)
		
		Local lineHeight = Abs(Int(h / perpWallDist))
			
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		If drawStart < 0 Then drawStart = 0
		Local drawEnd = lineHeight * 0.5 + h * 0.5
		If drawEnd > h Then drawEnd = h
		
		
		Local R = Int(100 * intensity)
		Local G = Int(100 * intensity)
		Local B = Int(100 * intensity)			
		SetColor (R,G,B)
					
		DrawLine(x, drawStart, x, drawEnd)
		
		
		
		' Floor casting	
		Local floorXWall
		Local FloorYWall

		If side = 0 And rayDirX > 0
		floorXWall = mapX
		floorYWall = mapY + wallX
		
		ElseIf side = 0 And rayDirX < 0
			floorXWall = mapX + 1.0
			floorYWall = mapY + wallX
		
		ElseIf side = 1 And rayDirY > 0
			floorXWall = mapX + wallX
			floorYWall = mapY
		
		Else
			floorXWall = mapX + wallX
			floorYWall = mapY + 1.0
		EndIf
	
	
		If drawEnd < 0 Then drawEnd = h
		
	
		For y = drawEnd + 1 To h + 1
	
			Local currentDist = h / (2.0 * y - h + 1)
					
			intensity = 1/currentDist					
										
			
		changecolor(color,intensity)
					
		changecolor(color,intensity)
		
			Plot(x, y) ' Floor
			Plot(x, h-y) ' Ceiling (symmetrical)
	
		Next		

														
	Next
		
EndFunction




' Textured walls, filled Floor And ceiling.
Function p_CastRays4()

		SetColor	(255,255,0)
	DrawRect(0, 0, GraphicsWidth() + 1, (GraphicsHeight() + 1)/2)
	SetColor(0,255,255)
	DrawRect((GraphicsHeight() + 1)/2,0, GraphicsWidth() + 1, (GraphicsHeight() + 1))


	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		Local rayPosX = posX
		Local rayPosY = PosY
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
	
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side


	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible	

		
		Local lineHeight = Abs(Int(h / perpWallDist))
		
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		Local texYScale = TH / lineHeight
		
		If drawStart < 0 
			texY = -drawStart * texYScale
			drawStart = 0
		Else
			texY = 0		
		EndIf
		
		Local drawEnd = lineHeight * 0.5 + h * 0.5
	
		If drawEnd > h Then drawEnd = h
	
		Local wallX
	
		If side  = 1
			wallX = rayPosX + ((mapY - rayPosY + (1 - stepY) * 0.5) / rayDirY) * rayDirX	
		Else
			wallX = rayPosY + ((mapX - rayPosX + (1 - stepX) * 0.5) / rayDirX) * rayDirY
		EndIf
		
		wallX = wallX - Floor(wallX)
		Local texX = Int(wallX * TW)
							
		For Local y = drawStart To drawEnd
			
			If side = 0
				Plot(x,y)
			Else
				Plot(x, y)
			EndIf
			
			texY = texY + texYScale
			
		Next
						
	Next
	
EndFunction



' Textured distance shaded walls. Filled Floor And ceiling.
Function p_CastRays5()

		SetColor	(255,255,0)
	DrawRect(0, 0, GraphicsWidth() + 1, (GraphicsHeight() + 1)/2)
	SetColor(0,255,255)
	DrawRect((GraphicsHeight() + 1)/2,0, GraphicsWidth() + 1, (GraphicsHeight() + 1))


	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		Local rayPosX = posX
		Local rayPosY = PosY
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
	
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side


	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible	
		Local intensity = DISTFACTOR * (24 - perpWallDist)
		
		Local lineHeight = Abs(Int(h / perpWallDist))
		
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		Local texYScale = TH / lineHeight
		
		If drawStart < 0 
			texY = -drawStart * texYScale
			drawStart = 0
		Else
			texY = 0		
		EndIf
		
		Local drawEnd = lineHeight * 0.5 + h * 0.5
	
		If drawEnd > h Then drawEnd = h
	
		Local wallX
	
		If side  = 1
			wallX = rayPosX + ((mapY - rayPosY + (1 - stepY) * 0.5) / rayDirY) * rayDirX	
		Else
			wallX = rayPosY + ((mapX - rayPosX + (1 - stepX) * 0.5) / rayDirX) * rayDirY
		EndIf
		
		wallX = wallX - Floor(wallX)
		Local texX = Int(wallX * TW)
								
		For Local y = drawStart To drawEnd
			Local r:Int
			Local g:Int
			Local b:Int
			GetColor(r, g, b)

			Local color = walltexture[texX,Int(texY)]
		changecolor(color,intensity)
													
			If side = 0
				Plot(x, y)
			Else
				Plot(x, y)
			EndIf
			
			texY = texY + texYScale
			
		Next
						
	Next
	
EndFunction



' Textured walls, Floor And ceiling.
Function p_CastRays6()

	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		Local rayPosX = posX
		Local rayPosY = PosY
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
	
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side

	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible	

		
		Local lineHeight = Abs(Int(h / perpWallDist))
		
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		Local texYScale = TH / lineHeight
		
		If drawStart < 0 
			texY = -drawStart * texYScale
			drawStart = 0
		Else
			texY = 0		
		EndIf
		
		Local drawEnd = lineHeight * 0.5 + h * 0.5
	
		If drawEnd > h Then drawEnd = h
	
		Local wallX
	
		If side  = 1
			wallX = rayPosX + ((mapY - rayPosY + (1 - stepY) * 0.5) / rayDirY) * rayDirX	
		Else
			wallX = rayPosY + ((mapX - rayPosX + (1 - stepX) * 0.5) / rayDirX) * rayDirY
		EndIf
		
		wallX = wallX - Floor(wallX)
		Local texX = Int(wallX * TW)
								
		For Local y = drawStart To drawEnd
			
			'Local color = walltexture[texX][Int(texY)]
						
			If side = 0
				Plot(x, y)
			Else
				Plot(x, y)
			EndIf
			
			texY = texY + texYScale
			
		Next


		' Floor casting	
		Local floorXWall
		Local FloorYWall

		If side = 0 And rayDirX > 0
			floorXWall = mapX
			floorYWall = mapY + wallX
		
		ElseIf side = 0 And rayDirX < 0
			floorXWall = mapX + 1.0
			floorYWall = mapY + wallX
		
		ElseIf side = 1 And rayDirY > 0
			floorXWall = mapX + wallX
			floorYWall = mapY
		
		Else
			floorXWall = mapX + wallX
			floorYWall = mapY + 1.0
		EndIf
	
		Local distWall = perpWallDist

	
		If drawEnd < 0 Then drawEnd = h
			
		For y = drawEnd + 1 To h + 1
	
			Local currentDist = h / (2.0 * y - h + 1)
										
			Local weight = currentDist / distWall
							
			Local currentFloorX = weight * floorXWall + (1.0 - weight) * posX
			Local currentFloorY = weight * floorYWall + (1.0 - weight) * posY
	
			Local floorTexX = Int(currentFloorX * TW) Mod TW
			Local floorTexY = Int(currentFloorY * TH) Mod TH
				
			Local fcolor = floortexture[floorTexX,floorTexY]
			changecolor(fcolor,intensity)
			Plot(x, y) ' Floor
			
			Local ccolor = ceilingtexture[floorTexX,floorTexY]
			
			changecolor(ccolor,intensity)
			
			Plot(x, h - y) ' Ceiling (symmetrical)
	
		Next

						
	Next
	
EndFunction


' Textured walls, Floor And ceiling. All distance shaded.
Function p_CastRays7()

	For Local x = 0 To w 

		Local cameraX = 2 * x / w - 1
		Local rayPosX = posX
		Local rayPosY = PosY
		Local rayDirX = dirX + planeX * cameraX
		Local rayDirY = dirY + planeY * cameraX
	
		Local mapX = Int(rayPosX)
		Local mapY = Int(rayPosY)
	
		Local deltaDistX = Sqr(1 + (rayDirY * rayDirY) / (rayDirX * rayDirX))
		Local deltaDistY = Sqr(1 + (rayDirX * rayDirX) / (rayDirY * rayDirY))
	
		Local hit = 0
		Local stepX
		Local stepY
		Local sideDistX
		Local sideDistY
		Local side

	
		If rayDirX < 0
			stepX = -1
			sideDistX = (rayPosX - mapX) *  deltaDistX
		Else
			stepX = 1
			sideDistX = (mapX + 1.0 - rayPosX) * deltaDistX
		EndIf
	
		If rayDirY < 0
			stepY = -1
			sideDistY = (rayPosY - mapY) * deltaDistY
		Else
			stepY = 1
			sideDistY = (mapY + 1.0 - rayPosY) * deltaDistY
		EndIf
	
		While hit = 0
	
			If sideDistX < sideDistY
				sideDistX = sideDistX + deltaDistX
				mapX = mapX + stepX
				side = 0
			Else
				sideDistY = sideDistY + deltaDistY
				mapY = mapY + stepY
				side = 1
			EndIf
		
			If map[mapX][mapY] > 0 Then hit = 1
	
		Wend

		Local perpWallDist

		If side = 0
			perpWallDist = Abs((mapX - rayPosX + (1 - stepX) / 2) / rayDirX)
		Else
			perpWallDist = Abs((mapY - rayPosY + (1 - stepY) / 2) / rayDirY)
		EndIf
	
		If perpWallDist = 0 Then perpWallDist = 1 ' Make sure no divide by zero is possible
		Local intensity = DISTFACTOR * (24 - perpWallDist)	

		
		Local lineHeight = Abs(Int(h / perpWallDist))
		
		Local drawStart = -lineHeight * 0.5 + h * 0.5
		Local texYScale = TH / lineHeight
		
		If drawStart < 0 
			texY = -drawStart * texYScale
			drawStart = 0
		Else
			texY = 0		
		EndIf
		
		Local drawEnd = lineHeight * 0.5 + h * 0.5
	
		If drawEnd > h Then drawEnd = h
	
		Local wallX
	
		If side  = 1
			wallX = rayPosX + ((mapY - rayPosY + (1 - stepY) * 0.5) / rayDirY) * rayDirX	
		Else
			wallX = rayPosY + ((mapX - rayPosX + (1 - stepX) * 0.5) / rayDirX) * rayDirY
		EndIf
		
		wallX = wallX - Floor(wallX)
		Local texX = Int(wallX * TW)
								
		For Local y = drawStart To drawEnd
			
			Local color = walltexture[texX,Int(texY)]
		changecolor(color,intensity)
							
			If side = 0
				Plot(x, y)
			Else
				Plot(x, y)
			EndIf
			
			texY = texY + texYScale
			
		Next


		' Floor casting	
		Local floorXWall
		Local FloorYWall

		If side = 0 And rayDirX > 0
			floorXWall = mapX
			floorYWall = mapY + wallX
		
		ElseIf side = 0 And rayDirX < 0
			floorXWall = mapX + 1.0
			floorYWall = mapY + wallX
		
		ElseIf side = 1 And rayDirY > 0
			floorXWall = mapX + wallX
			floorYWall = mapY
		
		Else
			floorXWall = mapX + wallX
			floorYWall = mapY + 1.0
		EndIf
	
		Local distWall = perpWallDist
	
		If drawEnd < 0 Then drawEnd = h
			
		For y = drawEnd + 1 To h + 1
	
			Local currentDist = h / (2.0 * y - h + 1)
			intensity = 1/currentDist
										
			Local weight = currentDist / distWall
							
			Local currentFloorX = weight * floorXWall + (1.0 - weight) * posX
			Local currentFloorY = weight * floorYWall + (1.0 - weight) * posY
	
			Local floorTexX = Int(currentFloorX * TW) Mod TW
			Local floorTexY = Int(currentFloorY * TH) Mod TH
				
			Local fcolor = floortexture[floorTexX,floorTexY]
			changecolor(fcolor,intensity)
			Plot(x, y) ' Floor
			
			Local ccolor = ceilingtexture[floorTexX,floorTexY]
			changecolor(ccolor,intensity)
			
			Plot(x, h- y) ' Ceiling (symmetrical)
	
		Next

						
	Next
	
EndFunction






Function p_MainLoop()
	Local oldDirX
	Local oldDirY
	Local oldPlaneX
	
	
	If KeyDown(KEY_1)
		If optionkeydown = False
			mode = 1
			optionkeydown = True
		EndIf
	ElseIf KeyDown(KEY_2)
		If optionkeydown = False
			mode = 2
			optionkeydown = True
		EndIf
	ElseIf KeyDown(KEY_3)
		If optionkeydown = False
			mode = 3
			optionkeydown = True
		EndIf
	ElseIf KeyDown(KEY_4)
		If optionkeydown = False
			mode = 4
			optionkeydown = True
		EndIf
	ElseIf KeyDown(KEY_5)
		If optionkeydown = False
			mode = 5
			optionkeydown = True
		EndIf
	ElseIf KeyDown(KEY_6)
		If optionkeydown = False
			mode = 6
			optionkeydown = True
		EndIf
	ElseIf KeyDown(KEY_7)
		If optionkeydown = False
			mode = 7
			optionkeydown = True
		EndIf						
	Else
		optionkeydown = False						
	EndIf	

	If KeyDown(KEY_LEFT)			
		If KeyDown(KEY_LALT)
			oldDirX = dirX
			oldDirY = dirY
			
			dirX = dirX * Cos(Rad(90)) - dirY * Sin(Rad(90))
			dirY = oldDirX * Sin(Rad(90)) + dirY * Cos(Rad(90))
		
			If map[Int(posX + dirX * MOVESPEED)][Int(posY)] = 0 Then posX = posX + dirX * MOVESPEED
			If map[Int(posX)][Int(posY + dirY * MOVESPEED)] = 0 Then posY = posY + dirY * MOVESPEED

			dirX = oldDirX
			dirY = oldDirY
			
		Else
			oldDirX = dirX				
			dirX = dirX * Cos(ROTSPEED) - dirY * Sin(ROTSPEED)
			dirY = oldDirX * Sin(ROTSPEED) + dirY * Cos(ROTSPEED)
		
			oldPlaneX = planeX
			planeX = planeX * Cos(ROTSPEED) - planeY * Sin(ROTSPEED)'
			planeY = oldPlaneX * Sin(ROTSPEED) + planeY * Cos(ROTSPEED)
		EndIf
			
	ElseIf KeyDown(KEY_RIGHT)	
		If KeyDown(KEY_LALT)
			oldDirX = dirX
			oldDirY = dirY
		
			dirX = dirX * Cos(Rad(-90)) - dirY * Sin(Rad(-90))
			dirY = oldDirX * Sin(Rad(-90)) + dirY * Cos(Rad(-90))
		
			If map[Int(posX + dirX * MOVESPEED)][Int(posY)] = 0 Then posX = posX + dirX * MOVESPEED
			If map[Int(posX)][Int(posY + dirY * MOVESPEED)] = 0 Then posY = posY + dirY * MOVESPEED

			dirX = oldDirX
			dirY = oldDirY
					
		Else
			oldDirX = dirX				
			dirX = dirX * Cos(-ROTSPEED) - dirY * Sin(-ROTSPEED)
			dirY = oldDirX * Sin(-ROTSPEED) + dirY * Cos(-ROTSPEED)
		
			oldPlaneX = planeX
			planeX = planeX * Cos(-ROTSPEED) - planeY * Sin(-ROTSPEED)
			planeY = oldPlaneX * Sin(-ROTSPEED) + planeY * Cos(-ROTSPEED)
		EndIf
		
	EndIf
	
	If KeyDown(KEY_UP)
		If map[Int(posX + dirX * MOVESPEED)][Int(posY)] = 0 Then posX = posX + dirX * MOVESPEED
		If map[Int(posX)][Int(posY + dirY * MOVESPEED)] = 0 Then posY = posY + dirY * MOVESPEED
		
	ElseIf KeyDown(KEY_DOWN)
		If map[Int(posX - dirX * MOVESPEED)][Int(posY)] = 0 Then posX = posX - dirX * MOVESPEED
		If map[Int(posX)][Int(posY - dirY * MOVESPEED)] = 0 Then posY = posY - dirY * MOVESPEED
		
	EndIf
	


	Select mode
		Case 1
			p_CastRays1()
		Case 2
			p_CastRays2()
		Case 3
			p_CastRays3()
		Case 4
			p_CastRays4()
		Case 5
			p_CastRays5()	 
		p_CastRays5()
		Case 6
			p_CastRays6()
		Case 7
			p_CastRays7()
		Default
			p_CastRays1()
	EndSelect
	
	Flip
	
EndFunction




Graphics 800,600

Repeat
 p_MainLoop()
Until KeyHit(KEY_ESCAPE)

Function changeColor(color:Int,intensity=1)
	SetColor ((color Shr 16) & $ff)*intensity,((color Shr 8)& $ff)*intensity,(color & $ff)*intensity
End Function
	
	Function rad(num:Int)
	Return num
	EndFunction

couldnt work out how to read the pixels into an array because int and double both return error messages,
also i get a divide by zero error with raydiry

Jesse

(Posted 2010) [#8]

first time I hear of that CL.

I would try it but that CL don't seem to have proper declaration of variables. I can't tell if the variables are supposed to be integers or floats. I don't know if there is such a thing as "superStrict" for that language. you really need it. I noticed that there are variables being used in a function as part of a calculation and had not been previously declared while others you declared as local at the beginning of the function. That way of programming makes it hard for others to understand or even attempt to understand and translate.
One of the thing I like most about BMax is it's ability to force programmers into a disciplined way of programming.

Anyway, that was just my opinion. I am sure someone has experience in "Hollywood" and BMax and can figure it out with no problems.

jalih

(Posted 2010) [#9]

Some info about Hollywood language:

Hollywood only has one 64-bit data type for numbers. It can be used to store signed integers or real numbers.

Variables can be declared anywhere in the code. If you assign a value to a variable for the first time, then this variable will become global if you did not explicitly tell Hollywood that it shall be local by using the Local keyword.

If there is a local variable that has the same name as the global variable, then Hollywood will always use this local variable first.

Local variables are faster and can be easily collected by garbage collector, when they are not needed anymore. Globals must be explicitly set to Nil.

matibee

(Posted 2010) [#10]

With a ray caster I would expect your bottleneck to be in the drawing implementation since pixel by pixel drawing on modern hardware is usually tedious to say the least (opengl and directx are made for bigger things than pixels)

We found a solution a while back...
http://www.blitzbasic.com/Community/posts.php?topic=89478#1016434

:)

jalih

(Posted 2010) [#11]

Thanks! that does the trick!

I will modify it a bit, add distant shading, floor casting, sprites and what ever else comes to mind...