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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
// 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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber
colorWheelImg=createColorWheelImage(128)
colorWheelSpr=CreateSprite(colorWheelImg)
SetSpritePosition(colorWheelSpr,screenwidth-128,128)
drawImg=createDrawImage(126)
drawSpr=CreateSprite(drawImg)
SetSpritePosition(drawSpr,screenWidth-127,0)
frameImg=drawFrame(128)
frameSpr=createSprite(frameImg)
SetSpritePosition(frameSpr,screenWidth-128,0)
SetSpriteDepth(frameSpr,11)

global boxes as _boxes[]
//centreObjId=normalHeightFunction("\media\map.png") 
//centreObjId=smoothHeightFunction("\media\map.png") 
//SetCameraLookAt(1,GetObjectX(centreObjId),GetObjectY(centreObjId),GetObjectZ(centreObjId),1)
//deletedObjects=dohousekeeping()
camerax#=32
cameray#=20
cameraz#=-85

do
	//if getObjectExists(final_object) then MoveObjectLocalX(final_object,.05)	
	
	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
	if GetRawKeyPressed(KEY_M) 
		//final_object=mergememblocks()
		//if getObjectExists(final_object) then setobjectColor(final_object,0,200,0,255)
	endif	
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject(boxes,"final.obj","final.mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		if GetObjectExists(final_object)=0
			final_object=LoadObject("final.obj")
			SetObjectColor(final_object,random(1,255),random(1,255),random(1,255),255)
			camerax#=32
			cameray#=20
			cameraz#=-19.5
		endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		saveImage(drawImg,"map.png")
		centreObjId=normalHeightFunction("map.png") 
		deletedObjects=dohousekeeping()	
		//SetCameraLookAt(1,GetObjectX(centreObjId),GetObjectY(centreObjId),GetObjectZ(centreObjId),1)
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	hit=GetSpriteHit(getPointerX(),getPointerY())
	rem pick a colour from the screen
    if getPointerState()>0 and hit=colorWheelSpr
		col = pickColor(getPointerX(),getPointerY())
		alpha = (col && 0xFF000000) >> 24
		red = (col && 0x00FF0000) >> 16
		green = (col && 0x0000FF00) >> 8
		blue = col && 0x000000FF
    endif
	print("color=R" +str(red)+", G"+str(green)+", B"+str(blue)+", A"+str(alpha))
    
	if getPointerState()>0 and hit=drawSpr
		drawToImage(drawImg,getPointerX()-(screenwidth-128),128-getPointerY(),col)		
	endif	
	
	print(boxes.length)
	print("Press C to clear")
	print("Press E to Extrude")
	print("Press S to save objects as one")
	print("Press L to load object")
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=1 to size
	boxes.insert(box)
next num

objnumber=0:lastheight#=0
for z=depth-1 to 0 step -1
	for x= width-1 to 0 step -1
		
		//check the x plane
		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)
		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
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		//check the z plane
		zz=z+1:if zz>depth-1 then zz=depth-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[objnumber].id=(CreateObjectBox(1,1,1))
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		//boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		 
		inc objnumber:if objnumber =4095 then exitfunction centreObjID
	next x
next z
endfunction centreObjID

