Sorry your browser is not supported!

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_A            65 
#constant KEY_Z            90
// set window properties
SetWindowTitle( "map" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global objects as integer[]
 
smoothHeightFunction("\media\map.png") 
camerax#=32
cameray#=32
cameraz#=-100
global objnumber

do
    	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.5
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.5
	if GetRawKeyState(KEY_UP) then dec cameray#,.5
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.5
	if GetRawKeyState(KEY_A) then inc cameraz#,.5
	if GetRawKeyState(KEY_Z) then dec cameraz#,.5
	
	
	print(GetCameraX(1))
	print(GetCameraY(1))
	print(GetCameraZ(1))
 
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    //remove()
    Print( ScreenFPS() )
    Sync()
loop

function remove()
for num = 1 to 4096-1	
	SetObjectVisible(objects[num],0)
	sync()
next num
endfunction


function smoothHeightFunction(filename$)
//top left front 0,9,18
//top right front 2,4,11
//top left back 8,14,16
//top right back 6,10,12
vertexLF as integer[2] = [0,9,18]
vertexRF as integer[2] = [2,4,11]
vertexLB as integer[2] = [8,14,16]
vertexRB as integer[2] = [6,10,12]
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)


objnumber=0:lastheight#=0
for z=width-1 to 0 step -1
	for x= depth-1 to 0 step -1

		offset = (12+((z * width) + x) * 4) - 4
		r=GetMemblockByte(imgmemblock,offset)
		g=GetMemblockByte(imgmemblock,offset+1)
		b=GetMemblockByte(imgmemblock,offset+2)
		a=GetMemblockByte(imgmemblock,offset+3)
		objects.insert(CreateObjectBox(2,1,2))
		SetObjectPosition(objects[objnumber],x, 0 ,-z)
		SetObjectColor(objects[objnumber],r,g,b,a)
		height#=(r+g+b)/100
		memID=CreateMemblockFromObjectMesh(objects[objnumber],1)
		if mod(x,2) = 0
			for i = 0 to 2
			    
				SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(memID,vertexRF[i])+lastHeight#,GetMeshMemblockVertexZ(memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(memID,vertexRB[i],GetMeshMemblockVertexX(memID,vertexRB[i]),GetMeshMemblockVertexY(memID,vertexRB[i])+lastHeight#,GetMeshMemblockVertexZ(memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(memID,vertexLF[i],GetMeshMemblockVertexX(memID,vertexLF[i]),GetMeshMemblockVertexY(memID,vertexLF[i])+height#,GetMeshMemblockVertexZ(memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(memID,vertexLB[i],GetMeshMemblockVertexX(memID,vertexLB[i]),GetMeshMemblockVertexY(memID,vertexLB[i])+height#,GetMeshMemblockVertexZ(memID,vertexLB[i]))	
			next i
		else
			for i = 0 to 2
				SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(memID,vertexRF[i])+height#,GetMeshMemblockVertexZ(memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(memID,vertexRB[i],GetMeshMemblockVertexX(memID,vertexRB[i]),GetMeshMemblockVertexY(memID,vertexRB[i])+height#,GetMeshMemblockVertexZ(memID,vertexRB[i]))
				SetMeshMemblockVertexPosition(memID,vertexLF[i],GetMeshMemblockVertexX(memID,vertexLF[i]),GetMeshMemblockVertexY(memID,vertexLF[i])+height#,GetMeshMemblockVertexZ(memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(memID,vertexLB[i],GetMeshMemblockVertexX(memID,vertexLB[i]),GetMeshMemblockVertexY(memID,vertexLB[i])+height#,GetMeshMemblockVertexZ(memID,vertexLB[i]))
			next i
		endif	
		SetObjectMeshFromMemblock(objects[objnumber],1,memID)
		DeleteMemblock(memID)
		inc objnumber:lastheight#=height#
	next x
next z

endfunction	

// Project: heights 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "heights" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

size=2

box=CreateObjectBox(size,size,size)
SetObjectPosition(box,0,0,0)

box2 = CreateObjectBox(size,size,size)
SetObjectPosition(box2,0,size,size)

FixObjectToObject(box2,box)

i=0:MemID=1
do
   
   print("Vertex " + str(i))
    
	RotateObjectLocalY(box,.1)


	if GetRawKeyPressed(32)
		CreateMemblockFromObjectMesh(memID,box2,1)
        SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i),GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i)-size)
   
        SetObjectMeshFromMemblock(box2,1,memID)   
    //endif  
		DeleteMemblock(memID)

		inc i
	endif
	print("Press Space To Move Vertex in the -Z direction")
	print("2 and 4 for the bottom Vertices to meet up with a box on the -Z axis")
	
	
	
    Print( ScreenFPS() )
    Sync()
loop

// Project: heights 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "heights" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

size=2

box=CreateObjectBox(size,size,size)
SetObjectPosition(box,0,0,0)

box2 = CreateObjectBox(size,size,size)
SetObjectPosition(box2,0,size,size)

FixObjectToObject(box2,box)

i=-1:MemID=1
do
   
   print("Vertex " + str(i))
    
	RotateObjectLocalY(box,.1)


	if GetRawKeyPressed(32)
		CreateMemblockFromObjectMesh(memID,box2,1)
        SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1),GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1)-size)
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3),GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3)-size)
   
        SetObjectMeshFromMemblock(box2,1,memID)   
    //endif  
		DeleteMemblock(memID)

	endif
	print("Press Space To Move Vertex in the -Z direction")
	print("1 and 3 for the bottom Vertices to meet up with a box on the -Z axis")
	
	
	
    Print( ScreenFPS() )
    Sync()
loop

// Project: heights 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "heights" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

size=2

box=CreateObjectBox(size,size,size*6)
SetObjectPosition(box,0,0,0)

box2 = CreateObjectBox(size,size,size)
SetObjectPosition(box2,0,size,size*3)


box3 = CreateObjectBox(size,size,size)
SetObjectPosition(box3,0,size,-size*3)

FixObjectToObject(box2,box)
FixObjectToObject(box3,box)

i=-1:MemID=1
do
   
   print("Vertex " + str(i))
    
    if GetRawMouseLeftState()
	RotateObjectLocalY(box,.1)

	endif
	
	if GetRawKeyPressed(32)
//change box 2

		CreateMemblockFromObjectMesh(memID,box2,1)
        SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1),GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1)-size)
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3),GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3)-size)
   
        SetObjectMeshFromMemblock(box2,1,memID)   


