Sorry your browser is not supported!

// Project: BarnsleyFern 
// Created: 2018-06-29

// show all errors
SetErrorMode(2)

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


x# as float
y# as float
nextX# as float
nextY# as float
rand as float

for loops=1 to 100000

	DrawLine(1024/2+x#*25,768/2+y#*25,1024/2+x#*25,768/2+y#*25,MakeColor(0,255,0),MakeColor(0,255,0))

rand = random(1,100)

//1
if rand < 10
	nextX# = 0
	nextY# = 0.16 * y#
else
	//2
	if rand < 86 
		
		nextX# = 0.85 * x# + 0.04 * y#
		nextY# = -0.04 * x# + 0.85 * y# + 1.6
	else
		//3
		if rand<93 
			nextX# = 0.20 * x# + -0.26 * y#
			nextY# = 0.23 * x# + 0.22 * y# + 1.6
		else

			//4 
			nextX# = -0.15 * x# + 0.28 * y#
			nextY# = 0.26 * x# + 0.24  * y# +0.44
		endif
	endif
endif


x# = NextX#
y# = NextY#


next
print("Done")
sync()
sleep(10000)



do
    

    Print( ScreenFPS() )
    Sync()
loop

// Project: 2D water 
// Created: 2018-06-30

// show all errors
SetErrorMode(2)

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

#constant cols = 200
#constant rows = 200

global current as float [rows,cols]
global previous as float [rows,cols]
global temp as float [rows,cols]
global dampening#, spread# as float 

// change these values for effect changes
dampening# = 0.9
spread# = 2


// position a starting pixel
current[rows/2,cols/2] = 255


time# = timer()
do
    updateripple()
    
    if timer()-time# > 1 
		time#= timer()
		current[random(1,rows),random(1,rows)] = 255
	endif

   // Print( ScreenFPS() )
    Sync()
loop


function updateripple()
	for x = 1 to cols-1
		for y=1 to rows-1
			current[x,y] = ( previous[x-1,y] + previous [ x + 1, y] + previous [ x , y - 1 ] + previous [ x, y + 1 ] ) / 2  - current[x,y]
			
			current[x,y] = current[x,y] * dampening#
			
			DrawLine(x*spread#,y*spread#,x*spread#,y*spread#,MakeColor(0,current[x,y],0),MakeColor(0,current[x,y],0))
				
		next
	next

	temp = previous
	previous = current
	current = temp
	
endfunction

// Project: doublependulam 
// Created: 2018-06-30

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "doublependulam" )
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 PI# = 3.14159265359
global r1# = 200
global r2# = 200
global m1# = 30
global m2# = 30

global a1#
a1# =   PI# * 4
global a1_velocity# = 0
global a1_acceleration#


global a2#
a2# =  PI# * 8
global a2_velocity# = 0
global a2_acceleration#

global gravity# = 8

num1# as float
num2# as float
num3# as float
num4# as float





do
	// calculate first pendulum
	num1# = -gravity# * ( 2 * m1# + m2# ) * sin (a1#)
	num2# = -m2# * gravity# * sin( a1# -2 * a2#)
	num3# = -2 * sin (a1# -a2# ) * m2#
	num4# = a2_velocity# * a2_velocity# * r2# + a1_velocity#	* a1_velocity# * r1# * cos (a1#-a2#)
	den# = r1# * ( 2 * m1# + m2# - m2# * cos(2 * a1#- 2 * a2# ))
	a1_acceleration# = (num1# + num2# + num3# * num4# ) / den#
	
	
	// calculate 2nd pendulem in accordance to pendulum 1
	num1# = 2 * sin (a1# - a2#)
	num2# = (a1_velocity#*a1_velocity# * r1# * (m1#+m2#))
	num3# = gravity# * (m1# + m2#) * cos (a1#)
	num4# = a2_velocity# * a2_velocity# * r2# * m2# * cos (a1#-a2#)
	den# = r2# *  (2 * m1# + m2# - m2# * cos(2 * a1#- 2 * a2# ))
	a2_acceleration#=num1#*(num2#+num3#+num4#) / den#
	
	inc a1_velocity# , a1_acceleration#
	inc a2_velocity# , a2_acceleration#
	inc a1#,a1_velocity#
	inc a2#,a2_velocity#
	

	x1# = r1# * sin(a1#)
	y1# = r1# * cos(a1#)
	DrawLine(1024/2,0,1024/2+x1#, y1#, MakeColor(255,255,255),MakeColor(255,255,255))
	DrawEllipse(1024/2+x1#,y1#,m1#,m1#,MakeColor(255,255,255),MakeColor(255,255,255),1)


	x2# = x1# + r2# * sin(a2#)
	y2# = y1# + r2# * cos(a2#)
	
	DrawLine(1024/2+x1#, y1#, 1024/2+x2#, y2#, MakeColor(255,255,255),MakeColor(255,255,255))
	DrawEllipse(1024/2+x2#,y2#,m2#,m2#,MakeColor(255,255,255),MakeColor(255,255,255),1)


	
    Sync()
loop

#constant screenWidth=1024
#constant screenHeight=768

SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
pos_x# = 0
pos_y# = 50
pos_z# = 0
// orientate camera
SetCameraRotation(1,30,0,0)
SetCameraPosition(1,pos_x#,pos_y#,pos_z#)
CreateObjectPlane(2,500,500)
SetObjectRotation(2,90,0,0)
SetObjectPosition(2,0,-17,250)

createShader()
Shader=LoadShader( "Kaliset.vs","Kaliset.ps" )
SetObjectShader(2,Shader)
SetShaderConstantByName( Shader,"iResolution",500,500,0,0 )
do

    SetShaderConstantByName( Shader,"iGlobalTime",Timer()*.5,0,0,0 ) `tell the shader what time it is - so it can update its animations
    print(ScreenFPS())
    sync()
loop
function createShader()
if GetFileExists("Kaliset.vs") then DeleteFile("Kaliset.vs")		
file = OpenToWrite("Kaliset.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"uniform vec3 iChannelResolution[10]; // channel resolution (in pixels)")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)

if GetFileExists("Kaliset.ps") then DeleteFile("Kaliset.ps")	
file = OpenToWrite("Kaliset.ps")
WriteLine(file,"uniform vec3 iResolution; // viewport resolution (in pixels)")
WriteLine(file,"uniform float iGlobalTime; // shader playback time (in seconds)")
WriteLine(file,"uniform float iChannelTime[10]; // channel playback time (in seconds)")
WriteLine(file,"")
WriteLine(file,"//uniform vec4 iMouse; // mouse pixel coords. xy: current (if MLB down)")
WriteLine(file,"uniform sampler2D texture0; // input channel ")
WriteLine(file,"uniform sampler2D texture1; // input channel ")
WriteLine(file,"uniform vec4 iDate; // (year, month, day, time in seconds)")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"const int iterations=12;")
WriteLine(file,"void main(void)")
WriteLine(file,"{")
WriteLine(file,"//this takes the pixel we are working with to determine where it is on the screen")
//WriteLine(file,"vec2 z = gl_FragCoord.xy/iResolution.xy;")
WriteLine(file,"vec2 z = uvVarying;")
WriteLine(file,"//fixes aspect ratio in favor of symmety. comment it and see what it looks like")
WriteLine(file,"//z.y*=iResolution.y/iResolution.x;")
WriteLine(file,"//gloobywavez")
WriteLine(file,"z.x += sin(z.y*2.0+iGlobalTime * .2)/10.0;")
WriteLine(file,"//zooom")
WriteLine(file,"//z*= 1.2 + sin(iGlobalTime*.15);")
WriteLine(file,"//pan")
WriteLine(file,"//z+=vec2(sin(iGlobalTime*.2),cos(iGlobalTime*.01));")
WriteLine(file,"//rotate")
WriteLine(file,"//z=vec2(z.x*cos(iGlobalTime*.2)- z.y*sin(iGlobalTime*.2),z.y*cos(iGlobalTime*.2));")
WriteLine(file,"vec2 c=vec2(0.5, 1.1);")
WriteLine(file,"")
WriteLine(file,"float average=0.;")
WriteLine(file,"float l=length(z);")
WriteLine(file,"float prevl;")
WriteLine(file,"for (int i=0; i<iterations; i++)")
WriteLine(file,"{")
WriteLine(file,"//kaliset base form")
WriteLine(file,"z=abs(z)/dot(z,z) -c;")
WriteLine(file,"//this is another function that can be iterated to produce some different fractals")
WriteLine(file,"//comment out the previous kaliset and experiment with values with this one!!")
WriteLine(file,"//z = abs(z)/(z.x*z.y)-c;")
WriteLine(file,"prevl=l;")
WriteLine(file,"l=length(z);")
WriteLine(file,"average+=abs(l-prevl);")
WriteLine(file,"}")
WriteLine(file,"//get the average length based upon the amount of iterations elapsed. multiply it to adjust definition")
WriteLine(file,"average/=float(iterations) * 15.;")
WriteLine(file,"//color fluctuation")
WriteLine(file,"average+=iGlobalTime*0.08;")
WriteLine(file,"vec3 myColor=vec3(0.2,0.21,.62);")
WriteLine(file,"vec3 finalColor;")
WriteLine(file,"//set the colors!")
WriteLine(file,"finalColor.r = (fract(float(average)/myColor.r));")
WriteLine(file,"finalColor.g = (fract(float(average)/myColor.g));")
WriteLine(file,"finalColor.b = (fract(float(average)/myColor.b));")
WriteLine(file,"//vec4 colorResult0  = vec4(finalColor,1.0);")
WriteLine(file,"//vec4 colorResult1  = texture2D(texture1, z);") 
WriteLine(file,"gl_FragColor = vec4(finalColor,1.0);")
WriteLine(file,"//gl_FragColor = mix(colorResult0, colorResult1, colorResult1.a);")
WriteLine(file,"}") 
CloseFile(file)
endfunction

function createEllipse()
	rem create an ellipse that can be used as a sprite and returns the value of the image
	rem this was only used in early versions
	SetClearColor(0,0,0)
	ClearScreen()
    Render()
    DrawBox(0,0,100,100,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawEllipse(50,50,25,25,MakeColor(0,0,0),MakeColor(0,0,0),1)
    Swap()
    img = getimage(0,0,100,100)
    sync()
endfunction img

// Project: Maze Generator 
// Created: 2018-07-01

// show all errors
SetErrorMode(2)

#constant screenwidth = 1024
#constant screenheight = 768

// set window properties
SetWindowTitle( "Maze Generator" )
SetWindowSize( screenwidth, screenheight, 0 )
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( 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 cols,rows as integer
#constant width = 50

type _cells
	x, y
	id as integer // count id refernece to itself to check neighbours by looking up array indexes of the neighbours
	walls as integer [3] // 4 walls surrounding - 0 TOP, 1 RIGHT, 2 BOTTOM 3 LEFT
	visited as integer   // as each cell been visited - 1 Yes - 0 No
	
endtype
global cells as _cells[]

type _neighbours
	id
	direction
endtype


global emptycell as _cells
global neighbours as _neighbours[5]
global directioncellcamefrom

// calculate how many cells fit the whole screen
cols = (floor(screenwidth/width)-5)
rows = (floor(screenheight/width)-5)

index=0
// initiase and pop them to the cell array dynamically
	for x=1 to cols
		for y=1 to rows
			
			emptycell.id = index
			emptycell.x = x
			emptycell.y = y
			emptycell.walls[0]=1
			emptycell.walls[1]=1
			emptycell.walls[2]=1
			emptycell.walls[3]=1
			emptycell.visited=0
	

			cells.insert(emptycell)
			
			inc index,1
				
			
		next
	next
 
currentcell = (rows * cols) / 2
	cells[currentcell].visited=1


do
	for loops=0 to cells.length
		x = cells[loops].x * width
		y = cells[loops].y * width
		
		if cells[loops].visited = 1
			DrawBox(x,y,x+width,y+width,MakeColor(0,255,0),MakeColor(0,255,0),MakeColor(0,255,0),MakeColor(0,255,0),1)

		endif
		DrawEllipse(cells[currentcell].x*width+(width/2)+5,cells[currentcell].y*width+(width/2)+5,10,10,MakeColor(255,0,0),MakeColor(255,0,0),1)
		

		if cells[loops].walls[0]=1 then DrawLine(x      ,y      ,x+width,y,MakeColor(255,255,255),MakeColor(255,255,255))
		if cells[loops].walls[1]=1 then DrawLine(x+width,y      ,x+width,y+width,MakeColor(255,255,255),MakeColor(255,255,255))
		if cells[loops].walls[2]=1 then DrawLine(x+width,y+width,x,      y+width,MakeColor(255,255,255),MakeColor(255,255,255))
		if cells[loops].walls[3]=1 then DrawLine(x      ,y+width,x,      y,MakeColor(255,255,255),MakeColor(255,255,255))

		

		
	next
	
	
	oldcell=currentcell
	
		nextcell = checkneighbours(currentcell, cols)

		if nextcell<>-1 or cells[nextcell].visited=0
			currentcell = nextcell
			cells[currentcell].visited=1
			
			//change walls in the direction it went to and from
			if directioncellcamefrom = 0 // top
				cells[currentcell].walls[2]=2
				cells[currentcell+1].walls[0]=2
			endif
			if directioncellcamefrom = 1 // right
				cells[currentcell].walls[1]=2
				cells[currentcell+rows].walls[3]=2
			endif
			if directioncellcamefrom = 2 // down
				cells[currentcell].walls[0]=2
				cells[currentcell-1].walls[2]=2
			endif
			
			if directioncellcamefrom = 3 // left
				cells[currentcell].walls[3]=2
				cells[currentcell-rows].walls[1]=2
			endif
			
			
			
			
			
		
		endif
	
		
	
    Print( ScreenFPS() )
    Sync()
//	sleep(1000)
	
loop


function checkneighbours ( cc, cols)
	
	for a=0 to neighbours.length
		neighbours[a].id=-1
			
	next
	
	validones=0
	
// check top
	topc = cc-1
// out of bounds check
	if topc>0 
		if cells[topc].visited = 0 
			neighbours[validones].id = topc
			neighbours[validones].direction = 0
			inc validones
		endif
	endif
	
	
// check right
	rightc = cc-rows
// out of bounds check
	if rightc>0 
		if cells[rightc].visited = 0 
			neighbours[validones].id = rightc
			neighbours[validones].direction = 1
			inc validones
		endif
	endif



// check bottom
	bottomc = cc+1
// out of bounds check
	if bottomc<rows*cols 
		if cells[bottomc].visited = 0 
			neighbours[validones].id = bottomc
			neighbours[validones].direction = 2
			inc validones
		endif
	endif



// check left
	leftc = cc+rows
// out of bounds check
	if leftc<rows*cols
		if cells[leftc].visited = 0 
			neighbours[validones].id = leftc
			neighbours[validones].direction = 3
			inc validones
		endif
	endif
	
	
	ran = random(0,validones-1)
	
	directioncellcamefrom=neighbours[ran].direction
	

// if there are available neighboars that has not been visited then select a random one to move to
		returnvalue = neighbours[ran].id
endfunction returnvalue

// Project: maze gen v3 
// Created: 2018-07-06

// show all errors
SetErrorMode(2)

#constant swidth = 800
#constant sheight = 600 
#constant white = MakeColor(255,255,255)
#constant green = MakeColor(0,255,0)
#constant blue = MakeColor(0,0,255)
#constant black = MakeColor(0,0,0)
// set window properties
SetWindowTitle( "maze gen v3" )
SetWindowSize( swidth, sheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( swidth, sheight ) // 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 cols,rows


// Change this value - lower the larger the map - the higher to smaller the maze
width = 40 
// Change this value - lower the larger the map - the higher to smaller the maze



type _cells
	x,y
	walls as integer[3]
	visited
	current
	direction
endtype

global cells as _cells[]

global emptycell as _cells



global stack as _cells[]
global stackcount, completed=0
cols = floor(swidth / width)-5
rows = floor (sheight /width)-5

global current=0

initialisegrid()

//currentcell.insert (cells[current])



do

		for x=0 to cells.length
			xx = cells[x].x * width
			yy = cells[x].y * width

			if completed=0 and cells[x].visited = 1 then DrawBox(xx      ,yy      ,xx+width, yy+width,green,green,green,green,1)
			if cells[x].walls[0]=1 then DrawLine(xx      ,yy      ,xx+width, yy      ,white,white)
			if cells[x].walls[1]=1 then DrawLine(xx+width,yy      ,xx+width, yy+width,white,white)
			if cells[x].walls[2]=1 then DrawLine(xx+width,yy+width,xx      , yy+width,white,white)
			if cells[x].walls[3]=1 then DrawLine(xx      ,yy+width,xx      , yy      ,white,white)

		next

		DrawBox(cells[current].x * width+2      ,cells[current].y * width+2      ,cells[current].x * width+width-2      ,cells[current].y * width+width - 2,blue,blue,blue,blue,1)


	checkneighbours(cells[current])	
	
	cells[current].visited=1


    Sync()
    sleep(0)
loop

function initialisegrid()
	i=0

	for x=0 to cols
		for y=0 to rows
		
			emptycell.current = i
			emptycell.x = x
			emptycell.y = y
			
			emptycell.walls[0] = 1 //top
			emptycell.walls[1] = 1 //right
			emptycell.walls[2] = 1 //bottom
			emptycell.walls[3] = 1 // left
			
			emptycell.visited = 0
			cells.insert(emptycell)
			inc i
		
		next
	next


endfunction



function checkneighbours(cell ref  as _cells)

	neighbours as _cells[]
	top as _cells
	cright as _cells
	cleft as _cells
	cbottom as _cells
	r as _cells
	
//top	
	if index(cell.x, cell.y-1) <> -1 and cells[index(cell.x, cell.y-1)].visited = 0
		
		top     = cells[index(cell.x, cell.y - 1)]
		top.current = index(cell.x, cell.y - 1)
		top.visited=1
		top.direction=0
		neighbours.insert(top)
	endif

//right
	if index(cell.x+1,cell.y) <> -1 and cells[index(cell.x+1, cell.y)].visited = 0
		cright     = cells[index(cell.x+1, cell.y)]
		cright.current = cells[index(cell.x+1, cell.y)].current
		cright.visited=1
		cright.direction=1
	

		neighbours.insert(cright)
	endif

// bottom
	if index(cell.x, cell.y+1) <> -1 and cells[index(cell.x, cell.y+1)].visited = 0
		cbottom = cells[index(cell.x, cell.y + 1)]
		cbottom.current = index(cell.x, cell.y + 1)
		cbottom.visited=1
		cbottom.direction = 2

		neighbours.insert(cbottom)
	endif

//left
	if index(cell.x-1,cell.y) <> -1 and cells[index(cell.x-1, cell.y)].visited = 0
		cleft     = cells[index(cell.x-1, cell.y)]
		cleft.current = index(cell.x-1, cell.y)
		cleft.visited=1
		cleft.direction = 3

	
		neighbours.insert(cleft)

	endif



	oldc=current
	if neighbours.length>=0
		r = neighbours[floor(random(0,neighbours.length))]
		
		// remove necessary walls that your heading towards
		select (r.direction)
			case 0: //up /top
				cells[index(cell.x,cell.y)].walls[0]=0
				cells[index(cell.x,cell.y-1)].walls[2]=0
			endcase
			case 1: // right
				cells[index(cell.x,cell.y)].walls[1]=0
				cells[index(cell.x+1,cell.y)].walls[3]=0

			endcase
			case 2: // bottom / down
				cells[index(cell.x,cell.y)].walls[2]=0
				cells[index(cell.x,cell.y+1)].walls[0]=0

			endcase
			
			case 3: // left
				cells[index(cell.x,cell.y)].walls[3]=0
				cells[index(cell.x-1,cell.y)].walls[1]=0
			endcase
			
		endselect

		
		current = r.current
		stack.insert (r)
		inc stackcount
	else

		if stackcount-1<0 
			print ("COMPLETED")
			completed = 1
		else
			cells[index(r.x,r.y)] = stack[stackcount-1]
			current = index(r.x,r.y)
		
			stack.remove(stackcount-1)
			dec stackcount
		endif
		
	endif
endfunction r

function index ( i, j )
	if (i <0 or j <0 or i > cols or j > rows )
		
	else
		returnvalue = (i * (rows+1))  + j
	endif
endfunction  returnvalue

// Project: maze gen v3 
// Created: 2018-07-06

// show all errors
SetErrorMode(2)

#constant swidth = 800
#constant sheight = 600 
#constant white = MakeColor(255,255,255)
#constant green = MakeColor(0,255,0)
#constant blue = MakeColor(0,0,255)
#constant black = MakeColor(0,0,0)
// set window properties
SetWindowTitle( "maze gen v3" )
SetWindowSize( swidth, sheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( swidth, sheight ) // 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 cols,rows


// Change this value - lower the larger the map - the higher to smaller the maze
width = 5 
// Change this value - lower the larger the map - the higher to smaller the maze



type _cells
	x,y
	walls as integer[3]
	visited
	current
	direction
endtype

global cells as _cells[]

global emptycell as _cells



global stack as _cells[]
global stackcount, completed=0
cols = floor(swidth / width)-5
rows = floor (sheight /width)-5

global current=0

initialisegrid()

//currentcell.insert (cells[current])
saved=0


do

		for x=0 to cells.length
			xx = cells[x].x * width
			yy = cells[x].y * width

			if completed=0 and cells[x].visited = 1 then DrawBox(xx      ,yy      ,xx+width, yy+width,green,green,green,green,1)
			if cells[x].walls[0]=1 then DrawLine(xx      ,yy      ,xx+width, yy      ,white,white)
			if cells[x].walls[1]=1 then DrawLine(xx+width,yy      ,xx+width, yy+width,white,white)
			if cells[x].walls[2]=1 then DrawLine(xx+width,yy+width,xx      , yy+width,white,white)
			if cells[x].walls[3]=1 then DrawLine(xx      ,yy+width,xx      , yy      ,white,white)

		next

		DrawBox(cells[current].x * width+2      ,cells[current].y * width+2      ,cells[current].x * width+width-2      ,cells[current].y * width+width - 2,blue,blue,blue,blue,1)


	checkneighbours(cells[current])	
	
	cells[current].visited=1

	if completed=1
		// lets save the current maze out 
		if saved=0 
			
			saved=1
			savefile = OpenToWrite("level1.dat")
			WriteInteger(savefile,cells.length)
			WriteInteger(savefile,width)
			for loops = 0 to cells.length
				WriteInteger(savefile,cells[loops].x)
				WriteInteger(savefile,cells[loops].y)
				WriteInteger(savefile,cells[loops].walls[0])
				WriteInteger(savefile,cells[loops].walls[1])
				WriteInteger(savefile,cells[loops].walls[2])
				WriteInteger(savefile,cells[loops].walls[3])

			next
			
			CloseFile(savefile)
			print("Saved")
			sync()
			sleep(1000)
		endif
		
	endif


    Sync()
    sleep(0)
loop

function initialisegrid()
	i=0

	for x=0 to cols
		for y=0 to rows
		
			emptycell.current = i
			emptycell.x = x
			emptycell.y = y
			
			emptycell.walls[0] = 1 //top
			emptycell.walls[1] = 1 //right
			emptycell.walls[2] = 1 //bottom
			emptycell.walls[3] = 1 // left
			
			emptycell.visited = 0
			cells.insert(emptycell)
			inc i
		
		next
	next


endfunction



function checkneighbours(cell ref  as _cells)

	neighbours as _cells[]
	top as _cells
	cright as _cells
	cleft as _cells
	cbottom as _cells
	r as _cells
	
//top	
	if index(cell.x, cell.y-1) <> -1 and cells[index(cell.x, cell.y-1)].visited = 0
		
		top     = cells[index(cell.x, cell.y - 1)]
		top.current = index(cell.x, cell.y - 1)
		top.visited=1
		top.direction=0
		neighbours.insert(top)
	endif

//right
	if index(cell.x+1,cell.y) <> -1 and cells[index(cell.x+1, cell.y)].visited = 0
		cright     = cells[index(cell.x+1, cell.y)]
		cright.current = cells[index(cell.x+1, cell.y)].current
		cright.visited=1
		cright.direction=1
	

		neighbours.insert(cright)
	endif

// bottom
	if index(cell.x, cell.y+1) <> -1 and cells[index(cell.x, cell.y+1)].visited = 0
		cbottom = cells[index(cell.x, cell.y + 1)]
		cbottom.current = index(cell.x, cell.y + 1)
		cbottom.visited=1
		cbottom.direction = 2

		neighbours.insert(cbottom)
	endif

//left
	if index(cell.x-1,cell.y) <> -1 and cells[index(cell.x-1, cell.y)].visited = 0
		cleft     = cells[index(cell.x-1, cell.y)]
		cleft.current = index(cell.x-1, cell.y)
		cleft.visited=1
		cleft.direction = 3

	
		neighbours.insert(cleft)

	endif



	oldc=current
	if neighbours.length>=0
		r = neighbours[floor(random(0,neighbours.length))]
		
		// remove necessary walls that your heading towards
		select (r.direction)
			case 0: //up /top
				cells[index(cell.x,cell.y)].walls[0]=0
				cells[index(cell.x,cell.y-1)].walls[2]=0
			endcase
			case 1: // right
				cells[index(cell.x,cell.y)].walls[1]=0
				cells[index(cell.x+1,cell.y)].walls[3]=0

			endcase
			case 2: // bottom / down
				cells[index(cell.x,cell.y)].walls[2]=0
				cells[index(cell.x,cell.y+1)].walls[0]=0

			endcase
			
			case 3: // left
				cells[index(cell.x,cell.y)].walls[3]=0
				cells[index(cell.x-1,cell.y)].walls[1]=0
			endcase
			
		endselect

		
		current = r.current
		stack.insert (r)
		inc stackcount
	else

		if stackcount-1<0 
			print ("COMPLETED")
			completed = 1
		else
			cells[index(r.x,r.y)] = stack[stackcount-1]
			current = index(r.x,r.y)
		
			stack.remove(stackcount-1)
			dec stackcount
		endif
		
	endif
endfunction r

function index ( i, j )
	if (i <0 or j <0 or i > cols or j > rows )
		
	else
		returnvalue = (i * (rows+1))  + j
	endif
endfunction  returnvalue

// Project: maze gen v3 
// Created: 2018-07-06

// show all errors
SetErrorMode(2)

#constant swidth = 800
#constant sheight = 600 
#constant white = MakeColor(255,255,255)
#constant green = MakeColor(0,255,0)
#constant blue = MakeColor(0,0,255)
#constant black = MakeColor(0,0,0)
// set window properties
SetWindowTitle( "maze gen v3" )
SetWindowSize( swidth, sheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( swidth, sheight ) // 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 cols,rows,width



type _cells
	x,y
	walls as integer[3]
	visited
	current
	direction
endtype

global cells as _cells[]

global emptycell as _cells



global stack as _cells[]
global stackcount, completed=0

global current=0

loadmaze("Level1.Dat")

do

		for x=0 to cells.length
			xx = cells[x].x * width
			yy = cells[x].y * width

			if completed=0 and cells[x].visited = 1 then DrawBox(xx      ,yy      ,xx+width, yy+width,green,green,green,green,1)
			if cells[x].walls[0]=1 then DrawLine(xx      ,yy      ,xx+width, yy      ,white,white)
			if cells[x].walls[1]=1 then DrawLine(xx+width,yy      ,xx+width, yy+width,white,white)
			if cells[x].walls[2]=1 then DrawLine(xx+width,yy+width,xx      , yy+width,white,white)
			if cells[x].walls[3]=1 then DrawLine(xx      ,yy+width,xx      , yy      ,white,white)

		next

		DrawBox(cells[current].x * width+2      ,cells[current].y * width+2      ,cells[current].x * width+width-2      ,cells[current].y * width+width - 2,blue,blue,blue,blue,1)



    Sync()
    sleep(0)
loop


function loadmaze(mazefile as string)
	loadfile = OpenToRead(mazefile)
	length = ReadInteger(loadfile)
	width = ReadInteger(loadfile)
	
	cells.length = length
	for loops = 0 to length

		cells[loops].x = ReadInteger(loadfile)
		cells[loops].y = ReadInteger(loadfile)
		cells[loops].walls[0] = ReadInteger(loadfile)
		cells[loops].walls[1] = ReadInteger(loadfile)
		cells[loops].walls[2] = ReadInteger(loadfile)
		cells[loops].walls[3] = ReadInteger(loadfile)

	next
			
			CloseFile(loadfile)

endfunction

// Project: maze gen v3 
// Created: 2018-07-06

// show all errors
SetErrorMode(2)

#constant swidth = 1024
#constant sheight = 768 
#constant white = MakeColor(0,0,255)
#constant green = MakeColor(0,255,0)
#constant blue = MakeColor(0,0,255)
#constant black = MakeColor(0,0,0)


#constant wallheight = 3


// set window properties
SetWindowTitle( "3D maze loader" )
SetWindowSize( swidth, sheight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( swidth, sheight ) // 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 cols,rows,width



type _cells
	ObjID
	x,y
	walls as integer[3]
	visited
	current
	direction
endtype

global cells as _cells[]

global emptycell as _cells



global stack as _cells[]
global stackcount, completed=0

global current=0

loadmaze("Level1.Dat")

plane = CreateObjectPlane(1000,1000)
SetObjectRotation(plane,90,0,0)
SetObjectColor(plane,0,200,0,255)

wall = CreateObjectBox(1,wallheight,1)

for a=0 to cells.length
	
	if cells[a].walls[0] = 1 // top or bottom 
		cells[a].ObjID = InstanceObject(wall)
		SetObjectPosition(cells[a].ObjID, cells[a].x*4, 1, cells[a].y*4-2)
//		SetObjectRotation(cells[a].ObjID, 0,90,0)
		SetObjectScale(cells[a].ObjID, 4,1,1)

		
	endif

	if cells[a].walls[2] = 1 // top or bottom 
		cells[a].ObjID = InstanceObject(wall)
		SetObjectPosition(cells[a].ObjID, cells[a].x*4, 1, cells[a].y*4+2)
//		SetObjectRotation(cells[a].ObjID, 0,90,0)
		SetObjectScale(cells[a].ObjID, 4,1,1)
	endif
	
	if cells[a].walls[1] = 1 // left or right
		cells[a].ObjID = InstanceObject(wall)
		SetObjectPosition(cells[a].ObjID, cells[a].x*4+2, 1, cells[a].y*4)
		SetObjectRotation(cells[a].ObjID, 0,90,0)
		SetObjectScale(cells[a].ObjID,4,1,1)
	endif


	if cells[a].walls[3] = 1 // left or right
		cells[a].ObjID = InstanceObject(wall)
		SetObjectPosition(cells[a].ObjID, cells[a].x*4-2, 1, cells[a].y*4)
		SetObjectRotation(cells[a].ObjID, 0,90,0)
		SetObjectScale(cells[a].ObjID,4,1,1)
	endif
next


cx# = 0 : cy# = 10: cz# = -10


do

	if viewmaze=1
		for x=0 to cells.length
			xx = cells[x].x * width
			yy = cells[x].y * width

			if cells[x].walls[0]=1 then DrawLine(xx      ,yy      ,xx+width, yy      ,white,white)
			if cells[x].walls[1]=1 then DrawLine(xx+width,yy      ,xx+width, yy+width,white,white)
			if cells[x].walls[2]=1 then DrawLine(xx+width,yy+width,xx      , yy+width,white,white)
			if cells[x].walls[3]=1 then DrawLine(xx      ,yy+width,xx      , yy      ,white,white)

		next

		DrawBox(cells[current].x * width+2      ,cells[current].y * width+2      ,cells[current].x * width+width-2      ,cells[current].y * width+width - 2,blue,blue,blue,blue,1)
	endif

	if GetRawKeyState(87) then inc cz#,.2
	if GetRawKeyState(83) then dec cz#,.2
	if GetRawKeyState(65) then dec cx#,.2
	if GetRawKeyState(68) then inc cx#,.2

	if GetRawKeyState(38) then inc cy#,.2
	if GetRawKeyState(40) then dec cy#,.2
		

	if GetRawKeyPressed(86) 
		if viewmaze=1 
			viewmaze=0
		else
		
			viewmaze = 1
		endif
	endif
		
		
	SetCameraPosition(1, cx#, cy#, cz#)

	print ("Use WASD and UP and DOWN to move around")
	print ("Press 'V' to view the 2D Maze")
    Sync()
    sleep(0)
loop


function loadmaze(mazefile as string)
	loadfile = OpenToRead(mazefile)
	length = ReadInteger(loadfile)
	width = ReadInteger(loadfile)
	
	cells.length = length
	for loops = 0 to length

		cells[loops].x = ReadInteger(loadfile)
		cells[loops].y = ReadInteger(loadfile)
		cells[loops].walls[0] = ReadInteger(loadfile)
		cells[loops].walls[1] = ReadInteger(loadfile)
		cells[loops].walls[2] = ReadInteger(loadfile)
		cells[loops].walls[3] = ReadInteger(loadfile)

	next
			
			CloseFile(loadfile)

endfunction

// Project: 1D teris 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheigh=768

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

swap()
DrawBox(0,0,100,100,MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),1)
Render()
block = CreateSprite(GetImage(0,0,100,100))
Preview = CreateSprite(GetImage(0,0,100,100))

nxt = CreateText("Next Peice")
SetTextSize(nxt,20)

t=CreateText("1D Tetris - Brought to you by funnyguy.com")
SetTextSize(t,20)


stp = 1
time#=timer()
y# = screenheigh/2-200
do
	DrawLine(screenwidth/2-55,screenheigh/2-200,screenwidth/2-55,screenheigh/2+200,MakeColor(255,255,255),MakeColor(255,255,255))
	DrawLine(screenwidth/2+55,screenheigh/2-200,screenwidth/2+55,screenheigh/2+200,MakeColor(255,255,255),MakeColor(255,255,255))
	DrawLine(screenwidth/2-55, screenheigh/2+200,screenwidth/2+55,screenheigh/2+200,MakeColor(255,255,255),MakeColor(255,255,255))
	SetSpritePosition(preview,50,50)
	SetTextPosition(nxt,60,130)
	
	
	SetSpritePosition(block,screenwidth/2-50,y#)
	inc y#,2
	if y#>screenheigh/2+100 then y# = screenheigh/2+100

	SetTextPosition(t,screenwidth/2-GetTextTotalWidth(t)/2,screenheigh-100)
    Print( ScreenFPS() )
    Sync()
loop

// Project: homemadesphere 
// Created: 2018-08-22

// show all errors
SetErrorMode(2)

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

type _boxes
	id
	x#
	y#
	z#
endtype
global boxes as _boxes[]
global empty as _boxes

box=CreateObjectBox(.1,.1,.1)

r#=8

boxnumber=0
	for i#=-180 to 180 step 10 // change these for effect
		for j#=-90 to 90 step 10 // change these for effect
			x# = r# * sin(i#) * cos(j#)
			y# = r# * sin(i#) * sin(j#)
			z# = r# * cos(i#)
			empty.id = InstanceObject(box)
			empty.x#=x#
			empty.y#=y#
			empty.z#=z#
			boxes.insert(empty)
			SetObjectPosition(boxes[boxnumber].id,boxes[boxnumber].x#,boxes[boxnumber].y#,boxes[boxnumber].z#)
			SetObjectColor(boxes[boxnumber].id,random(0,255),random(0,255),random(0,255),255)
			FixObjectToObject(boxes[boxnumber].id,box)
			inc boxnumber
		next
	next

do
	RotateObjectLocalX(box,1)
    Print( ScreenFPS() )
    Sync()
loop

// Project: Towerdefense 
// Created: 2018-08-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Tower defence" )
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
#constant bulletLife   = 1.5
#constant Depth#=10
type _boxes
	id
	x#
	y#
	z#
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

global boxes as _boxes[]
global empty as _boxes
global myBullet as bullet[0]
global bulletCount=0 

box=CreateObjectBox(.1,.1,.8)
SetObjectVisible(box,0)
r#=8
create3DPhysicsWorld()
boxnumber=0
	for i#=-180 to 180 step 40 // change these for effect
		for j#=-90 to 90 step 40 // change these for effect
			x# = r# * sin(i#) * cos(j#)
			y# = r# * sin(i#) * sin(j#)
			z# = r# * cos(i#)
			empty.id = InstanceObject(box)
			empty.x#=x#
			empty.y#=y#
			empty.z#=z#
			boxes.insert(empty)
			SetObjectVisible(empty.id,1)
			SetObjectPosition(boxes[boxnumber].id,boxes[boxnumber].x#,boxes[boxnumber].y#,boxes[boxnumber].z#)
			SetObjectLookAt( boxes[boxnumber].id, 0, 0, 0, 0 ) 
			SetObjectColor(boxes[boxnumber].id,random(0,255),random(0,255),random(0,255),255)
			FixObjectToObject(boxes[boxnumber].id,box)
			inc boxnumber
		next
	next

mouseBlock=CreateObjectBox(1,1,1)

do 
	
	//for num =0 to boxnumber-1
	//	SetObjectLookAt( boxes[num].id, GetObjectWorldX(mouseBlock),GetObjectWorldY(mouseBlock),GetObjectWorldZ(mouseBlock), 0 ) 
	//next num
	moveblockwithmouse(mouseBlock)
	
	if GetPointerPressed() //shoot
		for num =0 to boxnumber-1
			if getDistance(boxes[num].id,mouseBlock)<15 then 	shootBullet( boxes[num].id,mouseBlock, 1000.0, 10.0)
		next num
	endif
	
	for num=1 to bulletCount
		if (myBullet[num].time)+bulletLife<timer() 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	Step3DPhysicsWorld() 
	
	RotateObjectLocalX(box,1)
    Print("Move Mouse they will aim at you")
    Print("Press mouse button they will shoot")
    Print( ScreenFPS() )
    Sync()
loop

function shootBullet(objectId as integer,objectID2 as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    SetObjectLookAt( projectileDirBox, GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2), 0 ) 
        
    MoveObjectLocalZ( projectileDirBox, -1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    bullet as integer    
    bullet = CreateObjectSphere(.45,.45,.45 )
    SetObjectColor( bullet, 255, 255,255,255 )
    SetObjectPosition( bullet, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( bullet )
    SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass( bullet, mass )
    SetObject3DPhysicsLinearVelocity( bullet, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = bullet //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function getDistance(objectID as integer,objectID2 as integer)
	distance as float
	vec1=CreateVector3(GetObjectWorldX(objectID),GetObjectWorldY(objectID),GetObjectWorldZ(objectID))
	vec2=CreateVector3(GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2))
	distance=GetVector3Distance(vec1,vec2 ) 
endfunction distance

function moveblockwithmouse(objID as integer)
 
VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
// get a vector that points in the direction the camera is looking
VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
// normalise Vector in the direction of Vector2
Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
if ( Dot# > 0 )
    VectorX# = VectorX# / Dot#
    VectorY# = VectorY# / Dot#
    VectorZ# = VectorZ# / Dot#
endif
  
WorldX# = VectorX# * Depth# + GetCameraX(1)
WorldY# = VectorY# * Depth# + GetCameraY(1)
WorldZ# = VectorZ# * Depth# + GetCameraZ(1)
SetObjectPosition(objID,WorldX#, WorldY#,GetObjectZ(objID))
endfunction

// Project: 4d 
// Created: 2018-08-11

// show all errors
SetErrorMode(2)

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





type _pvector3d
	sphere
	x#
	y#
	z#
	w#
endtype 

pvector3d as _pvector3d[24]

size#=100

pvector3d[0].x#=-size# :pvector3d[0].y#=-size# : pvector3d[0].z#=-size#
pvector3d[1].x#=size# :pvector3d[1].y#=-size# : pvector3d[1].z#=-size#

pvector3d[2].x#=size# :pvector3d[2].y#=size# : pvector3d[2].z#=-size#
pvector3d[3].x#=-size# :pvector3d[3].y#=size# : pvector3d[3].z#=-size#

pvector3d[4].x#=-size# :pvector3d[4].y#=-size# : pvector3d[4].z#=-size#
pvector3d[5].x#=-size# :pvector3d[5].y#=-size# : pvector3d[5].z#=size#


pvector3d[6].x#=-size# :pvector3d[6].y#=size# : pvector3d[6].z#=size#
pvector3d[7].x#=-size# :pvector3d[7].y#=size# : pvector3d[7].z#=-size#


pvector3d[8].x#=size# :pvector3d[8].y#=size# : pvector3d[8].z#=-size#
pvector3d[9].x#=size# :pvector3d[9].y#=size# : pvector3d[9].z#=size#


pvector3d[10].x#=size# :pvector3d[10].y#=-size# : pvector3d[10].z#=size#
pvector3d[11].x#=size# :pvector3d[11].y#=-size# : pvector3d[11].z#=-size#


pvector3d[12].x#=size# :pvector3d[12].y#=-size# : pvector3d[12].z#=size#
pvector3d[13].x#=size# :pvector3d[13].y#=size# : pvector3d[13].z#=size#


pvector3d[14].x#=size# :pvector3d[14].y#=-size# : pvector3d[14].z#=-size#
pvector3d[15].x#=size# :pvector3d[15].y#=size# : pvector3d[15].z#=-size#


pvector3d[16].x#=-size# :pvector3d[16].y#=-size# : pvector3d[16].z#=-size#
pvector3d[17].x#=-size# :pvector3d[17].y#=size# : pvector3d[17].z#=-size#


pvector3d[18].x#=-size# :pvector3d[18].y#=-size# : pvector3d[18].z#=size#
pvector3d[19].x#=-size# :pvector3d[19].y#=size# : pvector3d[19].z#=size#


pvector3d[20].x#=-size# :pvector3d[20].y#=-size# : pvector3d[20].z#=size#
pvector3d[21].x#=size# :pvector3d[21].y#=-size# : pvector3d[21].z#=size#


pvector3d[22].x#=-size# :pvector3d[22].y#=size# : pvector3d[22].z#=size#
pvector3d[23].x#=size# :pvector3d[23].y#=size# : pvector3d[23].z#=size#




ang#=0
do
	
	for a=1 to pvector3d.length step 2
	//	DrawEllipse(pvector3d[a].x#,pvector3d[a].y#,5,5,MakeColor(255,255,255),MakeColor(255,255,255),0)
		drawline3d(pvector3d[a].x#, pvector3d[a].y#, pvector3d[a].z#, pvector3d[a-1].x#, pvector3d[a-1].y#, pvector3d[a-1].z#, ang#, MakeColor(255,255,255))
	
	next
	inc ang#
//	RotateObjectLocalX(holder,1)
    Print( ScreenFPS() )
    Sync()
loop


function drawline3d(fromx#,fromy#,fromz#,tox#, toy#, toz#, ang#, col )

	
	
	// X rotation
	x0# = fromx#
	y0# = fromy# * cos(ang#) + fromz# * sin(ang#)
	z0# = fromz# * cos(ang#) - fromy# * sin(ang#)
	
	// Y rotation
	x1# = x0# * cos(ang#) - z0# * sin(ang#)
	y1# = y0#
	z1# = z0# * cos(ang#) + x0# * sin(ang#)
	
	// Z rotation
	x2# = x1# * cos (ang#) + y1# * sin(ang#)
	y2# = y1# * cos (ang#) - x1# * sin(ang#)
	
	
	// X rotation
	x0# = tox#
	y0# = toy# * cos(ang#) + toz# * sin(ang#)
	z0# = toz# * cos(ang#) - toy# * sin(ang#)
	
	// Y rotation
	xx1# = x0# * cos(ang#) - z0# * sin(ang#)
	yy1# = y0#
	zz1# = z0# * cos(ang#) + x0# * sin(ang#)
	
	// Z rotation
	xx2# = xx1# * cos (ang#) + yy1# * sin(ang#)
	yy2# = yy1# * cos (ang#) - xx1# * sin(ang#)
	
	
	DrawLine(1024/2+x2#,768/2+y2#, 1024/2+xx2#,768/2+yy2#, col,col)
	
endfunction

// Project: Lissajous Curve 
// Created: 2018-10-06

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
 #constant PI# = 3.14159265359


// set window properties
SetWindowTitle( "Lissajous Curve" )
SetWindowSize( screenwidth, screenheight, 0 )
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( 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



width =30
cols = screenwidth / width -2
rows = screenheight / width -2

diameter = width - 10
radius = diameter /2


angle#=0
angleup=1

do
	for i = 0 to cols
		for j=0 to rows
			
			cx# = (i * width)
			cy# = (j * width)
	
			x# = radius * cos (angle# * (i+.01)-angle#)
			y# = radius * sin (angle# * (j+.01)-angle#)

			color = MakeColor(0,0,i*j*i )
			
			DrawBox(cx#+x#,cy#+y#,cx#+x#*width, cy#+y#*width,color,color,color,color,1)


		next
	next


	if angleup=0 then inc angle#, .1
	if angleup=1 then dec angle#, .1

	
	if angle#>40
		angle#=40
		angleup=1
	endif
	if angle#<0 
		angle#=0
		angleup=0
	endif
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: Chaos 
// Created: 2018-11-29

// show all errors
SetErrorMode(2)
#constant width=1024
#constant height=768

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

type _dots
	x#
	y#
	color
endtype

global dots as _dots[]
dot as _dots

// make a triangle
// top centre
ax#=width/2
ay#=0

// bottom right
bx#=width
by#=height

// bottom left
cx#=0
cy#=height

pointsize#=3
pointcolor1=MakeColor(0,255,255)
pointcolor2=MakeColor(255,0,255)
pointcolor3=MakeColor(255,255,0)

dotcolor = MakeColor(0,255,0)

x#=random(0,width)
y#=random(0,height)
do
	
	DrawBox(ax#,ay#,ax#+pointsize#,ay#+pointsize#,pointcolor1,pointcolor1,pointcolor1,pointcolor1,1)
	DrawBox(bx#,by#,bx#+pointsize#,by#+pointsize#,pointcolor2,pointcolor2,pointcolor2,pointcolor2,1)
	DrawBox(cx#,cy#,cx#+pointsize#,cy#+pointsize#,pointcolor3,pointcolor3,pointcolor3,pointcolor3,1)

	for a=0 to 1000
		r=random(0,3)
	
		if (r=0)
			x# = lerp(x#,ax#,.5)
			y# = lerp(y#,ay#,.5)
			
			dot.x# = x#
						
			dot.y# = y#
					dot.color=MakeColor(255,0,0)
			dots.insert(dot)
		else
			if (r=1)
				x# = lerp(x#,bx#,.5)
				y# = lerp(y#,by#,.5)
			
				dot.x# = x#
						
				dot.y# = y#
					dot.color=MakeColor(0,255,0)
				dots.insert(dot)
				
				
				
			else
				if (r=2)
					x# = lerp(x#,cx#,.5)
					y# = lerp(y#,cy#,.5)
			
					dot.x# = x#
							
					dot.y# = y#
					dot.color=MakeColor(255,255,0)
					dots.insert(dot)
					
					
				endif
			endif
		endif
	next

	for loopdots = 0 to dots.length
		dotcolor=dots[loopdots].color
		DrawBox(dots[loopdots].x#, dots[loopdots].y#,dots[loopdots].x#+ pointsize#,dots[loopdots].y#+pointsize#,dotcolor,dotcolor,dotcolor,dotcolor,1)
			
	next

    Print( ScreenFPS() )
    Sync()
loop

function lerp (from#, to#, time#)
	
	
endfunction (1-time#) * from# + (time# * to#)

do 

       if no points exist then
             draws points until fully drawn
      endif

      if fully drawn then
            remove points until nothing exist

      endif

      sync
loop

// Project: Chaos 
// Created: 2018-11-29

// show all errors
SetErrorMode(2)
#constant width=1024
#constant height=768

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

type _points
	x#
	y#
	pointsize#
	color
endtype
global points as _points[]
point as _points


type _dots
	x#
	y#
	pointsize#
	color
endtype

global dots as _dots[]
dot as _dots

size#=200
numofpoints=5 // change this value for new effects


for a=0 to numofpoints // change this value to add more points
	point.x#=(width/2)+size# * sin(a * (360 / numofpoints))
	point.y#=(height/2)+size# * cos(a * (360 / numofpoints))
	point.color = MakeColor(255,255,255)
	point.pointsize#=3
	points.insert(point)
next


x#=random(0,width)
y#=random(0,height)
do

	for a=0 to points.length
		pointcolor1 = points[a].color
		DrawBox(points[a].x#,points[a].y#,points[a].x#+points[a].pointsize#,points[a].y#+points[a].pointsize#,pointcolor1,pointcolor1,pointcolor1,pointcolor1,1)
	next
	
	
	for a=0 to 1000
		r=random(0,points.length)
		
		if nextr<>r 
			x# = lerp(x#,points[r].x#,.5) // change .25 for new effects
			y# = lerp(y#,points[r].y#,.5) // change .25 for new effects
			
			dot.x# = x#
						
			dot.y# = y#
			dot.pointsize#=1
			dot.color=MakeColor(255,0,0)
			dots.insert(dot)
			nextr = r
		endif
	next



	for loopdots = 0 to dots.length
		dotcolor=dots[loopdots].color
		DrawBox(dots[loopdots].x#, dots[loopdots].y#,dots[loopdots].x#+ dots[loopdots].pointsize#,dots[loopdots].y#+dots[loopdots].pointsize#,dotcolor,dotcolor,dotcolor,dotcolor,1)
			
	next

    Print( ScreenFPS() )
    Sync()
loop

function lerp (from#, to#, time#)
	
	
endfunction (1-time#) * from# + (time# * to#)

// Project: Chaos 
// Created: 2018-11-29

// show all errors
SetErrorMode(2)
#constant width=1024
#constant height=768

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

type _points
	x#
	y#
	pointsize#
	color
endtype
global points as _points[]
point as _points


type _dots
	x#
	y#
	pointsize#
	color
endtype

global dots as _dots[]
dot as _dots

size#=200
numofpoints=15 // change this value for new effects


for a=0 to numofpoints // change this value to add more points
	point.x#=(width/2)+size# * sin(a * (360 / numofpoints))
	point.y#=(height/2)+size# * cos(a * (360 / numofpoints))
	point.color = MakeColor(255,255,255)
	point.pointsize#=3
	points.insert(point)
next


x#=random(0,width)
y#=random(0,height)
do

	for a=0 to points.length
		pointcolor1 = points[a].color
		DrawBox(points[a].x#,points[a].y#,points[a].x#+points[a].pointsize#,points[a].y#+points[a].pointsize#,pointcolor1,pointcolor1,pointcolor1,pointcolor1,1)
	next
	
	
	for a=0 to 1000
		r=random(0,points.length)
		
		if nextr<>r 
			x# = lerp(x#,points[r].x#,.75) // change .25 for new effects
			y# = lerp(y#,points[r].y#,.75) // change .25 for new effects
			
			dot.x# = x#
						
			dot.y# = y#
			dot.pointsize#=1
			dot.color=MakeColor(255,0,0)
			dots.insert(dot)
			nextr = r
		endif
	next



	for loopdots = 0 to dots.length
		dotcolor=dots[loopdots].color
		DrawBox(dots[loopdots].x#, dots[loopdots].y#,dots[loopdots].x#+ dots[loopdots].pointsize#,dots[loopdots].y#+dots[loopdots].pointsize#,dotcolor,dotcolor,dotcolor,dotcolor,1)
			
	next

    Print( ScreenFPS() )
    Sync()
loop

function lerp (from#, to#, time#)
	
	
endfunction (1-time#) * from# + (time# * to#)

// Project: 2D water 
// Created: 2018-11-29

// show all errors
SetErrorMode(2)

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

#constant width=10
#constant height=40
#constant pixelsize=20


dim water[width,height] as integer
dim waterclone[width] as integer
dim waterparticles[width] as integer

global waterstartx=1024
global waterstarty=300


// create water bits with different colours of blue

for x=0 to width
	for y=0 to height
		water[x,y] = MakeColor(0,random(0,100),random(200,255))
	next
next

Createwatersplashes(waterstartx,waterstarty)

player = CreateSprite(0)
SetSpriteSize(player,10,40)

playerx=50
falling=0
playery=waterstarty-GetSpriteHeight(player)
do

	dec waterstartx

// Create a Platform
	DrawBox(0,waterstarty,1024,waterstarty+50,MakeColor(0,100,0),MakeColor(0,255,0),MakeColor(0,100,0),MakeColor(0,255,0),1)

// create a player
	SetSpritePosition(player,playerx,playery)
	
	
	if playerx>waterstartx and playerx<waterstartx+width
		falling=1
	else
	
		if GetRawKeyState(37) then dec playerx,4
		if GetRawKeyState(39) then inc playerx,4
	endif

	if falling=1
		inc playery,8
	endif
	
	if playery>1024 then print("GAME OVER")
	
	showandupdatewater()
  
	Render2DFront()
    Print( ScreenFPS() )
    Sync()
loop

function showandupdatewater()
	
// animate the water
	for y=0 to height
		for x=0 to width
			c=water[x,y]
			DrawBox(waterstartx+x*pixelsize,waterstarty+y*pixelsize,waterstartx+x*pixelsize+pixelsize,waterstarty+y*pixelsize+pixelsize,c,c,c,c,1)

		next
	
	next

	// shift the array values from the bottom to the top
	// 
	for x=0 to width
		waterclone[x]=water[x,height-1]
	next

	for x=0 to width
		for y=height-1 to 1 step -1
			water[x,y]=water[x,y-1]
		next
	next
	
	for x=0 to width
		water[x,0]=waterclone[x]
	next
	
	
	for a=0 to water.length
		SetParticlesPosition (waterparticles[a],waterstartx+(a*(water.length*2)),waterstarty+1)
	next
	
endfunction
function Createwatersplashes(x,y)
	
	//Variables
size#=1
frecuency=1000
life#=.05
angle=90
dx#=0.0:dy#= -180.00

for a=0 to water.length
	//Create image particles
	// create a block of particles and set properties
	waterparticles[a]=CreateParticles  ( 0, 0 )
//SetParticlesImage  ( a, 1 )
SetParticlesPosition (waterparticles[a],x+(a*(water.length*2)),y+1)
//SetParticlesStartZone ( 1, x, y, zonex, zoney )
SetParticlesStartZone ( waterparticles[a], 0, 0, 0, 0 )
SetParticlesDirection  ( waterparticles[a], dx#, dy# )
SetParticlesLife ( waterparticles[a], life# )
SetParticlesSize  ( waterparticles[a], size# )
SetParticlesAngle  ( waterparticles[a], angle )
SetParticlesFrequency   ( waterparticles[a], frecuency )
SetParticlesVelocityRange ( waterparticles[a], 1, 4 )
AddParticlesColorKeyFrame ( waterparticles[a], 0, 255, 255, 255, 255 )
AddParticlesColorKeyFrame ( waterparticles[a], 3.0, 255, 255, 0, 255 )
AddParticlesColorKeyFrame ( waterparticles[a], 6.0, 255, 0, 0, 255 )
AddParticlesColorKeyFrame ( waterparticles[a], 9.0, 0, 0, 0, 0 )

next

endfunction