function normalHeightFunction(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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=0 to size
	boxes.insert(box)
next num
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/100.0
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId


function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(boxes as _boxes[],filename$ as string,material$ as string)
    fw = OpenToWrite(filename$) 
 
    WriteLine(fw,"#AGM Object - " + filename$)
    WriteLine(fw,"#Exported with AppGameKit")
    WriteLine(fw,"")
    WriteLine(fw,"mtllib " + material$)
	incrementalcounter=0
  
	`number of material
	m=0
	//nor=0
	//n=0
	for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteObject(boxes[t].id)
   DeleteMemblock(boxes[t].memID)
   boxes.remove(t)
  
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )     
endfunction




function createColorWheelImage(size#)
    rem set up data
    w = size#
    cx = w/2
    cy = w/2
     
    rem create image
    clearScreen()
    setScissor(0,0,w,w)
    `
    spr = createSprite(0)
    setSpriteSize(spr,1,1)
    setSpriteAngle(spr,45)
    `
    ang# = 0
    in# = 1.0/(size#/20.0)
    repeat
        rem set red value
        r# = 0.0
        v# = abs(wrap180(360-ang#))
        if v#<120
            if v#<=60
                r# = 255.0
            else
                r# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set green value
        g# = 0.0
        v# = abs(wrap180(120-ang#))
        if v#<120
            if v#<=60
                g# = 255.0
            else
                g# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set blue value
        b# = 0.0
        v# = abs(wrap180(240-ang#))
        if v#<120
            if v#<=60
                b# = 255.0
            else
                b# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem paint colour spoke
        fw# = w
        tot = w*0.5 - 2
        for i=1 to tot
            rem set lightness
            fi# = i
            f# = fi#/(fw#*0.5)
            if f#>0.5
                f# = 1.0 - (f#-0.5)/0.5
                thisR# = f#*r#
                thisG# = f#*g#
                thisB# = f#*b#
            else
                f# = 1.0 - f#/0.5
                thisR# = r# + (255.0-r#)*f#
                thisG# = g# + (255.0-g#)*f#
                thisB# = b# + (255.0-b#)*f#
            endif
             
            rem paint sprite
            setSpriteColor(spr,thisR#,thisG#,thisB#,255)
            setSpritePositionByOffset(spr,cx+1+sin(ang#)*fi#,cy+1-cos(ang#)*fi#)
            drawSprite(spr)
        next
        ang# = ang# + in#
    until ang#>360.0
    `
    deleteSprite(spr)
    `
    img = getImage(0,0,w,w)
    `
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
endfunction img
 
Function pickColor(X,Y)
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
     
    rem get image
    img = getImage(x,y,1,1)
     
    rem create memblock
    mem = createMemblockfromImage(img)
     
    rem get memblock data
    r = getMemblockbyte(mem,12)
    g = getMemblockbyte(mem,13)
    b = getMemblockbyte(mem,14)
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    
    clearScreen()
    color=makeColor(r,g,b)
endfunction color

function wrap180(v#)
    while v#>180.0
        v# = v# - 360.0
    endwhile
    while v#<-180.0
        v# = v# + 360.0
    endwhile
endfunction v#

function createDrawImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    //DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function createGreyWheelImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawFrame(size as integer)
	SetClearColor(0,0,0)
    ClearScreen()
    Render()
    //DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawToImage(image as integer,x as integer,y as integer,col)
	memblock=CreateMemblockFromImage(image)
	width = GetMemblockInt(memblock, 0)
 	height = GetMemblockInt(memblock, 4)
    A = (col && 0xFF000000) >> 24
    R = (col && 0x00FF0000) >> 16
	G = (col && 0x0000FF00) >> 8
	B = col && 0x000000FF
	if x<0 or x>width-1 then exitfunction
    if y<0 or y>height -1 then exitfunction
    
    R =R+ GetMemblockByte(memblock,12+(x*4)+((height-y)*4*width))
    G =G+ GetMemblockByte(memblock,13+(x*4)+((height-y)*4*width))
    B =B+ GetMemblockByte(memblock,14+(x*4)+((height-y)*4*width))
    A =A+ GetMemblockByte(memblock,15+(x*4)+((height-y)*4*width))
       
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
       
    SetMemblockByte(memblock,12+(x*4)+((height-y)*4*width),R) // Write Red 
    SetMemblockByte(memblock,13+(x*4)+((height-y)*4*width),G) // Write Green 
    SetMemblockByte(memblock,14+(x*4)+((height-y)*4*width),B) // Write Blue 
    SetMemblockByte(memblock,15+(x*4)+((height-y)*4*width),A) // Write Alpha full opaque (255)
    CreateImageFromMemblock(image,memblock ) 
    deleteMemblock(memblock)
endfunction	

createobjectbox(1,20,5,15 )
SetObjectColor(1,255,255,0,255)

createobjectbox(2,5,20,5)
SetObjectColor(2,255,0,255,255)

createobjectbox(3,30,4,30)
SetObjectColor(3,0,255,0,255)

setobjectposition(3,0,-10,0)
FixObjectToObject(3,1)
 
setobjectposition(3,20,0,0)


 
OpenToWrite ( 1, "cubo.obj", 0 )
Writeline ( 1, "mtllib color.mtl" )
 
`number of material
 m=0
 //nor=0
 //n=0
 
for t= 1 to 3

 for meshindex=1 to GetObjectNumMeshes(t)

mesh = CreateMemblockFromObjectMesh(t,meshindex)
`get object vertex quantity 
 verts= GetMemblockInt( mesh, 0 )
 writeline(1,"g ") //GROUP
  
 `VERTEX
 for i= 0 to verts -1
     x#=GetMeshMemblockVertexX(mesh,i)
     y#=GetMeshMemblockVertexy(mesh,i)
     z#=GetMeshMemblockVertexz(mesh,i)
     ox#=GetObjectWorldX(t)
     oy#=GetObjectWorldY(t)
     oz#=GetObjectWorldZ(t)
 
     Writeline ( 1, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
 next i
  
  `TEXTURE VEERTICES
   for i= 1 to verts
     uu#=GetMeshMemblockVertexU( mesh, i )
     vv#=GetMeshMemblockVertexV( mesh, i )
     writeline(1, " vt "+str(uu#)+" "+str(vv#))
   next
   
  `NORMALS
   for i= 0 to verts -1
     x#=GetMeshMemblockVertexnormalX(mesh,i)
     y#=GetMeshMemblockVertexnormaly(mesh,i)
     z#=GetMeshMemblockVertexnormalz(mesh,i)
 
     Writeline ( 1, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
    
   
 `FACES
  
 inc m,1
 Writeline ( 1,"usemtl Material.00"+str(m))
 s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (1, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   
  
DeleteMemblock(1)
next

next 
 
  CloseFile ( 1 )
  
  fw=OpenToWrite("color.mtl")
  
  for t=1 to 3 // loop through the objects

	Writeline ( fw,"newmtl Material.00"+str(t))

	
	  WriteLine(fw,"Kd " + str(GetObjectColorRed(t)/255.0) + " " + str(GetObjectColorGreen(t)/255.0) + " " + str(GetObjectColorBlue(t)/255.0))
	  
	next
  CloseFile(fw)
  
  
 loadobject(40,"cubo.obj")
 setobjectposition(40,0,25,0)


  
setcameraposition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)
do
    g=g+1
    setobjectrotation(40,0,g,0)
 
    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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
// 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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber
colorWheelImg=createColorWheelImage(128)
colorWheelSpr=CreateSprite(colorWheelImg)
SetSpritePosition(colorWheelSpr,screenwidth-128,128)
drawImg=createDrawImage(126)
drawSpr=CreateSprite(drawImg)
SetSpritePosition(drawSpr,screenWidth-127,0)
frameImg=drawFrame(128)
frameSpr=createSprite(frameImg)
SetSpritePosition(frameSpr,screenWidth-128,0)
SetSpriteDepth(frameSpr,11)

global boxes as _boxes[]
//TO LOAD AN IMAGE ON STARTUP UNCOOMENT ONE OF THE HEIGHT FUNCTIONS AND DOHOUSEKEEPING FUNCTIONS
//centreObjId=normalHeightFunction("logo4.png") 
//centreObjId=smoothHeightFunction("map.png") 
//deletedObjects=dohousekeeping()
camerax#=32
cameray#=20
cameraz#=-85

do
	//if getObjectExists(final_object) then MoveObjectLocalX(final_object,.05)	
	
	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
	if GetRawKeyPressed(KEY_M) 
		//final_object=mergememblocks()
		//if getObjectExists(final_object) then setobjectColor(final_object,0,200,0,255)
	endif	
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("final.obj","final.mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		if GetObjectExists(final_object)=0
			final_object=LoadObject("final.obj")
			SetObjectColor(final_object,random(1,255),random(1,255),random(1,255),255)
			camerax#=32
			cameray#=20
			cameraz#=-19.5
		endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		saveImage(drawImg,"map.png")
		centreObjId=normalHeightFunction("map.png") 
		deletedObjects=dohousekeeping()	
		//SetCameraLookAt(1,GetObjectX(centreObjId),GetObjectY(centreObjId),GetObjectZ(centreObjId),1)
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	hit=GetSpriteHit(getPointerX(),getPointerY())
	rem pick a colour from the screen
    if getPointerState()>0 and hit=colorWheelSpr
		col = pickColor(getPointerX(),getPointerY())
		alpha = (col && 0xFF000000) >> 24
		red = (col && 0x00FF0000) >> 16
		green = (col && 0x0000FF00) >> 8
		blue = col && 0x000000FF
    endif
	print("color=R" +str(red)+", G"+str(green)+", B"+str(blue)+", A"+str(alpha))
    
	if getPointerState()>0 and hit=drawSpr
		drawToImage(drawImg,getPointerX()-(screenwidth-128),128-getPointerY(),col)		
	endif	
	
	print(boxes.length)
	print("Press C to clear")
	print("Press E to Extrude")
	print("Press S to save objects as one")
	print("Press L to load object")
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=1 to size
	boxes.insert(box)
next num

objnumber=0:lastheight#=0
for z=depth-1 to 0 step -1
	for x= width-1 to 0 step -1
		
		//check the x plane
		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)
		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
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		//check the z plane
		zz=z+1:if zz>depth-1 then zz=depth-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[objnumber].id=(CreateObjectBox(1,1,1))
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		//boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		 
		inc objnumber:if objnumber =4095 then exitfunction centreObjID
	next x
next z
endfunction centreObjID

function normalHeightFunction(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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=0 to size
	boxes.insert(box)
next num
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/100.0
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId


function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
 
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + material$)
incrementalcounter=0
  
`number of material
m=0
	//nor=0
	//n=0
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )   
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		Writeline ( fw,"newmtl Material.00"+str(t))
		WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
    	DeleteObject(boxes[t].id)
		DeleteMemblock(boxes[t].memID)
		boxes.remove(t)
	endif
next t
CloseFile(fw)
for num = boxes.length to 0 step -1
	DeleteObject(boxes[num].id)
	DeleteMemblock(boxes[num].memID)
	boxes.remove(num)
next num	
DeleteAllObjects()

endfunction




function createColorWheelImage(size#)
    rem set up data
    w = size#
    cx = w/2
    cy = w/2
     
    rem create image
    clearScreen()
    setScissor(0,0,w,w)
    `
    spr = createSprite(0)
    setSpriteSize(spr,1,1)
    setSpriteAngle(spr,45)
    `
    ang# = 0
    in# = 1.0/(size#/20.0)
    repeat
        rem set red value
        r# = 0.0
        v# = abs(wrap180(360-ang#))
        if v#<120
            if v#<=60
                r# = 255.0
            else
                r# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set green value
        g# = 0.0
        v# = abs(wrap180(120-ang#))
        if v#<120
            if v#<=60
                g# = 255.0
            else
                g# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set blue value
        b# = 0.0
        v# = abs(wrap180(240-ang#))
        if v#<120
            if v#<=60
                b# = 255.0
            else
                b# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem paint colour spoke
        fw# = w
        tot = w*0.5 - 2
        for i=1 to tot
            rem set lightness
            fi# = i
            f# = fi#/(fw#*0.5)
            if f#>0.5
                f# = 1.0 - (f#-0.5)/0.5
                thisR# = f#*r#
                thisG# = f#*g#
                thisB# = f#*b#
            else
                f# = 1.0 - f#/0.5
                thisR# = r# + (255.0-r#)*f#
                thisG# = g# + (255.0-g#)*f#
                thisB# = b# + (255.0-b#)*f#
            endif
             
            rem paint sprite
            setSpriteColor(spr,thisR#,thisG#,thisB#,255)
            setSpritePositionByOffset(spr,cx+1+sin(ang#)*fi#,cy+1-cos(ang#)*fi#)
            drawSprite(spr)
        next
        ang# = ang# + in#
    until ang#>360.0
    `
    deleteSprite(spr)
    `
    img = getImage(0,0,w,w)
    `
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
endfunction img
 
Function pickColor(X,Y)
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
     
    rem get image
    img = getImage(x,y,1,1)
     
    rem create memblock
    mem = createMemblockfromImage(img)
     
    rem get memblock data
    r = getMemblockbyte(mem,12)
    g = getMemblockbyte(mem,13)
    b = getMemblockbyte(mem,14)
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    
    clearScreen()
    color=makeColor(r,g,b)
endfunction color

function wrap180(v#)
    while v#>180.0
        v# = v# - 360.0
    endwhile
    while v#<-180.0
        v# = v# + 360.0
    endwhile
endfunction v#

function createDrawImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    //DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function createGreyWheelImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawFrame(size as integer)
	SetClearColor(0,0,0)
    ClearScreen()
    Render()
    //DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawToImage(image as integer,x as integer,y as integer,col)
	memblock=CreateMemblockFromImage(image)
	width = GetMemblockInt(memblock, 0)
 	height = GetMemblockInt(memblock, 4)
    A = (col && 0xFF000000) >> 24
    R = (col && 0x00FF0000) >> 16
	G = (col && 0x0000FF00) >> 8
	B = col && 0x000000FF
	if x<0 or x>width-1 then exitfunction
    if y<0 or y>height -1 then exitfunction
    
    R =R+ GetMemblockByte(memblock,12+(x*4)+((height-y)*4*width))
    G =G+ GetMemblockByte(memblock,13+(x*4)+((height-y)*4*width))
    B =B+ GetMemblockByte(memblock,14+(x*4)+((height-y)*4*width))
    A =A+ GetMemblockByte(memblock,15+(x*4)+((height-y)*4*width))
       
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
       
    SetMemblockByte(memblock,12+(x*4)+((height-y)*4*width),R) // Write Red 
    SetMemblockByte(memblock,13+(x*4)+((height-y)*4*width),G) // Write Green 
    SetMemblockByte(memblock,14+(x*4)+((height-y)*4*width),B) // Write Blue 
    SetMemblockByte(memblock,15+(x*4)+((height-y)*4*width),A) // Write Alpha full opaque (255)
    CreateImageFromMemblock(image,memblock ) 
    deleteMemblock(memblock)
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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
// 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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber
colorWheelImg=createColorWheelImage(128)
colorWheelSpr=CreateSprite(colorWheelImg)
SetSpritePosition(colorWheelSpr,screenwidth-128,128)
drawImg=createDrawImage(126)
drawSpr=CreateSprite(drawImg)
SetSpritePosition(drawSpr,screenWidth-127,0)
frameImg=drawFrame(128)
frameSpr=createSprite(frameImg)
SetSpritePosition(frameSpr,screenWidth-128,0)
SetSpriteDepth(frameSpr,11)

global boxes as _boxes[]
//TO LOAD AN IMAGE ON STARTUP UNCOOMENT ONE OF THE HEIGHT FUNCTIONS AND DOHOUSEKEEPING FUNCTIONS
centreObjId=normalHeightFunction("logo4.png") 
//centreObjId=smoothHeightFunction("map.png") 
deletedObjects=dohousekeeping()
camerax#=32
cameray#=20
cameraz#=-85

do
	//if getObjectExists(final_object) then MoveObjectLocalX(final_object,.05)	
	
	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
	if GetRawKeyPressed(KEY_M) 
		//final_object=mergememblocks()
		//if getObjectExists(final_object) then setobjectColor(final_object,0,200,0,255)
	endif	
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("final.obj","final.mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		if GetObjectExists(final_object)=0
			final_object=LoadObject("final.obj")
			SetObjectColor(final_object,random(1,255),random(1,255),random(1,255),255)
			camerax#=32
			cameray#=20
			cameraz#=-19.5
		endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		saveImage(drawImg,"map.png")
		centreObjId=normalHeightFunction("map.png") 
		deletedObjects=dohousekeeping()	
		//SetCameraLookAt(1,GetObjectX(centreObjId),GetObjectY(centreObjId),GetObjectZ(centreObjId),1)
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,getObjectY(boxes[num].id)-yy#,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
	endif
	
	
	hit=GetSpriteHit(getPointerX(),getPointerY())
	rem pick a colour from the screen
    if getPointerState()>0 and hit=colorWheelSpr
		col = pickColor(getPointerX(),getPointerY())
		alpha = (col && 0xFF000000) >> 24
		red = (col && 0x00FF0000) >> 16
		green = (col && 0x0000FF00) >> 8
		blue = col && 0x000000FF
    endif
	print("color=R" +str(red)+", G"+str(green)+", B"+str(blue)+", A"+str(alpha))
    
	if getPointerState()>0 and hit=drawSpr
		drawToImage(drawImg,getPointerX()-(screenwidth-128),128-getPointerY(),col)		
	endif	
	
	print(boxes.length)
	print("Press Home to center")
	print("Press C to clear")
	print("Press E to Extrude")
	print("Press S to save objects as one")
	print("Press L to load object")
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=1 to size
	boxes.insert(box)
next num

objnumber=0:lastheight#=0
for z=depth-1 to 0 step -1
	for x= width-1 to 0 step -1
		
		//check the x plane
		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)
		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
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		//check the z plane
		zz=z+1:if zz>depth-1 then zz=depth-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[objnumber].id=(CreateObjectBox(1,1,1))
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		//boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		 
		inc objnumber:if objnumber =4095 then exitfunction centreObjID
	next x
next z
endfunction centreObjID

function normalHeightFunction(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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=0 to size
	boxes.insert(box)
next num
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/100.0
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId


function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
 
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + material$)
incrementalcounter=0
  
`number of material
m=0
	//nor=0
	//n=0
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )   
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		Writeline ( fw,"newmtl Material.00"+str(t))
		WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
    	DeleteObject(boxes[t].id)
		DeleteMemblock(boxes[t].memID)
		boxes.remove(t)
	endif
next t
CloseFile(fw)
for num = boxes.length to 0 step -1
	DeleteObject(boxes[num].id)
	DeleteMemblock(boxes[num].memID)
	boxes.remove(num)
next num	
DeleteAllObjects()

endfunction




function createColorWheelImage(size#)
    rem set up data
    w = size#
    cx = w/2
    cy = w/2
     
    rem create image
    clearScreen()
    setScissor(0,0,w,w)
    `
    spr = createSprite(0)
    setSpriteSize(spr,1,1)
    setSpriteAngle(spr,45)
    `
    ang# = 0
    in# = 1.0/(size#/20.0)
    repeat
        rem set red value
        r# = 0.0
        v# = abs(wrap180(360-ang#))
        if v#<120
            if v#<=60
                r# = 255.0
            else
                r# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set green value
        g# = 0.0
        v# = abs(wrap180(120-ang#))
        if v#<120
            if v#<=60
                g# = 255.0
            else
                g# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set blue value
        b# = 0.0
        v# = abs(wrap180(240-ang#))
        if v#<120
            if v#<=60
                b# = 255.0
            else
                b# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem paint colour spoke
        fw# = w
        tot = w*0.5 - 2
        for i=1 to tot
            rem set lightness
            fi# = i
            f# = fi#/(fw#*0.5)
            if f#>0.5
                f# = 1.0 - (f#-0.5)/0.5
                thisR# = f#*r#
                thisG# = f#*g#
                thisB# = f#*b#
            else
                f# = 1.0 - f#/0.5
                thisR# = r# + (255.0-r#)*f#
                thisG# = g# + (255.0-g#)*f#
                thisB# = b# + (255.0-b#)*f#
            endif
             
            rem paint sprite
            setSpriteColor(spr,thisR#,thisG#,thisB#,255)
            setSpritePositionByOffset(spr,cx+1+sin(ang#)*fi#,cy+1-cos(ang#)*fi#)
            drawSprite(spr)
        next
        ang# = ang# + in#
    until ang#>360.0
    `
    deleteSprite(spr)
    `
    img = getImage(0,0,w,w)
    `
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
endfunction img
 
Function pickColor(X,Y)
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
     
    rem get image
    img = getImage(x,y,1,1)
     
    rem create memblock
    mem = createMemblockfromImage(img)
     
    rem get memblock data
    r = getMemblockbyte(mem,12)
    g = getMemblockbyte(mem,13)
    b = getMemblockbyte(mem,14)
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    
    clearScreen()
    color=makeColor(r,g,b)
endfunction color

function wrap180(v#)
    while v#>180.0
        v# = v# - 360.0
    endwhile
    while v#<-180.0
        v# = v# + 360.0
    endwhile
endfunction v#

function createDrawImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    //DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function createGreyWheelImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawFrame(size as integer)
	SetClearColor(0,0,0)
    ClearScreen()
    Render()
    //DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawToImage(image as integer,x as integer,y as integer,col)
	memblock=CreateMemblockFromImage(image)
	width = GetMemblockInt(memblock, 0)
 	height = GetMemblockInt(memblock, 4)
    A = (col && 0xFF000000) >> 24
    R = (col && 0x00FF0000) >> 16
	G = (col && 0x0000FF00) >> 8
	B = col && 0x000000FF
	if x<0 or x>width-1 then exitfunction
    if y<0 or y>height -1 then exitfunction
    
    R =R+ GetMemblockByte(memblock,12+(x*4)+((height-y)*4*width))
    G =G+ GetMemblockByte(memblock,13+(x*4)+((height-y)*4*width))
    B =B+ GetMemblockByte(memblock,14+(x*4)+((height-y)*4*width))
    A =A+ GetMemblockByte(memblock,15+(x*4)+((height-y)*4*width))
       
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
       
    SetMemblockByte(memblock,12+(x*4)+((height-y)*4*width),R) // Write Red 
    SetMemblockByte(memblock,13+(x*4)+((height-y)*4*width),G) // Write Green 
    SetMemblockByte(memblock,14+(x*4)+((height-y)*4*width),B) // Write Blue 
    SetMemblockByte(memblock,15+(x*4)+((height-y)*4*width),A) // Write Alpha full opaque (255)
    CreateImageFromMemblock(image,memblock ) 
    deleteMemblock(memblock)
endfunction	

// Project: greedy algorythm 
// Created: 2019-01-02
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "greedy algorythm" )
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
 
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 nongreedy=0
 
global strings as string[]
 
type _boxes
    id
    x#
    y#
    z#
endtype
global boxes as _boxes[]
global box as _boxes
 

size= 16
for x#=-size to size
	for y#=-size to size
		for z#=-size to size
	
			if random(0,1)=1
				buildAGKCubeIntoMesh(x#,y#,z#, MakeColor(0,random(200,255),0))
				inc nongreedy
			endif
		next
	next
next


ncube = CreateObjectFromMeshWithColor(meshid)

SetObjectPosition(ncube,1,0,0)

SetCameraPosition(1,0,50,-100)

angx#=0
angy#=0
startx#=screenwidth/2
starty#=screenheight/2
SetRawMousePosition(startx#,starty#)
do
 
	RotateObjectLocalX(ncube,.05)
	RotateObjectLocalY(ncube,.05)
	RotateObjectLocalZ(ncube,.05)
    print("greedy cubes " + str(boxes.length))
    print("compared to non greedy cubes " + str(nongreedy))
       print("Press lft mouse to create an OBJ")
    if GetRawMouseLeftPressed()
           // AGM_SaveObject(boxes,1,"boxes","raw:c:\database\","test.obj","test.mtl","",0)
    endif
 
    if GetRawKeyPressed(27) then end
 
        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
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
     
 
    Print( ScreenFPS() )
    Sync()
loop

function buildAGKCubeIntoMesh(x#,y#,z#,c)
cube = CreateObjectBox(1,1,1)
SetObjectPosition(cube,x#,y#,z#)

mesh = CreateMemblockFromObjectMesh(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)
endfunction


 
function buildmap_Greedy(sizey)
    box as _boxes
    a=0
     
    xcount=0
    zcount=0
    startedx=1
    nongreedy=0
    for z=0 to strings.length
        for y=0 to sizey
        posx=0
        for x=1 to len(strings[z])
            inc nongreedy
            if mid(strings[z],x,1)="1"
                inc xcount
                if startedx=1 then posx=x+1
                startedx=2
                 
                made=0  
            else
                 
                 
                if made=0
                    box.id = CreateObjectBox(xcount,1,1) // +1 cause xcount starts at 0
                    box.x# = posx+xcount/2
                    box.y# = y
                    box.z# = z
                    boxes.insert(box)
                    SetObjectPosition(boxes[a].id,boxes[a].x#,boxes[a].y#,boxes[a].z#)
                     
                    SetObjectColor(boxes[a].id,random(200,255),random(200,255),random(200,255),255)
                    inc a
                    startedx=1
                    xcount=0
                else
                    made=1
                endif
                 
            endif
             
        next
 
//      if made=0 // is the object been made yet for this row
//              boxes.insert(CreateObjectBox(xcount+1,1,1)) // +1 cause xcount starts at 0
             
//              SetObjectPosition(boxes[a],x,0,z)
//              SetObjectColor(boxes[a],random(200,255),random(200,255),random(200,255),255)
//              inc a
//              xcount=0
//      endif
 
        next
    next
 
endfunction
 
function dispose()
     
    for a=0 to boxes.length
        DeleteObject(boxes[a].id)
    next
    strings.length=-1
    boxes.length=-1
endfunction
 
function makemap(sizex,sizey,sizez)
     
    for z=0 to sizez
            strings.insert("")
            for x=0 to sizex
                strings[z]=strings[z]+str(random(0,1))
             
         
            next
            strings[z]=strings[z]+"0"
    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

// 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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
// 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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber
global width
//colorWheelImg=createColorWheelImage(128)
//colorWheelSpr=CreateSprite(colorWheelImg)
//SetSpritePosition(colorWheelSpr,screenwidth-128,128)
//drawImg=createDrawImage(126)
//drawSpr=CreateSprite(drawImg)
//SetSpritePosition(drawSpr,screenWidth-127,0)
//frameImg=drawFrame(128)
//frameSpr=createSprite(frameImg)
//SetSpritePosition(frameSpr,screenWidth-128,0)
//SetSpriteDepth(frameSpr,11)

global boxes as _boxes[]
//TO LOAD AN IMAGE ON STARTUP UNCOOMENT ONE OF THE HEIGHT FUNCTIONS AND DOHOUSEKEEPING FUNCTIONS
centreObjId=normalHeightFunction("logo4.png") 
//centreObjId=smoothHeightFunction("map.png") 
deletedObjects=dohousekeeping()
camerax#=32
cameray#=20
cameraz#=-85

do
	//if getObjectExists(final_object) then MoveObjectLocalX(final_object,.05)	
	
	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
	if GetRawKeyPressed(KEY_M) 
		//final_object=mergememblocks()
		//if getObjectExists(final_object) then setobjectColor(final_object,0,200,0,255)
	endif	
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("final.obj","final.mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		if GetObjectExists(final_object)=0
			final_object=LoadObject("final.obj")
			SetObjectColor(final_object,random(1,255),random(1,255),random(1,255),255)
			RotateObjectLocalY(final_object,180)
			//RotateObjectLocalZ(final_object,90)
			
			camerax#=-82
			cameray#=50
			cameraz#=-100
		endif
	endif	
	
	//if GetRawKeyPressed(KEY_E)
	//	saveImage(drawImg,"map.png")
	//	centreObjId=normalHeightFunction("map.png") 
	//	deletedObjects=dohousekeeping()	
	//endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,getObjectY(boxes[num].id)-yy#,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
	endif
	
	
	//hit=GetSpriteHit(getPointerX(),getPointerY())
	rem pick a colour from the screen
    //if getPointerState()>0 and hit=colorWheelSpr
	//	col = pickColor(getPointerX(),getPointerY())
	//	alpha = (col && 0xFF000000) >> 24
	//	red = (col && 0x00FF0000) >> 16
	//	green = (col && 0x0000FF00) >> 8
	//	blue = col && 0x000000FF
    //endif
	//print("color=R" +str(red)+", G"+str(green)+", B"+str(blue)+", A"+str(alpha))
    
	//if getPointerState()>0 and hit=drawSpr
	//	drawToImage(drawImg,getPointerX()-(screenwidth-128),128-getPointerY(),col)		
	//endif	
	
	print(boxes.length)
	print("Press Home to center")
	print("Press C to clear")
    //print("Press E to Extrude")
	print("Press S to save objects as one")
	print("Press L to load object")
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=1 to size
	boxes.insert(box)
next num

objnumber=0:lastheight#=0
for z=depth-1 to 1 step -1
	for x= width-1 to 0 step -1
		
		//check the x plane
		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)
		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
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		//check the z plane
		zz=z+1:if zz>depth-1 then zz=depth-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[objnumber].id=(CreateObjectBox(1,1,1))
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		//boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+prevHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+nextHeight#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID)
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z
endfunction centreObjID

function normalHeightFunction(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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
size=abs(width*depth)
for num=0 to size
	boxes.insert(box)
next num
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/100.0
		boxes[objnumber].id=CreateObjectBox(1,1,1)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId


function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
 
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + material$)
incrementalcounter=0
  
`number of material
m=0
	//nor=0
	//n=0
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=(width-1)-GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )   
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		Writeline ( fw,"newmtl Material.00"+str(t))
		WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
    	DeleteObject(boxes[t].id)
		DeleteMemblock(boxes[t].memID)
		boxes.remove(t)
	endif
next t
CloseFile(fw)
for num = boxes.length to 0 step -1
	DeleteObject(boxes[num].id)
	DeleteMemblock(boxes[num].memID)
	boxes.remove(num)
next num	
DeleteAllObjects()

endfunction




function createColorWheelImage(size#)
    rem set up data
    w = size#
    cx = w/2
    cy = w/2
     
    rem create image
    clearScreen()
    setScissor(0,0,w,w)
    `
    spr = createSprite(0)
    setSpriteSize(spr,1,1)
    setSpriteAngle(spr,45)
    `
    ang# = 0
    in# = 1.0/(size#/20.0)
    repeat
        rem set red value
        r# = 0.0
        v# = abs(wrap180(360-ang#))
        if v#<120
            if v#<=60
                r# = 255.0
            else
                r# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set green value
        g# = 0.0
        v# = abs(wrap180(120-ang#))
        if v#<120
            if v#<=60
                g# = 255.0
            else
                g# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem set blue value
        b# = 0.0
        v# = abs(wrap180(240-ang#))
        if v#<120
            if v#<=60
                b# = 255.0
            else
                b# = (1.0-((v#-60)/60.0))*255
            endif
        endif
         
        rem paint colour spoke
        fw# = w
        tot = w*0.5 - 2
        for i=1 to tot
            rem set lightness
            fi# = i
            f# = fi#/(fw#*0.5)
            if f#>0.5
                f# = 1.0 - (f#-0.5)/0.5
                thisR# = f#*r#
                thisG# = f#*g#
                thisB# = f#*b#
            else
                f# = 1.0 - f#/0.5
                thisR# = r# + (255.0-r#)*f#
                thisG# = g# + (255.0-g#)*f#
                thisB# = b# + (255.0-b#)*f#
            endif
             
            rem paint sprite
            setSpriteColor(spr,thisR#,thisG#,thisB#,255)
            setSpritePositionByOffset(spr,cx+1+sin(ang#)*fi#,cy+1-cos(ang#)*fi#)
            drawSprite(spr)
        next
        ang# = ang# + in#
    until ang#>360.0
    `
    deleteSprite(spr)
    `
    img = getImage(0,0,w,w)
    `
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
endfunction img
 
Function pickColor(X,Y)
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
     
    rem get image
    img = getImage(x,y,1,1)
     
    rem create memblock
    mem = createMemblockfromImage(img)
     
    rem get memblock data
    r = getMemblockbyte(mem,12)
    g = getMemblockbyte(mem,13)
    b = getMemblockbyte(mem,14)
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    
    clearScreen()
    color=makeColor(r,g,b)
endfunction color

function wrap180(v#)
    while v#>180.0
        v# = v# - 360.0
    endwhile
    while v#<-180.0
        v# = v# + 360.0
    endwhile
endfunction v#

function createDrawImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    //DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function createGreyWheelImage(size as integer)
    rem create an ellipse that can be used as a sprite 
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawFrame(size as integer)
	SetClearColor(0,0,0)
    ClearScreen()
    Render()
    //DrawBox(0,0,size-1,size-1,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    DrawBox(0,0,size-1,size-1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
    Swap()
    img=getimage(0,0,size,size)
    sync()
endfunction img

function drawToImage(image as integer,x as integer,y as integer,col)
	memblock=CreateMemblockFromImage(image)
	width = GetMemblockInt(memblock, 0)
 	height = GetMemblockInt(memblock, 4)
    A = (col && 0xFF000000) >> 24
    R = (col && 0x00FF0000) >> 16
	G = (col && 0x0000FF00) >> 8
	B = col && 0x000000FF
	if x<0 or x>width-1 then exitfunction
    if y<0 or y>height -1 then exitfunction
    
    R =R+ GetMemblockByte(memblock,12+(x*4)+((height-y)*4*width))
    G =G+ GetMemblockByte(memblock,13+(x*4)+((height-y)*4*width))
    B =B+ GetMemblockByte(memblock,14+(x*4)+((height-y)*4*width))
    A =A+ GetMemblockByte(memblock,15+(x*4)+((height-y)*4*width))
       
    if R>255 then R=255
    if G>255 then G=255
    if B>255 then B=255
    if A>255 then A=255
       
    SetMemblockByte(memblock,12+(x*4)+((height-y)*4*width),R) // Write Red 
    SetMemblockByte(memblock,13+(x*4)+((height-y)*4*width),G) // Write Green 
    SetMemblockByte(memblock,14+(x*4)+((height-y)*4*width),B) // Write Blue 
    SetMemblockByte(memblock,15+(x*4)+((height-y)*4*width),A) // Write Alpha full opaque (255)
    CreateImageFromMemblock(image,memblock ) 
    deleteMemblock(memblock)
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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.2" )
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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber,width
global boxes as _boxes[]
camerax#=32
cameray#=20
cameraz#=-85
centreObjId=0
image=0
extrude=100

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
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("raw:"+left(ret$,len(ret$)-4)+".obj","raw:"+left(ret$,len(ret$)-4)+".mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		ret$=ChooseRawFile("*.jpg;*.png",1)
		if ret$<>""
             image=loadImage("raw:"+ret$)
        endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		if ret$<>""
			if GetRawKeyState(KEY_SHIFT)
				centreObjId=smoothHeightFunction(extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()
			else
				centreObjId=normalHeightFunction(extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()				
			endif	
		endif	
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	if GetRawKeyState(KEY_PLUS) and extrude >1
		dec extrude
	endif
	
	if GetRawKeyState(KEY_SUBTRACT) and extrude <255
		inc extrude
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,0,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
		cameray#=25
		cameraz#=-50
	endif
	
	print(left(ret$,len(ret$)-4))
	print(boxes.length)
	print("Press Home to center")
	print("Press C to clear")
    print("Press L to load image")
	print("Press S to save objects as one mesh")
	print("Press E to Extrude image to objects")
	print("Press SHIFT + E Smooth Extrude")
	print("Press - less extrude value")
	print("Press + more extrude value")
	print("Press Extrude value "+str(256-extrude))
	
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Sync()
loop

function normalHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/extrudeDivisor 
		box.id=CreateObjectBox(1,1,1)
		boxes.insert(box)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

rem create grid of boxes
objnumber=0
for z=depth to 1 step -2
	for x= width to 1 step -2
		box.id=CreateObjectBox(2,1,2)
		
		SetObjectPosition(box.id,x, 0 ,-z)
		boxes.insert(box)
		inc objnumber
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
	next x
next z
objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 1 step -1
    for x= width-1 to 1 step -1
		//in order rightback,leftback,rightfront,leftfront
        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)
        color#=(r+g+b)
        Height1#=color#/extrudeDivisor 
        Offset = (12+((z * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        Height2#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        Height3#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        Height4#=color#/extrudeDivisor 
        //if GetObjectExists(boxes[objnumber].id)
            SetObjectColor(boxes[objnumber].id,r,g,b,a)
            boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

            for i = 0 to 2
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height1#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height2#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height3#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height4#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
            next i              
              
            SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
            DeleteMemblock(boxes[objnumber].memID)
        //endif
        if mod(x,2)<>0 and mod(z,2)<>0
            inc objnumber:rem if objnumber =width*depth then exitfunction centreObjID
        endif
    next x
next z

endfunction	centreObjId

function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
 
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + trimPath(material$))
incrementalcounter=0
  
`number of material
m=0
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=(width-1)-GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )   
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		Writeline ( fw,"newmtl Material.00"+str(t))
		WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
    	DeleteObject(boxes[t].id)
		DeleteMemblock(boxes[t].memID)
		boxes.remove(t)
	endif
next t
CloseFile(fw)
for num = boxes.length to 0 step -1
	DeleteObject(boxes[num].id)
	DeleteMemblock(boxes[num].memID)
	boxes.remove(num)
next num	
DeleteAllObjects()

endfunction

function trimPath(str$ as string)
num=len(str$)
if num<1 then exitfunction ""
repeat 
	dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)	
	trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$

function smoothHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

rem create grid of boxes
objnumber=0
for z=depth to 1 step -2
	for x= width to 1 step -2
		box.id=CreateObjectBox(2,1,2)
		
		SetObjectPosition(box.id,x, 0 ,-z)
		boxes.insert(box)
		inc objnumber
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
	next x
next z
objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 1 step -1
    for x= width-1 to 1 step -1
		//in order rightback,leftback,rightfront,leftfront
        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)
        color#=(r+g+b)
        Height1#=color#/extrudeDivisor 
        Offset = (12+((z * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        Height2#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        Height3#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        Height4#=color#/extrudeDivisor 
        //if GetObjectExists(boxes[objnumber].id)
            SetObjectColor(boxes[objnumber].id,r,g,b,a)
            boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

            for i = 0 to 2
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height1#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height2#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height3#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height4#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
            next i              
              
            SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
            DeleteMemblock(boxes[objnumber].memID)
        //endif
        if mod(x,2)<>0 and mod(z,2)<>0
            inc objnumber:rem if objnumber =width*depth then exitfunction centreObjID
        endif
    next x
next z

endfunction	centreObjId

// 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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.2" )
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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber,width
global boxes as _boxes[]
camerax#=32
cameray#=20
cameraz#=-85
centreObjId=0
image=0
extrude=100

do
	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.25
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.25
	if GetRawKeyState(KEY_UP) then dec cameray#,.25
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.25
	if GetRawKeyState(KEY_A) then inc cameraz#,.25
	if GetRawKeyState(KEY_Z) then dec cameraz#,.25
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("raw:"+left(ret$,len(ret$)-4)+".obj","raw:"+left(ret$,len(ret$)-4)+".mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		ret$=ChooseRawFile("*.jpg;*.png",1)
		if ret$<>""
             image=loadImage("raw:"+ret$)
        endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		if ret$<>""
			if GetRawKeyState(KEY_SHIFT)
				centreObjId=smoothHeightFunction(extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()
			else
				centreObjId=normalHeightFunction(extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()				
			endif	
		endif	
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	if GetRawKeyState(KEY_PLUS) and extrude >1
		dec extrude
	endif
	
	if GetRawKeyState(KEY_SUBTRACT) and extrude <255
		inc extrude
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,0,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
		cameray#=25
		cameraz#=-50
	endif
	print("Mesh Extrude Tool V2.0")
	if ret$="" 
		print("No image Loaded please load an image to extrude")
	else	
		print(left(ret$,len(ret$)))
	endif
	if boxes.length<0 
		print("No blocks in memory please use one of the extrude functions")
	else
		print("Number of blocks in memory "+str(boxes.length))
	endif	
	print("Press Home to center")
	print("Press C to clear")
    print("Press L to load image")
	print("Press S to save objects as one mesh")
	print("Press E to Extrude image to objects")
	print("Press SHIFT + E Smooth Extrude")
	print("Press - less extrude value before extruding")
	print("Press + more extrude value before extruding")
	print("Extrude value (> value is > extrude ie 156) "+str(256-extrude))
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Sync()
loop

function normalHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/extrudeDivisor 
		box.id=CreateObjectBox(1,1,1)
		boxes.insert(box)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

rem create grid of boxes
objnumber=0
for z=depth to 1 step -2
	for x= width to 1 step -2
		box.id=CreateObjectBox(2,1,2)
		
		SetObjectPosition(box.id,x, 0 ,-z)
		boxes.insert(box)
		inc objnumber
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
	next x
next z
objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 1 step -2
    for x= width-1 to 1 step -2
		//in order rightfront,leftfront,rightback,leftback
        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)
        color#=(r+g+b)
        HeightRF#=color#/extrudeDivisor 
        Offset = (12+((z * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLF#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightRB#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLB#=color#/extrudeDivisor 
        //if GetObjectExists(boxes[objnumber].id)
            SetObjectColor(boxes[objnumber].id,r,g,b,a)
            boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

            for i = 0 to 2
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
            next i              
              
            SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
            DeleteMemblock(boxes[objnumber].memID)
        //endif
        //if mod(x,2)<>0 and mod(z,2)
            inc objnumber:rem if objnumber =width*depth then exitfunction centreObjID
        //endif
    next x
next z

endfunction	centreObjId

function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
 
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + trimPath(material$))
incrementalcounter=0
  
`number of material
m=0
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=(width-1)-GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )   
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		Writeline ( fw,"newmtl Material.00"+str(t))
		WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
    	DeleteObject(boxes[t].id)
		DeleteMemblock(boxes[t].memID)
		boxes.remove(t)
	endif
next t
CloseFile(fw)
for num = boxes.length to 0 step -1
	DeleteObject(boxes[num].id)
	DeleteMemblock(boxes[num].memID)
	boxes.remove(num)
next num	
DeleteAllObjects()

endfunction

function trimPath(str$ as string)
num=len(str$)
if num<1 then exitfunction ""
repeat 
	dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)	
	trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$

// 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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.2" )
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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber,width
global boxes as _boxes[]
camerax#=32
cameray#=20
cameraz#=-85
centreObjId=0
image=0
extrude=100

do
	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.25
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.25
	if GetRawKeyState(KEY_UP) then dec cameray#,.25
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.25
	if GetRawKeyState(KEY_A) then inc cameraz#,.25
	if GetRawKeyState(KEY_Z) then dec cameraz#,.25
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("raw:"+left(ret$,len(ret$)-4)+".obj","raw:"+left(ret$,len(ret$)-4)+".mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		ret$=ChooseRawFile("*.jpg;*.png",1)
		if ret$<>""
             image=loadImage("raw:"+ret$)
        endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		if ret$<>""
			if GetRawKeyState(KEY_SHIFT)
				centreObjId=smoothHeightFunction(extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()
			else
				centreObjId=normalHeightFunction(extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()				
			endif	
		endif	
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	if GetRawKeyState(KEY_PLUS) and extrude >1
		dec extrude
	endif
	
	if GetRawKeyState(KEY_SUBTRACT) and extrude <255
		inc extrude
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,0,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
		cameray#=25
		cameraz#=-50
	endif
	print("Mesh Extrude Tool V2.0")
	if ret$="" 
		print("No image Loaded please load an image to extrude")
	else	
		print(left(ret$,len(ret$)))
	endif
	if boxes.length<0 
		print("No blocks in memory please use one of the extrude functions")
	else
		print("Number of blocks in memory "+str(boxes.length))
	endif	
	print("Press Home to center")
	print("Press C to clear")
    print("Press L to load image")
	print("Press S to save objects as one mesh")
	print("Press E to Extrude image to objects")
	print("Press SHIFT + E Smooth Extrude")
	print("Press - less extrude value before extruding")
	print("Press + more extrude value before extruding")
	print("Extrude value (> value is > extrude ie 156) "+str(256-extrude))
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Sync()
loop

function normalHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/extrudeDivisor 
		box.id=CreateObjectBox(1,1,1)
		boxes.insert(box)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

rem create grid of boxes
objnumber=0
for z=depth to 1 step -2
	for x= width to 1 step -2
		box.id=CreateObjectBox(2,1,2)
		
		SetObjectPosition(box.id,x, 0 ,-z)
		boxes.insert(box)
		inc objnumber
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
	next x
next z
objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 1 step -2
    for x= width-1 to 1 step -2
		//in order rightfront,leftfront,rightback,leftback
        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)
        color#=(r+g+b)
        HeightRF#=color#/extrudeDivisor 
        Offset = (12+((z * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLF#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightRB#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLB#=color#/extrudeDivisor 
        //if GetObjectExists(boxes[objnumber].id)
            SetObjectColor(boxes[objnumber].id,r,g,b,a)
            boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

            for i = 0 to 2
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
            next i              
              
            SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
            DeleteMemblock(boxes[objnumber].memID)
        //endif
        //if mod(x,2)<>0 and mod(z,2)
            inc objnumber:rem if objnumber =width*depth then exitfunction centreObjID
        //endif
    next x
next z

endfunction	centreObjId

function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
 
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + trimPath(material$))
incrementalcounter=0
  
`number of material
m=0
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`		get object vertex quantity 
		verts= GetMemblockInt( mesh, 0 )
		writeline(fw,"g ") //GROUP
  
		`VERTEX
		for i= 0 to verts -1
			x#=GetMeshMemblockVertexX(mesh,i)
			y#=GetMeshMemblockVertexy(mesh,i)
			z#=GetMeshMemblockVertexz(mesh,i)
			ox#=(width-1)-GetObjectWorldX(boxes[t].id)
			oy#=GetObjectWorldY(boxes[t].id)
			oz#=GetObjectWorldZ(boxes[t].id)
 
			Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
		next i
  
	`TEXTURE VEERTICES
	for i= 1 to verts
		uu#=GetMeshMemblockVertexU( mesh, i )
		vv#=GetMeshMemblockVertexV( mesh, i )
		writeline(fw, " vt "+str(uu#)+" "+str(vv#))
	next
   
  `		NORMALS
	for i= 0 to verts -1
		x#=GetMeshMemblockVertexnormalX(mesh,i)
		y#=GetMeshMemblockVertexnormaly(mesh,i)
		z#=GetMeshMemblockVertexnormalz(mesh,i)
 
		Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
	next i
    
   
	`FACES
  
	inc m,1
	Writeline ( fw,"usemtl Material.00"+str(m))
	s=0 `reseting variable s
 
   for i= 1 to verts-4
        
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif 
next t
CloseFile ( fw )  
/* 
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
	if GetObjectExists(boxes[t].id)	
		Writeline ( fw,"newmtl Material.00"+str(t))
		WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
    	DeleteObject(boxes[t].id)
		DeleteMemblock(boxes[t].memID)
		boxes.remove(t)
	endif
next t
CloseFile(fw)
*/
for num = boxes.length to 0 step -1
	DeleteObject(boxes[num].id)
	DeleteMemblock(boxes[num].memID)
	boxes.remove(num)
next num	
DeleteAllObjects()

endfunction

function trimPath(str$ as string)
num=len(str$)
if num<1 then exitfunction ""
repeat 
	dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)	
	trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$

// 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_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.5" )
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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber,width
global boxes as _boxes[]
camerax#=32
cameray#=20
cameraz#=-85
centreObjId=0
image=0
extrude=100

do
	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.25
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.25
	if GetRawKeyState(KEY_UP) then dec cameray#,.25
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.25
	if GetRawKeyState(KEY_A) then inc cameraz#,.25
	if GetRawKeyState(KEY_Z) then dec cameraz#,.25
	if GetRawKeyPressed(KEY_S) 
		if GetObjectExists(final_object)=0
			AGM_SaveObject("raw:"+left(ret$,len(ret$)-4)+".obj","raw:"+left(ret$,len(ret$)-4)+".mtl")
		endif
	endif	
	if GetRawKeyPressed(KEY_L) 
		ret$=ChooseRawFile("*.jpg;*.png",1)
		if ret$<>""
             image=loadImage("raw:"+ret$)
        endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		if ret$<>""
			if GetRawKeyState(KEY_SHIFT)
				centreObjId=smoothHeightFunction(256-extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()
			else
				centreObjId=normalHeightFunction(256-extrude,"raw:"+ret$) 
				deletedObjects=dohousekeeping()				
			endif	
		endif	
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
	endif
	
	if GetRawKeyPressed(KEY_PLUS) and extrude >2
		dec extrude
	endif
	
	if GetRawKeyPressed(KEY_SUBTRACT) and extrude <255
		inc extrude
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,0,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
		cameray#=25
		cameraz#=-50
	endif
	print("Mesh Extrude Tool V1.5")
	if ret$="" 
		print("No image Loaded please load an image to extrude")
	else	
		print(left(ret$,len(ret$)))
	endif
	if boxes.length<0 
		print("No blocks in memory please use one of the extrude functions")
	else
		print("Number of blocks in memory "+str(boxes.length))
	endif	
	print("Press Home to center")
	print("Press C to clear")
    print("Press L to load image")
	print("Press S to save objects as one mesh")
	print("Press E to Extrude image to objects")
	print("Press SHIFT + E Smooth Extrude")
	print("Press - less extrude value before extruding")
	print("Press + more extrude value before extruding")
	print("Extrude value (> value is > extrude ie 156) "+str(extrude))
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Sync()
loop

function normalHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
objnumber=0
for z=depth-1 to 1 step -1
	for x= width-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)
		color#=(r+g+b) 
		Height#=color#/extrudeDivisor 
		box.id=CreateObjectBox(1,1,1)
		boxes.insert(box)
		SetObjectPosition(boxes[objnumber].id,x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
			next i
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer, 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]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

rem create grid of boxes
objnumber=0
for z=depth-1 to 1 step -2
	for x= width-1 to 1 step -2
		box.id=CreateObjectBox(2,1,2)
		
		SetObjectPosition(box.id,x, 0 ,-z)
		boxes.insert(box)
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		inc objnumber
	next x
next z
objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 1 step -2
    for x= width-1 to 1 step -2
		//in order rightfront,leftfront,rightback,leftback
        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)
        color#=(r+g+b)
        HeightRF#=color#/extrudeDivisor 
        Offset = (12+((z * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLF#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightRB#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLB#=color#/extrudeDivisor 
        //if GetObjectExists(boxes[objnumber].id)
            SetObjectColor(boxes[objnumber].id,r,g,b,a)
            boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

            for i = 0 to 2
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
                SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
            next i              
              
            SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
            DeleteMemblock(boxes[objnumber].memID)
        //endif
        //if mod(x,2)<>0 and mod(z,2)
            inc objnumber
        //endif
    next x
next z

endfunction	centreObjId

function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
  
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + trimPath(material$))
incrementalcounter=0
   
`number of material
m=0
for t= boxes.length to 0 step-1
    if GetObjectExists(boxes[t].id) 
        mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`       get object vertex quantity 
        verts= GetMemblockInt( mesh, 0 )
        writeline(fw,"g ") //GROUP
   
        `VERTEX
        for i= 0 to verts -1
            x#=GetMeshMemblockVertexX(mesh,i)
            y#=GetMeshMemblockVertexy(mesh,i)
            z#=GetMeshMemblockVertexz(mesh,i)
            ox#=(width-1)-GetObjectWorldX(boxes[t].id)
            oy#=GetObjectWorldY(boxes[t].id)
            oz#=GetObjectWorldZ(boxes[t].id)
  
            Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
        next i
   
    `TEXTURE VEERTICES
    for i= 1 to verts
        uu#=GetMeshMemblockVertexU( mesh, i )
        vv#=GetMeshMemblockVertexV( mesh, i )
        writeline(fw, " vt "+str(uu#)+" "+str(vv#))
    next
    
  `     NORMALS
    for i= 0 to verts -1
        x#=GetMeshMemblockVertexnormalX(mesh,i)
        y#=GetMeshMemblockVertexnormaly(mesh,i)
        z#=GetMeshMemblockVertexnormalz(mesh,i)
  
        Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
    next i
     
    
    `FACES
   
    inc m,1
    //Writeline ( fw,"usemtl Material.00"+str(m))
    Writeline ( fw,"usemtl Material.00")
    
    s=0 `reseting variable s
  
   for i= 1 to verts-4
         
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif
next t
CloseFile ( fw )  
 /*
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
    if GetObjectExists(boxes[t].id) 
        //Writeline ( fw,"newmtl Material.00"+str(t))
        Writeline ( fw,"newmtl Material.00")
        
        WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
        DeleteObject(boxes[t].id)
        DeleteMemblock(boxes[t].memID)
        boxes.remove(t)
    endif
next t
CloseFile(fw)
*/
for num = boxes.length to 0 step -1
    DeleteObject(boxes[num].id)
    DeleteMemblock(boxes[num].memID)
    boxes.remove(num)
next num    
DeleteAllObjects()
endfunction

function trimPath(str$ as string)
num=len(str$)
if num<1 then exitfunction ""
repeat 
	dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)	
	trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$

// 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_D            68
#constant KEY_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.8" )
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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber,width
global boxes as _boxes[]
camerax#=32
cameray#=20
cameraz#=-85
centreObjId=0
image=0
extrude=100:direction=1
final_object=0
do
	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.25
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.25
	if GetRawKeyState(KEY_UP) then dec cameray#,.25
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.25
	if GetRawKeyState(KEY_A) then inc cameraz#,.25
	if GetRawKeyState(KEY_Z) then dec cameraz#,.25
	
	if GetRawKeyPressed(KEY_L) 
		ret$=ChooseRawFile("*.jpg;*.png",1)
		if ret$<>""
             image=loadImage("raw:"+ret$)
             imgmemblock = CreateMemblockFromImage(image)
			 width = GetMemblockInt(imgmemblock,0)
			 depth = GetMemblockInt(imgmemblock,4)
			 if mod(width,2)<>0 or mod(depth,2)<>0
				 Message("The image wasnt suitable. It needs to be an even number width and height")
				 ret$="":DeleteImage(image):DeleteMemblock(imgmemblock)
			 endif	 
        endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		if ret$<>""
			if GetRawKeyState(KEY_SHIFT)
				centreObjId=smoothHeightFunction(256-extrude,direction,"raw:"+ret$) 
				deletedObjects=dohousekeeping()
			else
				centreObjId=normalHeightFunction(256-extrude,direction,"raw:"+ret$) 
				deletedObjects=dohousekeeping()				
			endif
			
			AGM_SaveObject("raw:"+left(ret$,len(ret$)-4)+".obj","raw:"+left(ret$,len(ret$)-4)+".mtl")
			final_object=LoadObject("raw:"+left(ret$,len(ret$)-4)+".obj")
			SetObjectColor(final_object,200,0,0,255)
			SetObjectPosition(final_object,0,0,0)
			RotateObjectLocaly(final_object,-180)
			camerax#=-63
			cameray#=25
			cameraz#=-50
		endif	
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
		final_object=0
	endif
	if GetRawKeyPressed(KEY_D)
		if direction=1
			direction=2
		else
			direction=1
		endif
	endif
	
	if GetRawKeyPressed(KEY_PLUS) and extrude <255
		inc extrude
	endif
	
	if GetRawKeyPressed(KEY_SUBTRACT) and extrude >2
		dec extrude
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,0,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
		cameray#=25
		cameraz#=-50
	endif
	
	print("Mesh Extrude Tool V1.8")
	if ret$="" 
		print("No image Loaded please load an image to extrude")
	else	
		print(left(ret$,len(ret$)-4))
	endif
	if boxes.length<0 
		print("No blocks in memory please use one of the extrude functions")
	else
		print("Number of blocks in memory "+str(boxes.length))
	endif	
	print("Press Home to center")
	print("Press C to clear")
    print("Press L to load image")
    if direction=1
		print("Press D to toggle direction=(1 way)")
	else
		print("Press D to toggle direction=(2 way)")
	endif
	print("Press E to Extrude image and save")
	print("Press SHIFT + E Smooth Extrude")
	print("Press - less extrude value before extruding")
	print("Press + more extrude value before extruding")
	print("Extrude value (> value is > extrude ie 100) "+str(extrude))
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Sync()
loop

function normalHeightFunction(extrudeDivisor as integer,direction as integer, 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]

vertexBLF as integer[2] = [1,19,20]
vertexBRF as integer[2] = [3,5,22]
vertexBLB as integer[2] = [15,17,21]
vertexBRB as integer[2] = [7,13,23]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
objnumber=0
for z=depth-1 to 0 step -1
	for x=width-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)
		color#=(r+g+b) 
		Height#=color#/extrudeDivisor 
		box.id=CreateObjectBox(1,1,1)
		boxes.insert(box)
		SetObjectPosition(boxes[objnumber].id,-x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
		for i = 0 to 2
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
		next i
		if direction=2
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRF[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRB[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLF[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLB[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLB[i]))	
			next i
		endif	
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:rem if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer,direction as integer, 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]

vertexBLF as integer[2] = [1,19,20]
vertexBRF as integer[2] = [3,5,22]
vertexBLB as integer[2] = [15,17,21]
vertexBRB as integer[2] = [7,13,23]
//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 0 step -2
    for x= width-0 to 1 step -1
		//in order rightfront,leftfront,rightback,leftback
        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)
        color#=(r+g+b)
        HeightRF#=color#/extrudeDivisor 
        Offset = (12+((z * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLF#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightRB#=color#/extrudeDivisor 
        Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLB#=color#/extrudeDivisor 
        box.id=CreateObjectBox(2,1,2)
        SetObjectPosition(box.id,-x, 0 ,-z)
        boxes.insert(box)
        //if GetObjectExists(boxes[objnumber].id)
        SetObjectColor(boxes[objnumber].id,r,g,b,a)
        boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

        for i = 0 to 2
            SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
            SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
            SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
        next i              
        if direction=2
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRB[i])-HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRB[i]))  
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLB[i])-HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLB[i]))  
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRF[i])-HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLF[i])-HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLF[i]))
			next i              
		endif	
        SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
        DeleteMemblock(boxes[objnumber].memID)
        //endif
        if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
        //if mod(x,2)<>0 and mod(z,2)
            inc objnumber
        //endif
    next x
next z

endfunction	centreObjId

function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
  
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + trimPath(material$))
incrementalcounter=0
   
`number of material
m=0
for t= boxes.length to 0 step-1
    if GetObjectExists(boxes[t].id) 
        mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`       get object vertex quantity 
        verts= GetMemblockInt( mesh, 0 )
        writeline(fw,"g ") //GROUP
   
        `VERTEX
        for i= 0 to verts -1
            x#=GetMeshMemblockVertexX(mesh,i)
            y#=GetMeshMemblockVertexy(mesh,i)
            z#=GetMeshMemblockVertexz(mesh,i)
            ox#=(width-1)-GetObjectWorldX(boxes[t].id)
            oy#=GetObjectWorldY(boxes[t].id)
            oz#=GetObjectWorldZ(boxes[t].id)
  
            Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
        next i
   
    `TEXTURE VEERTICES
    for i= 1 to verts
        uu#=GetMeshMemblockVertexU( mesh, i )
        vv#=GetMeshMemblockVertexV( mesh, i )
        writeline(fw, " vt "+str(uu#)+" "+str(vv#))
    next
    
  `     NORMALS
    for i= 0 to verts -1
        x#=GetMeshMemblockVertexnormalX(mesh,i)
        y#=GetMeshMemblockVertexnormaly(mesh,i)
        z#=GetMeshMemblockVertexnormalz(mesh,i)
  
        Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
    next i
     
    
    `FACES
   
    inc m,1
    //Writeline ( fw,"usemtl Material.00"+str(m))
    Writeline ( fw,"usemtl Material.00")
    
    s=0 `reseting variable s
  
   for i= 1 to verts-4
         
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif
next t
CloseFile ( fw )  
 /*
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
    if GetObjectExists(boxes[t].id) 
        //Writeline ( fw,"newmtl Material.00"+str(t))
        Writeline ( fw,"newmtl Material.00")
        
        WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
        DeleteObject(boxes[t].id)
        DeleteMemblock(boxes[t].memID)
        boxes.remove(t)
    endif
next t
CloseFile(fw)
*/
for num = boxes.length to 0 step -1
    DeleteObject(boxes[num].id)
    DeleteMemblock(boxes[num].memID)
    boxes.remove(num)
next num    
DeleteAllObjects()
endfunction

function trimPath(str$ as string)
num=len(str$)
if num<1 then exitfunction ""
repeat 
	dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)	
	trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$

// 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_D            68
#constant KEY_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.9" )
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


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

final_object as integer	
global objnumber,width
global boxes as _boxes[]
camerax#=32
cameray#=20
cameraz#=-85
centreObjId=0
image=0
extrude=100:direction=1
final_object=0
do
	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,.25
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,.25
	if GetRawKeyState(KEY_UP) then dec cameray#,.25
	if GetRawKeyState(KEY_DOWN) then inc cameray#,.25
	if GetRawKeyState(KEY_A) then inc cameraz#,.25
	if GetRawKeyState(KEY_Z) then dec cameraz#,.25
	
	if GetRawKeyPressed(KEY_L) 
		ret$=ChooseRawFile("*.jpg;*.png",1)
		if ret$<>""
             image=loadImage("raw:"+ret$)
             imgmemblock = CreateMemblockFromImage(image)
			 width = GetMemblockInt(imgmemblock,0)
			 depth = GetMemblockInt(imgmemblock,4)
			 if mod(width,2)<>0 or mod(depth,2)<>0
				 Message("The image wasnt suitable. It needs to be an even number width and height")
				 ret$="":DeleteImage(image):DeleteMemblock(imgmemblock)
			 endif	 
        endif
	endif	
	
	if GetRawKeyPressed(KEY_E)
		if ret$<>""
			if GetRawKeyState(KEY_SHIFT)
				centreObjId=smoothHeightFunction(256-extrude,direction,"raw:"+ret$) 
				deletedObjects=dohousekeeping()
			else
				centreObjId=normalHeightFunction(256-extrude,direction,"raw:"+ret$) 
				deletedObjects=dohousekeeping()				
			endif
			
			AGM_SaveObject("raw:"+left(ret$,len(ret$)-4)+".obj","raw:"+left(ret$,len(ret$)-4)+".mtl")
			final_object=LoadObject("raw:"+left(ret$,len(ret$)-4)+".obj")
			SetObjectColor(final_object,200,0,0,255)
			SetObjectPosition(final_object,0,0,0)
			RotateObjectLocaly(final_object,-180)
			camerax#=-63
			cameray#=25
			cameraz#=-50
		endif	
	endif	
	
	if GetRawKeyPressed(KEY_C)
		for num = boxes.length to 0 step -1
			DeleteObject(boxes[num].id)
			boxes.remove(num)
		next num
		DeleteAllObjects()
		final_object=0
	endif
	if GetRawKeyPressed(KEY_D)
		if direction=1
			direction=2
		else
			direction=1
		endif
	endif
	
	if GetRawKeyPressed(KEY_PLUS) and extrude <255
		inc extrude
	endif
	
	if GetRawKeyPressed(KEY_SUBTRACT) and extrude >2
		dec extrude
	endif
	
	if GetRawKeyPressed(KEY_HOME)
		if getObjectExists(centreObjID)
			xx#=GetObjectX(centreObjID)
			yy#=GetObjectY(centreObjID)
			zz#=GetObjectZ(centreObjID)
			for num = boxes.length to 0 step -1
				if GetObjectExists(boxes[num].id)
					SetObjectPosition(boxes[num].id,getObjectX(boxes[num].id)-xx#,0,getObjectZ(boxes[num].id)-zz#)
				endif
			next num
		else
			If GetObjectExists(final_object)
				SetObjectPosition(final_object,0,0,0)
			endif
		endif	
		camerax#=0
		cameray#=25
		cameraz#=-50
	endif
	
	print("Mesh Extrude Tool V1.9")
	if ret$="" 
		print("No image Loaded please load an image to extrude")
	else	
		print(left(ret$,len(ret$)-4))
	endif
	if boxes.length<0 
		print("No blocks in memory please use one of the extrude functions")
	else
		print("Number of blocks in memory "+str(boxes.length))
	endif	
	print("Press Home to center")
	print("Press C to clear")
    print("Press L to load image")
    if direction=1
		print("Press D to toggle direction=(1 way)")
	else
		print("Press D to toggle direction=(2 way)")
	endif
	print("Press E to Extrude image and save")
	print("Press SHIFT + E Smooth Extrude")
	print("Press - less extrude value before extruding")
	print("Press + more extrude value before extruding")
	print("Extrude value (> value is > extrude ie 100) "+str(extrude))
	print("Camera X "+str(getCameraX(1)))
	print("Camera Y "+str(getCameraY(1)))
	print("Camera Z "+str(getCameraZ(1)))
    Print("FPS "+str( ScreenFPS()) )
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Sync()
loop

function normalHeightFunction(extrudeDivisor as integer,direction as integer, 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]

vertexBLF as integer[2] = [1,19,20]
vertexBRF as integer[2] = [3,5,22]
vertexBLB as integer[2] = [15,17,21]
vertexBRB as integer[2] = [7,13,23]

//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)
objnumber=0
for z=depth-1 to 0 step -1
	for x=width-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)
		color#=(r+g+b) 
		Height#=color#/extrudeDivisor 
		box.id=CreateObjectBox(1,1,1)
		boxes.insert(box)
		SetObjectPosition(boxes[objnumber].id,-x, 0 ,-z)
		SetObjectColor(boxes[objnumber].id,r,g,b,a)
		boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)
			
		for i = 0 to 2
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))	
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))	
		next i
		if direction=2
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRF[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRB[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRB[i]))	
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLF[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLB[i])-Height#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLB[i]))	
			next i
		endif	
		SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
		//DeleteMemblock(memID)
		
		if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
		if (width-1)/2=x and (depth-1)=z then SetCameraPosition(1,getObjectX(boxes[objnumber].id),getObjectY(boxes[objnumber].id)+20,getObjectz(boxes[objnumber].id)-20)
		DeleteMemblock(boxes[objnumber].memID) 
		inc objnumber:rem if objnumber =width*depth then exitfunction centreObjID
	next x
next z

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer,direction as integer, 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]

vertexBLF as integer[2] = [1,19,20]
vertexBRF as integer[2] = [3,5,22]
vertexBLB as integer[2] = [15,17,21]
vertexBRB as integer[2] = [7,13,23]
//bottom left front 1,19,20
//bottom right front 3,5,22
//bottom left back 15,17,21,24,25,26,27
//bottom right back 7,13,23,
box as _boxes
img = LoadImage(filename$)
imgmemblock = CreateMemblockFromImage(img)
local size as integer     
width = GetMemblockInt(imgmemblock,0)
depth = GetMemblockInt(imgmemblock,4)

objnumber=0
rem adjust the heights for all the objects smoothly
counter=1:objnumber=0
for z=depth-1 to 2 step -2
    for x= width-1 to 2 step -1
		//in order rightfront,leftfront,rightback,leftback
        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)
        color#=(r+g+b)
        HeightRF#=color#/extrudeDivisor 
    
        Offset = (12+((z * width) + (x-2)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLF#=color#/extrudeDivisor 
		if color#<1.0 
			Offset = (12+((z * width) + (x-1)) * 4) - 4
			r=GetMemblockByte(imgmemblock,Offset)
			g=GetMemblockByte(imgmemblock,Offset+1)
			b=GetMemblockByte(imgmemblock,Offset+2)
			a=GetMemblockByte(imgmemblock,Offset+3)
			color#=(r+g+b)
			HeightLF#=color#/extrudeDivisor 
		endif	
		
        Offset = (12+(((z-2) * width) + (x)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightRB#=color#/extrudeDivisor 
        if color#<1.0 
			Offset = (12+(((z-1) * width) + (x)) * 4) - 4
			r=GetMemblockByte(imgmemblock,Offset)
			g=GetMemblockByte(imgmemblock,Offset+1)
			b=GetMemblockByte(imgmemblock,Offset+2)
			a=GetMemblockByte(imgmemblock,Offset+3)
			color#=(r+g+b)
			HeightRB#=color#/extrudeDivisor 
		endif
        
        Offset = (12+(((z-2) * width) + (x-2)) * 4) - 4
        r=GetMemblockByte(imgmemblock,Offset)
        g=GetMemblockByte(imgmemblock,Offset+1)
        b=GetMemblockByte(imgmemblock,Offset+2)
        a=GetMemblockByte(imgmemblock,Offset+3)
        color#=(r+g+b)
        HeightLB#=color#/extrudeDivisor 
        if color#<1.0 
			Offset = (12+(((z-1) * width) + (x-1)) * 4) - 4
			r=GetMemblockByte(imgmemblock,Offset)
			g=GetMemblockByte(imgmemblock,Offset+1)
			b=GetMemblockByte(imgmemblock,Offset+2)
			a=GetMemblockByte(imgmemblock,Offset+3)
			color#=(r+g+b)
			HeightLB#=color#/extrudeDivisor 
        endif
        box.id=CreateObjectBox(2,1,2)
        SetObjectPosition(box.id,-x, 0 ,-z)
        boxes.insert(box)
        //if GetObjectExists(boxes[objnumber].id)
        SetObjectColor(boxes[objnumber].id,r,g,b,a)
        boxes[objnumber].memID=CreateMemblockFromObjectMesh(boxes[objnumber].id,1)      

        for i = 0 to 2
            SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRB[i])+HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRB[i]))  
            SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLB[i])+HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLB[i]))  
            SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexRF[i])+HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexRF[i]))
			SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexLF[i])+HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexLF[i]))
        next i              
        if direction=2
			for i = 0 to 2
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRB[i])-HeightRB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRB[i]))  
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLB[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLB[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLB[i])-HeightLB#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLB[i]))  
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBRF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBRF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBRF[i])-HeightRF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBRF[i]))
				SetMeshMemblockVertexPosition(boxes[objnumber].memID,vertexBLF[i],GetMeshMemblockVertexX(boxes[objnumber].memID,vertexBLF[i]),GetMeshMemblockVertexY(boxes[objnumber].memID,vertexBLF[i])-HeightLF#,GetMeshMemblockVertexZ(boxes[objnumber].memID,vertexBLF[i]))
			next i              
		endif	
        SetObjectMeshFromMemblock(boxes[objnumber].id,1,boxes[objnumber].memID)
        DeleteMemblock(boxes[objnumber].memID)
        //endif
        if (width-1)/2=x and (depth-1)/2=z then centreObjId=boxes[objnumber].id
        //if mod(x,2)<>0 and mod(z,2)
            inc objnumber
        //endif
    next x
next z

endfunction	centreObjId

function dohousekeeping()
	DeletedObjects=0
	for num = boxes.length to 0 step -1
		if GetObjectExists(boxes[num].id)
			r=GetObjectColorRed(boxes[num].id)
			b=GetObjectColorBLue(boxes[num].id)
			g=GetObjectColorGreen(boxes[num].id)
			if r+b+g<1 
				DeleteObject(boxes[num].id)
				boxes.remove(num)
				inc DeletedObjects
			endif
		endif
	next num

endfunction DeletedObjects	

Function AGM_SaveObject(filename$ as string,material$ as string)
fw = OpenToWrite(filename$) 
  
WriteLine(fw,"#AGM Object - " + filename$)
WriteLine(fw,"#Exported with AppGameKit")
WriteLine(fw,"")
WriteLine(fw,"mtllib " + trimPath(material$))
incrementalcounter=0
   
`number of material
m=0
for t= boxes.length to 0 step-1
    if GetObjectExists(boxes[t].id) 
        mesh = CreateMemblockFromObjectMesh(boxes[t].id,1)
`       get object vertex quantity 
        verts= GetMemblockInt( mesh, 0 )
        writeline(fw,"g ") //GROUP
   
        `VERTEX
        for i= 0 to verts -1
            x#=GetMeshMemblockVertexX(mesh,i)
            y#=GetMeshMemblockVertexy(mesh,i)
            z#=GetMeshMemblockVertexz(mesh,i)
            ox#=(width-1)-GetObjectWorldX(boxes[t].id)
            oy#=GetObjectWorldY(boxes[t].id)
            oz#=GetObjectWorldZ(boxes[t].id)
  
            Writeline ( fw, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
        next i
   
    `TEXTURE VEERTICES
    for i= 1 to verts
        uu#=GetMeshMemblockVertexU( mesh, i )
        vv#=GetMeshMemblockVertexV( mesh, i )
        writeline(fw, " vt "+str(uu#)+" "+str(vv#))
    next
    
  `     NORMALS
    for i= 0 to verts -1
        x#=GetMeshMemblockVertexnormalX(mesh,i)
        y#=GetMeshMemblockVertexnormaly(mesh,i)
        z#=GetMeshMemblockVertexnormalz(mesh,i)
  
        Writeline ( fw, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
    next i
     
    
    `FACES
   
    inc m,1
    //Writeline ( fw,"usemtl Material.00"+str(m))
    Writeline ( fw,"usemtl Material.00")
    
    s=0 `reseting variable s
  
   for i= 1 to verts-4
         
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (fw, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
   DeleteMemblock(mesh)
endif
next t
CloseFile ( fw )  
 /*
fw=OpenToWrite(material$)
for t= boxes.length to 0 step-1
    if GetObjectExists(boxes[t].id) 
        //Writeline ( fw,"newmtl Material.00"+str(t))
        Writeline ( fw,"newmtl Material.00")
        
        WriteLine(fw,"Kd " + str(GetObjectColorRed(boxes[t].id)/255.0) + " " + str(GetObjectColorGreen(boxes[t].id)/255.0) + " " + str(GetObjectColorBlue(boxes[t].id)/255.0))
        DeleteObject(boxes[t].id)
        DeleteMemblock(boxes[t].memID)
        boxes.remove(t)
    endif
next t
CloseFile(fw)
*/
for num = boxes.length to 0 step -1
    DeleteObject(boxes[num].id)
    DeleteMemblock(boxes[num].memID)
    boxes.remove(num)
next num    
DeleteAllObjects()
endfunction

function trimPath(str$ as string)
num=len(str$)
if num<1 then exitfunction ""
repeat 
	dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)	
	trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$