Code archives/Graphics/Mode7 & live 2d tiles

Global buffer:Int[256*256] ; Local img2:TPixmap=LoadPixmap(LoadBank("http::www.foxhack.net/files/blog/2008/01-09-charadata.png"))  ' Load a 256x256 Atlas with 8x8 tiles
For yy=0 To 255 ; For xx=0 To 255 ; buffer(xx+yy*256) = ReadPixel(img2,xx,yy) ; Next ; Next
Global map[4096,4096] , wx:Int , wy:Int , cx:Int , c:Int = buffer[0] , s:Int = 2 , xres:Int = 1024 , yres:Int = 768 , pixels:Int[xres*yres]
Local a:Float = 0 , x:Float = 0 , y:Float = 0 , dx:Float = 0 , dy:Float = 0 , speed:Float = 0
Global space_z:Float = 50 , horizon:Int = 20, scale:Float = 1000 , obj_scale:Float = 50 , pmap:Int[1024*1024] 

' Fill world with atlas 1:1 side by side
For worldy=0 To 4095 Step 32 ; For worldx=0 To 4095 Step 32 ; For temp2=0 To 31 ; For temp=0 To 31 ;	map(temp+worldx,temp2+worldy)=temp+temp2*32 ; Next ; Next ; Next ; Next
GLGraphics xres,yres,0,60,GRAPHICS_BACKBUFFER | GRAPHICS_DEPTHBUFFER ; glViewport 0,0,xres,yres
glMatrixMode GL_PROJECTION ; glLoadIdentity ; glOrtho 0,xres,yres,0,0,1 ; glPixelZoom 1,-1 ; glRasterPos2i 0,0 

Repeat
	For yy = 0 To 1023 ; For xx = 0 To 1023 ; pmap[yy*1024+xx] = 0 ; Next ; Next
	display wx,wy,0,0,1024,1024
	speed = speed + KeyDown(KEY_UP)*0.1-KeyDown(KEY_DOWN)*0.1 ; speed=Max(-5,Min(5,speed))
	a = a - KeyDown(KEY_LEFT)+KeyDown(KEY_RIGHT) ; a = a Mod 360
	dx = speed * Cos (a) ; dy =  speed * Sin (a) ; x :+ dx ; y :+ dy
	drawplane a,x,y
	alive
	'readinputs ; For yy = 0 To yres ; For xx = 0 To 1023 ; pixels[yy*xres+xx] = pmap[yy*1024+xx]  ; Next ; Next ' Show 2D
	glDrawPixels xres,yres,GL_BGRA,GL_UNSIGNED_BYTE,pixels
	Delay 1 ; Flip 1
Until KeyHit(KEY_ESCAPE) Or AppTerminate()
End

Function readinputs()
	wx=wx-s*KeyDown(KEY_LEFT)+s*KeyDown(KEY_RIGHT) ; wy=wy-s*KeyDown(KEY_UP)+s*KeyDown(KEY_DOWN) ; wx=Max(0,Min(10000,wx)) ; wy=Max(0,Min(10000,wy))
	mx = MouseX() ; my = MouseY() ; xxx = (wx+mx) Sar 3 ; yyy = (wy+my) Sar 3; If MouseDown(1) Then map(xxx,yyy) = 42
End Function

Function alive()
	For temp=1 To 16 ; buffer[Int(Rand(0,15))+Int((Rand(0,15))*128)]=$ffffffff * Int(Rand(0,1)) ; Next
	cx=cx+1 Mod 128 ; For tempy=0 To 15 ; For temp=0 To 15+32 ; buffer[16+temp+((0+tempy)*128)]=buffer[0+temp+cx+(16+tempy)*128] ; Next ; Next
End Function

