Sorry your browser is not supported!

// Project: columnsplit 
// Created: 2018-02-07

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "columnsplit" )
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( 6000, 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

#constant sizex#=16
#constant sizey#=16
#constant sizez#=256
#constant blocksize#=1


type _columns
	id
	x#
	y#
	height#
endtype
global columns as _columns[sizex#,sizey#]

for a=1 to sizex#
	for b=1 to sizey#	
		columns[a,b].id=CreateObjectBox(1,1,1)
		//SetObjectPosition(columns[a,b].id,0,0,0)
		columns[a,b].height#=random(sizez#-3,sizez#)
		columns[a,b].height#=sizez#
		SetObjectScale(columns[a,b].id,1,columns[a,b].height#,1)
		SetObjectPosition(columns[a,b].id,a,0-GetObjectSizeMaxY(columns[a,b].id),b)
	next
next

camerastep#=.01

player=CreateObjectBox(1,1,1)
cx#=sizex#/2:cy#=256/2+10:cz#=-20
camerastep#=.01
do

		
// move up and left (camera)
	if GetRawKeyState(38) then inc cy#,camerastep#
	if GetRawKeyState(37) then dec cx#,camerastep#
	if GetRawKeyState(39) then inc cx#,camerastep#
	if GetRawKeyState(40) then dec cy#,camerastep#

// WASD - player mode
	if GetRawKeyState(87) then inc cz#,camerastep#
	if GetRawKeyState(65) then dec cx#,camerastep#
	if GetRawKeyState(68) then inc cx#,camerastep#
	if GetRawKeyState(83) then dec cz#,camerastep#
	

    
	setcameraposition(1,cx#,cy#,cz#)
	setcamerarotation(1,0,getobjectangley(player),0)
    
    if GetRawMouseLeftState() then addblock(random(1,sizex#),random(1,sizey#),random(1,sizez#))
    if GetRawMouseRightState() then deleteblock(random(1,sizex#),random(1,sizey#),random(1,sizez#))

	
	print("Press/Hold left mouse button to add/raise")
	print("Press/Hold Right mouse button to delete/decrease")
	
    Print( str(ScreenFPS())  + "  -  " + str(GetRawLastKey()) )
    Sync()
loop


function addblock(x,y,z)
	
	inc columns[x,y].height#
	SetObjectColor(columns[x,y].id,0,255,0,255)
	SetObjectScale(columns[x,y].id,1,columns[x,y].height#,1)
	


endfunction


function deleteblock(x,y,z)

	dec columns[x,y].height#
	
	SetObjectColor(columns[x,y].id,255,0,0,255)
	SetObjectScale(columns[x,y].id,1,columns[x,y].height#,1)
	


endfunction

//splits a column in two at x,y,z location
function splitcolumn(x,y,z)
	
	// coming at weekend
	
endfunction

// Project: fixobj 
// Created: 2018-02-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "fixobj" )
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


global cubes as integer[16,16,100]

p=CreateObjectBox(1,1,1)
for a=1 to 16
	for b=1 to 16
		for c=1 to 60
			cubes[a,b,c]=CreateObjectBox(1,1,1)

			FixObjectToObject(cubes[a,b,c],p)
		next
	next
next

do
    
	print(GetPolygonsDrawn())
    Print( ScreenFPS() )
    Sync()
loop

// Project: imgperlin 
// Created: 2018-02-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "imgperlin" )
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

spr=CreateSprite(createtexture(1024,768))

do
    

    Print( ScreenFPS() )
    Sync()
loop



// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
    
function createtexture(sizex# as float, sizey# as float)
    
    
    memblockid= CreateMemblock(sizex#*sizey#*4)
    
    SetMemblockInt(memblockid, 0, sizex#)
    SetMemblockInt(memblockid, 4, sizey#)
    
    //needs blocky texture    
    
        size=GetMemblockSize(memblockid)
        for offset=12 to size-4 step 4
  
            
            strength=random(0,255)
    
            SetMemblockByte (memblockid, offset, strength)
            SetMemblockByte (memblockid, offset+1, strength)
            SetMemblockByte (memblockid, offset+2, strength)
            SetMemblockByte (memblockid, offset+3, 255)
                 
            
    next
        
    deleteimage (img)
        
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
    
    
endfunction img

float fade(float t) {
  return t*t*t*(t*(t*6.0 - 15.0) + 10.0);
}


ec2 grad(vec2 p) {
	const float texture_width = 256.0;
	vec4 v = texture2D(iChannel0, vec2(p.x / texture_width, p.y / texture_width));
    return normalize(v.xy*2.0 - vec2(1.0)); /* remap sampled value to [-1; 1] and normalize */
}


/* 2D noise */
float noise(vec2 p) {
  /* Calculate lattice points. */
  vec2 p0 = floor(p);
  vec2 p1 = p0 + vec2(1.0, 0.0);
  vec2 p2 = p0 + vec2(0.0, 1.0);
  vec2 p3 = p0 + vec2(1.0, 1.0);
  
  /* Look up gradients at lattice points. */
  vec2 g0 = grad(p0);
  vec2 g1 = grad(p1);
  vec2 g2 = grad(p2);
  vec2 g3 = grad(p3);
    
  float t0 = p.x - p0.x;
  float fade_t0 = fade(t0); /* Used for interpolation in horizontal direction */

  float t1 = p.y - p0.y;
  float fade_t1 = fade(t1); /* Used for interpolation in vertical direction. */

  /* Calculate dot products and interpolate.*/
  float p0p1 = (1.0 - fade_t0) * dot(g0, (p - p0)) + fade_t0 * dot(g1, (p - p1)); /* between upper two lattice points */
  float p2p3 = (1.0 - fade_t0) * dot(g2, (p - p2)) + fade_t0 * dot(g3, (p - p3)); /* between lower two lattice points */
  
  /* Calculate final result */
  return (1.0 - fade_t1) * p0p1 + fade_t1 * p2p3;
}

// Project: perlinnoise 
// Created: 2018-02-10

// show all errors
SetErrorMode(2)

#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "perlinnoise" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 600, 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 _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]


#constant mapheight=255
#constant mapmaxx=128
#constant mapmaxy=128
#constant playareax=40
#constant playareay=40


global blocks as integer[mapmaxx,mapmaxy] //cubes
global map as integer //the 2D map that was generated
global grasshalf, grassfull, dirtfull,player

global generating as integer

generating=CreateText("Generating Terrain")
SetTextSize(generating,50)

SetTextPosition(generating, width/2-GetTextTotalWidth(generating)/2, height/2-GetTextTotalHeight(generating)/2)


definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom

generatemap()

DeleteText(generating)

player=CreateObjectSphere(1,20,20)


// Get camera positioning
cx#=getobjectx(blocks[playareax,playareay])
cy#=getobjecty(blocks[playareax,playareay])+2
cz#=getobjectz(blocks[playareax,playareay])

SetObjectPosition(player,cx#,cy#,cz#)
RotateObjectLocalY(player,180)
SetCameraRange(1,.01,100)
//SetCameraRotation(1,0,90,0)

camerastep#=.01

do
		SetObjectPosition(map,cx#,cy#,cz#)


//player
	if GetRawKeyState(38) then MoveObjectLocalZ(player,camerastep#)
		
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*100)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*100)


	//A - rotate camera

	if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*5)
	if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*5)
	if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)
	if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)


//movecameras
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)

	SetCameraPosition(1,cx#,cy#,cz#)
	setcamerarotation(1,GetObjectAngleX(player),getobjectangley(player),GetObjectAngleZ(player))


// draw a dot to place position on the 2D map
//	DrawLine(


//	SetSpritePosition(map,0,0)
	Render2DFront()
	Print( str(ScreenFPS()) + " - Use cursors to move player, WASD to move camera views")
	print(" Last Key - " + str(GetRawLastKey()))
	print(" More to come - Enjoy!")
    Sync()
    
loop

function generatemap()
	
	swap()
	DrawBox(0,0,mapmaxx,mapmaxy,MakeColor(mapheight,mapheight,mapheight),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(mapheight,mapheight,mapheight),1)
	render()
	spr = GetImage(0,0,mapmaxx,mapmaxy)
	map=CreateSprite(spr)
	SetSpriteImage(map,spr,1)
	
	for x=1 to playareax
		for y=1 to playareay
			blocks[x,y]=CreateObjectBox(1,1,1)
			
			v=getimagepixel(  spr,x,y)
			
			SetObjectPosition(blocks[x,y],x,v/4,y)
			SetObjectImage(blocks[x,y],grassfull,1)
		next
	next
endfunction



function getimagepixel(img,x,y)
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    
        size=GetMemblockSize(memblockid)
        xx=0
        yy=0
        for offset=12 to size-4 step 4
  
			if xx=x and yy=y 
				value=GetMemblockByte(memblockid, offset)
				
				
				
			endif
			inc xx
			if xx>imgwidth 
				xx=0
				inc yy
			endif
			
            
            
    next
        
    DeleteMemblock(memblockid)
	
	
endfunction value


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id

// Project: perlinnoise 
// Created: 2018-02-10

// show all errors
SetErrorMode(2)

#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "perlinnoise" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 600, 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 _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]


#constant mapheight=100
#constant mapmaxx=256
#constant mapmaxy=256
#constant playareax=50
#constant playareay=50

// map variables
global memblockid, imgwidth, imgheight, imgsize


global blocks as integer[mapmaxx,mapmaxy] //cubes
global map as integer //the 2D map that was generated
global grasshalf, grassfull, dirtfull,player

global generating as integer

generating=CreateText("Generating Terrain")
SetTextSize(generating,50)

SetTextPosition(generating, width/2-GetTextTotalWidth(generating)/2, height/2-GetTextTotalHeight(generating)/2)


// setup a skybox
SetSunActive(1)
SetSkyBoxHorizonSize(4.0,10)
SetSkyBoxHorizonColor(0,200,0)
SetSkyBoxSkyColor(0,0,255)
SetSkyBoxVisible(1)
  
SetFogColor(0,0,0)
SetFogRange(150,180)
SetFogMode(1)


definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom

generatemap()

DeleteText(generating)

player=CreateObjectSphere(1,20,20)


// Get camera positioning
cx#=getobjectx(blocks[playareax,playareay])
cy#=getobjecty(blocks[playareax,playareay])+2
cz#=getobjectz(blocks[playareax,playareay])

SetObjectPosition(player,cx#,cy#,cz#)
RotateObjectLocalY(player,180)
SetCameraRange(1,.01,100)
//SetCameraRotation(1,0,90,0)

camerastep#=.01

do
		SetObjectPosition(map,cx#,cy#,cz#)


//player
	if GetRawKeyState(38) then MoveObjectLocalZ(player,camerastep#)
		
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*100)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*100)


	//A - rotate camera

	if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*5)
	if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*5)
	if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)
	if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)


//movecameras
	cx#=getobjectx(player)
	cy#=getobjecty(player)
	cz#=getobjectz(player)

	SetCameraPosition(1,cx#,cy#,cz#)
	setcamerarotation(1,GetObjectAngleX(player),getobjectangley(player),GetObjectAngleZ(player))


// draw a dot to place position on the 2D map
//	DrawLine(


//	SetSpritePosition(map,0,0)
	Render2DFront()
	Print( str(ScreenFPS()) + " - Use cursors to move player, WASD to move camera views")
	print(" Last Key - " + str(GetRawLastKey()))
	print(" More to come - Enjoy!")
    Sync()
    
loop

function generatemap()
	
	swap()
	DrawBox(0,0,mapmaxx,mapmaxy,MakeColor(mapheight,mapheight,mapheight),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(mapheight,mapheight,mapheight),1)
	render()
	spr = GetImage(0,0,mapmaxx,mapmaxy)
	map=CreateSprite(spr)
	SetSpriteImage(map,spr,1)

// create memblock before loops to load faster
    memblockid = CreateMemblockFromImage (spr)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    imgsize=GetMemblockSize(memblockid)


	
	for x=1 to playareax
		for y=1 to playareay
			blocks[x,y]=CreateObjectBox(1,1,1)
			
			v=getimagepixel(  spr,x,y)
			
			SetObjectPosition(blocks[x,y],x,v/4,y)
			SetObjectImage(blocks[x,y],grassfull,1)
		next
	next
	
	// finish with the memblock
	DeleteMemblock(memblockid)
endfunction



function getimagepixel(img,x,y)
	offset=12 + ( ( x + ( y * imgwidth ) ) * 4)
	value=GetMemblockByte(memblockid,offset)
endfunction value


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id

// Project: perlinnoise 
// Created: 2018-02-10

// show all errors
SetErrorMode(2)

#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "perlinnoise" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 600, 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 _textures
	id              // texture store
	r,g,b           // colors
	dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
	texturessize
endtype
global textures as _textures[8]


#constant mapheight=255
#constant mapmaxx=1024
#constant mapmaxy=1024
#constant playareax=50
#constant playareay=50

// map variables
global memblockid, imgwidth, imgheight, imgsize


global blocks as integer[mapmaxx,mapmaxy] //cubes
global totalblocks

global map as integer //the 2D map that was generated
global grasshalf, grassfull, dirtfull,player

global generating as integer
global cx#,cy#,cz#

generating=CreateText("Generating Terrain")
SetTextSize(generating,50)

SetTextPosition(generating, width/2-GetTextTotalWidth(generating)/2, height/2-GetTextTotalHeight(generating)/2)


// setup a skybox
SetSunActive(1)
SetSkyBoxHorizonSize(4.0,10)
SetSkyBoxHorizonColor(0,200,0)
SetSkyBoxSkyColor(0,0,255)
SetSkyBoxVisible(1)
  
SetFogColor(0,0,0)
SetFogRange(150,180)
SetFogMode(1)


definetextures()

grasshalf = CreateTextures(64,64,4,0,1) // sides
grassfull = CreateTextures(64,64,4,0,0)  // top
dirtfull = CreateTextures(64,64,4,1,1)  // bottom

generatemap()

DeleteText(generating)

player=CreateObjectSphere(.1,20,20)


// Get camera positioning
cx#=getobjectx(blocks[playareax/2,playareay/2])
cy#=getobjecty(blocks[playareax/2,playareay/2])+2
cz#=getobjectz(blocks[playareax/2,playareay/2])



SetObjectPosition(player,cx#,cy#,cz#)
RotateObjectLocalY(player,180)
SetCameraRange(1,.01,400)
//SetCameraRotation(1,0,90,0)

camerastep#=.01

do



//player
	if GetRawKeyState(38) then MoveObjectLocalZ(player,camerastep#)
		
	if GetRawKeyState(40) then MoveObjectLocalZ(player,-camerastep#)
	if GetRawKeyState(37) then RotateObjectLocalY(player,-camerastep#*100)
	if GetRawKeyState(39) then RotateObjectLocalY(player,camerastep#*100)


	//A - rotate camera

	if GetRawKeyState(65) then RotateObjectLocalY(player,-camerastep#*50)
	if GetRawKeyState(68) then RotateObjectLocalY(player,camerastep#*50)
	if GetRawKeyState(87) then RotateObjectLocalX(player,-camerastep#*5)
	if GetRawKeyState(83) then RotateObjectLocalX(player,camerastep#*5)
	
	if GetRawKeyState(69) then inc cy#,.3
	
	if GetRawKeyState(67) then dec cy#,.3
//add
	if GetRawKeyPressed(32) then addblock(blockpositionx,blockpositiony)




//movecameras
	cx#=getobjectx(player)
	cz#=getobjectz(player)


	//cy#=getobjecty(player)

	SetCameraPosition(1,cx#,cy#,cz#-2)
	setcamerarotation(1,GetObjectAngleX(player),getobjectangley(player),GetObjectAngleZ(player))


	blockpositionx=floor(cx#)
	blockpositiony=floor(cz#)



//find location of block

// draw a dot to place position on the 2D map
	SetspritePosition(map,width-100,0)

	DrawEllipse(width-100+cx#,cz#,3,3,MakeColor(0,0,255),MakeColor(0,0,255),1)
	
	cull_objs_behind_camera()

//	SetSpritePosition(map,0,0)
	Render2DBack()
	Print( str(ScreenFPS()) + " - Use cursors to move player, WASD to move camera views")
	print("Use E and C for a sky view")
	print(" Last Key - " + str(GetRawLastKey())+ " - Blocks "+str(totalblocks)+" - " + str(GetPolygonsDrawn()) + " X - "+str(blockpositionx) + " - Y " + str(blockpositiony))
	print(" More to come - Enjoy!")
    Sync()
    
loop

function addblock(x,y)
	
	blockpositionx=floor(cx#)
	blockpositiony=floor(cz#)

			bl=CreateObjectBox(1,1,1)
			inc totalblocks
			
			SetObjectPosition(bl,x,getobjecty(blocks[x,y])+1,y)
			SetObjectImage(bl,grassfull,1)
	
	cy#=getobjecty(blocks[x,y])+1
	
	//SetObjectPosition(player,cx#,cy#+1,cz#)
endfunction

function generatemap()
	
	swap()
	DrawBox(0,0,mapmaxx,mapmaxy,MakeColor(mapheight,mapheight,mapheight),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(mapheight,mapheight,mapheight),1)
	render()
	spr = GetImage(0,0,mapmaxx,mapmaxy)
	map=CreateSprite(spr)
	SetSpriteImage(map,spr,1)
	SetSpriteSize(map,100,100)

	
	
// create memblock before loops to load faster
    memblockid = CreateMemblockFromImage (spr)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
    imgsize=GetMemblockSize(memblockid)


	
	for x=1 to playareax
		for y=1 to playareay
			v=getimagepixel(x,y)
			blocks[x,y]=CreateObjectBox(1,1,1)
			inc totalblocks
			
			SetObjectPosition(blocks[x,y],x,v/4,y)
			SetObjectImage(blocks[x,y],grassfull,1)
		next
	next
	
	// finish with the memblock
	DeleteMemblock(memblockid)
endfunction



function getimagepixel(x,y)
	offset=12 + ( ( x + ( y * imgwidth ) ) * 4)
	value=GetMemblockByte(memblockid,offset)
endfunction value


function definetextures()
	
	
//      	grass=createtexture(64,64,0,200,0,8)
//grass
	textures[0].r=0   :textures[0].dr=50
	textures[0].g=80 :textures[0].dg=100
	textures[0].b=0   :textures[0].db=50


//dirt
	textures[1].r=139  :textures[1].dr=20
	textures[1].g=69:textures[1].dg=20
	textures[1].b=19:textures[1].db=20

//goldgold=createtexture(8,8,255,215,100,1)
	
	textures[2].r=255   :textures[2].dr=100
	textures[2].g=215 :textures[2].dg=1
	textures[2].b=100  :textures[2].db=1


//	water=createtexture(8,8,0,0,100,1)
	textures[3].r=0   :textures[3].dr=50
	textures[3].g=0 :textures[3].dg=1
	textures[3].b=100  :textures[3].db=1

//	emeralds=createtexture(8,8,39,89,45,1)
	textures[4].r=39   :textures[4].dr=5
	textures[4].g=89 :textures[4].dg=5
	textures[4].b=45  :textures[4].db=5

endfunction
	
function createtextures(sizex# as float, sizey# as float,density, toptexture, bottomtexture)
    
    
	/*
	fire=createtexture(8,8,255,0,0,1)
	sand=createtexture(8,8,194,178,128,1)
	wood=createtexture(8,8,102,51,0,1)
	
	grassfull=createtexture(64,64,0,200,0,8) 
//	SetObjectImage(plane,grassfull,1)
*/
    
    if bottomtexture=0
		//do a full block of the same texture 
		texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	else
		// do an half block with a different texture at bottom
			texturecount=toptexture
			swap()
	
			for a=0 to sizex# step density
				for b=0 to sizey#/3 step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			texturecount=bottomtexture
			for a=0 to sizex# step density
				for b=sizey#/3 to sizey# step density
	
					rr=random(1,textures[texturecount].dr)
	
					
					if textures[texturecount].dr-rr >0 then colorred=textures[texturecount].r - rr
					if textures[texturecount].dg-rr >0 then colorgreen=textures[texturecount].g - rr
					if textures[texturecount].db-rr >0 then colorblue=textures[texturecount].b - rr
					if colorred<0 then colorred=textures[texturecount].r
					if colorgreen<0 then colorgreen=textures[texturecount].g
					if colorblue<0 then colorblue=textures[texturecount].b
					drawbox(a,b,(A+density),(B+density), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue), 1)
				next
			next
			
			render()
			textures[texturecount].id = getimage(0,0,sizex#, sizey#)
		
	
	endif
	
	sleep(0)
    
endfunction textures[texturecount].id



function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
    
    ////////CHANGE THIS////////////
    if angle# < 90 then inFront = 1
endfunction inFront
 
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    for x = 0 to playareax
        for y = 0 to playareay
				if GetObjectExists( blocks[x,y] )
            v = GetObjectInFront( blocks[x,y], 1 )
            
            if v = 0 then SetBoxVisible( x,y, 0 )
            if v = 1 then SetBoxVisible( x,y, 1 )
            endif
        next 
    next 
endfunction

function SetBoxVisible (x,y, mode)
	
	if mode=1 
			SetObjectVisible(blocks[x,y],1)
		
		
	
	

else
			SetObjectVisible(blocks[x,y],0)
endif	

endfunction