// change box 3

		DeleteMemblock(memID)
		CreateMemblockFromObjectMesh(memid,box3,1)
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13),GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13)+size)
        SetMeshMemblockVertexPosition(memID,15,GetMeshMemblockVertexX(memID,15),GetMeshMemblockVertexY(MemID,15),GetMeshMemblockVertexZ(memID,15)+size)
   //     SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i),GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i)+size)
        SetObjectMeshFromMemblock(box3,1,memID)   

	inc i
		DeleteMemblock(memID)

	endif
	print("Press Space To Move Vertex in the -Z direction")
	print("1 and 3 for the bottom Vertices to meet up with a box on the -Z axis")
	print("13 and 15 for the bottom Vertices to meet up with a box on the +Z axis")
	
	
	
    Print( ScreenFPS() )
    Sync()
loop

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_A            65 
#constant KEY_Z            90
// set window properties
SetWindowTitle( "map" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global objects as integer[]
global width,depth 
smoothHeightFunction("\media\map.png") 
camerax#=32
cameray#=32
cameraz#=-100
global objnumber

do
    	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.5
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.5
	if GetRawKeyState(KEY_UP) then dec cameray#,.5
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.5
	if GetRawKeyState(KEY_A) then inc cameraz#,.5
	if GetRawKeyState(KEY_Z) then dec cameraz#,.5
	
	
	print(GetCameraX(1))
	print(GetCameraY(1))
	print(GetCameraZ(1))
    print(width)
    print(depth)
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    //remove()
    Print( ScreenFPS() )
    Sync()
loop

function remove()
for num = 1 to 4096-1	
	SetObjectVisible(objects[num],0)
	sync()
next num
endfunction


function smoothHeightFunction(filename$)
//top left front 0,9,18
//top right front 2,4,11
//top left back 8,14,16
//top right back 6,10,12
vertexLF as integer[2] = [0,9,18]
vertexRF as integer[2] = [2,4,11]
vertexLB as integer[2] = [8,14,16]
vertexRB as integer[2] = [6,10,12]
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

objnumber=0:lastheight#=0
for z=width-1 to 0 step -1
	for x= depth-1 to 0 step -1
		xx=x+1:if xx>width-1 then xx=width-1
		prevOffset = (12+((z * width) + xx) * 4) - 4
		r=GetMemblockByte(imgmemblock,prevOffset)
		g=GetMemblockByte(imgmemblock,prevOffset+1)
		b=GetMemblockByte(imgmemblock,prevOffset+2)
		a=GetMemblockByte(imgmemblock,prevOffset+3)
		prevHeight#=(r+g+b)/100
		xx=x-1:if xx<0 then xx=0
		nextOffset = (12+((z * width) + xx) * 4) - 4
		r=GetMemblockByte(imgmemblock,nextOffset)
		g=GetMemblockByte(imgmemblock,nextOffset+1)
		b=GetMemblockByte(imgmemblock,nextOffset+2)
		a=GetMemblockByte(imgmemblock,nextOffset+3)
		nextHeight#=(r+g+b)/100
		objects.insert(CreateObjectBox(1,1,1))
		SetObjectPosition(objects[objnumber],x, 0 ,-z)
		SetObjectColor(objects[objnumber],r,g,b,a)
		memID=CreateMemblockFromObjectMesh(objects[objnumber],1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(memID,vertexRB[i],GetMeshMemblockVertexX(memID,vertexRB[i]),GetMeshMemblockVertexY(memID,vertexRB[i])+prevHeight#,GetMeshMemblockVertexZ(memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(memID,vertexLF[i],GetMeshMemblockVertexX(memID,vertexLF[i]),GetMeshMemblockVertexY(memID,vertexLF[i])+nextHeight#,GetMeshMemblockVertexZ(memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(memID,vertexLB[i],GetMeshMemblockVertexX(memID,vertexLB[i]),GetMeshMemblockVertexY(memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(objects[objnumber],1,memID)
		DeleteMemblock(memID)
		inc objnumber
	next x
next z

endfunction	

// Project: heights 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "heights" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

size=5

slope=size*2

box=CreateObjectBox(size,size,size*6)
SetObjectPosition(box,0,0,0)

box2 = CreateObjectBox(size,size,size)
SetObjectPosition(box2,0,size,size*3)


box3 = CreateObjectBox(size,size,size)
SetObjectPosition(box3,0,size,-size*3)

FixObjectToObject(box2,box)
FixObjectToObject(box3,box)


SetCameraPosition(1,0,20,-40)
i=-1:MemID=1
do
   
   print("Vertex " + str(i))
    
    if GetRawMouseLeftState()
	RotateObjectLocalY(box,.5)

	endif
	
	if GetRawKeyPressed(32)
//change box 2

		CreateMemblockFromObjectMesh(memID,box2,1)
        SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1),GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1)-slope)
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3),GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3)-slope)
        SetMeshMemblockVertexPosition(memID,5,GetMeshMemblockVertexX(memID,5),GetMeshMemblockVertexY(MemID,5),GetMeshMemblockVertexZ(memID,5)-slope)
        SetMeshMemblockVertexPosition(memID,7,GetMeshMemblockVertexX(memID,7),GetMeshMemblockVertexY(MemID,7),GetMeshMemblockVertexZ(memID,7)-slope)
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13),GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13)-slope)
        SetMeshMemblockVertexPosition(memID,17,GetMeshMemblockVertexX(memID,17),GetMeshMemblockVertexY(MemID,17),GetMeshMemblockVertexZ(memID,17)-slope)
        SetMeshMemblockVertexPosition(memID,19,GetMeshMemblockVertexX(memID,19),GetMeshMemblockVertexY(MemID,19),GetMeshMemblockVertexZ(memID,19)-slope)
        
        i=15
        SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i),GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i)-slope)
   
        SetObjectMeshFromMemblock(box2,1,memID)   


// change box 3

		DeleteMemblock(memID)
		CreateMemblockFromObjectMesh(memid,box3,1)
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13),GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13)+slope)
        SetMeshMemblockVertexPosition(memID,15,GetMeshMemblockVertexX(memID,15),GetMeshMemblockVertexY(MemID,15),GetMeshMemblockVertexZ(memID,15)+slope)
   //     SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i),GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i)+size)
        SetObjectMeshFromMemblock(box3,1,memID)   

	inc i
		DeleteMemblock(memID)

	endif
	print("Press Space To Move Vertex in the -Z direction")
	print("1 and 3 for the bottom Vertices to meet up with a box on the -Z axis")
	print("13 and 15 for the bottom Vertices to meet up with a box on the +Z axis")
	
	
	
    Print( ScreenFPS() )
    Sync()
loop

// Project: heights 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "heights" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global xbox, xbox2,xbox3,zbox,zbox2,zbox3,slope
size=5

slope=size*3

