Sorry your browser is not supported!

// Project: led board 
// Created: 2018-12-27

// show all errors
SetErrorMode(2)

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

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

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

dim objects [64,64]

grabinfo("\media\board.png")

camerax#=0
cameray#=100
cameraz#=-130

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

    Print( ScreenFPS() )
    Sync()
loop

function grabinfo(filename$)
	img = LoadImage(filename$)
	imgmemblock = CreateMemblockFromImage(img)
	
	width = GetMemblockInt(imgmemblock,0)
	height = GetMemblockInt(imgmemblock,4)
	
		for x=width to 0 step -1
	for y=height-4 to 0 step -1
			offset = (12+((y * width) + x) * 4) - 4
			r=GetMemblockByte(imgmemblock,offset)
			g=GetMemblockByte(imgmemblock,offset+1)
			b=GetMemblockByte(imgmemblock,offset+2)
			a=GetMemblockByte(imgmemblock,offset+3)
			
			//DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
			objects [ x, y] = CreateObjectSphere(1,20,20)
			SetObjectPosition(objects[x,y],x, -y , 0)
			SetObjectColor(objects[x,y],r,g,b,a)
		next
	next
	
	
endfunction

// Project: led board 
// Created: 2018-12-27

// show all errors
SetErrorMode(2)

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

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

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

global objects as integer[]

grabinfo("\media\board.png")

camerax#=0
cameray#=100
cameraz#=-130

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

    Print( ScreenFPS() )
    Sync()
loop

function grabinfo(filename$)
	img = LoadImage(filename$)
	imgmemblock = CreateMemblockFromImage(img)
	
	width = GetMemblockInt(imgmemblock,0)
	height = GetMemblockInt(imgmemblock,4)
	objnumber=0
		for x=width-1 to 0 step -1
	for y=height-1 to 0 step -1
			offset = (12+((y * width) + x) * 4) - 4
			r=GetMemblockByte(imgmemblock,offset)
			g=GetMemblockByte(imgmemblock,offset+1)
			b=GetMemblockByte(imgmemblock,offset+2)
			a=GetMemblockByte(imgmemblock,offset+3)
			
			//DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)

			if r<255 and g<255 and b<255
				objects.insert( CreateObjectSphere(1,5,5))
				SetObjectPosition(objects[objnumber],x, -y , 0)
				SetObjectColor(objects[objnumber],r,g,b,a)
				inc objnumber
	
			endif
		next
	next
	
	
endfunction

			if r<255 and g<255 and b<255
				objects.insert( CreateObjectBox(5,5,20))
				SetObjectPosition(objects[objnumber],x*5, -y * 5 , 5)
				SetObjectColor(objects[objnumber],r,g,b,a)
				inc objnumber
	
			endif

function digitalScoreBoard2(Score as integer,xStart as float,yStart as float,zStart as float)	
	if Score<0 then Score=0
	myString$=str(Score)
	if Len(myString$)=1
		myString$="00"+myString$
	elseif Len(myString$)=2
		myString$="0"+myString$
	//elseif Len(myString$)=3
	//	myString$="0-"+myString$
	endif
	for count = digitalScore.length to 0 step-1
		DeleteObject(digitalScore[count].ID)
		DeleteImage(digitalScore[count].imgID)
		digitalScore.remove(count)
	next count
	for length = 1 to len(myString$)
		a$=mid(myString$,length,1)
		b=val(a$)
		myScore as scoreType
		myScore.ID=CreateObjectPlane(4,4)
		myScore.imgID=CopyImage(fontImg, b*64,0,64,112) 
		SetObjectImage(myScore.ID,myScore.imgID,0)
		SetObjectLightMode(myScore.ID,0) 
		SetObjectPosition(myScore.ID,(length*4)+xStart,yStart,zStart)
		digitalScore.insert(myScore)
	next length
endfunction

// Project: led board 
// Created: 2018-12-27

// show all errors
SetErrorMode(2)

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

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

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

global objects as integer[]

swap()
	DrawBox(0,0,100,50,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(255,255,0),MakeColor(0,0,255),1)
	
	
render()
img = GetImage(0,0,100,50)

grabinfo(img)