Function drawplane(a:Float,cx:Float,cy:Float) ' This might need optimzation too but it has not as intens loops so actually it does not need at all as much as display() does.
	Local sx:Int , sy:Int , d:Float , hs:Float , maskx:Int = 1023 , masky:Int = 1023 
	Local dx:Float , dy:Float , spx:Float,spy:Float 
	For sy = 0 Until yres-1 Step 2
		d = space_z*scale / Float(sy + horizon) ; hs = d / scale ; dx = -Sin(a) * hs ; dy = Cos(a) * hs
		spx = cx + d*Cos(a) - Float(xres) / 2 * dx ; spy = cy + d*Sin(a) - Float(xres) / 2 * dy
		For sx = 0 Until xres-1 ; pixels[sx+sy*xres] = pmap[(Int(spx) & maskx) + ( (Int(spy) & masky)*1024)] ; spx :+ dx ; spy :+ dy ; Next
	Next
End Function

Function display(wx,wy,ofx=0,ofy=0,sx=640,sy=400) ' Here's where most optimization is needed (as it is it can't keep up with steady 60 fps on average machines, every teeny fraction of Bmax knowledge should be put in here. Unrolling helps, less conditions helps.
	scrx = wx & 7 ; scry = wy & 7 ; mapx = wx Shr 3 ; mapy = wy Shr 3
	cnty = 0 ; For y = mapy To mapy+(sy Shr 3+1)
	cntx = 0 ; For x = mapx To mapx+(sx Shr 3+1)
	tilex = map(x,y) & 31 ; tiley = map(x,y) Shr 5 ' 32 tiles per line in atlas
	xx = cntx - scrx + ofx ; yy=cnty - scry + ofy
	For ty = 0 To 7 ; For tx = 0 To 7
	If xx+tx >= ofx And yy+ty >= ofy And xx+tx < ofx+sx And yy+ty < ofy+sy ..
 	 Then pmap[xx+tx+(yy+ty)Shl 10] = buffer[tilex Shl 3 + tx + (tiley Shl 3 + ty) Shl 8]
	Next ; Next
	cntx = cntx+8 ; Next
	cnty = cnty+8 ; Next
End Function

superstrict


Global buffer:Int[256*256]
Local img2:TPixmap=LoadPixmap(LoadBank("http::www.foxhack.net/files/blog/2008/01-09-charadata.png"))  ' Load a 256x256 Atlas with 8x8 tiles

local xx:int
local yy:int
For yy = 0 To 255
	For xx = 0 To 255
		buffer[xx+yy*256] = ReadPixel(img2,xx,yy)
	Next
Next

Global map:int[4096,4096];
global wx:Int
global wy:Int
global cx:Int
global c:Int = buffer[0]
global s:Int = 2
global xres:Int = 1024
global yres:Int = 768
global pixels:Int[xres*yres]

Local a:Float = 0
local x:Float = 0
local y:Float = 0
local dx:Float = 0
local dy:Float = 0
local speed:Float = 0

Global space_z:Float = 50
global horizon:Int = 20
global scale:Float = 1000
global obj_scale:Float = 50
global pmap:Int[1024*1024] 


' Fill world with atlas 1:1 side by side
local worldx:int
local worldy:int
local temp2:int
local temp:int
For worldy = 0 To 4095 Step 32
	For worldx = 0 To 4095 Step 32
		For temp2 = 0 To 31
			For temp = 0 To 31
				map[temp+worldx, temp2+worldy] = temp+temp2*32
			Next
		Next
	Next
Next

GLGraphics xres,yres,0,60,GRAPHICS_BACKBUFFER | GRAPHICS_DEPTHBUFFER
glViewport 0,0,xres,yres
glMatrixMode GL_PROJECTION
glLoadIdentity
glOrtho 0,xres,yres,0,0,1
glPixelZoom 1,-1
glRasterPos2i 0,0 

Repeat
  	display wx,wy,0,0,1024,1024
	speed = speed + KeyDown(KEY_UP)*0.1-KeyDown(KEY_DOWN)*0.1
	speed=Max(-5,Min(5,speed))
	a = a - KeyDown(KEY_LEFT)+KeyDown(KEY_RIGHT)
	a = a Mod 360
	dx = speed * Cos (a)
	dy = speed * Sin (a)
	x :+ dx
	y :+ dy
	drawplane a,x,y
	alive
	'readinputs ; For yy = 0 To yres ; For xx = 0 To 1023 ; pixels[yy*xres+xx] = pmap[yy*1024+xx]  ; Next ; Next ' Show 2D
	glDrawPixels xres,yres,GL_BGRA,GL_UNSIGNED_BYTE,pixels
	Delay 1
	Flip 1
Until KeyHit(KEY_ESCAPE) Or AppTerminate()
End






Function readinputs()
	wx=wx-s*KeyDown(KEY_LEFT)+s*KeyDown(KEY_RIGHT)
	wy=wy-s*KeyDown(KEY_UP)+s*KeyDown(KEY_DOWN)
	wx=Max(0,Min(10000,wx))
	wy=Max(0,Min(10000,wy))
	local mx:int = MouseX()
	local my:int = MouseY()
	local xxx:int = (wx+mx) Sar 3
	local yyy:int = (wy+my) Sar 3
	If MouseDown(1) Then map[xxx,yyy] = 42
End Function

Function alive()
	local temp:int
	local tempy:int
	For temp = 1 To 16
		buffer[Int(Rand(0,15))+Int((Rand(0,15))*128)]=$ffffffff * Int(Rand(0,1))
	Next
	
	cx=cx+1 Mod 128
	For tempy = 0 To 15
		For temp = 0 To 15+32
			buffer[16+temp+((0+tempy)*128)] = buffer[0+temp+cx+(16+tempy)*128]
		Next
	Next
End Function

Function drawplane(a:Float,cx:Float,cy:Float) ' This might need optimzation too but it has not as intens loops so actually it does not need at all as much as display() does.
	Local sx:Int
	local sy:Int
	local d:Float
	local hs:Float
	local maskx:Int = 1023
	local masky:Int = 1023 
	Local dx:Float
	local dy:Float
	local spx:Float
	local spy:Float 
	
	For sy = 0 Until yres-1 Step 2
		d = space_z*scale / Float(sy + horizon)
		hs = d / scale
		dx = -Sin(a) * hs
		dy = Cos(a) * hs
		spx = cx + d*Cos(a) - Float(xres) / 2 * dx
		spy = cy + d*Sin(a) - Float(xres) / 2 * dy
		
		For sx = 0 Until xres-1
			pixels[sx+sy*xres] = pmap[(Int(spx) & maskx) + ( (Int(spy) & masky)*1024)]
			spx :+ dx
			spy :+ dy
		Next
	Next
End Function

Function display(wx:int, wy:int, ofx:float = 0, ofy:float = 0, sx:int = 640, sy:int = 400) ' Here's where most optimization is needed (as it is it can't keep up with steady 60 fps on average machines, every teeny fraction of Bmax knowledge should be put in here. Unrolling helps, less conditions helps.
	local scrx:int
	local scry:int
	local mapx:int
	local mapy:int
	scrx = wx & 7
	scry = wy & 7
	mapx = wx Shr 3
	mapy = wy Shr 3
	
	local cnty:int = 0
	local cntx:int
	local ty:int
	local tx:int
	local x:int
	local y:int
	local tilex:int
	local tiley:int
	local xx:int
	local yy:int
	For y = mapy To mapy+(sy Shr 3+1)
		cntx = 0
		For x = mapx To mapx+(sx Shr 3+1)
			tilex = map[x,y] & 31
			tiley = map[x,y] Shr 5 ' 32 tiles per line in atlas
			xx = cntx - scrx + ofx
			yy=cnty - scry + ofy
			For ty = 0 To 7
				For tx = 0 To 7
					if xx+tx >= ofx And yy+ty >= ofy And xx+tx < ofx+sx And yy+ty < ofy+sy Then
						pmap[xx+tx+(yy+ty)Shl 10] = buffer[tilex Shl 3 + tx + (tiley Shl 3 + ty) Shl 8]
					end if
				Next
			Next
			cntx = cntx+8
		Next
		cnty = cnty+8
	Next
End Function

Function display(wx:int, wy:int, ofx:int = 0, ofy:int = 0, sx:int = 640, sy:int = 400) ' Here's where most optimization is needed (as it is it can't keep up with steady 60 fps on average machines, every teeny fraction of Bmax knowledge should be put in here. Unrolling helps, less conditions helps.
	local scrx:int
	local scry:int
	local mapx:int
	local mapy:int
	scrx = wx & 7
	scry = wy & 7
	mapx = wx Shr 3
	mapy = wy Shr 3
	
	local cnty:int = 0
	local cntx:int
	local ty:int
	local tx:int
	local x:int
	local y:int
	local tilex:int
	local tiley:int
	local xx:int
	local yy:int
	
	local mapysy:int = mapy+(sy Shr 3+1)
	local mapxsx:int = mapx+(sx Shr 3+1)
	
	local yyty:int
	local tileyshl:int
	local yytyshl:int
	local tileyty:int
	local xxtx:int
	local ofxsx:int
	local tilexshl:int
	local tilexShltileyty:int
	local xxtxyy:int
	ofxsx = ofx+sx

	For y = mapy To mapysy
		yy = cnty - scry + ofy
		cntx = 0
		For x = mapx To mapxsx
			tilex = map[x,y] & 31
			tiley = map[x,y] Shr 5 ' 32 tiles per line in atlas
			tileyshl = tiley Shl 3
			tilexshl = tilex shl 3
			xx = cntx - scrx + ofx
			
			For ty = 0 To 7
				yyty = yy+ty
				
				if yyty >= ofy And yyty < ofy+sy Then
					yytyshl = yyty Shl 10
					tileyty = (tileyShl + ty) Shl 8
				
					xxtx = xx
					xxtxyy = xxtx + yytyshl 
					if xxtx >= ofx And xxtx < ofxsx Then
						tilexShltileyty = tilexShl + tileyty
						pmap[ xxtxyy ] = buffer[tilexShltileyty]
						xxtx :+ 1
						if xxtx < ofxsx Then
							tilexShltileyty :+ 1
							xxtxyy :+ 1
							pmap[ xxtxyy ] = buffer[tilexShltileyty]
							xxtx :+ 1
							if xxtx < ofxsx Then
								tilexShltileyty :+ 1
								xxtxyy :+ 1
								pmap[ xxtxyy ] = buffer[tilexShltileyty]
								xxtx :+ 1
								if xxtx < ofxsx Then
									tilexShltileyty :+ 1
									xxtxyy :+ 1
									pmap[ xxtxyy ] = buffer[tilexShltileyty]
									xxtx :+ 1
									if xxtx < ofxsx Then
										tilexShltileyty :+ 1
										xxtxyy :+ 1
										pmap[ xxtxyy ] = buffer[tilexShltileyty]
										xxtx :+ 1
										if xxtx < ofxsx Then
											tilexShltileyty :+ 1
											xxtxyy :+ 1
											pmap[ xxtxyy ] = buffer[tilexShltileyty]
											xxtx :+ 1
											if xxtx < ofxsx Then
												tilexShltileyty :+ 1
												xxtxyy :+ 1
												pmap[ xxtxyy ] = buffer[tilexShltileyty]
												xxtx :+ 1
												if xxtx < ofxsx Then
													tilexShltileyty :+ 1
													xxtxyy :+ 1
													pmap[ xxtxyy ] = buffer[tilexShltileyty]
												end if
											end if
										end if
									end if
								end if	
							end if	
						end if
					end if
				
				end if
				
			Next
			
			cntx = cntx+8
			
		Next
		
		cnty = cnty+8
	Next
End Function