xbox=CreateObjectBox(size,size,size*6)
SetObjectPosition(xbox,0,0,0)
xbox2 = CreateObjectBox(size,size,size)
SetObjectPosition(xbox2,0,size,size*6)
xbox3 = CreateObjectBox(size,size,size)
SetObjectPosition(xbox3,0,size,-size*6)


zbox=CreateObjectBox(size*6,size,size)
SetObjectPosition(zbox,0,0,0)
zbox2 = CreateObjectBox(size,size,size)
SetObjectPosition(zbox2,size*6,size,0)
zbox3 = CreateObjectBox(size,size,size)
SetObjectPosition(zbox3,-size*6,size,0)



FixObjectToObject(zbox,xbox)
FixObjectToObject(xbox2,xbox)
FixObjectToObject(xbox3,xbox)

FixObjectToObject(zbox2,zbox)
FixObjectToObject(zbox3,zbox)


changeverts()
SetCameraPosition(1,0,20,-40)
i=-1:MemID=1
do
   
	RotateObjectLocalY(xbox,.05)

    Print( ScreenFPS() )
    Sync()
loop


function changeverts()
	memid=1
			CreateMemblockFromObjectMesh(memID,xbox2,1)
        SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1),GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1)-slope)
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3),GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3)-slope)
        SetMeshMemblockVertexPosition(memID,5,GetMeshMemblockVertexX(memID,5),GetMeshMemblockVertexY(MemID,5),GetMeshMemblockVertexZ(memID,5)-slope)
        SetMeshMemblockVertexPosition(memID,7,GetMeshMemblockVertexX(memID,7),GetMeshMemblockVertexY(MemID,7),GetMeshMemblockVertexZ(memID,7)-slope)
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13),GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13)-slope)
        SetMeshMemblockVertexPosition(memID,17,GetMeshMemblockVertexX(memID,17),GetMeshMemblockVertexY(MemID,17),GetMeshMemblockVertexZ(memID,17)-slope)
        SetMeshMemblockVertexPosition(memID,19,GetMeshMemblockVertexX(memID,19),GetMeshMemblockVertexY(MemID,19),GetMeshMemblockVertexZ(memID,19)-slope)
        
        i=15
        SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i),GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i)-slope)
   
        SetObjectMeshFromMemblock(xbox2,1,memID)   
		DeleteMemblock(memID)


//change box 2

		CreateMemblockFromObjectMesh(memID,zbox2,1)
        SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1)-slope,GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1))
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3)-slope,GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3))
        SetMeshMemblockVertexPosition(memID,5,GetMeshMemblockVertexX(memID,5)-slope,GetMeshMemblockVertexY(MemID,5),GetMeshMemblockVertexZ(memID,5))
        SetMeshMemblockVertexPosition(memID,7,GetMeshMemblockVertexX(memID,7)-slope,GetMeshMemblockVertexY(MemID,7),GetMeshMemblockVertexZ(memID,7))
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13)-slope,GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13))
        SetMeshMemblockVertexPosition(memID,17,GetMeshMemblockVertexX(memID,17)-slope,GetMeshMemblockVertexY(MemID,17),GetMeshMemblockVertexZ(memID,17))
        SetMeshMemblockVertexPosition(memID,19,GetMeshMemblockVertexX(memID,19)-slope,GetMeshMemblockVertexY(MemID,19),GetMeshMemblockVertexZ(memID,19))
        
        i=15
        SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i)-slope,GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i))
   
        SetObjectMeshFromMemblock(zbox2,1,memID)   
		DeleteMemblock(memID)



// change box 3

		CreateMemblockFromObjectMesh(memid,xbox3,1)

        SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1),GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1)+slope)
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3),GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3)+slope)
        SetMeshMemblockVertexPosition(memID,5,GetMeshMemblockVertexX(memID,5),GetMeshMemblockVertexY(MemID,5),GetMeshMemblockVertexZ(memID,5)+slope)
        SetMeshMemblockVertexPosition(memID,7,GetMeshMemblockVertexX(memID,7),GetMeshMemblockVertexY(MemID,7),GetMeshMemblockVertexZ(memID,7)+slope)
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13),GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13)+slope)
        SetMeshMemblockVertexPosition(memID,17,GetMeshMemblockVertexX(memID,17),GetMeshMemblockVertexY(MemID,17),GetMeshMemblockVertexZ(memID,17)+slope)
        SetMeshMemblockVertexPosition(memID,19,GetMeshMemblockVertexX(memID,19),GetMeshMemblockVertexY(MemID,19),GetMeshMemblockVertexZ(memID,19)+slope)
        
        i=15
        SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i),GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i)+slope)



        SetObjectMeshFromMemblock(xbox3,1,memID)   
		DeleteMemblock(memID)



		CreateMemblockFromObjectMesh(memid,zbox3,1)

		SetMeshMemblockVertexPosition(memID,1,GetMeshMemblockVertexX(memID,1)+slope,GetMeshMemblockVertexY(MemID,1),GetMeshMemblockVertexZ(memID,1))
        SetMeshMemblockVertexPosition(memID,3,GetMeshMemblockVertexX(memID,3)+slope,GetMeshMemblockVertexY(MemID,3),GetMeshMemblockVertexZ(memID,3))
        SetMeshMemblockVertexPosition(memID,5,GetMeshMemblockVertexX(memID,5)+slope,GetMeshMemblockVertexY(MemID,5),GetMeshMemblockVertexZ(memID,5))
        SetMeshMemblockVertexPosition(memID,7,GetMeshMemblockVertexX(memID,7)+slope,GetMeshMemblockVertexY(MemID,7),GetMeshMemblockVertexZ(memID,7))
        SetMeshMemblockVertexPosition(memID,13,GetMeshMemblockVertexX(memID,13)+slope,GetMeshMemblockVertexY(MemID,13),GetMeshMemblockVertexZ(memID,13))
        SetMeshMemblockVertexPosition(memID,17,GetMeshMemblockVertexX(memID,17)+slope,GetMeshMemblockVertexY(MemID,17),GetMeshMemblockVertexZ(memID,17))
        SetMeshMemblockVertexPosition(memID,19,GetMeshMemblockVertexX(memID,19)+slope,GetMeshMemblockVertexY(MemID,19),GetMeshMemblockVertexZ(memID,19))
        
        i=15
        SetMeshMemblockVertexPosition(memID,i,GetMeshMemblockVertexX(memID,i)+slope,GetMeshMemblockVertexY(MemID,i),GetMeshMemblockVertexZ(memID,i))
       SetObjectMeshFromMemblock(zbox3,1,memID)   
	
		DeleteMemblock(memID)