camerax#=100
cameray#=100
cameraz#=-190

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

    Print( ScreenFPS() )
    Sync()
loop

function grabinfo(img)
	imgmemblock = CreateMemblockFromImage(img)
	
	width = GetMemblockInt(imgmemblock,0)
	height = GetMemblockInt(imgmemblock,4)
	objnumber=0
		for x=width-1 to 0 step -1
	for y=height-1 to 0 step -1
			offset = (12+((y * width) + x) * 4) - 4
			r=GetMemblockByte(imgmemblock,offset)
			g=GetMemblockByte(imgmemblock,offset+1)
			b=GetMemblockByte(imgmemblock,offset+2)
			a=GetMemblockByte(imgmemblock,offset+3)
			
			//DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)

			if r<255 and g<255 and b<255 and a>0
				objects.insert( CreateObjectSphere(1,10,10))
				SetObjectPosition(objects[objnumber],x*2, -y * 2 , 2)
				SetObjectColor(objects[objnumber],r,g,b,a)
				inc objnumber
	
			endif
		next
	next
	
	
endfunction

// Project: led board 
// Created: 2018-12-27

// show all errors
SetErrorMode(2)

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

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

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

global objects as integer[]

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 numofcubes,img


swap()
	for x=0 to 100
		for y=0 to 100
			DrawBox(x,y,x+1,y+1,MakeColor(random(0,255),random(0,255),random(0,255)),MakeColor(random(0,255),random(0,255),random(0,255)),MakeColor(random(0,255),random(0,255),random(0,255)),MakeColor(random(0,255),random(0,255),random(0,255)),1)
		next
	next
	
	
render()
img = GetImage(0,0,100,100)
spr = CreateSprite(img)

grabinfo(img,20,100.0)

setupskybox()


camerax#=100
cameray#=800
cameraz#=-190

SetCameraRange(1,.01,2000)

