blurred entity

Dim a(10, 10)
Dim b(10, 10)
Dim Cells(101)

Global cell                 ; main graphic model/mesh
Global cam                  ; the camera
Global Texture              ; texture for the main graphic
Global SWidth = 1024
Global SHeight = 768

; so far the main functions in the game
StartUp
LoadGraphics
Game

end

Function StartUp()
	
	Graphics3d 1024, 768, 32
	SetBuffer backbuffer()
	cam = createcamera()
	light = createlight()

End Function

Function LoadGraphics()
	
	cell = LoadMesh("C:\Documents and Settings\HP_Administrator\My Documents\workspace\life\media\cell.b3d")
	Texture = LoadTexture("C:\Documents and Settings\HP_Administrator\My Documents\workspace\life\media\marble3_bw.tga")
	HideEntity cell
	URF() 
End Function

Function Game()

	; copy the mesh that we loaded in LoadGraphics into the Cells array so
	; that we can have 100 copies of the same mesh
	
	For x = 1 to 100
		Cells(x) = CopyEntity(cell)
	Next
	;HideEntity cell
	;URF()	
	
	PositionEntity cam, 0, 0, -20
	
	; this is a test function to display the meshes in a grid 10 x 10
	For x = 1 to 10
		For y = 1 to 10 
			f = ((10 * (x - 1)) + y)  ;  convert x,y 1 - 11 to array 1 - 100
			PlaceMesh(Cells(f), x, y)
			URF()
				
			Debugcon("f = " + str(f), "x = " + str(x), "y = " + str(y))
			Flip
			WaitKey()
		Next
	Next
	
	WaitKey()
	
End Function

Function URF()
	
	UpdateWorld
	RenderWorld
	
End Function

Function Evaluate()
	Dim a(10, 10)
	Dim b(10, 10)
	For x = 2 to 9
		For y = 0 to 9
			c = 0
			if a(x - 1,y - 1) = 1 then c = c + 1
			if a(x - 1, y) = 1 then c = c + 1
			if a(x - 1, y + 1)= 1 then c = c + 1
			if a(x, y - 1) = 1 then c = c + 1
			if a(x, y + 1) = 1 then c = c + 1
			if a(x + 1, y - 1) = 1 then c = c + 1
			if a(x + 1, y) = 1 then c = c + 1
			if a(x + 1, y + 1) = 1 then c = c + 1
			if a(x, y) = 1 and (c <> 3 and c <> 2) then b(x, y) = 0
			if a(x, y) = 0 and c = 3 then b(x, y) = 1
		Next 
	Next  
End Function

Function PlaceMesh(mesh, x, y)
	 PositionEntity mesh, (x * 3) - 20, 11 - (y * 2), 0
End Function

Function Debugcon(Msg1$, Msg2$ = "empty", Msg3$ = "empty too")
	viewport 800, 500, 200, 200
	ClsColor 0, 0, 255
	Cls
	Text 800, 500, Msg1$
	Text 800, 530, Msg2$
	Text 800, 560, Msg3$
	viewport 0, 0, SWidth, SHeight	 
End Function