endfunction

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_A            65 
#constant KEY_Z            90
// set window properties
SetWindowTitle( "map" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global objects as integer[]
global width,depth 
smoothHeightFunction("\media\map.png") 
deletedObjects=dohousekeeping()
camerax#=32
cameray#=32
cameraz#=-100
global objnumber

do
    	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.5
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.5
	if GetRawKeyState(KEY_UP) then dec cameray#,.5
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.5
	if GetRawKeyState(KEY_A) then inc cameraz#,.5
	if GetRawKeyState(KEY_Z) then dec cameraz#,.5
	
	Print ("Started with 4096 objects")
	print ("Deleted objects="+str(deletedObjects))
	Print ("Now have "+str(4096-deletedObjects))
    SetCameraPosition(1,camerax#,cameray#,cameraz#)

    Print( ScreenFPS() )
    Sync()
loop

function smoothHeightFunction(filename$)
//top left front 0,9,18
//top right front 2,4,11
//top left back 8,14,16
//top right back 6,10,12
vertexLF as integer[2] = [0,9,18]
vertexRF as integer[2] = [2,4,11]
vertexLB as integer[2] = [8,14,16]
vertexRB as integer[2] = [6,10,12]
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

objnumber=0:lastheight#=0
for z=width-1 to 0 step -1
	for x= depth-1 to 0 step -1
		
		//check the x plane
		xx=x+1:if xx>depth-1 then xx=depth-1
		prevOffset = (12+((z * width) + xx) * 4) - 4
		r=GetMemblockByte(imgmemblock,prevOffset)
		g=GetMemblockByte(imgmemblock,prevOffset+1)
		b=GetMemblockByte(imgmemblock,prevOffset+2)
		a=GetMemblockByte(imgmemblock,prevOffset+3)
		color#=(r+g+b) 
		prevHeight#=color#/100.0
		xx=x-1:if xx<0 then xx=0
		nextOffset = (12+((z * width) + xx) * 4) - 4
		r=GetMemblockByte(imgmemblock,nextOffset)
		g=GetMemblockByte(imgmemblock,nextOffset+1)
		b=GetMemblockByte(imgmemblock,nextOffset+2)
		a=GetMemblockByte(imgmemblock,nextOffset+3)
		color#=(r+g+b) 
		nextHeight#=color#/100.0
		objects.insert(CreateObjectBox(1,1,1))
		SetObjectPosition(objects[objnumber],x, 0 ,-z)
		SetObjectColor(objects[objnumber],r,g,b,a)
		memID=CreateMemblockFromObjectMesh(objects[objnumber],1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(memID,vertexRB[i],GetMeshMemblockVertexX(memID,vertexRB[i]),GetMeshMemblockVertexY(memID,vertexRB[i])+prevHeight#,GetMeshMemblockVertexZ(memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(memID,vertexLF[i],GetMeshMemblockVertexX(memID,vertexLF[i]),GetMeshMemblockVertexY(memID,vertexLF[i])+nextHeight#,GetMeshMemblockVertexZ(memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(memID,vertexLB[i],GetMeshMemblockVertexX(memID,vertexLB[i]),GetMeshMemblockVertexY(memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(objects[objnumber],1,memID)
		DeleteMemblock(memID)
		
		//check the z plane
		zz=z+1:if zz>width-1 then zz=width-1
		prevOffset = (12+((zz * width) + x) * 4) - 4
		r=GetMemblockByte(imgmemblock,prevOffset)
		g=GetMemblockByte(imgmemblock,prevOffset+1)
		b=GetMemblockByte(imgmemblock,prevOffset+2)
		a=GetMemblockByte(imgmemblock,prevOffset+3)
		color#=(r+g+b) 
		prevHeight#=color#/100.0
		zz=z-1:if zz<0 then zz=0
		nextOffset = (12+((zz * width) + xx) * 4) - 4
		r=GetMemblockByte(imgmemblock,nextOffset)
		g=GetMemblockByte(imgmemblock,nextOffset+1)
		b=GetMemblockByte(imgmemblock,nextOffset+2)
		a=GetMemblockByte(imgmemblock,nextOffset+3)
		color#=(r+g+b) 
		nextHeight#=color#/100.0
		objects.insert(CreateObjectBox(1,1,1))
		SetObjectPosition(objects[objnumber],x, 0 ,-z)
		SetObjectColor(objects[objnumber],r,g,b,a)
		memID=CreateMemblockFromObjectMesh(objects[objnumber],1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(memID,vertexRB[i],GetMeshMemblockVertexX(memID,vertexRB[i]),GetMeshMemblockVertexY(memID,vertexRB[i])+nextHeight#,GetMeshMemblockVertexZ(memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(memID,vertexLF[i],GetMeshMemblockVertexX(memID,vertexLF[i]),GetMeshMemblockVertexY(memID,vertexLF[i])+prevHeight#,GetMeshMemblockVertexZ(memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(memID,vertexLB[i],GetMeshMemblockVertexX(memID,vertexLB[i]),GetMeshMemblockVertexY(memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(objects[objnumber],1,memID)
		DeleteMemblock(memID)
		inc objnumber
	next x
next z

endfunction	

function dohousekeeping()
	DeletedObjects=0
	for num = 0 to 4096-1	
		r=GetObjectColorRed(objects[num])
		b=GetObjectColorBLue(objects[num])
		g=GetObjectColorGreen(objects[num])
		if r+b+g<1 
			DeleteObject(objects[num])
			inc DeletedObjects
		endif
	next num

endfunction DeletedObjects	

// Project: led board 
// Created: 2018-12-27
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant TRUE=1
#constant FALSE=0

// set window properties
SetWindowTitle( "led board" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global land
global objects as integer[]
global heights as float[] // the height of the land at each X axis
 
 Type Vertex
      
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
  
global MeshID as Mesh

 
grabinfo("\media\board.png")
 
camerax#=0
cameray#=80
cameraz#=-207
 
land = CreateObjectBox(1,1,1)

title=CreateText("Press Mouse Button To Start")
SetTextSize(title,40)

alphafade=0
alphafadeup=1


follower=CreateObjectCapsule(1,4,3)
px#=40
py#=10
pz#=5.0/2

do
	SetTextPosition(title,screenwidth/2-GetTextTotalWidth(title)/2, screenheight-100)
	SetTextColorAlpha(title,alphafade)
	
	if alphafadeup=1 then inc alphafade,2
	if alphafadeup=0 then dec alphafade,2
	
	if alphafade>255 
		alphafade=255
		alphafadeup=0
	endif
	
	if alphafade<0 
		alphafade=0
		alphafadeup=1
	endif
	
	if GetRawKeyState(37) then dec camerax#,2
	if GetRawKeyState(39) then inc camerax#,2
	
	
	if GetRawKeyState(38) then dec cameraz#,2
	if GetRawKeyState(40) then inc cameraz#,2
	
	if GetRawKeyState(87) then dec cameray#,2
	if GetRawKeyState(83) then inc cameray#,2
	
	print(GetRawLastKey())
	


	
	print(object_hit)

	if GetRawKeyState(32)
		 
		object_hit = Get3DObjectCollide(follower,land)
		
		if object_hit <> 0 and object_hit<>114944
			inc px#,1
			py#=py#+heights[floor(px#)]
		
		else
			dec py#,1
		
		endif
	endif
	SetObjectPosition(follower, px#, py#, pz# )
	
		
	//SetObjectPosition(follower,px#,py#,pz#)


    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=width-1 to 0 step -1
		h#=0
		
		for z=height-1 to 0 step -1
            offset = (12+((z * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
 
			h#=g/10
            if r<255 and g<255 and b<255
				
				c=MakeColor(r,g,b)
				buildAGKCubeIntoMesh(x,h#,z,c)
				
				
				inc objnumber
				inc h#
			endif
        next
        heights.insert(h#)
        
    next
     
     obj = CreateObjectFromMeshWithColor(meshid)
     emptymesh()
endfunction obj


function Get3DObjectCollide(objid1, objid2)	
		
	        // save the old position of the sphere
        old_x# = GetObjectX(objid1)
        old_y# = GetObjectY(objid1)
        old_z# = GetObjectZ(objid1)

        // get the new position of the sphere
        new_x# = GetObjectX(objid2)
        new_y# = GetObjectY(objid2)
        new_z# = GetObjectZ(objid2)

        // sphere cast between the old and new positions of the sphere
        object_hit = ObjectSphereSlide(0,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#,1)

	
endfunction object_hit

function Get3DObjectHeight(objid1)
	new_y# = GetObjectY(objid1)
	
endfunction new_Y#


function buildAGKCubeIntoMesh(x#,y#,z#,c)


cube = CreateObjectBox(1,1,1)
SetObjectPosition(cube,x#,y#,z#)
/*
oc.id = cube
oc.x#=x#
oc.y#=y#
oc.z#=z#
objectcolider.insert(oc)
*/
mesh=1 
CreateMemblockFromObjectMesh(mesh,cube,1)
verts=GetMemblockInt(mesh,0)
  
for v=0 to verts-1 step 4
    vx1# = GetMeshMemblockVertexX(mesh,v) + x#
    vy1# = GetMeshMemblockVertexY(mesh,v) + y#
    vz1# = GetMeshMemblockVertexZ(mesh,v) + z#
      
    vnx1# = GetMeshMemblockVertexNormalX(mesh,v) 
    vny1# = GetMeshMemblockVertexNormalY(mesh,v) 
    vnz1# = GetMeshMemblockVertexNormalZ(mesh,v)    
      
    vx2# = GetMeshMemblockVertexX(mesh,v+1) + x#
    vy2# = GetMeshMemblockVertexY(mesh,v+1) + y#
    vz2# = GetMeshMemblockVertexZ(mesh,v+1) + z#
  
    vnx2# = GetMeshMemblockVertexNormalX(mesh,v+1) 
    vny2# = GetMeshMemblockVertexNormalY(mesh,v+1) 
    vnz2# = GetMeshMemblockVertexNormalZ(mesh,v+1)  
      
    vx3# = GetMeshMemblockVertexX(mesh,v+2) + x#
    vy3# = GetMeshMemblockVertexY(mesh,v+2) + y#
    vz3# = GetMeshMemblockVertexZ(mesh,v+2) + z#
      
    vnx3# = GetMeshMemblockVertexNormalX(mesh,v+2) 
    vny3# = GetMeshMemblockVertexNormalY(mesh,v+2) 
    vnz3# = GetMeshMemblockVertexNormalZ(mesh,v+2)  
  
    vx4# = GetMeshMemblockVertexX(mesh,v+3) + x#
    vy4# = GetMeshMemblockVertexY(mesh,v+3) + y#
    vz4# = GetMeshMemblockVertexZ(mesh,v+3) + z#
      
    vnx4# = GetMeshMemblockVertexNormalX(mesh,v+3) 
    vny4# = GetMeshMemblockVertexNormalY(mesh,v+3) 
    vnz4# = GetMeshMemblockVertexNormalZ(mesh,v+3)  
  
    AddVertex(meshid,vx1#,vy1#,vz1#,vnx1#,vny1#,vnz1#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
  
  
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx4#,vy4#,vz4#,vnx4#,vny4#,vnz4#,0,0,c)    
      
      
      
next
  
deleteobject (cube)
DeleteMemblock(mesh)
endfunction


function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
      
       
endfunction
    
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
    
endfunction


Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
  
  
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

// Project: led board 
// Created: 2018-12-27
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant TRUE=1
#constant FALSE=0

// set window properties
SetWindowTitle( "led board" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global land,cubetoinstance,cubemeshtoinstance

global objects as integer[]
global heights as float[] // the height of the land at each X axis
 
 Type Vertex
      
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
  
global MeshID as Mesh

 
cubetoinstance=CreateObjectBox(1,1,1)
cubemeshtoinstance=CreateMemblockFromObjectMesh(cubetoinstance,1)

grabinfo("\media\board.png")
 


camerax#=170
cameray#=20
cameraz#=60
 
land = CreateObjectBox(1,1,1)

title=CreateText("Press Mouse Button To Start")
SetTextSize(title,40)

alphafade=0
alphafadeup=1


follower=CreateObjectCapsule(1,4,3)
px#=40
py#=10
pz#=5.0/2
angx#=0
angy#=0
startx#=0
starty#=0
do
	SetTextPosition(title,screenwidth/2-GetTextTotalWidth(title)/2, screenheight-100)
	SetTextColorAlpha(title,alphafade)
	
	if alphafadeup=1 then inc alphafade,2
	if alphafadeup=0 then dec alphafade,2
	
	if alphafade>255 
		alphafade=255
		alphafadeup=0
	endif
	
	if alphafade<0 
		alphafade=0
		alphafadeup=1
	endif
	
	if GetRawKeyState(37) then dec camerax#,.1
	if GetRawKeyState(39) then inc camerax#,.1
	
	
	if GetRawKeyState(38) then dec cameraz#,.1
	if GetRawKeyState(40) then inc cameraz#,.1
	
	if GetRawKeyState(87) then dec cameray#,.1
	if GetRawKeyState(83) then inc cameray#,.1
	
	print(camerax#)
	print(cameray#)
	print(cameraz#)
	
	print(GetRawLastKey())
	


	
	print(object_hit)

	if GetRawKeyState(32)
		 
		object_hit = Get3DObjectCollide(follower,land)
		
		if object_hit <> 0 and object_hit<>114944
			inc px#,1
			py#=py#+heights[floor(px#)]
		
		else
			dec py#,1
		
		endif
	endif
	SetObjectPosition(follower, px#, py#, pz# )
	
	
	        fDiffX# = (GetPointerX() - startx#)/4.0
        fDiffY# = (GetPointerY() - starty#)/4.0
    
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        if GetRawMouseLeftState()
			SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
		endif
			

		
	//SetObjectPosition(follower,px#,py#,pz#)


    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=width-1 to 0 step -1
		h#=0
		
		for z=height-1 to 0 step -1
            offset = (12+((z * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
 
			h#=g/10
            if r<255 and g<255 and b<255
				
				c=MakeColor(r,g,b)
				buildAGKCubeIntoMesh(x,h#,z,c)
				
				
				inc objnumber
				
			endif
        next
        
    next
     
     obj = CreateObjectFromMeshWithColor(meshid)
     emptymesh()
endfunction obj


function Get3DObjectCollide(objid1, objid2)	
		
	        // save the old position of the sphere
        old_x# = GetObjectX(objid1)
        old_y# = GetObjectY(objid1)
        old_z# = GetObjectZ(objid1)

        // get the new position of the sphere
        new_x# = GetObjectX(objid2)
        new_y# = GetObjectY(objid2)
        new_z# = GetObjectZ(objid2)

        // sphere cast between the old and new positions of the sphere
        object_hit = ObjectSphereSlide(0,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#,1)

	
endfunction object_hit

function Get3DObjectHeight(objid1)
	new_y# = GetObjectY(objid1)
	
endfunction new_Y#


function buildAGKCubeIntoMesh(x#,y#,z#,c)


verts=GetMemblockInt(cubemeshtoinstance,0)
  
for v=0 to verts-1 step 4
    vx1# = GetMeshMemblockVertexX(cubemeshtoinstance,v) + x#
    vy1# = GetMeshMemblockVertexY(cubemeshtoinstance,v) + y#
    vz1# = GetMeshMemblockVertexZ(cubemeshtoinstance,v) + z#
      
    vnx1# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v) 
    vny1# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v) 
    vnz1# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v)    
      
    vx2# = GetMeshMemblockVertexX(cubemeshtoinstance,v+1) + x#
    vy2# = GetMeshMemblockVertexY(cubemeshtoinstance,v+1) + y#
    vz2# = GetMeshMemblockVertexZ(cubemeshtoinstance,v+1) + z#
  
    vnx2# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v+1) 
    vny2# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v+1) 
    vnz2# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v+1)  
      
    vx3# = GetMeshMemblockVertexX(cubemeshtoinstance,v+2) + x#
    vy3# = GetMeshMemblockVertexY(cubemeshtoinstance,v+2) + y#
    vz3# = GetMeshMemblockVertexZ(cubemeshtoinstance,v+2) + z#
      
    vnx3# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v+2) 
    vny3# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v+2) 
    vnz3# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v+2)  
  
    vx4# = GetMeshMemblockVertexX(cubemeshtoinstance,v+3) + x#
    vy4# = GetMeshMemblockVertexY(cubemeshtoinstance,v+3) + y#
    vz4# = GetMeshMemblockVertexZ(cubemeshtoinstance,v+3) + z#
      
    vnx4# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v+3) 
    vny4# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v+3) 
    vnz4# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v+3)  
  
    AddVertex(meshid,vx1#,vy1#,vz1#,vnx1#,vny1#,vnz1#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
  
  
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx4#,vy4#,vz4#,vnx4#,vny4#,vnz4#,0,0,c)    
      
      
      
next
  
endfunction


function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
      
       
endfunction
    
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
    
endfunction


Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
  
  
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

// Project: led board 
// Created: 2018-12-27
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant TRUE=1
#constant FALSE=0

#constant size=64 // change this to size the chunk layer



// set window properties
SetWindowTitle( "led board" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global land,cubetoinstance,cubemeshtoinstance

global objects as integer[]
global heights as float[] // the height of the land at each X axis
 
 Type Vertex
      
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
  
global MeshID as Mesh

global meshes as integer[]
 
cubetoinstance=CreateObjectBox(1,1,1)
cubemeshtoinstance=CreateMemblockFromObjectMesh(cubetoinstance,1)

img = LoadImage("\media\board.png")
width = GetImageWidth(img)
depth = GetImageHeight(img)

a=0

for x=0 to width-size step size
	for z=0 to depth-size step size
		meshes.insert(grabinfo(img,x,z,x+size,z+size))
		SetObjectPosition(meshes[a],x/(size*2),0,z/(size*2))
		inc a
	next
next


camerax#=120
cameray#=40
cameraz#=70
 
land = CreateObjectBox(1,1,1)

title=CreateText("Press Mouse Button To Start")
SetTextSize(title,40)

alphafade=0
alphafadeup=1


follower=CreateObjectCapsule(1,4,3)
px#=40
py#=10
pz#=5.0/2
angx#=0
angy#=0
startx#=0
starty#=0
do
	SetTextPosition(title,screenwidth/2-GetTextTotalWidth(title)/2, screenheight-100)
	SetTextColorAlpha(title,alphafade)
	
	if alphafadeup=1 then inc alphafade,2
	if alphafadeup=0 then dec alphafade,2
	
	if alphafade>255 
		alphafade=255
		alphafadeup=0
	endif
	
	if alphafade<0 
		alphafade=0
		alphafadeup=1
	endif
	
	if GetRawKeyState(37) then dec camerax#,.1
	if GetRawKeyState(39) then inc camerax#,.1
	
	
	if GetRawKeyState(38) then dec cameraz#,.1
	if GetRawKeyState(40) then inc cameraz#,.1
	
	if GetRawKeyState(87) then dec cameray#,.1
	if GetRawKeyState(83) then inc cameray#,.1
	
	print(camerax#)
	print(cameray#)
	print(cameraz#)
	
	print(GetRawLastKey())
	


	
	print(object_hit)

	if GetRawKeyState(32)
		 
		object_hit = Get3DObjectCollide(follower,land)
		
		if object_hit <> 0 and object_hit<>114944
			inc px#,1
			py#=py#+heights[floor(px#)]
		
		else
			dec py#,1
		
		endif
	endif
	SetObjectPosition(follower, px#, py#, pz# )
	
	
	        fDiffX# = (GetPointerX() - startx#)/4.0
        fDiffY# = (GetPointerY() - starty#)/4.0
    
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        if GetRawMouseLeftState()
			SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
		endif
			

		
	//SetObjectPosition(follower,px#,py#,pz#)


    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(img, x1,z1,x2,z2)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=x1 to x2-4
		h#=0
		
		for z=z1 to z2-4
            offset = (12+((z * (width)) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
 
			h#=g/10
            if r<255 and g<255 and b<255
				
				c=MakeColor(r,g,b)
				buildAGKCubeIntoMesh(x,h#,z,c)
				
				
				inc objnumber
				
			endif
        next
        
    next
     
     obj = CreateObjectFromMeshWithColor(meshid)
	

     emptymesh()
endfunction obj


function Get3DObjectCollide(objid1, objid2)	
		
	        // save the old position of the sphere
        old_x# = GetObjectX(objid1)
        old_y# = GetObjectY(objid1)
        old_z# = GetObjectZ(objid1)

        // get the new position of the sphere
        new_x# = GetObjectX(objid2)
        new_y# = GetObjectY(objid2)
        new_z# = GetObjectZ(objid2)

        // sphere cast between the old and new positions of the sphere
        object_hit = ObjectSphereSlide(0,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#,1)

	
endfunction object_hit

function Get3DObjectHeight(objid1)
	new_y# = GetObjectY(objid1)
	
endfunction new_Y#


function buildAGKCubeIntoMesh(x#,y#,z#,c)


verts=GetMemblockInt(cubemeshtoinstance,0)
  
for v=0 to verts-1 step 4
    vx1# = GetMeshMemblockVertexX(cubemeshtoinstance,v) + x#
    vy1# = GetMeshMemblockVertexY(cubemeshtoinstance,v) + y#
    vz1# = GetMeshMemblockVertexZ(cubemeshtoinstance,v) + z#
      
    vnx1# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v) 
    vny1# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v) 
    vnz1# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v)    
      
    vx2# = GetMeshMemblockVertexX(cubemeshtoinstance,v+1) + x#
    vy2# = GetMeshMemblockVertexY(cubemeshtoinstance,v+1) + y#
    vz2# = GetMeshMemblockVertexZ(cubemeshtoinstance,v+1) + z#
  
    vnx2# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v+1) 
    vny2# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v+1) 
    vnz2# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v+1)  
      
    vx3# = GetMeshMemblockVertexX(cubemeshtoinstance,v+2) + x#
    vy3# = GetMeshMemblockVertexY(cubemeshtoinstance,v+2) + y#
    vz3# = GetMeshMemblockVertexZ(cubemeshtoinstance,v+2) + z#
      
    vnx3# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v+2) 
    vny3# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v+2) 
    vnz3# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v+2)  
  
    vx4# = GetMeshMemblockVertexX(cubemeshtoinstance,v+3) + x#
    vy4# = GetMeshMemblockVertexY(cubemeshtoinstance,v+3) + y#
    vz4# = GetMeshMemblockVertexZ(cubemeshtoinstance,v+3) + z#
      
    vnx4# = GetMeshMemblockVertexNormalX(cubemeshtoinstance,v+3) 
    vny4# = GetMeshMemblockVertexNormalY(cubemeshtoinstance,v+3) 
    vnz4# = GetMeshMemblockVertexNormalZ(cubemeshtoinstance,v+3)  
  
    AddVertex(meshid,vx1#,vy1#,vz1#,vnx1#,vny1#,vnz1#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
  
  
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx4#,vy4#,vz4#,vnx4#,vny4#,vnz4#,0,0,c)    
      
      
      
next
  
endfunction


function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
      
       
endfunction
    
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
    
endfunction


Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = 10000
    CreateMemblock(memblock, IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
    DeleteMemblock(memblock)
endfunction id
  
  
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

// Project: corcle 
// Created: 2019-01-07

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "corcle" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


inca=0

do
	DrawBox(screenwidth/2-20,screenheight/2-20,screenwidth/2+20,screenheight/2+20,MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),1)
	
	for a=0 to 360 step 360/8
		
		x#=200 * sin(a)
		y#=200 * cos(a)
		DrawLine(screenwidth/2,screenheight/2,screenwidth/2+x#,screenheight/2+y#,MakeColor(255,255,0),MakeColor(255,255,0))
		
		DrawBox(screenwidth/2-inca,screenheight/2-inca,screenwidth/2+inca,screenheight/2+inca,MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),1)
		
	next
	inc inca
    

    Print( ScreenFPS() )
    Sync()
    sleep(10)
loop

// Project: corcle 
// Created: 2019-01-07
ob=0
bx=0
ini:
inc bx,2
for i= 1 to bx
	for a=1 to bx
		inc ob
        createobjectbox(ob,1,1,1)
        setobjectposition(ob,-(bx/2)+i,0,-(bx/2)+a)
        setobjectcolor(ob,random(0,255),random(0,255),random(0,255),0)
      sleep( 1)
     next
 next
    sync()
 
    if bx<22 then goto ini
        

do

    Sync()
    
loop

// Project: circle 
// Created: 2019-01-07
sensor=10000
createobjectbox(sensor,1,3,1)
SetObjectColorEmissive(sensor,255,255,255)
ob=0
bx=0
ini:
inc bx,2
for i= 1 to bx
	for a=1 to bx
		setobjectposition(sensor,-(bx/2)+i,0,-(bx/2)+a)
		x# = GetObjectX(sensor)
        y# = GetObjectY(sensor)
        z# = GetObjectZ(sensor)
		colli= ObjectRayCast(0,x#,y#-1,z# ,x#,y#+1,z#) 
		
		`if there is no collion, then make a box
		if colli=0 
			inc ob
			createobjectbox(ob,1,1,1)
            setobjectposition(ob,-(bx/2)+i,0,-(bx/2)+a)
            setobjectcolor(ob,random(0,255),random(0,255),random(0,255),0)
        endif
        sleep(1)  // to be removed
     next
 next
 sync()   // to be removed 
 if bx<10 then goto ini
        

do
    print(ob)
    Sync()
    
loop

// Project: led board 
// Created: 2018-12-27
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "led board" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
dim objects [64,64]
 
saveletter("B","B.png",255,255,255)
B = grabinfo("\media\B.png")

saveletter("O","O.png",255,255,0)
O = grabinfo("\media\O.png")

saveletter("N","N.png",0,255,0)
N = grabinfo("\media\N.png")

saveletter("U","U.png",255,0,0)
U = grabinfo("\media\U.png")

saveletter("S","S.png",255,0,255)
S = grabinfo("\media\S.png")

SetObjectPosition(B,-50,50,0)
SetObjectPosition(O,-25,50,0)
SetObjectPosition(N,-0,50,0)
SetObjectPosition(U,25,50,0)
SetObjectPosition(S,50,50,0)



saveletter("E","E.png",255,255,255)
E = grabinfo("\media\E.png")

saveletter("X","X.png",255,255,0)
X = grabinfo("\media\X.png")

saveletter("T","T.png",0,255,0)
T = grabinfo("\media\T.png")

saveletter("R","R.png",255,0,0)
R = grabinfo("\media\R.png")

saveletter("A","A.png",255,0,255)
A = grabinfo("\media\A.png")

SetObjectPosition(E,-50,-50,0)
SetObjectPosition(X,-25,-50,0)
SetObjectPosition(T,-0,-50,0)
SetObjectPosition(R,25,-50,0)
SetObjectPosition(A,50,-50,0)



 
camerax#=0
cameray#=50
cameraz#=-100
 
do
	RotateObjectLocalY(B,.1)
	RotateObjectLocalY(O,.1)
	RotateObjectLocalY(N,.1)
	RotateObjectLocalY(U,.1)
	RotateObjectLocalY(S,.1)


	RotateObjectLocalY(E,-.1)
	RotateObjectLocalY(X,-.1)
	RotateObjectLocalY(T,-.1)
	RotateObjectLocalY(R,-.1)
	RotateObjectLocalY(A,-.1)

    if GetRawKeyState(38) then inc cameraz#
    if GetRawKeyState(40) then dec cameraz#
    if GetRawKeyState(37) then inc camerax#
    if GetRawKeyState(39) then dec camerax#
     
     
    if GetRawKeyState(87) then inc cameray#
    if GetRawKeyState(83) then dec cameray#
     
     
     
    print(GetRawLastKey())
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop

function saveletter(letter$,filename$,r,g,b)
	id = CreateText(letter$)
	SetTextColor(id,r,g,b,255)
	SetTextSize(id,32)
	SetTextBold(id,1)
	
	swap()
		DrawBox(0,0,32,32,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
		SetTextPosition(id,0,0)
		Render2DFront()
	render()
	DeleteText(id)
	img = GetImage(0,0,32,32)
	SaveImage(img,filename$)
endfunction 
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    
    id = CreateObjectBox(.01,.01,.01)
    
    for x=width to 0 step -1
    for y=height-4 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
      
      
			if r>150 or g>150 or b>150 	
				//DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
				objects [ x, y] = CreateObjectSphere(3,20,20)
				SetObjectPosition(objects[x,y],x, -y , 0)
				SetObjectColor(objects[x,y],r,g,b,a)
				FixObjectToObject(objects[x,y],id)
			endif
        next
    next
     
    
     
endfunction id

// Project: led board 
// Created: 2018-12-27
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "led board" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
dim objects [64,64]
numbers as integer[10]

for a=48 to 57
	saveletter(chr(a),chr(a)+".png",255,255,255)
	numbers[a-48] = grabinfo("\media\"+chr(a)+".png")
	SetObjectPosition(numbers[a-48],-5+(a-48)*5,15,0)
next


 
saveletter("B","B.png",255,255,255)
B = grabinfo("\media\B.png")

saveletter("O","O.png",255,255,0)
O = grabinfo("\media\O.png")

saveletter("N","N.png",0,255,0)
N = grabinfo("\media\N.png")

saveletter("U","U.png",255,0,0)
U = grabinfo("\media\U.png")

saveletter("S","S.png",255,0,255)
S = grabinfo("\media\S.png")

SetObjectPosition(B,-50,50,0)
SetObjectPosition(O,-25,50,0)
SetObjectPosition(N,-0,50,0)
SetObjectPosition(U,25,50,0)
SetObjectPosition(S,50,50,0)



saveletter("c","c.png",255,255,255)
c = grabinfo("\media\c.png")

saveletter("a","a.png",255,255,0)
a = grabinfo("\media\a.png")

saveletter("r","r.png",0,255,0)
r = grabinfo("\media\r.png")

saveletter("V","V.png",255,0,0)
V = grabinfo("\media\V.png")

saveletter("u","u.png",255,0,255)
u = grabinfo("\media\u.png")

saveletter("p","p.png",255,0,255)
p = grabinfo("\media\p.png")


SetObjectPosition(c,-50,0,0)
SetObjectPosition(a,-25,0,0)
SetObjectPosition(r,-0,0,0)
SetObjectPosition(v,25,0,0)
SetObjectPosition(u,50,0,0)
SetObjectPosition(p,50,0,0)



saveletter("E","E.png",255,255,255)
E = grabinfo("\media\E.png")

saveletter("X","X.png",255,255,0)
X = grabinfo("\media\X.png")

saveletter("T","T.png",0,255,0)
T = grabinfo("\media\T.png")

saveletter("R","R.png",255,0,0)
R = grabinfo("\media\R.png")

saveletter("A","A.png",255,0,255)
A = grabinfo("\media\A.png")

SetObjectPosition(E,-50,-50,0)
SetObjectPosition(X,-25,-50,0)
SetObjectPosition(T,-0,-50,0)
SetObjectPosition(R,25,-50,0)
SetObjectPosition(A,50,-50,0)



 
camerax#=0
cameray#=50
cameraz#=-100
 
do
	RotateObjectLocalY(B,.1)
	RotateObjectLocalY(O,.1)
	RotateObjectLocalY(N,.1)
	RotateObjectLocalY(U,.1)
	RotateObjectLocalY(S,.1)


	RotateObjectLocalY(E,-.1)
	RotateObjectLocalY(X,-.1)
	RotateObjectLocalY(T,-.1)
	RotateObjectLocalY(R,-.1)
	RotateObjectLocalY(A,-.1)

    if GetRawKeyState(38) then inc cameraz#
    if GetRawKeyState(40) then dec cameraz#
    if GetRawKeyState(37) then inc camerax#
    if GetRawKeyState(39) then dec camerax#
     
     
    if GetRawKeyState(87) then inc cameray#
    if GetRawKeyState(83) then dec cameray#
     
     
     
    print(GetRawLastKey())
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop

function saveletter(letter$,filename$,r,g,b)
	size=16
	id = CreateText(letter$)
	SetTextColor(id,r,g,b,255)
	SetTextSize(id,size)
//	SetTextBold(id,1)
	
	swap()
		DrawBox(0,0,size,size,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
		SetTextPosition(id,0,0)
		Render2DFront()
	render()
	DeleteText(id)
	img = GetImage(0,0,size,size)
	SaveImage(img,filename$)
endfunction 
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    
    id = CreateObjectBox(.01,.01,.01)
    
    for x=width to 0 step -1
    for y=height-4 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
      
      
			if r>150 or g>150 or b>150 	
				//DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
				objects [ x, y] = CreateObjectSphere(3,20,20)
				SetObjectPosition(objects[x,y],x, -y , 0)
				SetObjectColor(objects[x,y],r,g,b,a)
				FixObjectToObject(objects[x,y],id)
			endif
        next
    next
     
    
     SetObjectScale(id,.5,.5,.5)
endfunction id