do
	print("This will create a map and a OBJ file based on this image")
	SetSpritePosition(spr,100,100)

    if GetRawKeyState(38) then inc cameraz#
    if GetRawKeyState(40) then dec cameraz#
    if GetRawKeyState(39) then inc camerax#
    if GetRawKeyState(37) then dec camerax#
    
    
    if GetRawKeyState(87) then inc cameray#
    if GetRawKeyState(83) then dec cameray#
    
    
    print(numofcubes)
    
	SetCameraPosition(1,camerax#,cameray#,cameraz#)

    Print( ScreenFPS() )
    Sync()
loop

function setupskybox()
	
	SetSkyBoxHorizonColor(0,0,70)
	SetSkyBoxSkyColor(0,200,200)
	SetSkyBoxVisible(1)
	
	
endfunction
function grabinfo(img,size,h)
	imgmemblock = CreateMemblockFromImage(img)
	
	width = GetMemblockInt(imgmemblock,0)
	height = GetMemblockInt(imgmemblock,4)
	objnumber=0
	for x=width to 0 step -1
		for z=height-1 to 0 step -1
			offset = (12+((z * width) + x) * 4) - 4
			r=GetMemblockByte(imgmemblock,offset)
			g=GetMemblockByte(imgmemblock,offset+1)
			b=GetMemblockByte(imgmemblock,offset+2)
			a=GetMemblockByte(imgmemblock,offset+3)
			
			//DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
			if r<255 and g<255 and b<255 and a>0
				heighty#=(r/h)+(g/h)+(b/h)
				
				buildcube(x*(size*2),heighty#*(size*2),z*(size*2),r,g,b,size)
			
				inc numofcubes
			endif
		next
	next
	
	obj = CreateObjectFromMeshWithUVTexturingandColor(meshid,img)
	AGM_SaveObject(obj,1,"Map", "raw:c:\data\","map.obj","map.mtl", "",0)

	
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 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


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 buildcube(x,heighty#,z,r,g,b,size)
	
	// face1 top
				AddVertex(MeshID, (x-size),heighty#+size,z+size,0,1,0,0,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#+size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#+size,z+size,0,1,0,0,1,MakeColor(r,g,b))

				AddVertex(MeshID, (x+size),heighty#+size,z+size,0,1,0,0,1,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#+size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#+size,z-size,0,1,0,1,1,MakeColor(r,g,b))


// face2 bottom
//				AddVertex(MeshID, (x-size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x+size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x-size),heighty#-size,z-size,0,1,0,0,0,MakeColor(r,g,b))

//				AddVertex(MeshID, (x+size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x+size),heighty#-size,z-size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x-size),heighty#-size,z-size,0,1,0,0,0,MakeColor(r,g,b))

// face 3- left
//				AddVertex(MeshID, (x-size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x-size),heighty#+size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x+size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))

//				AddVertex(MeshID, (x+size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x-size),heighty#+size,z+size,0,1,0,0,0,MakeColor(r,g,b))
//				AddVertex(MeshID, (x+size),heighty#+size,z+size,0,1,0,0,0,MakeColor(r,g,b))

// face 4 - right
				AddVertex(MeshID, (x-size),heighty#-size,z-size,0,1,0,0,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#-size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#+size,z-size,0,1,0,0,1,MakeColor(r,g,b))

				AddVertex(MeshID, (x+size),heighty#-size,z-size,0,1,0,0,1,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#+size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#+size,z-size,0,1,0,1,1,MakeColor(r,g,b))

// face 5 - front
				AddVertex(MeshID, (x-size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#-size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#+size,z+size,0,1,0,0,1,MakeColor(r,g,b))


				AddVertex(MeshID, (x-size),heighty#+size,z+size,0,1,0,0,1,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#-size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x-size),heighty#+size,z-size,0,1,0,1,1,MakeColor(r,g,b))


// face 5 - back
				AddVertex(MeshID, (x+size),heighty#-size,z+size,0,1,0,0,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#+size,z+size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#-size,z-size,0,1,0,0,1,MakeColor(r,g,b))

				AddVertex(MeshID, (x+size),heighty#+size,z+size,0,1,0,0,1,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#+size,z-size,0,1,0,1,0,MakeColor(r,g,b))
				AddVertex(MeshID, (x+size),heighty#-size,z-size,0,1,0,1,1,MakeColor(r,g,b))
				

	
endfunction
Function CreateObjectFromMeshWithUVTexturingandColor(m ref as mesh, diffuse)
    DeleteMemblock(memblock)
    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
      
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    
    // diffuse
    SetObjectImage(id,diffuse,0)
	// normal / ambient
//	SetObjectImage(id,ambient,1)
	// specular
//	SetObjectImage(id,specular,2)
	
	

    
  
//    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
Function AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$, texture$, debug)

	if texture$<>"" then 		SetObjectImage(objID,LoadImage(folder$+texture$),0)


	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif

	if debug=1
		repeat
			print("Object " + group$)
			print("Vertex Count - " + str(vc))
			print("Index Count - " + str(IC))
			print("Atribute Count - " + str(Attributes))
			print("Data Counter - " + str(counter))
			print("Data Offset - " + str(DataOffset))
			print("Index Offset - " + str(IndexOffset))
			print("Position Data - " + str(PositionData))
			print("Position String " + positionName$)
			print("Normal Data - " + str(NormalData))
			print("Normal String " + NormalName$)
			print("UV Data - " + str(CData))
			print("UV String " + CName$)
			print("Color Data - " + str(ColorData))
			print("Color String " + ColorName$)
			print("Press Space to continue")
			print(VC)
			print(IC)
			print(IC/3)
			print(IC/4)


			sync()
		until GetRawKeyPressed(32)
	endif
	
	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next

	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Textures UV's")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vt " + str(GetMemblockFloat(memblock,dataoffset+v+24)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+28)))
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")

	
		if IC<>0  // Index Couner > 0 so this model as index data at the end to work out the order of faces
			for i=0 to (IC / 3)-1
				index1=GetMemblockByte(memblock,(indexoffset+(i*12)))+1
				index2=GetMemblockByte(memblock,(indexoffset+(i*12)+4))+1
				index3=GetMemblockByte(memblock,(indexoffset+(i*12)+8))+1
				WriteLine(fw,"f " + str(index1) + "/" + str(facecount+1) + "/" + str(facecount+1) +" " + str(index2) + "/" + str(facecount) + "/" + str(facecount) + " " + str(index3) + "/" + str(facecount+2) +"/" + str(facecount+2))
			next
		else
			for facecount=1 to vc-3 // VC Vertex Count and no Index count - so the Vertices are straight as is.
				WriteLine(fw,"f " + str(facecount+1) + "/"+str(facecount+1)+"/" + str(facecount+1) + " " + str(facecount) + "/"+str(facecount)+"/" + str(facecount)+ " " + str(facecount+2) + "/"+str(facecount+2)+"/" + str(facecount+2))
			next
		endif
 
		
	CloseFile(fw)
	
	
// write the MTL file	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	

	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	if texture$<>"" 
		writeLine(fw,"map_Kd "+texture$)
	endif
	CloseFile(fw)

//	DeleteObject(objID)
	DeleteMemblock(memblock)
endfunction 

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

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

alphafade=0
alphafadeup=1

do
	SetTextPosition(title,screenwidth/2-GetTextTotalWidth(title)/2, screenheight-100)
	SetTextColorAlpha(title,alphafade)
	
	if alphafadeup=1 then inc alphafade,2
	if alphafadeup=0 then dec alphafade,2
	
	if alphafade>255 
		alphafade=255
		alphafadeup=0
	endif
	
	if alphafade<0 
		alphafade=0
		alphafadeup=1
	endif
	
	
	
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
        for x=width-1 to 0 step -1
    for y=height-1 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
 
            if r<255 and g<255 and b<255
    objects.insert( CreateObjectBox(5,5,30))
    SetObjectPosition(objects[objnumber],x*5, -y * 5 , 5)
    SetObjectColor(objects[objnumber],r,g,b,a)
    inc objnumber
 
endif
        next
    next
     
     
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
 
// set window properties
SetWindowTitle( "map" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global objects as integer[]
 
grabinfo("\media\map.png")
 
camerax#=32
cameray#=32
cameraz#=-100
 
do
	
	if GetRawKeyState(KEY_LEFT) then dec camerax#,2
	if GetRawKeyState(KEY_RIGHT) then inc camerax#,2
	if GetRawKeyState(KEY_UP) then dec cameray#,2
	if GetRawKeyState(KEY_DOWN) then inc cameray#,2
	
	print(GetCameraX(1))
	print(GetCameraY(1))
	print(GetCameraZ(1))
	
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=width-1 to 0 step -1
		for z=height-1 to 0 step -1
            offset = (12+((z * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
 
			if r>0 and g>0 and b>0
				//if r=255 and g=255 and b=255
				    height#=(r+g+b)/100
					objects.insert( CreateObjectBox(2,height#,2))
					SetObjectPosition(objects[objnumber],x, 0 ,-z)
					SetObjectColor(objects[objnumber],r,g,b,a)
					inc objnumber
				//endif
			endif
		next
    next
endfunction

memID=1 
objbox=CreateObjectBox(10,10,10) 
vertex as integer[7] = [17,15,7,13, 1,19,3,5]
CreateMemblockFromObjectMesh(memID,objbox,1)
for i = 4 to 7
    SetMeshMemblockVertexPosition(memID,vertex[i],GetMeshMemblockVertexX(memID,vertex[i]),GetMeshMemblockVertexY(memID,vertex[i])+.5,GetMeshMemblockVertexZ(memID,vertex[i])*.5)
next i
SetObjectMeshFromMemblock(objbox,1,memID)

// 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
  
// set window properties
SetWindowTitle( "map" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
  
global objects as integer[]
  
grabinfo("\media\board.png")
  
camerax#=70
cameray#=0
cameraz#=-100
  
do
     
    if GetRawKeyState(KEY_LEFT) then dec camerax#,2
    if GetRawKeyState(KEY_RIGHT) then inc camerax#,2
    if GetRawKeyState(KEY_UP) then dec cameray#,2
    if GetRawKeyState(KEY_DOWN) then inc cameray#,2
     
    print(GetCameraX(1))
    print(GetCameraY(1))
    print(GetCameraZ(1))
     
      
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
  
    Print( ScreenFPS() )
    Sync()
loop
  
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
      
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=width-1 to 0 step -1
        for y=height-1 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
              
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
  
            if r<255 and g<255 and b<255
                //if r=255 and g=255 and b=255
                    height#=(r+g+b)/100
                    	objects.insert( CreateObjectBox(2,height#,2))
                    SetObjectPosition(objects[objnumber],x,-y,0)
                    
                    
                    SetObjectColor(objects[objnumber],r,g,b,a)
                    inc objnumber
                //endif
            endif
        next
    next
endfunction

// Project: Imagen a cuadros 
// Created: 2018-12-31

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Imagen a cuadros" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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
grabinfo("\media\naranja.jpg")
createsprite(50,50)
 setspriteposition(50,300,300)
setspritesize(50,80,80)
do
    

    Print( ScreenFPS() )
    Sync()
loop
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
    for x=width-1 to 0 step -10
         for y=height-1 to 0 step -10
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
           DrawBox(x,y,x+10,y+10,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
         next
    next
    getimage(50,0,0,width,height)
     
endfunction

function Create3DSingleSidedCube(x#, y#, z#, sizex,sizey,sizez, t,b,l,r,f,ba)
	red=MakeColor(255,255,255)
	green=MakeColor(255,255,255)
	blue=MakeColor(255,255,255)


//top
	if t=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+ sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))
	endif

// bottom
	if b=1
		
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+ sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex) ,y#-sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex) ,y#-sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex) ,y#-sizey,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	endif

// left
	if l=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+-sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+-sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+-sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#-sizey,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))
	endif

// right
	if r=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#-sizey,(z#+sizez), 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	endif


// front
	if f=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#-sizez) , 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+sizez), 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	endif



// back
	if ba=1
		AddVertex(meshid,(x#+sizex),y#+sizey,(z#-sizez) , 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+sizex),y#+sizey,(z#+sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#-sizey,(z#+sizez), 0,1,0  ,1,0, MakeColor(red,green,blue))
	endif

	
endfunction 

// Project: contarvertices 
// Created: 2018-12-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "contarvertices" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

CreateObjectbox(1,15,15,15)
`creating a memblock
mesh = CreateMemblockFromObjectMesh(1,1)
`getting object vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 al#=GetMeshMemblockVertexy(mesh,i)/32
 next
 
 SetObjectMeshFromMemblock(1,1,mesh)
 
 
  CreateObjectSphere(2,1,20,20)
  SetObjectColor(2,255,0,0,0)

SetCameraPosition(1,30,30,-30)
SetCameraLookAt(1,0,0,0,0)
v=0
do
   if ( GetRawKeyState( 32) ) 
	     v=v+1 
         sleep (300)
   endif
  
	 x#=GetMeshMemblockVertexX(mesh,v)
	 y#=GetMeshMemblockVertexy(mesh,v)
	 z#=GetMeshMemblockVertexz(mesh,v)

     setobjectposition(2,x#,y#,z#)
    
    
    Print("Press Spacebar to get new vertex position" )
    print("vertex  "+str(v))
    Sync()
loop

// Project: Planes
// Created: 2018-12-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Planes" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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
`
loadimage(1,"grass.png")

terrain=70000       `to joing all objects
createobjectbox(terrain,0,0,0)

ob=0
size=20
for i= 1 to size
	for a= 1 to size
	   inc ob
       createobjectbox(ob,0.1,0.1,0.1)
       setobjectposition(ob,i*5,random(0,1),a*5)
    next
next

`placing planes between objects
  d=0
  o=15000    
  f=0
      for i= 0 to (size-1)*(size-1)-1
	  inc o	  
      tri(2000+o,1+f+d,(size+1)+f+d,2+f+d,2+f+d,(size+1)+f+d,(size+2)+f+d) 
      inc f,1
 
      if f=size-1 
		f=0 
		d=d+size
      endif
      
   next
  
`shadows setup
shadowMode = 3 // start with cascade shadow mapping which gives the best quality
SetShadowMappingMode( shadowMode )
SetShadowSmoothing( 2 ) // random sampling
SetShadowMapSize( 1024, 1024 )
SetShadowRange( -1 ) // use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
`--------------------------------------------------------------------------------------------
`sun setup
dx# = -1.3714
dy# = -0.7428
dz# = 0.5571
SetSunDirection( dx#, dy#, dz# )     
 rem CreatePointLight (1,20,5,10,100,255,0,255)  
 
 
 
 `our Sky
createobjectcylinder(4000,1000,480,40)
SetObjectCullMode(4000,0)
SetObjectColor(4000,100,100,255,0)
 
 
  
`CAMERA SETUP           
setcameraposition(1,-20,30,-30)
SetCameraLookAt  (1,0,0,0,0)   


SetAmbientColor(80,80,80)
SetSunActive(1)
CreatePointLight(1,50,25,25,100,255,255,0)


do
 g#=g#+0.1
 rem setobjectrotation(terrain,0,g#,0)
 
     if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
    Print( ScreenFPS() )
    print("planos  "+str(o-15000))
    Sync()
loop


function tri(n,v1,v2,v3,v4,v5,v6)

		createobjectplane(n,5,5)
		SetObjectCastShadow( n, 1 )
     	SetObjectCullMode(n,0)
		//setobjectcolor(n,random(50,255),random(50,255),random(50,255),0)
		//setobjectimage(n,1,0)
		mesh = CreateMemblockFromObjectMesh(n,1)	
		`getting vertex quantity
		 verts= GetMemblockInt( mesh, 0 )
		 
		 `first of all , setting all vertex to 0,0,0 position
		 for t= 0 to verts-1
			  SetMeshMemblockVertexPosition(mesh,t,0,0,0)
		 next	  
		 `making triangle in four vertex ....setting plane vertex in four object coords.
			 x1#=Getobjectx(v1)
			 y1#=Getobjecty(v1)
			 z1#=Getobjectz(v1)
			 
			 x2#=Getobjectx(v2)
			 y2#=Getobjecty(v2)
			 z2#=Getobjectz(v2)
			 
			 x3#=Getobjectx(v3)
			 y3#=Getobjecty(v3)
			 z3#=Getobjectz(v3)
			 
			 x4#=Getobjectx(v4)
			 y4#=Getobjecty(v4)
			 z4#=Getobjectz(v4)
			 
 			 x5#=Getobjectx(v5)
			 y5#=Getobjecty(v5)
			 z5#=Getobjectz(v5)
			 
			 x6#=Getobjectx(v6)
			 y6#=Getobjecty(v6)
			 z6#=Getobjectz(v6)
			 
		 		 
			 SetMeshMemblockVertexPosition(mesh,0, x1#,y1#,z1#)
			 SetMeshMemblockVertexPosition(mesh,1, x2#,y2#,z2#)
			 SetMeshMemblockVertexPosition(mesh,2, x3#,y3#,z3#)
             SetMeshMemblockVertexPosition(mesh,3, x4#,y4#,z4#)
             SetMeshMemblockVertexPosition(mesh,4, x5#,y5#,z5#)	
	         SetMeshMemblockVertexPosition(mesh,5, x6#,y6#,z6#)  

             
		 DeleteMemblock(1)
		 `fixing mesh
		SetObjectMeshFromMemblock(n,1,mesh)
 fixobjecttoobject(n,70000)
endfunction

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_A            65 
#constant KEY_Z            90
// set window properties
SetWindowTitle( "map" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global objects as integer[]
 
grabinfo("\media\map.png")
 
camerax#=32
cameray#=32
cameraz#=-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
	
	
	print(GetCameraX(1))
	print(GetCameraY(1))
	print(GetCameraZ(1))
	
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(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]
	memID=2:prevMemID=1
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    depth = GetMemblockInt(imgmemblock,4)
    objnumber=0:x=width-1
    for x=width-1 to 0 step -1
		for z=depth-1 to 0 step -1
            offset = (12+((z * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            if r>0 and g>0 and b>0
				//if r=255 and g=255 and b=255
				    height#=(r+g+b)/100
					objects.insert( CreateObjectBox(2,height#,2))
					SetObjectPosition(objects[objnumber],x, 0 ,-z)
					SetObjectColor(objects[objnumber],r,g,b,a)
					CreateMemblockFromObjectMesh(memID,objects[objnumber],1)
					if mod(x,2)=0 and mod(z,2)=0
						CreateMemblockFromObjectMesh(prevMemID,objects[objnumber-1],1)
						for i = 0 to 2
							SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(prevMemID,vertexRB[i]),GetMeshMemblockVertexZ(memID,vertexRF[i]))
						next i
						SetObjectMeshFromMemblock(objects[objnumber],1,memID)	
					endif	
					DeleteMemblock(prevMemID):DeleteMemblock(memID)
					inc objnumber
				//endif
			endif
		next
    next
endfunction

// Project: codingtrain-terrain 
// Created: 2018-08-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global perlinheight=20
 type _perlinmap
    r,g, b, a, x, y
    level
    texture
    noise
endtype
#constant perlinw = 512 //power of 2
#constant perlinh = 512 //power of 2
#constant perlinz = 0
global perlinmap as _perlinmap[perlinw,perlinh,perlinz]
global perlinx, perlinzz
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, numberofcubes, inventorycubecount
 
 
global landsizex#=32
global landsizez#=32
 
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
 
 
NoiseInit()
 
setupskyandfog()
 
 
 
offsetx#=0:offsety#=0
 
//next
 
meshobject = buildlandscape(offsetx#,offsety#)
 
SetCameraRange(1,.01,10000)
 
//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/2
cameray#=1
cameraz#=landsizez#/2
 
SetRawMousePosition(1024/2,768/2)
do
     
     
    if GetRawKeyState(32)
        DeleteObject(meshobject)
        meshobject = buildlandscape(offsetx#, offsety#)
 
        inc offsetx#,.1
        inc offsety#,.1
    endif
     
     
//  RotateObjectLocalY(meshobject,.1)
    //RotateObjectLocalX(meshobject,.1)
    //RotateObjectLocalZ(meshobject,.1)
    movecamerawithmouse()
    if GetRawKeyPressed(38) then dec camerax#,.1
     
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    print (GetMemblockSize(memblock))
    Print( ScreenFPS() )
    Sync()
loop
 
 
function buildlandscape(offsetx#, offsety#)
     
    meshID.TriangleList.length=-1
    meshID.VertexList.length=-1
    // build triangle strip
    randomheight=3
    col=255
    scale#=1
    noiseterrain#=12.0 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
    for x#=1 to landsizex#
        for y#=1 to landsizez#
 
            //noise = 255.0*noise2d(x/120.0,y/120.0)
            colvertice1 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            colvertice2 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice3 = checkcolorlevels(noise2d(((x#+offsetx#)+1)/noiseterrain#  ,(y#+offsety#)/noiseterrain#)*col)
            colvertice4 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,(y#+offsety#)/noiseterrain#)*col)
            colvertice5 = checkcolorlevels(noise2d((x#+offsetx#)/noiseterrain#      ,((y#+offsety#)-1)/noiseterrain#)*col)
            colvertice6 = checkcolorlevels(Noise2D(((x#+offsetx#)+1)/noiseterrain#  ,((y#+offsety#)-1)/noiseterrain#)*col)
         
         
            AddVertex(meshID,((x#)*scale#)          ,noise2d((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# *scale#         ,0,1,0,   0,0, colvertice1) 
            AddVertex(meshID,((x#)+scale#)*scale#   ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,  ((y#+offsety#)-scale#)/noiseterrain#)       ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice2)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)/noiseterrain#))      ,y# *scale#             ,0,1,0,   0,0, colvertice3)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           (y#+offsety#)/noiseterrain#)        ,y# * scale#                ,0,1,0,   0,0, colvertice4)
            AddVertex(meshID,((x#)*scale#)          ,Noise2D((x#+offsetx#)/noiseterrain#,           ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice5)
            AddVertex(meshID,((x#)+scale#)*scale# ,Noise2D(((x#+offsetx#)+scale#)/noiseterrain#,    ((y#+offsety#)-1)/noiseterrain#)        ,(y#-scale#)*scale#     ,0,1,0,   0,0, colvertice6)
 
     
        next
    next
 
 
    DeleteObject(meshobject)
meshobject = CreateObjectFromMeshTest(meshID)
 
     
endfunction meshobject
function checkcolorlevels(formula)
        //formula = abs(formula)
        if (formula<=0) then colvertice1=MakeColor(46,139,87)
        if (formula>-50) then colvertice1=MakeColor(100,100,0) // sand
        if (formula<-100) then colvertice1=MakeColor(0,0,70) // water
 
        if (formula>0) then colvertice1=MakeColor(0,100,0) //
        if (formula>100) then colvertice1=MakeColor(0,200,0)
        if (formula>200) then colvertice1=MakeColor(255,255,255)
 
endfunction colvertice1
 
function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction
 
 
function setupskyandfog()
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,10000)
     
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 CreateObjectFromMeshTest(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
 
 
// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
     
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
     
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
     
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
     
     
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
     
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
     
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
     
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
     
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
     
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
         
    s = (xin + yin) * PN3DF2
    xs = xin + s
     
    i = floor(xs)
    ys = yin + s
     
    j = floor(ys)
    t = (i + j) * PN3DG2
     
    x0 = xin - (i - t)
    y0 = yin - (j - t)
     
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
     
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
     
    i = i && 255
    j = j && 255
     
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
     
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
     
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
     
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
     
endfunction  70.0 * (n0 + n1 + n2)
/*
        AddVertex(meshID,x# *scale#     ,noise2d(x#,y#)*randomheight        ,y# *scale#         ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,(x#+scale#)*scale# ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#)*randomheight     ,y# *scale#             ,0,1,0,   0,0, MakeColor(0,noise2d(x#+1,y#)*col,0))
         
         
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#)*randomheight        ,y# * scale#                ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#)*col,0))
        AddVertex(meshID,x#*scale#      ,noise2d(x#,y#-1)*randomheight      ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,noise2d(x#,y#-1)*col,0))
        AddVertex(meshID,(x#+scale#)*scale#     ,noise2d(x#+scale#,y#-scale#)*randomheight  ,(y#-scale#)*scale#     ,0,1,0,   0,0, MakeColor(0,Noise2D(x#+1,y#-1)*col,0))
*/

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

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

    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    depth = GetMemblockInt(imgmemblock,4)
    objnumber=0:x=width-1
    for z=width-1 to 0 step -1
		for x=depth-1 to 0 step -1
            offset = (12+((z * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //if r>0 and g>0 and b>0
				//if r=255 and g=255 and b=255
				    height#=(r+g+b)/100
					objects.insert( CreateObjectBox(2,height#,2))
					SetObjectPosition(objects[objnumber],x, 0 ,-z)
					SetObjectColor(objects[objnumber],r,g,b,a)
					inc objnumber
					
				//endif
			//endif
		next
    next
endfunction
function remove()
for num = 0 to 4096-1 	
	SetObjectVisible(objects[num],0)
	sync()
next num
endfunction


function smoothfunction()
	//top left front 0,9,18
	//top right front 2,4,11
	//top left back 8,14,16
	//top right back 6,10,12
objnumber=0	
for z = 1 to 64
for x=1 to 64	

	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]
	memID=2:prevMemID=1
	CreateMemblockFromObjectMesh(memID,objects[objnumber],1)
	if mod(x,2)=0 and mod(z,2)=0
		CreateMemblockFromObjectMesh(prevMemID,objects[objnumber-1],1)
		for i = 0 to 2
			SetMeshMemblockVertexPosition(memID,vertexRF[i],GetMeshMemblockVertexX(memID,vertexRF[i]),GetMeshMemblockVertexY(prevMemID,vertexLF[i]),GetMeshMemblockVertexZ(memID,vertexRF[i]))
			SetMeshMemblockVertexPosition(memID,vertexRB[i],GetMeshMemblockVertexX(memID,vertexRB[i]),GetMeshMemblockVertexY(prevMemID,vertexLB[i]),GetMeshMemblockVertexZ(memID,vertexRB[i]))
		next i
		SetObjectMeshFromMemblock(objects[objnumber],1,memID)	
	endif	
	DeleteMemblock(prevMemID):DeleteMemblock(memID)
	inc objnumber
next x			
next z

endfunction