Sorry your browser is not supported!

function createShader()
file = OpenToWrite("neon.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 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)
  
//pixel shader
file = OpenToWrite("neon.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform sampler2D texture1;")
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,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec4 agk_MeshDiffuse;")
WriteLine(file,"mediump vec4 colorResult;")
WriteLine(file,"uniform float lightint;")
WriteLine(file,"uniform float lightson;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"	mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"	mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"	vec4 colorA = texture2D(texture0, uvVarying);")
WriteLine(file,"	vec4 colorB = texture2D(texture1, uvVarying);")
WriteLine(file,"	if (lightson < 1.0) {")
WriteLine(file,"		colorResult = vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file," 	} else {")
WriteLine(file,"		if (colorB.a > 0.0) {")
WriteLine(file,"			colorResult = vec4 ((colorA * vec4(light,1.0))*lightint) + (colorB*colorB.a);")
WriteLine(file,"		} else {")
WriteLine(file,"			colorResult =vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"gl_FragColor = colorResult;")
WriteLine(file,"}")
CloseFile(file)
endfunction

// Project: 3D neon lights shader demo 
// Created: 2018-07-25

// show all errors
SetErrorMode(2)
#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)

#constant screenWidth=1920
#constant screenHeight=1080
 
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
carID=1
SetCameraPosition(1,0,100,-250)
SetFogMode( 1 ) 
SetFogColor(10,10,10)
SetFogRange(6,16)
 
//loadObject(carId,"car.obj")
//SetObjectScale(carId,0.5,0.5,0.5)
box=CreateObjectBox(150,150,150)
 
createShader() 
SetObjectImage(box,createBoxImage(),0)
SetObjectImage(box,createTriangleImage(),1)
 
//createShader()
Shader=LoadShader( "neon.vs","neon.ps" )
SetObjectShader(box,Shader)

lightint#=1.0
lightson=1
SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
     
do
     
    RotateObjectLocalY(box,.5)
    //SetShaderConstantByName(Shader,"pointPos",1,1,1,1)
    //SetShaderConstantByName(Shader,"myColor",r#,g#,b#,0.02) //red green blue factor
    if GetRawKeyState(49)=1
		lightint#=lightint#-0.01
		if lightint#<0.0 then lightint#=0.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeyState(50)=1
		lightint#=lightint#+0.01
		if lightint#>1.0 then lightint#=1.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeypressed(76)=1
		lightson=1-lightson
		SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
	endif
	//SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	//SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
    print("Press L to toggle lights")
    print("Use 1 and 2 to increase/decrease light")
    print ("Current value "+str(lightint#))
    sync()
loop

function createBoxImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,10,10,white,white,white,white,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img


function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    //DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 

#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_SPACE	  = 32  //the space bar
#constant KEY_ESCAPE  = 27  //the escape key used to exit program
#constant swidth	  =1024
#constant sheight	  =768
#constant white 	  = MakeColor(255,255,255)
#constant offWhite 	  = MakeColor(200,200,200)
#constant offRed 	  = MakeColor(200,0,0)
#constant green 	  = MakeColor(0,255,0)
#constant black 	  = MakeColor(0,0,0)
#constant scoreTxt	  =1
#constant timeTxt	  =2
#constant fuelTxt	  =3
#constant livesTxt	  =4
#constant backGround  =1
#constant ship		  =2	
#constant timerRed    =100
#constant timerGreen  =101
#constant fuelRed     =102
#constant fuelGreen   =103

SetWindowTitle("Lunar Lander" ) 
SetWindowSize( swidth, sheight, 0 )
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 thrust#,background_memblock,background_imgwidth,background_imgheight
thrust#=0.1:maxthrust=100:fuel#=100:gravity#=1:score=0:lives=3
landImage=CreateLand()
background_memblock = CreateMemblockFromImage (LandImage)
background_imgwidth = GetMemblockInt(background_memblock, 0)
background_imgheight = GetMemblockInt(background_memblock, 4)
createSprite(background,landImage)
createSprite(ship,CreateCraft(24))
SetSpritePositionByOffset(ship,400,100)
SetSpriteOffset(ship,8,8)
SetSpriteTransparency(ship,1)

CreateTheText()
CreateFuelandTimeBars()

flameY=24:ammount=100:ResetTimer()
repeat
	if GetRawKeyState(KEY_SPACE)
		if flameY<50 
			inc flameY
			img=GetSpriteImageID(ship)
			img2=CreateCraft(flameY)
			DeleteImage(img)
			SetSpriteImage(ship,img2)
			SetSpriteSize(ship,-1,-1)
			//SetSpriteOffset(ship,8,GetSpriteScaleY(ship)*.5)
		endif
		if thrust#<2 then thrust#=thrust#+.1
	else
		if flameY>24 
			dec flameY:
			img=GetSpriteImageID(ship)
			img2=CreateCraft(flameY)
			DeleteImage(img)
			SetSpriteImage(ship,img2)
			SetSpriteSize(ship,-1,-1)
			//SetSpriteOffset(ship,8,GetSpriteScaleY(ship)*.5)
		endif
		if thrust#>0 then thrust#=thrust#-.1
	endif
	if GetRawKeyState(KEY_LEFT)
		SetSpriteAngle(ship,GetSpriteAngle(ship)-1) 
	endif
	if GetRawKeyState(KEY_RIGHT)
		SetSpriteAngle(ship,GetSpriteAngle(ship)+1) 		
	endif
	if fuel#>0 and timer()<100
		angle# = GetSpriteAngle(ship) - 90 //: If angle# < 360 Then angle# = angle# + 360
		//Calculate x / velocity based on sprite angle         
		xvel# = (Cos( angle# ) * (thrust#) )
		yvel# = (Sin( angle# ) * (thrust#) ) 
		//move sprite according to its angle and apply a gravity to the y axis
		if GetSpriteYByOffset(ship)>20 
			SetSpritePositionByOffset(ship, GetSpriteXByOffset(ship)+ xvel# ,(GetSpriteYByOffset(ship) + yvel# )+ gravity# )
		elseif yvel#>0
			SetSpritePositionByOffset(ship, GetSpriteXByOffset(ship)+ xvel# ,(GetSpriteYByOffset(ship) + yvel# )+ gravity# )			
		endif
	else //out of fuel or timer has run out
		flameY=20
		img=GetSpriteImageID(ship):img2=CreateCraft(flameY):DeleteImage(img)
		SetSpriteImage(ship,img2):SetSpriteSize(ship,-1,-1):SetSpriteOffset(ship,8,8)
		SetSpritePositionByOffset(ship, GetSpriteXByOffset(ship),GetSpriteYByOffset(ship)+ gravity# )		
	endif
	
	check=collisionCheck(GetSpriteXByOffset(ship),GetSpriteYByOffset(ship))
	if check=3 or timer()>99 //player crashed or timer has expired
		lives=lives-1:fuel#=100:ResetTimer() 
		SetSpritePositionByOffset(ship,400,100)
	endif
	
	if check=1 or check=2 //player landed
		img=GetSpriteImageID(backGround)
		DeleteSprite(backGround)
		DeleteImage(img)
		hideStuff()
		If GetImageExists(landImage) then deleteImage(landImage)
		LandImage=CreateLand()
		DeleteMemblock(background_memblock)
		background_memblock = CreateMemblockFromImage (LandImage)
		background_imgwidth = GetMemblockInt(background_memblock, 0)
		background_imgheight = GetMemblockInt(background_memblock, 4)
		createSprite(1,landImage)
		SetSpritePositionByOffset(ship,400,100)
		showStuff():fuel#=100
		if check=1 then score=score+100 //landed on green
		if check=2 then score=score+200 //landed on red 
		ResetTimer()
    endif
    
    fuel#=fuel#-(thrust#/12.0):if fuel#<0 then fuel#=0
    SetSpriteSize(fuelGreen,fuel#,20)
    SetSpriteSize(timerGreen,100-timer(),20)
	SetTextString(scoreTxt,"Score     "+str(score))
	SetTextString(livesTxt,"Lives     "+str(lives))
	sync()
until GetRawKeyPressed(KEY_ESCAPE) 


function CreateLand()
	SetPrintSize(90)
	repeat
		ClearScreen()
		Sync() //sync is needed to reset the print locations to top 
		landSpots=0
		Print("                 Lunar Lander")
		y1=768
		for x = 1 to swidth step 32
			y2=random(450,768)
			if random(0,5)>0
				DrawLine(x,y1,x+32,y2,offWhite,offWhite)  //offwhite is used for collision so its different than the lander and title etc
				DrawLine(x,y1-1,x+32,y2-1,offWhite,offWhite)  
				y1=y2	
			else
				if random(0,1)=0
					Drawline(x,y1-1,x+52,y1-1,green,green)
					Drawline(x,y1,x+52,y1,green,green):x=x+20 //easy landing spot
				else
					Drawline(x,y1-1,x+32,y1-1,offRed,offRed)
					Drawline(x,y1,x+32,y1,offRed,offRed) //harder landing spot
				endif	
				inc landSpots
			endif
		next x	
		Render()
	until landSpots>=5 //ensures there is atleast 5 landing spots
	img = getImage(0,0,swidth,sheight)
endfunction img

function CreateCraft(y as integer)
	SetClearColor(0,0,0)
	ClearScreen()
	//draw craft
	DrawBox(0,0,18,16+Y,black,black,black,black,1)
	DrawEllipse(8,8,8,8,white,white,0)
	DrawLine(3,15,0,24,white,white)
	DrawLine(13,15,18,24,white,white)
	//drawflame
	//DrawLine(4,0,12,0,white,white)
	DrawLine(4,16,8,16+y,white,white)
	DrawLine(12,16,8,16+y,white,white)
	
	render()
	img = getImage(0,0,18,16+Y)
	SetImageTransparentColor(img,0,0,0)
endfunction img

function createFuelandTimeBars()
//Time bar two sprites used one for the green and one for the red which is behind the green
//the red bar size changes (getting bigger gradually hiding the green bar
	CreateSprite(timerRed,0)
	CreateSprite(timerGreen,0)
	SetSpriteSize(timerRed,100,20)
	SetSpriteSize(timerGreen,100,20)
	SetSpriteColor(timerRed,255,0,0,255)
	SetSpriteColor(timerGreen,0,255,0,255)
	SetSpritePosition(timerRed,118,35)
	SetSpritePosition(timerGreen,118,35)
	SetSpriteDepth(timerRed,5)
	SetSpriteDepth(timerGreen,4)

//Fuel bar two sprites used one for the green and one for the red which is behind the green
//the red bar size changes (getting bigger gradually hiding the green bar
	CreateSprite(fuelRed,0)
	CreateSprite(fuelGreen,0)
	SetSpriteSize(fuelRed,100,20)
	SetSpriteSize(fuelGreen,100,20)
	SetSpriteColor(fuelRed,255,0,0,255)
	SetSpriteColor(fuelGreen,0,255,0,255)
	SetSpritePosition(fuelRed,118,65)
	SetSpritePosition(fuelGreen,118,65)
	SetSpriteDepth(fuelRed,5)
	SetSpriteDepth(fuelGreen,4)
endfunction

	
function CreateTheText()
	text1$="Score     "
	text2$="Time      "
	text3$="Fuel      "
	text4$="Lives     "
	CreateText(scoreTxt,text1$)
	CreateText(timeTxt,text2$)
	CreateText(fuelTxt,text3$)
	CreateText(livesTxt,text4$)
	SetTextSize(scoreTxt,30)
	SetTextSize(timeTxt,30)
	SetTextSize(fuelTxt,30)
	SetTextSize(livesTxt,30)
	SetTextPosition(scoreTxt,30,0)
	SetTextPosition(timeTxt,30,30)
	SetTextPosition(fuelTxt,30,60)
	SetTextPosition(livesTxt,900,0)
endfunction


function collisionCheck(x,y)
   local color1,color2,color3,color4	
   local collision=0
   if x<0 or x>swidth-1 or y<0 or y>sheight-1 then exitfunction collision 
   color1=pickColor2(x-10,y-10):color2=pickColor2(x+10,y-10)
   color3=pickColor2(x-10,y+10):color4=pickColor2(x+10,y+10)
   
   if color1 = offWhite then collision=3 `crashed
   if color2 = offWhite then collision=3 `crashed
   if color3 = offWhite then collision=3 `crashed
   if color4 = offWhite then collision=3 `crashed
   
   if color3 = green or color4 =green 
		if thrust#>0 and thrust#<1`landed
			collision =1
		else
			collision =3
		endif
   endif
   if color3 = offRed or color4 =offRed 
		if thrust#>0 and thrust#<1`landed
			collision =2
		else
			collision =3
		endif
   endif   
endfunction  collision `return collision value
 
Function pickColor(X,Y)
    local color,img 
    //color as integer
    rem prepare image grab area
    clearScreen()
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    clearScreen()
    color = makeColor(r,g,b)
    //color=0
endfunction color

function pickColor2( X, Y)
	offset = 12 + (((Y * background_imgwidth) + X) * 4)

	r=GetMemblockByte(background_memblock, offset)
	g=GetMemblockByte(background_memblock, offset+1)
	b=GetMemblockByte(background_memblock, offset+2)

	c = MakeColor(r,g,b)
endfunction c


function hideStuff()
	SetTextVisible(scoreTxt,0):SetTextVisible(timeTxt,0):SetTextVisible(fuelTxt,0):SetTextVisible(livesTxt,0)
	SetSpriteVisible(timerRed,0):SetSpriteVisible(timerGreen,0):SetSpriteVisible(fuelRed,0):SetSpriteVisible(fuelGreen,0)
	SetSpriteVisible(ship,0)
endfunction

Function showStuff()
	SetTextVisible(scoreTxt,1):SetTextVisible(timeTxt,1):SetTextVisible(fuelTxt,1):SetTextVisible(livesTxt,1)
	SetSpriteVisible(timerRed,1):SetSpriteVisible(timerGreen,1):SetSpriteVisible(fuelRed,1):SetSpriteVisible(fuelGreen,1)
	SetSpriteVisible(ship,1)
endfunction

#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    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
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

type objectType
	ID as integer
	time as float
endtype

dim objects[4] as objectType
circleImg=createCircleImage()
triangleImg=createTriangleImage()
for num = 0 to 4
	obj=CreateObjectPlane(2,4)
	SetObjectPosition(obj,num*5-10,0,0)
	imgRan=random(0,1)
	if imgRan=0
		SetObjectImage(obj,circleImg,0)
	else
		SetObjectImage(obj,triangleImg,0)
	endif
	SetObjectTransparency(obj,1)
	objects[num].ID=obj
	objects[num].time=0
next num
//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
SetCameraPosition(1,0,10,-20)
do
	if GetPointerPressed() 
		hit=checkCollision()
		if hit > 0 
			if getObjectAngleX(hit)=0
				RotateObjectLocalX(hit,90) 
				rem set timer for the correct object
				For num=0 to 4
					if objects[num].ID=hit then objects[num].time=timer()
				next num 
			endif
		endif
	endif
	for num = 0 to 4
		//only rotate the objects needed and if they have been down for 2 seconds
		if getObjectAngleX(objects[num].ID)>89 and objects[num].time+2<timer() 
			RotateObjectLocalX(objects[num].ID,-90)
		endif 
	next num
	sync()
loop
end


function checkCollision()
	 // get the position of the pointer (mouse)
     pointer_x = GetPointerX()
     pointer_y = GetPointerY()

     // get the x, y and z unit vectors based on the pointer position
     unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
     unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
     unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)

     // calculate the start of the ray cast, which is the unit vector + the camera position
     start_x# = unit_x# + 0
     start_y# = unit_y# + 10
     start_z# = unit_z# - 20

     // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
     end_x# = 800*unit_x# + 0
     end_y# = 800*unit_y# + 10
     end_z# = 800*unit_z# - 20

     // determine which object has been hit
     object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit
	
function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

#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    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = 3  //time to keep bullets alive
SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
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
create3DPhysicsWorld()

type objectType
	ID as integer
	time as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim objects[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
circleImg=createCircleImage()
triangleImg=createTriangleImage()
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	if imgRan=0
		SetObjectImage(obj,circleImg,0)
	else
		SetObjectImage(obj,triangleImg,0)
	endif
	SetObjectTransparency(obj,1)
	//SetObjectCollisionMode(obj,1)
	objects[num].ID=obj
	objects[num].time=0
next num
//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,-15,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)
do
	Angle_x#=GetPointerY()
	Angle_y#=GetPointerX()
		
//	SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 400.0, 10.0)
	endif
	
	Step3DPhysicsWorld()
	for num = 0 to 7
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
            endif
		endif
		MoveObjectLocalX(objects[num].ID,-.1)
		if getObjectX(objects[num].ID)<-20 then SetObjectPosition(objects[num].ID,20,-10,20)
		if GetObjectAngleX(objects[num].ID)>89 and objects[num].time+2<timer() 
			RotateObjectLocalX(objects[num].ID,-90)
			objects[num].time=0
		endif 
	next num
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=1 to bulletCount
		if (myBullet[num].time)+bulletLife<timer() 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
end


function ThrowBall( initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //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,Angle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere( 10, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //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 checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit 	

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

SetErrorMode(2)

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

createVSShaderFile()
createPSshaderFile()



chunk = CreateObjectPlane(1000,1000)
SetObjectColor(chunk,255,255,255,255)
Shader=LoadShader("supernova.vs","supernova.ps")
SetObjectShader(chunk,Shader)
SetShaderConstantByName( Shader,"iResolution",900,900,0,0 )

do
    
    SetShaderConstantByName( Shader,"time",Timer()*.5,0,0,0 )


    Print( ScreenFPS() )
    Sync()

loop



// This is the function which creates the two files VS and PS
// These just simply output lines of code to the two files

function createVSShaderFile()
	
    fw = OpenToWrite("supernova.vs")
    WriteLine(fw,"attribute highp vec3 position;")
    WriteLine(fw,"attribute mediump vec3 normal;")
    WriteLine(fw,"varying highp vec3 posVarying;")
    WriteLine(fw,"varying mediump vec3 normalVarying;")
    WriteLine(fw,"varying mediump vec3 lightVarying;")
    WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
    WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
    WriteLine(fw,"uniform highp mat4 agk_World;")
    WriteLine(fw,"uniform highp mat4 agk_ViewProj;")
    WriteLine(fw,"attribute highp vec2 uv;")
    WriteLine(fw,"varying highp vec2 uvVarying;")
    WriteLine(fw,"uniform highp vec4 uvBounds0;")
     
    WriteLine(fw,"void main()")
    WriteLine(fw,"{ ")
    WriteLine(fw,"uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
    WriteLine(fw,"highp vec4 pos = agk_World * vec4(position,1.0);")
    WriteLine(fw,"mediump vec3 norm = normalize(agk_WorldNormal * normal);")
    WriteLine(fw,"gl_Position = agk_ViewProj * pos;")
    WriteLine(fw,"posVarying = pos.xyz;")
    WriteLine(fw,"normalVarying = norm;")
    WriteLine(fw,"lightVarying = GetVSLighting( norm, posVarying );")
    WriteLine(fw,"}")
    CloseFile(fw)
 
	
	
endfunction

function createPSshaderFile()

fw=OpenToWrite("supernova.ps")

WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 iResolution;")
WriteLine(fw,"//#define BOTH")
WriteLine(fw,"// uncomment this string to see left part")
WriteLine(fw,"#define LEFT")
WriteLine(fw,"//#define LOW_QUALITY")
WriteLine(fw,"#define DITHERING")
WriteLine(fw,"//#define TONEMAPPING")
WriteLine(fw,"//-------------------")
WriteLine(fw,"#define pi 3.14159265")
WriteLine(fw,"#define R(p, a) p=cos(a)*p+sin(a)*vec2(p.y, -p.x)")
WriteLine(fw,"vec3 hash( vec3 p )")
WriteLine(fw,"{")
WriteLine(fw,"	p = vec3( dot(p,vec3(127.1,311.7, 74.7)),")
WriteLine(fw,"			  dot(p,vec3(269.5,183.3,246.1)),")
WriteLine(fw,"			  dot(p,vec3(113.5,271.9,124.6)));")
WriteLine(fw,"	return -1.0 + 2.0*fract(sin(p)*43758.5453123);")
WriteLine(fw,"}")
WriteLine(fw,"float noise( in vec3 p )")
WriteLine(fw,"{")
WriteLine(fw,"    vec3 i = floor( p );")
WriteLine(fw,"    vec3 f = fract( p );")
WriteLine(fw,"	vec3 u = f*f*(3.0-2.0*f);")
WriteLine(fw,"    return mix( mix( mix( dot( hash( i + vec3(0.0,0.0,0.0) ), f - vec3(0.0,0.0,0.0) ), ")
WriteLine(fw,"                          dot( hash( i + vec3(1.0,0.0,0.0) ), f - vec3(1.0,0.0,0.0) ), u.x),")
WriteLine(fw,"                     mix( dot( hash( i + vec3(0.0,1.0,0.0) ), f - vec3(0.0,1.0,0.0) ), ")
WriteLine(fw,"                          dot( hash( i + vec3(1.0,1.0,0.0) ), f - vec3(1.0,1.0,0.0) ), u.x), u.y),")
WriteLine(fw,"                mix( mix( dot( hash( i + vec3(0.0,0.0,1.0) ), f - vec3(0.0,0.0,1.0) ), ")
WriteLine(fw,"                          dot( hash( i + vec3(1.0,0.0,1.0) ), f - vec3(1.0,0.0,1.0) ), u.x),")
WriteLine(fw,"                     mix( dot( hash( i + vec3(0.0,1.0,1.0) ), f - vec3(0.0,1.0,1.0) ), ")
WriteLine(fw,"                          dot( hash( i + vec3(1.0,1.0,1.0) ), f - vec3(1.0,1.0,1.0) ), u.x), u.y), u.z );")
WriteLine(fw,"}")
WriteLine(fw,"float fbm( vec3 p )")
WriteLine(fw,"{")
WriteLine(fw,"   return noise(p*.06125)*.5 + noise(p*.125)*.25 + noise(p*.25)*.125 + noise(p*.4)*.2;")
WriteLine(fw,"}")

WriteLine(fw,"float rand(vec2 co)")
WriteLine(fw,"{")
WriteLine(fw,"   return fract(sin(dot(co*0.123,vec2(12.9898,78.233))) * 43758.5453);")
WriteLine(fw,"}")

WriteLine(fw,"float Sphere( vec3 p, float r )")
WriteLine(fw,"{")
WriteLine(fw,"   return length(p)-r;")
WriteLine(fw,"}")
//==============================================================
// otaviogood's noise from https://www.shadertoy.com/view/ld2SzK
//--------------------------------------------------------------
// This spiral noise works by successively adding and rotating sin waves while increasing frequency.
// It should work the same on all computers since it's not based on a hash function like some other noises.
// It can be much faster than other noise functions if you're ok with some repetition.
WriteLine(fw,"const float nudge = 4.;	// size of perpendicular vector")
WriteLine(fw,"float normalizer = 1.0 / sqrt(1.0 + nudge*nudge);	// pythagorean theorem on that perpendicular to maintain scale")
WriteLine(fw,"float SpiralNoiseC(vec3 p)")
WriteLine(fw,"{")
WriteLine(fw,"    float n = -mod(time * 0.2,-2.); // noise amount")
WriteLine(fw,"    float iter = 2.0;")
WriteLine(fw,"    for (int i = 0; i < 8; i++)")
WriteLine(fw,"    {")
        // add sin and cos scaled inverse with the frequency
WriteLine(fw,"        n += -abs(sin(p.y*iter) + cos(p.x*iter)) / iter;	// abs for a ridged look")
WriteLine(fw,"        // rotate by adding perpendicular and scaling down")
WriteLine(fw,"        p.xy += vec2(p.y, -p.x) * nudge;")
WriteLine(fw,"        p.xy *= normalizer;")
WriteLine(fw,"        // rotate on other axis")
WriteLine(fw,"        p.xz += vec2(p.z, -p.x) * nudge;")
WriteLine(fw,"        p.xz *= normalizer;")
        // increase the frequency
WriteLine(fw,"        iter *= 1.733733;")
WriteLine(fw,"    }")
WriteLine(fw,"    return n;")
WriteLine(fw,"}")
WriteLine(fw,"float VolumetricExplosion(vec3 p)")
WriteLine(fw,"{")
WriteLine(fw,"    float final = Sphere(p,4.);")
WriteLine(fw,"    #ifdef LOW_QUALITY")
WriteLine(fw,"    final += noise(p*12.5)*.2;")
WriteLine(fw,"    #else")
WriteLine(fw,"    final += fbm(p*50.);")
WriteLine(fw,"    #endif")
WriteLine(fw,"    final += SpiralNoiseC(p.zxy*0.4132+333.)*3.0; //1.25;")
WriteLine(fw,"    return final;")
WriteLine(fw,"}")
WriteLine(fw,"float map(vec3 p) ")
WriteLine(fw,"{")
WriteLine(fw,"	R(p.xz, mouse.x*0.008*pi+time*0.1);")
WriteLine(fw,"	float VolExplosion = VolumetricExplosion(p/0.5)*0.5; // scale")
WriteLine(fw,"	return VolExplosion;")
WriteLine(fw,"}")
//--------------------------------------------------------------
// assign color to the media
WriteLine(fw,"vec3 computeColor( float density, float radius )")
WriteLine(fw,"{")
	// color based on density alone, gives impression of occlusion within
	// the media
WriteLine(fw,"	vec3 result = mix( vec3(1.0,0.9,0.8), vec3(0.4,0.15,0.1), density );")
	// color added to the media
WriteLine(fw,"	vec3 colCenter = 7.*vec3(0.8,1.0,1.0);")
WriteLine(fw,"	vec3 colEdge = 1.5*vec3(0.48,0.53,0.5);")


WriteLine(fw,"	result *= mix( colCenter, colEdge, min( (radius+.05)/.9, 1.15 ) );")
WriteLine(fw,"	return result;")
WriteLine(fw,"}")
WriteLine(fw,"bool RaySphereIntersect(vec3 org, vec3 dir, out float near, out float far)")
WriteLine(fw,"{")
WriteLine(fw,"	float b = dot(dir, org);")
WriteLine(fw,"	float c = dot(org, org) - 8.;")
WriteLine(fw,"	float delta = b*b - c;")
WriteLine(fw,"	if( delta < 0.0) ")
WriteLine(fw,"		return false;")
WriteLine(fw,"	float deltasqrt = sqrt(delta);")
WriteLine(fw,"	near = -b - deltasqrt;")
WriteLine(fw,"	far = -b + deltasqrt;")
WriteLine(fw,"	return far > 0.0;")
WriteLine(fw,"}")
// Applies the filmic curve from John Hable's presentation
// More details at : http://filmicgames.com/archives/75
WriteLine(fw,"vec3 ToneMapFilmicALU(vec3 _color)")
WriteLine(fw,"{")
WriteLine(fw,"	_color = max(vec3(0), _color - vec3(0.004));")
WriteLine(fw,"	_color = (_color * (6.2*_color + vec3(0.5))) / (_color * (6.2 * _color + vec3(1.7)) + vec3(0.06));")
WriteLine(fw,"	return _color;")
WriteLine(fw,"}")
WriteLine(fw,"void main( void )")
WriteLine(fw,"{ ") 
WriteLine(fw,"    	vec2 uv = gl_FragCoord.xy/iResolution.xy;")
	// ro: ray origin
	// rd: direction of the ray
WriteLine(fw,"	vec3 rd = normalize(vec3((gl_FragCoord.xy-0.5*iResolution.xy)/iResolution.y, 1.));")
WriteLine(fw,"	vec3 ro = vec3(0., 0., -6.);")
WriteLine(fw,"	#ifdef DITHERING")
WriteLine(fw,"	vec2 seed = uv + fract(time);")
WriteLine(fw,"	#endif ")
	// ld, td: local, total density 
	// w: weighting factor
WriteLine(fw,"	float ld=0., td=0., w=0.;")
	// t: length of the ray
	// d: distance function
WriteLine(fw,"	float d=1., t=0.;")
WriteLine(fw,"   	const float h = 0.1;")
WriteLine(fw,"	vec4 sum = vec4(0.0);")
WriteLine(fw,"    	float min_dist=0.0, max_dist=0.0;")
WriteLine(fw,"   	if(RaySphereIntersect(ro, rd, min_dist, max_dist))") 
 WriteLine(fw,"{")
WriteLine(fw,"	t = min_dist*step(t,min_dist);")
	// raymarch loop
WriteLine(fw,"   	#ifdef LOW_QUALITY")
WriteLine(fw,"	for (int i=0; i<56; i++)")
WriteLine(fw,"    	#else")
WriteLine(fw,"    	for (int i=0; i<86; i++)")
WriteLine(fw,"    	#endif")
WriteLine(fw,"	{")
WriteLine(fw,"	    vec3 pos = ro + t*rd;")
	    // Loop break conditions.
WriteLine(fw,"	    if(td>0.9 || d<0.12*t || t>10. || sum.a > 0.99 || t>max_dist) break;")
	    // evaluate distance function
WriteLine(fw,"	    float d = map(pos);")
        
WriteLine(fw,"	    #ifdef BOTH")
WriteLine(fw,"	    if (uv.x<0.5)")
WriteLine(fw,"	    {")
WriteLine(fw,"            	d = abs(d)+0.07;")
WriteLine(fw,"	    }")
WriteLine(fw,"	    #else")
WriteLine(fw,"	    #ifdef LEFT")
WriteLine(fw,"	    d = abs(d)+0.07;")
WriteLine(fw,"	    #endif")
WriteLine(fw,"	    #endif")
	    // change this string to control density 
WriteLine(fw,"	    d = max(d,0.03);")
	    // point light calculations
WriteLine(fw,"	    vec3 ldst = vec3(0.0)-pos;")
WriteLine(fw,"	    float lDist = max(length(ldst), 0.001);")
	    // the color of light 
WriteLine(fw,"	    vec3 lightColor=vec3(1.0,0.5,0.25);")
WriteLine(fw,"	    sum.rgb+=(lightColor/exp(lDist*lDist*lDist*.08)/30.); // bloom")
WriteLine(fw,"	    if (d<h)") 
WriteLine(fw,"	    {")
	    // compute local density 
WriteLine(fw,"	    ld = h - d;")
	    // compute weighting factor 
WriteLine(fw,"	    w = (1. - td) * ld;")
	    // accumulate density
WriteLine(fw,"	    td += w + 1./200.;")
WriteLine(fw,"	    vec4 col = vec4( computeColor(td,lDist), td );")
            // emission
WriteLine(fw,"            sum += sum.a * vec4(sum.rgb, 0.0) * 0.2 / lDist;	")
	    // uniform scale density
WriteLine(fw,"	    col.a *= 0.2;")
	    // colour by alpha
WriteLine(fw,"	    col.rgb *= col.a;")
	    // alpha blend in contribution
WriteLine(fw,"	    sum = sum + col*(1.0 - sum.a);  ")
WriteLine(fw,"	    }")
WriteLine(fw,"	    td += 1./70.;")
WriteLine(fw,"	    #ifdef DITHERING")
WriteLine(fw,"	    d=abs(d)*(.8+0.2*rand(seed*vec2(i)));")
WriteLine(fw,"	    #endif ")
	    // trying to optimize step size
WriteLine(fw,"	    #ifdef LOW_QUALITY")
WriteLine(fw,"	    t += max(d*0.25,0.01);")
WriteLine(fw,"	    #else")
WriteLine(fw,"	    t += max(d * 0.08 * max(min(length(ldst),d),2.0), 0.01);")
WriteLine(fw,"	    #endif")
WriteLine(fw,"	}")
	// simple scattering
WriteLine(fw,"	#ifdef LOW_QUALITY    ")
WriteLine(fw,"	sum *= 1. / exp( ld * 0.2 ) * 0.9;")
WriteLine(fw,"	#else")
WriteLine(fw,"	sum *= 1. / exp( ld * 0.2 ) * 0.8;")
WriteLine(fw,"	#endif")
WriteLine(fw,"  	sum = clamp( sum, 0.0, 1.0 );")   
WriteLine(fw,"	sum.xyz = sum.xyz*sum.xyz*(3.0-2.0*sum.xyz);")
WriteLine(fw,"	}")
   
WriteLine(fw,"	#ifdef TONEMAPPING")
WriteLine(fw,"	gl_FragColor = vec4(ToneMapFilmicALU(sum.xyz*2.2),1.0);")
WriteLine(fw,"	#else")
WriteLine(fw,"	gl_FragColor = vec4(sum.xyz,1.0);")
WriteLine(fw,"	#endif")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

SetErrorMode(2)
#constant KEY_SPACE	  = 32  //the space bar
// set window properties
SetWindowTitle( "circuit" )
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

createShaderFile()
CreateSprite(1,0)
CreateSprite(2,0)
CreateSprite(3,0)

NoiseInit()
SetSpriteImage (3,createRandomBgImage()) 
SetSpriteAdditionalImage (3,generateperlinimage(),1) 

SetSpriteSize(1,1024,768)
SetSpriteSize(2,1024,768)
SetSpriteSize(3,1024,768)

LoadSpriteShader(1,"circuit.ps")
LoadSpriteShader(2,"circuit2.ps")
LoadSpriteShader(3,"circuit3.ps")


SetSpriteShader( 1,1 )
SetSpriteShader( 2,2 )
SetSpriteShader( 3,3 )

SetShaderConstantByName(1,"resolution",1024,768,0,0)
SetShaderConstantByName(2,"resolution",1024,768,0,0)
SetShaderConstantByName(3,"iResolution",1024,768,0,0)

num=1
SetSpriteDepth(num,0) 
do 
	print("press space to switch shaders")
	If GetRawKeyPressed(KEY_SPACE)
		if num = 1
			num=2:SetSpriteDepth(1,10):SetSpriteDepth(2,0):SetSpriteDepth(3,10)
		elseif num =2
			num=3:SetSpriteDepth(1,10):SetSpriteDepth(2,10):SetSpriteDepth(3,0)
		else
			num=1:SetSpriteDepth(1,0):SetSpriteDepth(2,10):SetSpriteDepth(3,10)			
		endif
	endif	
    SetShaderConstantByName(num,"time",timer(),0,0,0)
    print(num)
    sync()   
loop

function createShaderFile()

fw=OpenToWrite("circuit.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"float iTime = 0.0;")
WriteLine(fw,"vec3  iResolution = vec3(0.0);")
WriteLine(fw,"#define texture(s, uv) vec4(0.0)")
WriteLine(fw,"#define textureLod(s, uv, lod) vec4(0.0)")
WriteLine(fw,"#define time iTime*.02")
WriteLine(fw,"#define width .005")
WriteLine(fw,"float zoom = .18;")
WriteLine(fw,"float shape=0.;")
WriteLine(fw,"vec3 color=vec3(0.),randcol;")
WriteLine(fw,"void formula(vec2 z, float c) {")
WriteLine(fw,"	float minit=0.;")
WriteLine(fw,"	float o,ot2,ot=ot2=1000.;")
WriteLine(fw,"	for (int i=0; i<9; i++) {")
WriteLine(fw,"		z=abs(z)/clamp(dot(z,z),.1,.5)-c;")
WriteLine(fw,"		float l=length(z);")
WriteLine(fw,"		o=min(max(abs(min(z.x,z.y)),-l+.25),abs(l-.25));")
WriteLine(fw,"		ot=min(ot,o);")
WriteLine(fw,"		ot2=min(l*.1,ot2);")
WriteLine(fw,"		minit=max(minit,float(i)*(1.-abs(sign(ot-o))));")
WriteLine(fw,"	}")
WriteLine(fw,"	minit+=1.;")
WriteLine(fw,"	float w=width*minit*2.;")
WriteLine(fw,"	float circ=pow(max(0.,w-ot2)/w,6.);")
WriteLine(fw,"	shape+=max(pow(max(0.,w-ot)/w,.25),circ);")
WriteLine(fw,"	vec3 col=normalize(.1+texture(iChannel1,vec2(minit*.1)).rgb);")
WriteLine(fw,"	color+=col*(.4+mod(minit/9.-time*10.+ot2*2.,1.)*1.6);")
WriteLine(fw,"	color+=vec3(1.,.7,.3)*circ*(10.-minit)*3.*smoothstep(0.,.5,.15+texture(iChannel0,vec2(.0,1.)).x-.5);")
WriteLine(fw,"}")
WriteLine(fw,"void mainImage( out vec4 fragColor, in vec2 fragCoord )")
WriteLine(fw,"{")
WriteLine(fw,"	vec2 pos = fragCoord.xy / iResolution.xy - .5;")
WriteLine(fw,"	pos.x*=iResolution.x/iResolution.y;")
WriteLine(fw,"	vec2 uv=pos;")
WriteLine(fw,"	float sph = length(uv); sph = sqrt(1. - sph*sph); // curve for spheric distortion")
WriteLine(fw,"	uv=normalize(vec3(uv,sph)).xy;")
WriteLine(fw,"	float a=.5+mod(.5,1.)*.5;")
WriteLine(fw,"	vec2 luv=uv;")
WriteLine(fw,"	float b=a*5.48535;")
WriteLine(fw,"//	zoom*=1.+sin(time*3.758123)*.8;")
WriteLine(fw,"	uv*=mat2(cos(b),sin(b),-sin(b),cos(b));")
WriteLine(fw,"	uv+=vec2(sin(a),cos(a*.5))*8.;")
WriteLine(fw,"	uv*=zoom;")
WriteLine(fw,"	float pix=.5/iResolution.x*zoom/sph;")
WriteLine(fw,"	float dof=max(1.,(10.-mod(time,1.)/.01));")
WriteLine(fw,"	float c=1.5+mod(floor(time),6.)*.125;")
WriteLine(fw,"	for (int aa=0; aa<36; aa++) {")
WriteLine(fw,"		vec2 aauv=floor(vec2(float(aa)/6.,mod(float(aa),6.)));")
WriteLine(fw,"		formula(uv+aauv*pix*dof,c);")
WriteLine(fw,"	}")
WriteLine(fw,"	shape/=36.; color/=36.;")
WriteLine(fw,"	vec3 colo=mix(vec3(.15),color,shape)*(1.-length(pos))*min(1.,abs(.5-mod(time+.5,1.))*10.);	")
WriteLine(fw,"	colo*=vec3(1.2,1.1,1.0);")
WriteLine(fw,"	fragColor = vec4(colo,1.0);")
WriteLine(fw,"}")
WriteLine(fw,"#undef time")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"    iTime = time;")
WriteLine(fw,"    iResolution = vec3(resolution, 0.0);")
WriteLine(fw,"    mainImage(gl_FragColor, gl_FragCoord.xy);")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("circuit2.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"float iTime = 0.0;")
WriteLine(fw,"vec3  iResolution = vec3(0.0);")
WriteLine(fw,"#define texture(s, uv) vec4(0.0)")
WriteLine(fw,"#define textureLod(s, uv, lod) vec4(0.0)")
WriteLine(fw,"#define time iTime*.009")
WriteLine(fw,"#define width .005")
WriteLine(fw,"float zoom = .18;")
WriteLine(fw,"float shape=0.;")
WriteLine(fw,"vec3 color=vec3(0.),randcol;")
WriteLine(fw,"void formula(vec2 z, float c) {")
WriteLine(fw,"	float minit=0.;")
WriteLine(fw,"	float o,ot2,ot=ot2=1000.;")
WriteLine(fw,"	for (int i=0; i<9; i++) {")
WriteLine(fw,"		z=abs(z)/clamp(dot(z,z),.1,.5)-c;")
WriteLine(fw,"		float l=length(z);")
WriteLine(fw,"		o=min(max(abs(min(z.x,z.y)),-l+.25),abs(l-.25));")
WriteLine(fw,"		ot=min(ot,o);")
WriteLine(fw,"		ot2=min(l*.1,ot2);")
WriteLine(fw,"		minit=max(minit,float(i)*(1.-abs(sign(ot-o))));")
WriteLine(fw,"	}")
WriteLine(fw,"	minit+=1.;")
WriteLine(fw,"	float w=width*minit*2.;")
WriteLine(fw,"	float circ=pow(max(0.,w-ot2)/w,6.);")
WriteLine(fw,"	shape+=max(pow(max(0.,w-ot)/w,.25),circ);")
WriteLine(fw,"	vec3 col=normalize(.1+texture(iChannel1,vec2(minit*.1)).rgb);")
WriteLine(fw,"	color+=col*(.4+mod(minit/9.-time*10.+ot2*2.,1.)*1.6);")
WriteLine(fw,"	color+=vec3(1.,.7,.3)*circ*(10.-minit)*3.*smoothstep(0.,.5,.15+texture(iChannel0,vec2(.0,1.)).x-.5);")
WriteLine(fw,"}")
WriteLine(fw,"void mainImage( out vec4 fragColor, in vec2 fragCoord )")
WriteLine(fw,"{")
WriteLine(fw,"	vec2 pos = fragCoord.xy / iResolution.xy - .5;")
WriteLine(fw,"	pos.x*=iResolution.x/iResolution.y;")
WriteLine(fw,"	vec2 uv=pos;")
WriteLine(fw,"	float sph = length(uv); sph = sqrt(1. - sph*sph)*1.5; // curve for spheric distortion")
WriteLine(fw,"	uv=normalize(vec3(uv,sph)).xy;")
WriteLine(fw,"	float a=time+mod(time,1.)*.5;")
WriteLine(fw,"	vec2 luv=uv;")
WriteLine(fw,"	float b=a*5.48535;")
WriteLine(fw,"//	zoom*=1.+sin(time*3.758123)*.8;")
WriteLine(fw,"	uv*=mat2(cos(b),sin(b),-sin(b),cos(b));")
WriteLine(fw,"	uv+=vec2(sin(a),cos(a*.5))*8.;")
WriteLine(fw,"	uv*=zoom;")
WriteLine(fw,"	float pix=.5/iResolution.x*zoom/sph;")
WriteLine(fw,"	float dof=max(1.,(10.-mod(time,1.)/.01));")
WriteLine(fw,"	float c=1.5+mod(floor(time),6.)*.125;")
WriteLine(fw,"	for (int aa=0; aa<36; aa++) {")
WriteLine(fw,"		vec2 aauv=floor(vec2(float(aa)/6.,mod(float(aa),6.)));")
WriteLine(fw,"		formula(uv+aauv*pix*dof,c);")
WriteLine(fw,"	}")
WriteLine(fw,"	shape/=36.; color/=36.;")
WriteLine(fw,"	vec3 colo=mix(vec3(.15),color,shape)*(1.-length(pos))*min(1.,abs(.5-mod(time+.5,1.))*10.);	")
WriteLine(fw,"	colo*=vec3(1.2,1.1,1.0);")
WriteLine(fw,"	fragColor = vec4(colo,1.0);")
WriteLine(fw,"}")
WriteLine(fw,"#undef time")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"    iTime = time;")
WriteLine(fw,"    iResolution = vec3(resolution, 0.0);")
WriteLine(fw,"    mainImage(gl_FragColor, gl_FragCoord.xy);")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("circuit3.ps")
WriteLine(fw,"uniform vec3      iResolution;     // viewport resolution (in pixels)")
WriteLine(fw,"uniform float     time;     		 // shader playback time (in seconds)")
WriteLine(fw,"uniform vec4      iMouse;          // mouse pixel coords. xy: current (if MLB down), zw: click")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform sampler2D texture1;")
WriteLine(fw,"#define iTime time*.02")
WriteLine(fw,"#define width .005")
WriteLine(fw,"float zoom = .18;")
WriteLine(fw,"float shape=0.;")
WriteLine(fw,"vec3 color=vec3(0.),randcol;")
WriteLine(fw,"void formula(vec2 z, float c) {")
WriteLine(fw,"	float minit=0.;")
WriteLine(fw,"	float o,ot2,ot=ot2=1000.;")
WriteLine(fw,"	for (int i=0; i<9; i++) {")
WriteLine(fw,"		z=abs(z)/clamp(dot(z,z),.1,.5)-c;")
WriteLine(fw,"		float l=length(z);")
WriteLine(fw,"		o=min(max(abs(min(z.x,z.y)),-l+.25),abs(l-.25));")
WriteLine(fw,"		ot=min(ot,o);")
WriteLine(fw,"		ot2=min(l*.1,ot2);")
WriteLine(fw,"		minit=max(minit,float(i)*(1.-abs(sign(ot-o))));")
WriteLine(fw,"	}")
WriteLine(fw,"	minit+=1.;")
WriteLine(fw,"	float w=width*minit*2.;")
WriteLine(fw,"	float circ=pow(max(0.,w-ot2)/w,6.);")
WriteLine(fw,"	shape+=max(pow(max(0.,w-ot)/w,.25),circ);")
WriteLine(fw,"	vec3 col=normalize(.1+texture2D(texture1,vec2(minit*.1)).rgb);")
WriteLine(fw,"	color+=col*(.4+mod(minit/9.-iTime*10.+ot2*2.,1.)*1.6);")
WriteLine(fw,"	color+=vec3(1.,.7,.3)*circ*(10.-minit)*3.*smoothstep(0.,.5,.15+texture2D(texture0,vec2(.0,1.)).x-.5);")
WriteLine(fw,"}")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"	vec2 pos = gl_FragCoord.xy / iResolution.xy - .5;")
WriteLine(fw,"	pos.x*=iResolution.x/iResolution.y;")
WriteLine(fw,"	vec2 uv=pos;")
WriteLine(fw,"	float sph = length(uv); sph = sqrt(1. - sph*sph)*1.5; // curve for spheric distortion")
WriteLine(fw,"	uv=normalize(vec3(uv,sph)).xy;")
WriteLine(fw,"	float a=iTime+mod(iTime,1.)*.5;")
WriteLine(fw,"	vec2 luv=uv;")
WriteLine(fw,"	float b=a*5.48535;")
WriteLine(fw,"	//	zoom*=1.+sin(iTime*3.758123)*.8;")
WriteLine(fw,"	uv*=mat2(cos(b),sin(b),-sin(b),cos(b));")
WriteLine(fw,"	uv+=vec2(sin(a),cos(a*.5))*8.;")
WriteLine(fw,"	uv*=zoom;")
WriteLine(fw,"	float pix=.5/iResolution.x*zoom/sph;")
WriteLine(fw,"	float dof=max(1.,(10.-mod(iTime,1.)/.01));")
WriteLine(fw,"	float c=1.5+mod(floor(iTime),6.)*.125;")
WriteLine(fw,"	for (int aa=0; aa<36; aa++) {")
WriteLine(fw,"		vec2 aauv=floor(vec2(float(aa)/6.,mod(float(aa),6.)));")
WriteLine(fw,"		formula(uv+aauv*pix*dof,c);")
WriteLine(fw,"	}")
WriteLine(fw,"	shape/=36.; color/=36.;")
WriteLine(fw,"	vec3 colo=mix(vec3(.15),color,shape)*(1.-length(pos))*min(1.,abs(.5-mod(iTime+.5,1.))*10.);	")
WriteLine(fw,"	colo*=vec3(1.2,1.1,1.0);")
WriteLine(fw,"	gl_FragColor = vec4(colo,1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction
//creates texture 0 for sprite 3
function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

//the rest just creates a noise image for texture 1 for sprite x

function generateperlinimage()
    // Generate image from memblock
w as integer = 100
h as integer =100    
size = w * h * 4 + 12
mem = CreateMemblock(size)
SetMemblockInt(mem,0,w)
SetMemblockInt(mem,4,h)
SetMemblockInt(mem,8,32)
   
offset as integer = 12
a as float, b as float
a = 5.0
b = 2.0
   
for y = 0 to h - 1
    for x = 0 to w - 1
        a = a + 0.0001
        b = b + 0.002
           
        // Try out these two noise methods
        //noise = 255.0*Noise2D(x/10.0,y/10.0)
        noise = 255.0*Noise2D(x/100.0,y/100.0)
           
        noise = abs(noise)
          
        
        //clouds
        if noise>200
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
          
   
         //greenary
        if noise>150 and noise<=200
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        //sand
        if noise>100 and noise<=150
            SetMemblockByte(mem, offset, noise)
            SetMemblockByte(mem, offset+1, noise)
            SetMemblockByte(mem, offset+2, 0)
            SetMemblockByte(mem, offset+3, 255)
        endif
        // water
        if noise<=100
            SetMemblockByte(mem, offset, 0)
            SetMemblockByte(mem, offset+1, 0)
            SetMemblockByte(mem, offset+2, noise)
            SetMemblockByte(mem, offset+3, 255)
        endif
        offset = offset + 4
    next
next
   
map=CreateImageFromMemblock(mem)
endfunction map
 
// ***************************************************************************************************
// 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)

SetErrorMode(2)

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

createVSShaderFile()
createPSshaderFile()

chunk = CreateObjectPlane(1000,1000)
SetObjectColor(chunk,255,255,255,255)
Shader=LoadShader("scanlines.vs","scanlines.ps")
SetObjectShader(chunk,Shader)
SetShaderConstantByName( Shader,"iResolution",1024,768,0,0 )

do
    //SetShaderConstantByName( Shader,"iResolution",Timer()*100,Timer()*100,0,0 )
    SetShaderConstantByName( Shader,"time",Timer()*.5,0,0,0 )


    Print( ScreenFPS() )
    Sync()

loop



// This is the function which creates the two files VS and PS
// These just simply output lines of code to the two files

function createVSShaderFile()
	
    fw = OpenToWrite("scanlines.vs")
    WriteLine(fw,"attribute highp vec3 position;")
    WriteLine(fw,"attribute mediump vec3 normal;")
    WriteLine(fw,"varying highp vec3 posVarying;")
    WriteLine(fw,"varying mediump vec3 normalVarying;")
    WriteLine(fw,"varying mediump vec3 lightVarying;")
    WriteLine(fw,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
    WriteLine(fw,"uniform highp mat3 agk_WorldNormal;")
    WriteLine(fw,"uniform highp mat4 agk_World;")
    WriteLine(fw,"uniform highp mat4 agk_ViewProj;")
    WriteLine(fw,"attribute highp vec2 uv;")
    WriteLine(fw,"varying highp vec2 uvVarying;")
    WriteLine(fw,"uniform highp vec4 uvBounds0;")
     
    WriteLine(fw,"void main()")
    WriteLine(fw,"{ ")
    WriteLine(fw,"uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
    WriteLine(fw,"highp vec4 pos = agk_World * vec4(position,1.0);")
    WriteLine(fw,"mediump vec3 norm = normalize(agk_WorldNormal * normal);")
    WriteLine(fw,"gl_Position = agk_ViewProj * pos;")
    WriteLine(fw,"posVarying = pos.xyz;")
    WriteLine(fw,"normalVarying = norm;")
    WriteLine(fw,"lightVarying = GetVSLighting( norm, posVarying );")
    WriteLine(fw,"}")
    CloseFile(fw)	
endfunction

function createPSshaderFile()

fw=OpenToWrite("scanlines.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"uniform vec2 iResolution;")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"#define num 60.0")
WriteLine(fw,"float random(vec2 p){")
WriteLine(fw,"	return fract(sin(dot(p, vec2(12.9898,78.233))) * 43758.5453+time*4.0);	")
WriteLine(fw,"}")
WriteLine(fw,"void main() {")
WriteLine(fw,"    	vec2 p = ( gl_FragCoord.xy / (iResolution.xy) );")
WriteLine(fw,"	//- vec2(0.5, 0.5);")
WriteLine(fw,"	//vec2 p = (gl_FragCoord.xy * 2.0 - iResolution.xy) / min(iResolution.x, iResolution.y) - vec2(.5 , .5);")
WriteLine(fw,"    	float top, bottom, linewidth;")
WriteLine(fw,"	float offSet = 0.5;")
WriteLine(fw,"	float span = 0.01;")
WriteLine(fw,"	linewidth = 0.01;")
WriteLine(fw,"  	top = fract(time);")
WriteLine(fw,"	bottom = fract(time) + linewidth;")
WriteLine(fw,"	vec4 border = vec4(0.0, 0.0, 0.0, 1.0);")
WriteLine(fw,"	for(float i = 1.0; i < num; i++){")
WriteLine(fw,"		top += i * span; ")
WriteLine(fw,"		top = fract(top);")
WriteLine(fw,"		bottom += i *span;")
WriteLine(fw,"		bottom = fract(bottom);")
WriteLine(fw,"		if(p.y > top && p.y < bottom){")
WriteLine(fw,"		border = vec4(abs(1.0 * sin(time)), 0.0, 0.0, 1.0);")
WriteLine(fw,"		}")
WriteLine(fw,"	}")
WriteLine(fw,"	float c = random(p);")
WriteLine(fw,"	vec3 col = mix(vec3(c, c, c), border.xyz, 0.6);")
WriteLine(fw,"	//float r = mix(c, border.x, 0.6);")
WriteLine(fw,"	//vec4 col= vec4(mix(vec3(p, p, p), border.xyz), 1.0);")
WriteLine(fw,"   	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"	/*")
WriteLine(fw,"	if(p.y < -0.5){")
WriteLine(fw,"		gl_FragColor = vec4(1.0, 0.0, 0.0, 1.0);")
WriteLine(fw,"	*/")
WriteLine(fw,"	}")
CloseFile(fw)
endfunction

SetErrorMode(2)

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

createShaderFile()
imgId=createRandomBgImage()
CreateSprite(1,imgId)
LoadSpriteShader(2, "pixelate.ps")
SetSpriteShader( 1,2 )
do
    SetShaderConstantByName(2,"pixels",1024/5,768/5,0,0) //the bigger the numbers the more pixels
    sync()   
loop

function createShaderFile()

fw=OpenToWrite("pixelate.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"precision mediump int;")
WriteLine(fw,"#endif")
WriteLine(fw,"#define PROCESSING_TEXTURE_SHADER")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform vec2 pixels;")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"  vec2 p = uvVarying;")
WriteLine(fw,"	p.x -= mod(p.x, 1.0 / pixels.x);")
WriteLine(fw,"	p.y -= mod(p.y, 1.0 / pixels.y);")
WriteLine(fw,"	vec3 col = texture2D(texture0, p).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(col, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

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

createShaderFile()
CreateSprite(1,0)
SetSpriteSize(1,1024,768)
LoadSpriteShader(1,"fireball.ps")
SetSpriteShader( 1,1 )

SetShaderConstantByName(1,"resolution",1024,768 ,0,0)
do 
	SetShaderConstantByName(1,"time",timer(),0,0,0)
	//SetShaderConstantByName(1,"mouse",GetPointerX(),getPointery(),0,0)
	
    sync()   
loop
function createShaderFile()

fw=OpenToWrite("fireball.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision highp float;")
WriteLine(fw,"#endif")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"//uniform float zoom;")
WriteLine(fw,"#define saturate(oo) clamp(oo, 0.0, 1.0)")
WriteLine(fw,"// Quality Settings")
WriteLine(fw,"#define MarchSteps 6")
WriteLine(fw,"// Scene Settings")
WriteLine(fw,"#define ExpPosition vec3(0.0)")
WriteLine(fw,"#define Radius 2.0")
WriteLine(fw,"#define Background vec4(0.1, 0.0, 0.0, 1.0)")
WriteLine(fw,"// Noise Settings")
WriteLine(fw,"#define NoiseSteps 4")
WriteLine(fw,"#define NoiseAmplitude 0.1")
WriteLine(fw,"#define NoiseFrequency 2.2")
WriteLine(fw,"#define Animation vec3(0.0, -3.0, 0.5)")
WriteLine(fw,"// Colour Gradient")
WriteLine(fw,"#define Color1 vec4(1.0, 1.0, 1.0, 1.0)")
WriteLine(fw,"#define Color2 vec4(1.0, 0.8, 0.2, 1.0)")
WriteLine(fw,"#define Color3 vec4(1.0, 0.03, 0.0, 1.0)")
WriteLine(fw,"#define Color4 vec4(0.05, 0.02, 0.02, 1.0)")
WriteLine(fw,"//noise functions.")
WriteLine(fw,"vec3 mod289(vec3 x) { return x - floor(x * (1.0 / 289.0)) * 289.0; }")
WriteLine(fw,"vec4 mod289(vec4 x) { return x - floor(x * (1.0 / 289.0)) * 289.0; }")
WriteLine(fw,"vec4 permute(vec4 x) { return mod289(((x*34.0)+1.0)*x); }")
WriteLine(fw,"vec4 taylorInvSqrt(vec4 r){ return 1.79284291400159 - 0.85373472095314 * r; }")
WriteLine(fw,"float snoise(vec3 v)")
WriteLine(fw,"{")
WriteLine(fw,"	const vec2  C = vec2(1.0/6.0, 1.0/3.0);")
WriteLine(fw,"	const vec4  D = vec4(0.0, 0.5, 1.0, 2.0);")
WriteLine(fw,"	// First corner")
WriteLine(fw,"	vec3 i  = floor(v + dot(v, C.yyy));")
WriteLine(fw,"	vec3 x0 = v - i + dot(i, C.xxx);")
WriteLine(fw,"	// Other corners")
WriteLine(fw,"	vec3 g = step(x0.yzx, x0.xyz);")
WriteLine(fw,"	vec3 l = 1.0 - g;")
WriteLine(fw,"	vec3 i1 = min(g.xyz, l.zxy);")
WriteLine(fw,"	vec3 i2 = max(g.xyz, l.zxy);")
WriteLine(fw,"	vec3 x1 = x0 - i1 + C.xxx;")
WriteLine(fw,"	vec3 x2 = x0 - i2 + C.yyy; // 2.0*C.x = 1/3 = C.y")
WriteLine(fw,"	vec3 x3 = x0 - D.yyy;      // -1.0+3.0*C.x = -0.5 = -D.y")
WriteLine(fw,"// Permutations")
WriteLine(fw,"	i = mod289(i);")
WriteLine(fw,"	vec4 p = permute( permute( permute( i.z + vec4(0.0, i1.z, i2.z, 1.0)) + i.y + vec4(0.0, i1.y, i2.y, 1.0 )) + i.x + vec4(0.0, i1.x, i2.x, 1.0 ));")
WriteLine(fw,"  // Gradients: 7x7 points over a square, mapped onto an octahedron.")
WriteLine(fw,"	// The ring size 17*17 = 289 is close to a multiple of 49 (49*6 = 294)")
WriteLine(fw,"	float n_ = 0.142857142857; // 1.0/7.0")
WriteLine(fw,"	vec3  ns = n_ * D.wyz - D.xzx;")
WriteLine(fw,"	vec4 j = p - 49.0 * floor(p * ns.z * ns.z);  //  mod(p,7*7)")
WriteLine(fw,"  vec4 x_ = floor(j * ns.z);")
WriteLine(fw,"	vec4 y_ = floor(j - 7.0 * x_);    // mod(j,N)")
WriteLine(fw,"	vec4 x = x_ *ns.x + ns.yyyy;")
WriteLine(fw,"	vec4 y = y_ *ns.x + ns.yyyy;")
WriteLine(fw,"	vec4 h = 1.0 - abs(x) - abs(y);")
WriteLine(fw,"	vec4 b0 = vec4(x.xy, y.xy);")
WriteLine(fw,"	vec4 b1 = vec4(x.zw, y.zw);")
WriteLine(fw,"	vec4 s0 = floor(b0) * 2.0 + 1.0;")
WriteLine(fw,"	vec4 s1 = floor(b1) * 2.0 + 1.0;")
WriteLine(fw,"	vec4 sh = -step(h, vec4(0.0));")
WriteLine(fw,"	vec4 a0 = b0.xzyw + s0.xzyw * sh.xxyy;")
WriteLine(fw,"	vec4 a1 = b1.xzyw + s1.xzyw * sh.zzww;")
WriteLine(fw,"	vec3 p0 = vec3(a0.xy, h.x);")
WriteLine(fw,"	vec3 p1 = vec3(a0.zw, h.y);")
WriteLine(fw,"	vec3 p2 = vec3(a1.xy, h.z);")
WriteLine(fw,"	vec3 p3 = vec3(a1.zw, h.w);")
WriteLine(fw,"	//Normalise gradients")
WriteLine(fw,"  vec4 norm = taylorInvSqrt(vec4(dot(p0,p0), dot(p1,p1), dot(p2, p2), dot(p3,p3)));")
WriteLine(fw,"  p0 *= norm.x;")
WriteLine(fw,"	p1 *= norm.y;")
WriteLine(fw,"	p2 *= norm.z;")
WriteLine(fw,"	p3 *= norm.w;")
WriteLine(fw,"  // Mix final noise value")
WriteLine(fw,"  vec4 m = max(0.6 - vec4(dot(x0,x0), dot(x1,x1), dot(x2,x2), dot(x3,x3)), 0.0);")
WriteLine(fw,"  m = m * m;")
WriteLine(fw,"  return 42.0 * dot( m*m, vec4( dot(p0,x0), dot(p1,x1), dot(p2,x2), dot(p3,x3)));")
WriteLine(fw,"}")
WriteLine(fw,"float Turbulence(vec3 position, float minFreq, float maxFreq, float qWidth)")
WriteLine(fw,"{")
WriteLine(fw,"	float value = 0.0;")
WriteLine(fw,"	float cutoff = clamp(0.5/qWidth, 0.0, maxFreq);")
WriteLine(fw,"	float fade;")
WriteLine(fw,"	float fOut = minFreq;")
WriteLine(fw,"	for(int i=NoiseSteps ; i>=0 ; i++)")
WriteLine(fw,"	{")
WriteLine(fw,"		if(fOut >= 0.5 * cutoff) break;")
WriteLine(fw,"		fOut *= 2.0;")
WriteLine(fw,"		value += abs(snoise(position * fOut))/fOut;")
WriteLine(fw,"	}")
WriteLine(fw,"  fade = clamp(2.0 * (cutoff-fOut)/cutoff, 0.0, 1.0);")
WriteLine(fw,"	value += fade * abs(snoise(position * fOut))/fOut;")
WriteLine(fw,"	return 1.0-value;")
WriteLine(fw,"}")
WriteLine(fw,"float SphereDist(vec3 position)")
WriteLine(fw,"{")
WriteLine(fw,"	return length(position - ExpPosition) - Radius;")
WriteLine(fw,"}")
WriteLine(fw,"vec4 Shade(float distance)")
WriteLine(fw,"{")
WriteLine(fw,"	float c1 = saturate(distance*5.0 + 0.5);")
WriteLine(fw,"	float c2 = saturate(distance*5.0);")
WriteLine(fw,"	float c3 = saturate(distance*3.4 - 0.5);")
WriteLine(fw,"	vec4 a = mix(Color1,Color2, c1);")
WriteLine(fw,"	vec4 b = mix(a,     Color3, c2);")
WriteLine(fw,"	return 	 mix(b,     Color4, c3);")
WriteLine(fw,"}")
WriteLine(fw,"// Draws the scene")
WriteLine(fw,"float RenderScene(vec3 position, out float distance)")
WriteLine(fw,"{")
WriteLine(fw,"	float noise = Turbulence(position * NoiseFrequency + Animation*time, 0.1, 1.5, 0.03) * NoiseAmplitude;")
WriteLine(fw,"	noise = saturate(abs(noise));")
WriteLine(fw,"	distance = SphereDist(position) - noise;")
WriteLine(fw,"	return noise;")
WriteLine(fw,"}")
WriteLine(fw,"// Basic ray marching method.")
WriteLine(fw,"vec4 March(vec3 rayOrigin, vec3 rayStep)")
WriteLine(fw,"{")
WriteLine(fw,"	vec3 position = rayOrigin;")
WriteLine(fw,"	float distance;")
WriteLine(fw,"	float displacement;")
WriteLine(fw,"	for(int step = MarchSteps; step >=0  ; --step)")
WriteLine(fw,"	{")
WriteLine(fw,"		displacement = RenderScene(position, distance);")
WriteLine(fw,"		if(distance < 0.05) break;")
WriteLine(fw,"		position += rayStep * distance;")
WriteLine(fw,"	}")
WriteLine(fw,"  return mix(Shade(displacement), Background, float(distance >= 0.5));")
WriteLine(fw,"}")
WriteLine(fw,"bool IntersectSphere(vec3 ro, vec3 rd, vec3 pos, float radius, out vec3 intersectPoint)")
WriteLine(fw,"{")
WriteLine(fw,"	vec3 relDistance = (ro - pos);")
WriteLine(fw,"	float b = dot(relDistance, rd);")
WriteLine(fw,"	float c = dot(relDistance, relDistance) - radius*radius;")
WriteLine(fw,"	float d = b*b - c;")
WriteLine(fw,"	intersectPoint = ro + rd*(-b - sqrt(d));")
WriteLine(fw,"	return d >= 0.0;")
WriteLine(fw,"}")
WriteLine(fw,"void main(void)")
WriteLine(fw,"{")
WriteLine(fw,"	vec2 p = (gl_FragCoord.xy / resolution.xy) * 2.0 - 1.0;")
WriteLine(fw,"	p.x *= resolution.x/resolution.y;")
WriteLine(fw,"	float rotx = mouse.y * 4.0;")
WriteLine(fw,"	float roty = -mouse.x * 4.0;")
WriteLine(fw,"	float zoom = 5.0;")
WriteLine(fw,"	// camera")
WriteLine(fw,"	vec3 ro = zoom * normalize(vec3(cos(roty), cos(rotx), sin(roty)));")
WriteLine(fw,"	vec3 ww = normalize(vec3(0.0, 0.0, 0.0) - ro);")
WriteLine(fw,"	vec3 uu = normalize(cross( vec3(0.0, 1.0, 0.0), ww));")
WriteLine(fw,"	vec3 vv = normalize(cross(ww, uu));")
WriteLine(fw,"	vec3 rd = normalize(p.x*uu + p.y*vv + 1.5*ww);")
WriteLine(fw,"	vec4 col = Background;")
WriteLine(fw,"	vec3 origin;")
WriteLine(fw,"	if(IntersectSphere(ro, rd, ExpPosition, Radius + NoiseAmplitude*6.0, origin))")
WriteLine(fw,"	{")
WriteLine(fw,"		col = March(origin, rd);")
WriteLine(fw,"	}")
WriteLine(fw,"	gl_FragColor = col;")
WriteLine(fw,"}")

CloseFile(fw)
endfunction

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

createShaderFile()
CreateSprite(1,0)
SetSpriteSize(1,1024,768)
LoadSpriteShader(1,"basicfractal.ps")
SetSpriteShader( 1,1 )

SetShaderConstantByName(1,"iResolution",1024,768 ,0,0)
do 
	SetShaderConstantByName(1,"iGlobalTime",timer(),0,0,0)
	//SetShaderConstantByName(1,"iMouse",GetPointerX(),getPointery(),0,0)
	
    sync()   
loop
function createShaderFile()

fw=OpenToWrite("basicfractal.ps")
WriteLine(fw,"//basic fractal")
WriteLine(fw,"uniform vec3      iResolution;     // viewport resolution (in pixels)")
WriteLine(fw,"uniform float     iGlobalTime;     // shader playback time (in seconds)")
WriteLine(fw,"uniform vec4      iMouse;          // mouse pixel coords. xy: current (if MLB down), zw: click")
WriteLine(fw,"//uniform sampler2D iChannel0;")
WriteLine(fw,"const int maxIterations=6;//a nice value for fullscreen is 8")
WriteLine(fw,"float circleSize=1.0/(3.0*pow(2.0,float(maxIterations)));")
WriteLine(fw,"//generic rotation formula")
WriteLine(fw,"vec2 rot(vec2 uv,float a){")
WriteLine(fw,"	return vec2(uv.x*cos(a)-uv.y*sin(a),uv.y*cos(a)+uv.x*sin(a));")
WriteLine(fw,"}")
WriteLine(fw,"void main(void){")
WriteLine(fw,"	//normalize stuff")
WriteLine(fw,"	vec2 uv=iResolution.xy;uv=-.5*(uv-2.0*gl_FragCoord.xy)/uv.x;")
WriteLine(fw,"	//global rotation and zoom")
WriteLine(fw,"	uv=rot(uv,iGlobalTime);")
WriteLine(fw,"	uv*=sin(iGlobalTime)*0.5+1.5;")
WriteLine(fw,"	//mirror, rotate and scale 6 times...")
WriteLine(fw,"	float s=0.3;")
WriteLine(fw,"	for(int i=0;i<maxIterations;i++){")
WriteLine(fw,"		uv=abs(uv)-s;")
WriteLine(fw,"		uv=rot(uv,iGlobalTime);")
WriteLine(fw,"		s=s/2.1;")
WriteLine(fw,"	}")
WriteLine(fw,"	//draw a circle")
WriteLine(fw,"	float c=length(uv)>circleSize?0.0:1.0;	")
WriteLine(fw,"	gl_FragColor = vec4(c,c,c,1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

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

createShaderFile()
CreateSprite(1,0)
SetSpriteSize(1,1024,768)
LoadSpriteShader(1,"flame.ps")
SetSpriteShader( 1,1 )

SetShaderConstantByName(1,"iResolution",1024,768 ,0,0)
do 
	SetShaderConstantByName(1,"iGlobalTime",timer(),0,0,0)
	//SetShaderConstantByName(1,"iMouse",GetPointerX(),getPointery(),0,0)
	
    sync()   
loop
function createShaderFile()

fw=OpenToWrite("flame.ps")
WriteLine(fw,"//flame")
WriteLine(fw,"uniform vec3      iResolution;     // viewport resolution (in pixels)")
WriteLine(fw,"uniform float     iGlobalTime;     // shader playback time (in seconds)")
WriteLine(fw,"uniform vec4      iMouse;          // mouse pixel coords. xy: current (if MLB down), zw: click")
WriteLine(fw,"uniform sampler2D iChannel0;")
WriteLine(fw,"float noise(vec3 p) //Thx to Las^Mercury")
WriteLine(fw,"{")
WriteLine(fw,"	vec3 i = floor(p);")
WriteLine(fw,"	vec4 a = dot(i, vec3(1., 57., 21.)) + vec4(0., 57., 21., 78.);")
WriteLine(fw,"	vec3 f = cos((p-i)*acos(-1.))*(-.5)+.5;")
WriteLine(fw,"	a = mix(sin(cos(a)*a),sin(cos(1.+a)*(1.+a)), f.x);")
WriteLine(fw,"	a.xy = mix(a.xz, a.yw, f.y);")
WriteLine(fw,"	return mix(a.x, a.y, f.z);")
WriteLine(fw,"}")
WriteLine(fw,"// Scene/Objects")
WriteLine(fw,"float sphere(vec3 p, vec4 spr)")
WriteLine(fw,"{")
WriteLine(fw,"	return length(spr.xyz-p) - spr.w;")
WriteLine(fw,"}")
WriteLine(fw,"float fire(vec3 p)")
WriteLine(fw,"{")
WriteLine(fw,"	float d= sphere(p*vec3(1.,.5,1.), vec4(.0,-1.,.0,1.));")
WriteLine(fw,"	return d+(noise(p+vec3(.0,iGlobalTime*2.,.0))+noise(p*3.)*.5)*.25*(p.y) ;")
WriteLine(fw,"}")
WriteLine(fw,"// Raymarching tools")
WriteLine(fw,"float scene(vec3 p)")
WriteLine(fw,"{")
WriteLine(fw,"	return min(100.-length(p) , abs(fire(p)) );")
WriteLine(fw,"}")
WriteLine(fw,"vec4 Raymarche(vec3 org, vec3 dir)")
WriteLine(fw,"{")
WriteLine(fw,"	float d=0.0;")
WriteLine(fw,"	vec3  p=org;")
WriteLine(fw,"	float glow = 0.0;")
WriteLine(fw,"	float eps = 0.02;")
WriteLine(fw,"	bool glowed=false;")
WriteLine(fw,"	for(int i=0; i<64; i++)")
WriteLine(fw,"	{")
WriteLine(fw,"		d = scene(p) + eps;")
WriteLine(fw,"		p += d * dir;")
WriteLine(fw,"		if( d>eps )")
WriteLine(fw,"		{")
WriteLine(fw,"			if( fire(p) < .0)")
WriteLine(fw,"				glowed=true;")
WriteLine(fw,"			if(glowed)")
WriteLine(fw,"       		glow = float(i)/64.;")
WriteLine(fw,"		}")
WriteLine(fw,"	}")
WriteLine(fw,"	return vec4(p,glow);")
WriteLine(fw,"}")
WriteLine(fw,"// Main functions")
WriteLine(fw,"void main()")
WriteLine(fw,"{")
WriteLine(fw,"	vec2 v = -1.0 + 2.0 * gl_FragCoord.xy / iResolution.xy;")
WriteLine(fw,"	v.x *= iResolution.x/iResolution.y;")
WriteLine(fw,"	vec3 org = vec3(0.,-2.,4.);")
WriteLine(fw,"	vec3 dir   = normalize(vec3(v.x*1.6,-v.y,-1.5));")
WriteLine(fw,"	vec4 p = Raymarche(org,dir);")
WriteLine(fw,"	float glow = p.w;")
WriteLine(fw,"	gl_FragColor = mix(vec4(0.), mix(vec4(1.,.5,.1,1.),vec4(0.1,.5,1.,1.),p.y*.02+.4), pow(glow*2.,4.));")
WriteLine(fw,"	//gl_FragColor = mix(vec4(1.), mix(vec4(1.,.5,.1,1.),vec4(0.1,.5,1.,1.),p.y*.02+.4), pow(glow*2.,4.));")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

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

createShaderFile()
CreateSprite(1,0)
SetSpriteImage(1,createRandomBgImage())
SetSpriteSize(1,1024,768)
LoadSpriteShader(1,"basicfractal.ps")
SetSpriteShader( 1,1 )

SetShaderConstantByName(1,"iResolution",1024,768 ,0,0)
do 
	SetShaderConstantByName(1,"iGlobalTime",timer(),0,0,0)
	//SetShaderConstantByName(1,"iMouse",GetPointerX(),getPointery(),0,0)
	
    sync()   
loop
function createShaderFile()

fw=OpenToWrite("basicfractal.ps")
WriteLine(fw,"//basic fractal")
WriteLine(fw,"uniform vec3      iResolution;     // viewport resolution (in pixels)")
WriteLine(fw,"uniform float     iGlobalTime;     // shader playback time (in seconds)")
WriteLine(fw,"uniform vec4      iMouse;          // mouse pixel coords. xy: current (if MLB down), zw: click")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"const int maxIterations=6;//a nice value for fullscreen is 8")
WriteLine(fw,"float circleSize=1.0/(3.0*pow(2.0,float(maxIterations)));")
WriteLine(fw,"//generic rotation formula")
WriteLine(fw,"vec2 rot(vec2 uv,float a){")
WriteLine(fw,"	return vec2(uv.x*cos(a)-uv.y*sin(a),uv.y*cos(a)+uv.x*sin(a));")
WriteLine(fw,"}")
WriteLine(fw,"void main(void){")
WriteLine(fw,"	//normalize stuff")
WriteLine(fw,"	vec2 uv=iResolution.xy;uv=-.5*(uv-2.0*gl_FragCoord.xy)/uv.x;")
WriteLine(fw,"	//global rotation and zoom")
WriteLine(fw,"	uv=rot(uv,iGlobalTime);")
WriteLine(fw,"	uv*=sin(iGlobalTime)*0.5+1.5;")
WriteLine(fw,"	//mirror, rotate and scale 6 times...")
WriteLine(fw,"	float s=0.3;")
WriteLine(fw,"	for(int i=0;i<maxIterations;i++){")
WriteLine(fw,"		uv=abs(uv)-s;")
WriteLine(fw,"		uv=rot(uv,iGlobalTime);")
WriteLine(fw,"		s=s/2.1;")
WriteLine(fw,"	}")
WriteLine(fw,"	//draw a circle")
WriteLine(fw,"	//float c=length(uv)>circleSize?0.0:1.0;	")
WriteLine(fw,"	float r=length(uv)>circleSize?0.0:texture2D(texture0,uvVarying).r;	")
WriteLine(fw,"	float g=length(uv)>circleSize?0.0:texture2D(texture0,uvVarying).g;	")
WriteLine(fw,"	float b=length(uv)>circleSize?0.0:texture2D(texture0,uvVarying).b;	")
WriteLine(fw,"//	gl_FragColor = vec4(c,c,c,1.0);")
WriteLine(fw,"	gl_FragColor = vec4(r,g,b,1.0);")

WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 1000
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

// Project: lightning
// show all errors
SetErrorMode(2)

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

createShaderFile()

CreateSprite(1,0)
SetSpriteSize(1,1024,768)
LoadSpriteShader(2, "lightning.ps")
SetSpriteShader( 1,2 )
//changing the resolution x will effect where the lightning casts from
//so with a sprite 1024 wide resolution setting to 1024 will set it in 
//the middle of the sprite while setting to 2048 for example shifts it
//to the right 
SetShaderConstantByName(2,"resolution",1024,768,0,0)

do
	SetShaderConstantByName(2,"resolution",GetPointerX()*2,768,0,0)
	SetShaderConstantByName(2,"time",timer()*.25,0,0,0)
    Print( ScreenFPS() )
    Sync()

loop

function createShaderFile()

fw=OpenToWrite("lightning.ps")
WriteLine(fw,"precision lowp float;")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2  resolution;")
WriteLine(fw,"const float count = 2.0;")
WriteLine(fw,"float Hash( vec2 p, in float s ){")
WriteLine(fw,"    return fract(sin(dot(vec3(p.xy,15.0 * abs(sin(s))),vec3(27.1,61.7, 12.4)))*273758.5453123);")
WriteLine(fw,"}")
WriteLine(fw,"float noise(in vec2 p, in float s)")
WriteLine(fw,"{")
WriteLine(fw,"    vec2 i = floor(p);")
WriteLine(fw,"    vec2 f = fract(p);")
WriteLine(fw,"    f *= f * (3.0-2.0*f);")
WriteLine(fw,"    return mix(mix(Hash(i + vec2(0.,0.), s), Hash(i + vec2(1.,0.), s),f.x),mix(Hash(i + vec2(0.,1.), s), Hash(i + vec2(1.,1.), s),f.x),f.y) * s;")
WriteLine(fw,"}")
WriteLine(fw,"float fbm(vec2 p)")
WriteLine(fw,"{")
WriteLine(fw,"     float v = 0.0;")
WriteLine(fw,"     v += noise(p*6., 0.35);")
WriteLine(fw,"     v += noise(p*2., 0.25);")
WriteLine(fw,"     v += noise(p*4., 0.125);")
WriteLine(fw,"     v += noise(p*16., 0.0625);")
WriteLine(fw,"     return v;")
WriteLine(fw,"}")
WriteLine(fw,"void main( void ) ")
WriteLine(fw,"{")
WriteLine(fw,"	vec2 location= ( gl_FragCoord.xy / resolution.xy ) * 2.0 - 1.0;")
WriteLine(fw,"	location.x*= resolution.x/resolution.y;")
WriteLine(fw,"	vec3 finalColor = vec3( 0.0 );")
WriteLine(fw,"		float t = abs(1.0 / ((location.x + fbm( location + time * 5.0)) * (50.0)));")
WriteLine(fw,"		finalColor +=  t * vec3( 0.375 +0.1, 0.5, 2.0 );")
WriteLine(fw,"	gl_FragColor = vec4( finalColor, 3.0 );")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

SetErrorMode(2)

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

createShaderFile()
CreateSprite(1,0)
SetSpriteSize(1,1024,768)
LoadSpriteShader(2, "colorcheckerboard.ps")
SetSpriteShader( 1,2 )
SetShaderConstantByName(2,"resolution",1024,768,0,0)
SetSpriteTransparency(1,2)

CreateSprite(2,createBgImage())
//SetSpriteColor(2,255,255,0,255)
SetSpriteSize(2,1024,768)
SetSpriteDepth(2,20)
do
	SetShaderConstantByName(2,"time",timer(),0,0,0)
    Print( ScreenFPS() )
    Sync()

loop

function createShaderFile()

fw=OpenToWrite("colorcheckerboard.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"float random(in vec2 uv){")
WriteLine(fw,"	return fract(sin(dot(uv, vec2(12.9898,78.233))) * 43758.5453);")
WriteLine(fw,"}")
WriteLine(fw,"float randomTile(in vec2 uv) {")
WriteLine(fw,"	return random(floor(uv));")
WriteLine(fw,"}")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 uv = (gl_FragCoord.xy * 2.0 -  resolution.xy) / min(resolution.x, resolution.y);")
WriteLine(fw,"	uv *= 8.0;")
WriteLine(fw,"	vec3 color = vec3(0.0);")                //use this line if you dont want to use a texture
WriteLine(fw,"//  vec3 color = texture2D(texture0, uv).rgb;")  //use this line if you want to use a texture
WriteLine(fw,"	color.rgb += sin(randomTile(uv) * time * 5.0);")
WriteLine(fw,"	float alpha=random(vec2(0.0,1.0));")         //use this for spritetansparency mode 2
WriteLine(fw,"//	float alpha=random(vec2(0.0,1.0))*5.0;") //use this for spritetansparency mode 1
WriteLine(fw,"  color = clamp(color,0.0,1.0);")
WriteLine(fw,"	gl_FragColor = vec4(color,alpha);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

function createBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawBox(0,0,1024,768,makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    swap()
    img = getimage(0,0,1024,768)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 500
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

SetErrorMode(2)

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

createShaderFile()

CreateSprite(1,0)
SetSpriteSize(1,1024,768)
LoadSpriteShader(2, "amigaplasma.ps")
SetSpriteShader( 1,2 )
SetShaderConstantByName(2,"resolution",1024,768,0,0)

do
	//SetShaderConstantByName(2,"resolution",GetPointerX()*2,768,0,0)
	SetShaderConstantByName(2,"time",timer()*.25,0,0,0)
    Print( ScreenFPS() )
    Sync()

loop

function createShaderFile()

fw=OpenToWrite("amigaplasma.ps")
//random color checkerboard
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"#define r resolution")
WriteLine(fw,"#define t time")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p=gl_FragCoord.xy/r;")	
WriteLine(fw,"	p= floor(p*32.)/32.;")
WriteLine(fw,"	vec3 a=vec3(0.5, 0.5, 0.5);")
WriteLine(fw,"	vec3 b=vec3(0.5, 0.5, 0.5);")
WriteLine(fw,"	vec3 c=vec3(t/4., t*0.4, t/2.);")
WriteLine(fw,"	vec3 d=vec3(0.0, 0.33, 0.67);")
WriteLine(fw,"	vec3 col = b+a*sin(8.0*(c+p.y+sin(p.x+p.x+t) ));")
WriteLine(fw,"	     col*= b+a*sin(10.0*(c+p.y+cos(p.y+p.y+t) ));")
WriteLine(fw,"	gl_FragColor=vec4(col.rgb, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

 
SetErrorMode(2)

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

createShaderFile()
img=LoadImage("Australia.png")
CreateSprite(1,0)
SetSpriteSize(1,1024,768)
SetSpriteTransparency(1,2)
LoadSpriteShader(2, "heatedFlames.ps")
SetSpriteShader( 1,2 )
SetShaderConstantByName(2,"resolution",1024,768/3,0,0)

CreateSprite(2,0)  //sets a dark grey backgound behind the flame
SetSpriteColor(2,55,55,55,255)
SetSpriteSize(2,1024,768)
SetSpriteDepth(2,20)

do
	//SetShaderConstantByName(2,"resolution",GetPointerX()*2,768,0,0)
	SetShaderConstantByName(2,"time",timer(),0,0,0)
    Print( ScreenFPS() )
    Sync()

loop

function createShaderFile()

fw=OpenToWrite("heatedFlames.ps")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"//uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"vec3 mod289(vec3 x) {")
WriteLine(fw,"	return x - floor(x * (1.0 / 289.0)) * 289.0;")
WriteLine(fw,"}")
WriteLine(fw,"vec4 mod289(vec4 x) {")
WriteLine(fw,"	return x - floor(x * (1.0 / 289.0)) * 289.0;")
WriteLine(fw,"}")
WriteLine(fw,"vec4 permute(vec4 x) {")
WriteLine(fw,"		 return mod289(((x*34.0)+1.0)*x);")
WriteLine(fw,"}")
WriteLine(fw,"vec4 taylorInvSqrt(vec4 r)")
WriteLine(fw,"{")
WriteLine(fw,"	return 1.79284291400159 - 0.85373472095314 * r;")
WriteLine(fw,"}")
WriteLine(fw,"float snoise(vec3 v)")
WriteLine(fw,"	{ ")
WriteLine(fw,"	const vec2	C = vec2(1.0/6.0, 1.0/3.0) ;")
WriteLine(fw,"	const vec4	D = vec4(0.0, 0.5, 1.0, 2.0);")
WriteLine(fw,"// First corner")
WriteLine(fw,"	vec3 i	= floor(v + dot(v, C.yyy) );")
WriteLine(fw,"	vec3 x0 =	 v - i + dot(i, C.xxx) ;")
WriteLine(fw,"// Other corners")
WriteLine(fw,"	vec3 g = step(x0.yzx, x0.xyz);")
WriteLine(fw,"	vec3 l = 1.0 - g;")
WriteLine(fw,"	vec3 i1 = min( g.xyz, l.zxy );")
WriteLine(fw,"	vec3 i2 = max( g.xyz, l.zxy );")
WriteLine(fw,"	//	 x0 = x0 - 0.0 + 0.0 * C.xxx;")
WriteLine(fw,"	//	 x1 = x0 - i1	+ 1.0 * C.xxx;")
WriteLine(fw,"	//	 x2 = x0 - i2	+ 2.0 * C.xxx;")
WriteLine(fw,"	//	 x3 = x0 - 1.0 + 3.0 * C.xxx;")
WriteLine(fw,"	vec3 x1 = x0 - i1 + C.xxx;")
WriteLine(fw,"	vec3 x2 = x0 - i2 + C.yyy; // 2.0*C.x = 1/3 = C.y")
WriteLine(fw,"	vec3 x3 = x0 - D.yyy;			// -1.0+3.0*C.x = -0.5 = -D.y")
WriteLine(fw,"// Permutations")
WriteLine(fw,"	i = mod289(i); ")
WriteLine(fw,"	vec4 p = permute( permute( permute( ")
WriteLine(fw,"						 i.z + vec4(0.0, i1.z, i2.z, 1.0 ))")
WriteLine(fw,"					 + i.y + vec4(0.0, i1.y, i2.y, 1.0 )) ")
WriteLine(fw,"					 + i.x + vec4(0.0, i1.x, i2.x, 1.0 ));")
WriteLine(fw,"// Gradients: 7x7 points over a square, mapped onto an octahedron.")
WriteLine(fw,"// The ring size 17*17 = 289 is close to a multiple of 49 (49*6 = 294)")
WriteLine(fw,"	float n_ = 0.142857142857; // 1.0/7.0")
WriteLine(fw,"	vec3	ns = n_ * D.wyz - D.xzx;")
WriteLine(fw,"	vec4 j = p - 49.0 * floor(p * ns.z * ns.z);	//	mod(p,7*7)")
WriteLine(fw,"	vec4 x_ = floor(j * ns.z);")
WriteLine(fw,"	vec4 y_ = floor(j - 7.0 * x_ );		// mod(j,N)")
WriteLine(fw,"	vec4 x = x_ *ns.x + ns.yyyy;")
WriteLine(fw,"	vec4 y = y_ *ns.x + ns.yyyy;")
WriteLine(fw,"	vec4 h = 1.0 - abs(x) - abs(y);")
WriteLine(fw,"	vec4 b0 = vec4( x.xy, y.xy );")
WriteLine(fw,"	vec4 b1 = vec4( x.zw, y.zw );")
WriteLine(fw,"	//vec4 s0 = vec4(lessThan(b0,0.0))*2.0 - 1.0;")
WriteLine(fw,"	//vec4 s1 = vec4(lessThan(b1,0.0))*2.0 - 1.0;")
WriteLine(fw,"	vec4 s0 = floor(b0)*2.0 + 1.0;")
WriteLine(fw,"	vec4 s1 = floor(b1)*2.0 + 1.0;")
WriteLine(fw,"	vec4 sh = -step(h, vec4(0.0));")
WriteLine(fw,"	vec4 a0 = b0.xzyw + s0.xzyw*sh.xxyy ;")
WriteLine(fw,"	vec4 a1 = b1.xzyw + s1.xzyw*sh.zzww ;")
WriteLine(fw,"	vec3 p0 = vec3(a0.xy,h.x);")
WriteLine(fw,"	vec3 p1 = vec3(a0.zw,h.y);")
WriteLine(fw,"	vec3 p2 = vec3(a1.xy,h.z);")
WriteLine(fw,"	vec3 p3 = vec3(a1.zw,h.w);")
WriteLine(fw,"//Normalise gradients")
WriteLine(fw,"	//vec4 norm = taylorInvSqrt(vec4(dot(p0,p0), dot(p1,p1), dot(p2, p2), dot(p3,p3)));")
WriteLine(fw,"	vec4 norm = inversesqrt(vec4(dot(p0,p0), dot(p1,p1), dot(p2, p2), dot(p3,p3)));")
WriteLine(fw,"	p0 *= norm.x;")
WriteLine(fw,"	p1 *= norm.y;")
WriteLine(fw,"	p2 *= norm.z;")
WriteLine(fw,"	p3 *= norm.w;")
WriteLine(fw,"// Mix final noise value")
WriteLine(fw,"	vec4 m = max(0.6 - vec4(dot(x0,x0), dot(x1,x1), dot(x2,x2), dot(x3,x3)), 0.0);")
WriteLine(fw,"	m = m * m;")
WriteLine(fw,"	return 42.0 * dot( m*m, vec4( dot(p0,x0), dot(p1,x1), ")
WriteLine(fw,"																dot(p2,x2), dot(p3,x3) ) );")
WriteLine(fw,"	}")
WriteLine(fw,"// PRNG")
WriteLine(fw,"float prng(in vec2 seed) {")
WriteLine(fw,"	seed = fract (seed * vec2 (5.3983, 5.4427));")
WriteLine(fw,"	seed += dot (seed.yx, seed.xy + vec2 (21.5351, 14.3137));")
WriteLine(fw,"	return fract (seed.x * seed.y * 95.4337);")
WriteLine(fw,"}")
WriteLine(fw,"float PI = 3.1415926535897932384626433832795;")
WriteLine(fw,"float noiseStack(vec3 pos,int octaves,float falloff){")
WriteLine(fw,"	float noise = snoise(vec3(pos));")
WriteLine(fw,"	float off = 1.0;")
WriteLine(fw,"	if (octaves>1) {")
WriteLine(fw,"		pos *= 2.0;")
WriteLine(fw,"		off *= falloff;")
WriteLine(fw,"		noise = (1.0-off)*noise + off*snoise(vec3(pos));")
WriteLine(fw,"	}")
WriteLine(fw,"	if (octaves>2) {")
WriteLine(fw,"		pos *= 2.0;")
WriteLine(fw,"		off *= falloff;")
WriteLine(fw,"		noise = (1.0-off)*noise + off*snoise(vec3(pos));")
WriteLine(fw,"	}")
WriteLine(fw,"	if (octaves>3) {")
WriteLine(fw,"		pos *= 2.0;")
WriteLine(fw,"		off *= falloff;")
WriteLine(fw,"		noise = (1.0-off)*noise + off*snoise(vec3(pos));")
WriteLine(fw,"	}")
WriteLine(fw,"	return (1.0+noise)/2.0;")
WriteLine(fw,"}")
WriteLine(fw,"vec2 noiseStackUV(vec3 pos,int octaves,float falloff,float diff){")
WriteLine(fw,"	float displaceA = noiseStack(pos,octaves,falloff);")
WriteLine(fw,"	float displaceB = noiseStack(pos+vec3(3984.293,423.21,5235.19),octaves,falloff);")
WriteLine(fw,"	return vec2(displaceA,displaceB);")
WriteLine(fw,"}")
WriteLine(fw,"void main(  ) {")
WriteLine(fw,"	vec2 drag = vec2(0.0, 0.0); //mouse.xy;")
WriteLine(fw,"	vec2 offset = vec2(0.0, 0.0); //mouse.xy;")
WriteLine(fw,"	float xpart = gl_FragCoord.x/resolution.x;")
WriteLine(fw,"	float ypart = gl_FragCoord.y/resolution.y;")
WriteLine(fw,"	//")
WriteLine(fw,"	float clip = 210.0;")
WriteLine(fw,"	float ypartClip = gl_FragCoord.y/clip;")
WriteLine(fw,"	float ypartClippedFalloff = clamp(2.0-ypartClip,0.0,1.0);")
WriteLine(fw,"	float ypartClipped = min(ypartClip,1.0);")
WriteLine(fw,"	float ypartClippedn = 1.0-ypartClipped;")
WriteLine(fw,"	float xfuel = 1.0-abs(2.0*xpart-1.0);//pow(1.0-abs(2.0*xpart-1.0),0.5);")
WriteLine(fw,"	float timeSpeed = 0.5;")
WriteLine(fw,"	float realTime = timeSpeed*time;")
WriteLine(fw,"	vec2 coordScaled = 0.01*gl_FragCoord.xy - 0.02*vec2(offset.x,0.0);")
WriteLine(fw,"	vec3 position = vec3(coordScaled,0.0) + vec3(1223.0,6434.0,8425.0);")
WriteLine(fw,"	vec3 flow = vec3(4.1*(0.5-xpart)*pow(ypartClippedn,4.0),-2.0*xfuel*pow(ypartClippedn,64.0),0.0);")
WriteLine(fw,"	vec3 timing = realTime*vec3(0.0,-1.7,1.1) + flow;")
WriteLine(fw,"	vec3 displacePos = vec3(1.0,0.5,1.0)*2.4*position+realTime*vec3(0.01,-0.7,1.3);")
WriteLine(fw,"	vec3 displace3 = vec3(noiseStackUV(displacePos,2,0.4,0.1),0.0);")
WriteLine(fw,"	vec3 noiseCoord = (vec3(2.0,1.0,1.0)*position+timing+0.4*displace3)/1.0;")
WriteLine(fw,"	float noise = noiseStack(noiseCoord,3,0.4);")
WriteLine(fw,"	float flames = pow(ypartClipped,0.3*xfuel)*pow(noise,xfuel);")
WriteLine(fw,"	float f = ypartClippedFalloff*pow(1.0-flames*flames*flames,8.0);")
WriteLine(fw,"	float fff = f*f*f;")
WriteLine(fw,"	vec3 fire = 1.5*vec3(f, fff, fff*fff);")
WriteLine(fw,"	// smoke")
WriteLine(fw,"	float smokeNoise = 0.5+snoise(0.4*position+timing*vec3(1.0,1.0,0.2))/2.0;")
WriteLine(fw,"	vec3 smoke = vec3(0.3*pow(xfuel,3.0)*pow(ypart,2.0)*(smokeNoise+0.4*(1.0-noise)));")
WriteLine(fw,"	// sparks")
WriteLine(fw,"	float sparkGridSize = 30.0;")
WriteLine(fw,"	vec2 sparkCoord = gl_FragCoord.xy - vec2(2.0*offset.x,190.0*realTime);")
WriteLine(fw,"	sparkCoord -= 30.0*noiseStackUV(0.01*vec3(sparkCoord,30.0*time),1,0.4,0.1);")
WriteLine(fw,"	sparkCoord += 100.0*flow.xy;")
WriteLine(fw,"	if (mod(sparkCoord.y/sparkGridSize,2.0)<1.0) sparkCoord.x += 0.5*sparkGridSize;")
WriteLine(fw,"	vec2 sparkGridIndex = vec2(floor(sparkCoord/sparkGridSize));")
WriteLine(fw,"	float sparkRandom = prng(sparkGridIndex);")
WriteLine(fw,"	float sparkLife = min(10.0*(1.0-min((sparkGridIndex.y+(190.0*realTime/sparkGridSize))/(24.0-20.0*sparkRandom),1.0)),1.0);")
WriteLine(fw,"	vec3 sparks = vec3(0.0);")
WriteLine(fw,"	if (sparkLife>0.0) {")
WriteLine(fw,"		float sparkSize = xfuel*xfuel*sparkRandom*0.08;")
WriteLine(fw,"		float sparkRadians = 999.0*sparkRandom*2.0*PI + 2.0*time;")
WriteLine(fw,"		vec2 sparkCircular = vec2(sin(sparkRadians),cos(sparkRadians));")
WriteLine(fw,"		vec2 sparkOffset = (0.5-sparkSize)*sparkGridSize*sparkCircular;")
WriteLine(fw,"		vec2 sparkModulus = mod(sparkCoord+sparkOffset,sparkGridSize) - 0.5*vec2(sparkGridSize);")
WriteLine(fw,"		float sparkLength = length(sparkModulus);")
WriteLine(fw,"		float sparksGray = max(0.0, 1.0 - sparkLength/(sparkSize*sparkGridSize));")
WriteLine(fw,"		sparks = sparkLife*sparksGray*vec3(1.0,0.3,0.0);")
WriteLine(fw,"	}")
WriteLine(fw,"	vec4 color = vec4(max(fire,sparks)+smoke,1.0);")
WriteLine(fw,"  color.a=(fire.r+fire.g+fire.b)+(sparks.r+sparks.g+sparks.b)+(smoke.r+smoke.g+smoke.b);")
WriteLine(fw,"	gl_FragColor = vec4(color);")
WriteLine(fw,"}")
CloseFile(fw)
endfunction

SetErrorMode(2)
#constant KEY_SPACE   = 32  //the space bar
// set window properties
SetWindowTitle( "Shaders" )
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
img=createRandomBgImage() //used for the second type of static
createShaderFile()
CreateSprite(1,img)
SetSpriteSize(1,1024,768)
//SetSpriteTransparency(1,2)
LoadSpriteShader(1, "spiral.ps")
LoadSpriteShader(2, "spiral2.ps")
LoadSpriteShader(3, "spiral3.ps")
LoadSpriteShader(4, "spiral4.ps")
LoadSpriteShader(5, "paralaxbuildings.ps")
LoadSpriteShader(6, "static.ps")
LoadSpriteShader(7, "static2.ps")
LoadSpriteShader(8, "amigaplasma.ps")
LoadSpriteShader(9, "amigaplasma2.ps")
LoadSpriteShader(10,"kalieffect.ps")
LoadSpriteShader(11,"kalieffect2.ps")


SetSpriteShader( 1,1 )
SetShaderConstantByName(1,"resolution",1024,768,0,0)

num=1:myShader$="Spiral Selected without texture"
do
	print("press space to switch shaders")
	print(myShader$)
    If GetRawKeyPressed(KEY_SPACE)
        if num = 1
            num=2:myShader$="Spiral Selected with texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)
        elseif num = 2
            num=3:myShader$="Spiral2 Selected without texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)
        elseif num = 3
            num=4:myShader$="Spiral2 Selected with texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)
        elseif num =4
            num=5:myShader$="paralaxbuildings Selected":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)
        elseif num=5
            num=6:myShader$="static Selected without texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)     
        elseif num=6
            num=7:myShader$="static2 Selected with texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)     
        elseif num=7
            num=8:myShader$="amiga plasma Selected without texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)      
        elseif num=8
            num=9:myShader$="amiga plasma Selected with texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)      
        elseif num=9
            num=10:myShader$="Kali effect Selected without texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)      
        elseif num=10
            num=11:myShader$="Kali effect Selected with texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)      
        elseif num=11
            num=1:myShader$="Spiral Selected without texture":SetSpriteShader(1,num):SetShaderConstantByName(num,"resolution",1024,768,0,0)      
        endif
 
 
    endif  
    SetShaderConstantByName(num,"time",timer(),0,0,0)
    Print( ScreenFPS() )
    Sync()

loop

function createShaderFile()

fw=OpenToWrite("spiral.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p = (gl_FragCoord.xy * 2.0 - resolution) / min(resolution.x, resolution.y);")
WriteLine(fw,"	float l = length(p);")
WriteLine(fw,"	float c = step(0.1,l);")
WriteLine(fw,"	float a = atan(p.y,p.x) * 2.0;")
WriteLine(fw,"	gl_FragColor = vec4(sin(a * 10. + floor(l * 20.) * time));")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("spiral2.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p = (gl_FragCoord.xy * 2.0 - resolution) / min(resolution.x, resolution.y);")
WriteLine(fw,"	float l = length(p);")
WriteLine(fw,"	//float c = step(0.1,l);")
WriteLine(fw,"	float a = atan(p.y,p.x) * 2.0;")
WriteLine(fw,"	vec4 myCoord = vec4(sin(a * 10. + floor(l * 20.) * time));")
WriteLine(fw,"	vec4 color = texture2D(texture0,myCoord.xy).rgba*texture2D(texture0,uvVarying).rgba;")
WriteLine(fw,"	gl_FragColor = color;")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("spiral3.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"//--------------------")
WriteLine(fw,"// Archimedean_Spiral ")
WriteLine(fw,"//--------------------")
WriteLine(fw,"#define PI 3.14159265")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"float angle(vec2 v)  { return atan(v.y,v.x); }")
WriteLine(fw,"void main()")
WriteLine(fw,"{")
WriteLine(fw,"    vec2 center = resolution.xy / 2.0;")
WriteLine(fw,"    vec2 dist = center - gl_FragCoord.xy;")
WriteLine(fw,"    float time1 = time + gl_FragCoord.x*8.*mouse.x;")
WriteLine(fw,"    float theta = angle(dist) / (2.0*PI) + time*0.6;")
WriteLine(fw,"    float d = 40.0 + 2.*sin(time1*3.0);")
WriteLine(fw,"    float r = length(dist) - d*theta;")
WriteLine(fw,"    float color1 = abs(r/d - (floor(r/d)) -0.5);")
WriteLine(fw,"    float color2 = abs(fract(r/d - theta) -0.5);")
WriteLine(fw,"    gl_FragColor = vec4( smoothstep(0.1, 0.5, color1)); // simple spiral")
WriteLine(fw,"    //gl_FragColor = vec4( smoothstep(0.1, 0.5, color2)); // double spiral")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("spiral4.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"//--------------------")
WriteLine(fw,"// Archimedean_Spiral ")
WriteLine(fw,"//--------------------")
WriteLine(fw,"#define PI 3.14159265")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"float angle(vec2 v)  { return atan(v.y,v.x); }")
WriteLine(fw,"void main()")
WriteLine(fw,"{")
WriteLine(fw,"    vec2 center = resolution.xy / 2.0;")
WriteLine(fw,"    vec2 dist = center - gl_FragCoord.xy;")
WriteLine(fw,"    float time1 = time + gl_FragCoord.x*8.*mouse.x;")
WriteLine(fw,"    float theta = angle(dist) / (2.0*PI) + time*0.6;")
WriteLine(fw,"    float d = 40.0 + 2.*sin(time1*3.0);")
WriteLine(fw,"    float r = length(dist) - d*theta;")
WriteLine(fw,"    float color1 = abs(r/d - (floor(r/d)) -0.5);")
WriteLine(fw,"    float color2 = abs(fract(r/d - theta) -0.5);")
WriteLine(fw,"    gl_FragColor = vec4( smoothstep(0.1, 0.5, color2))*texture2D(texture0,uvVarying).rgba; // simple spiral")
WriteLine(fw,"    //gl_FragColor = vec4( smoothstep(0.1, 0.5, color2)); // double spiral")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("paralaxbuildings.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"float noise2d(vec2 p) {")
WriteLine(fw,"	return fract(sin(dot(p.xy ,vec2(1.,1.))));")
WriteLine(fw,"}")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p = ( gl_FragCoord.xy / resolution.xy );")
WriteLine(fw,"	float a = 0.0;")
WriteLine(fw,"	for (int i = 1; i < 20; i++) {")
WriteLine(fw,"		float fi = float(i);")
WriteLine(fw,"		float s = floor(250.0*(p.x)/fi + 50.0*fi + time);")
WriteLine(fw,"		if (p.y < noise2d(vec2(s))*fi/35.0 - fi*.05 + 1.0) {")
WriteLine(fw,"			a = float(i)/20.;")
WriteLine(fw,"		}")
WriteLine(fw,"	}")
WriteLine(fw,"	gl_FragColor = vec4(vec3(a), 1.0 );")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("static.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"float rand(vec2 co){")
WriteLine(fw,"    return fract(sin(dot(co.xy ,vec2(12.9898,78.233))) * 43758.5453);")
WriteLine(fw,"}")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 position = ( gl_FragCoord.xy / resolution.xy ) + mouse / 4.0;")
WriteLine(fw,"	float r = rand(gl_FragCoord.xy * time);")
WriteLine(fw,"	vec3 color = vec3(r);")
WriteLine(fw,"	gl_FragColor = vec4(color, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("static2.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"float rand(vec2 co){")
WriteLine(fw,"    return fract(sin(dot(co.xy ,vec2(12.9898,78.233))) * 43758.5453);")
WriteLine(fw,"}")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 position = ( gl_FragCoord.xy / resolution.xy ) + mouse / 4.0;")
WriteLine(fw,"	float r = rand(gl_FragCoord.xy * time);")
WriteLine(fw,"	vec3 color = vec3(r)+texture2D(texture0,uvVarying).rgb;")
WriteLine(fw,"	gl_FragColor = vec4(color, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("amigaplasma.ps")
//random color checkerboard
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"#define r resolution")
WriteLine(fw,"#define t time")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"  vec2 p=gl_FragCoord.xy/r;") 
WriteLine(fw,"  p= floor(p*32.)/32.;")
WriteLine(fw,"  vec3 a=vec3(0.5, 0.5, 0.5);")
WriteLine(fw,"  vec3 b=vec3(0.5, 0.5, 0.5);")
WriteLine(fw,"  vec3 c=vec3(t/4., t*0.4, t/2.);")
WriteLine(fw,"  vec3 d=vec3(0.0, 0.33, 0.67);")
WriteLine(fw,"  vec3 col = b+a*sin(8.0*(c+p.y+sin(p.x+p.x+t) ));")
WriteLine(fw,"       col*= b+a*sin(10.0*(c+p.y+cos(p.y+p.y+t) ));")
WriteLine(fw,"  gl_FragColor=vec4(col.rgb, 1.0);")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("amigaplasma2.ps")
//random color checkerboard
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"#define r resolution")
WriteLine(fw,"#define t time")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p=gl_FragCoord.xy/r;")	
WriteLine(fw,"	p= floor(p*32.)/32.;")
WriteLine(fw,"	vec3 a=vec3(0.5, 0.5, 0.5);")
WriteLine(fw,"	vec3 b=vec3(0.5, 0.5, 0.5);")
WriteLine(fw,"	vec3 c=vec3(t/4., t*0.4, t/2.);")
WriteLine(fw,"	vec3 d=vec3(0.0, 0.33, 0.67);")
WriteLine(fw,"	vec3 col = b+a*sin(8.0*(c+p.y+sin(p.x+p.x+t) ));")
WriteLine(fw,"	     col*= b+a*sin(10.0*(c+p.y+cos(p.y+p.y+t) ));")
WriteLine(fw,"	gl_FragColor=vec4(col.rgb, 1.0)*texture2D(texture0,uvVarying).rgba;")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("kalieffect.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p = abs((gl_FragCoord.xy*2.0-resolution.xy)/resolution.x);")
WriteLine(fw,"	p.x+=sin(time*0.317)*.23;")
WriteLine(fw,"	p.y+=cos(time*0.081)*.07;")
WriteLine(fw,"	float t1 = time*0.2;")
WriteLine(fw,"	mat2 rot = mat2(cos(t1),sin(t1),-sin(t1),cos(t1));")
WriteLine(fw,"	p *= 6.3;")
WriteLine(fw,"	float r = length(p);")
WriteLine(fw,"	p*=rot;")
WriteLine(fw,"	p*=0.6*cos(p.yx*1.5)*sin(p*1.3)-r*0.;")
WriteLine(fw,"  //float a =atan(p.y,p.x)*11.;")
WriteLine(fw,"	//r = a+length(p)*sin(time)*0.3;")
WriteLine(fw,"	//r = length(p)*sin(time)*0.3;")
WriteLine(fw,"	float s = sin(r*2.3+p.x*2.3-time*0.5)+sin(p.y*2.9+2.7*sin(r*0.+time*1.5));")
WriteLine(fw,"	float t = sin(r*0.+p.x*2.7+time*3.2)+sin(p.y*1.1-s+2.3*sin(r*3.3+time*0.9));")
WriteLine(fw,"	float f = (s+t);")
WriteLine(fw,"	gl_FragColor = vec4(f,f-t,t-f,1)/2.0;")
WriteLine(fw,"	//gl_FragColor = vec4(t,f,s,1)/2.0;")
WriteLine(fw,"	//gl_FragColor = vec4(f,t,s,1)/2.0;")
WriteLine(fw,"}")
CloseFile(fw)

fw=OpenToWrite("kalieffect2.ps")
WriteLine(fw,"#ifdef GL_ES")
WriteLine(fw,"precision mediump float;")
WriteLine(fw,"#endif")
WriteLine(fw,"#extension GL_OES_standard_derivatives : enable")
WriteLine(fw,"uniform float time;")
WriteLine(fw,"uniform vec2 mouse;")
WriteLine(fw,"uniform vec2 resolution;")
WriteLine(fw,"uniform sampler2D texture0;")
WriteLine(fw,"varying mediump vec2 uvVarying;")
WriteLine(fw,"void main( void ) {")
WriteLine(fw,"	vec2 p = abs((gl_FragCoord.xy*2.0-resolution.xy)/resolution.x);")
WriteLine(fw,"	p.x+=sin(time*0.317)*.23;")
WriteLine(fw,"	p.y+=cos(time*0.081)*.07;")
WriteLine(fw,"	float t1 = time*0.2;")
WriteLine(fw,"	mat2 rot = mat2(cos(t1),sin(t1),-sin(t1),cos(t1));")
WriteLine(fw,"	p *= 6.3;")
WriteLine(fw,"	float r = length(p);")
WriteLine(fw,"	p*=rot;")
WriteLine(fw,"	p*=0.6*cos(p.yx*1.5)*sin(p*1.3)-r*0.;")
WriteLine(fw,"  //float a =atan(p.y,p.x)*11.;")
WriteLine(fw,"	//r = a+length(p)*sin(time)*0.3;")
WriteLine(fw,"	//r = length(p)*sin(time)*0.3;")
WriteLine(fw,"	float s = sin(r*2.3+p.x*2.3-time*0.5)+sin(p.y*2.9+2.7*sin(r*0.+time*1.5));")
WriteLine(fw,"	float t = sin(r*0.+p.x*2.7+time*3.2)+sin(p.y*1.1-s+2.3*sin(r*3.3+time*0.9));")
WriteLine(fw,"	float f = (s+t);")
WriteLine(fw,"	gl_FragColor = vec4(f,f-t,t-f,1)/2.0*texture2D(texture0,uvVarying).rgba;")
WriteLine(fw,"	//gl_FragColor = vec4(t,f,s,1)/2.0*texture2D(texture0,uvVarying).rgba;")
WriteLine(fw,"	//gl_FragColor = vec4(f,t,s,1)/2.0*texture2D(texture0,uvVarying).rgba;")
WriteLine(fw,"}")
CloseFile(fw)



endfunction


function createRandomBgImage()
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    For num = 1 to 1000
		DrawEllipse(Random(1,1023),Random(1,787),random(10,30),random(10,30),makecolor(random(1,255),random(1,255),random(1,255)),makecolor(random(1,255),random(1,255),random(1,255)),1)
    next num
    swap()
    img = getimage(0,0,1024,768)
    //SetImageTransparentColor(img,0,0,0)
endfunction img

// 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 KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
#constant KEY_SPACE	  = 32  //the space bar
#constant bulletLife   = 1.5
#constant Depth#=10

type _boxes
	id
	x#
	y#
	z#
	fired
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
    towerNum as integer
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#)
			if objectraycast(0,x#-.1,y#-.1,z#-.4,x#+.1,y#+.1,z#+.4) =0
				empty.id = InstanceObject(box)
				empty.x#=x#
				empty.y#=y#
				empty.z#=z#
				empty.fired=0
				boxes.insert(empty)
				SetObjectVisible(boxes[boxnumber].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
			endif
		next
	next

shipBlock=LoadObject("greenrocket.x")
shipTexture=LoadImage("greenrocket_D.png")
SetObjectImage(shipBlock,shipTexture,0)
SetObjectScale(shipblock,.1,.1,.1)
SetObjectRotation(shipblock,-45,0,0)

SetObjectCollisionMode(shipBlock,1)
//Create3DPhysicsKinematicBody(shipBlock)
world=loadObject("sphere.obj")
SetObjectScale(world,1.60,1.60,1.60)
//SetObjectVisible(world,0)
SetObjectCollisionMode(world,1)
FixObjectToObject(world,box)
texture=LoadImage("world.png")

global missileObject,missileImage
missileObject=LoadObject("missile.x")
missileImage=loadImage("missile_D.png")
SetObjectImage(missileObject,missileImage,0) 
SetObjectScalePermanent(missileObject,.04,.04,.04) 
SetObjectImage(world,texture,0)

explosionImage = LoadImage ("explosion.png")
explosionSpr=CreateSprite(explosionImage)
SetSpriteImage(explosionSpr,explosionImage)
SetSpriteAnimation(explosionSpr,256,256,25)
SetSpriteSize(explosionSpr,256,256)
SetSpritePositionByOffset(explosionSpr,512,275)
SetSpriteVisible(explosionSpr,0)			

smokeImage = LoadImage ("smoke.png")

lives=5:bulletcount=0:state=0


Set3DPhysicsGravity( 0, 0, 0 ) 
//SetObjectColor(world,0,255,0,255)
SetObjectPosition(shipBlock,0,5,-10)
do 
	
	if GetRawKeyState(KEY_UP)
		moveWorld(box,-2,0,0)
	endif
	if GetRawKeyState(KEY_DOWN)
		moveWorld(box,2,0,0)
	endif
	if GetRawKeyState(KEY_LEFT)
		moveWorld(box,0,0,-1)
	endif
	if GetRawKeyState(KEY_RIGHT)
		moveWorld(box,0,0,1)
	endif
	if GetrawkeyPressed(KEY_SPACE)
	endif
	
	for num =0 to boxnumber-1
		//shoot at plane if in range
		towerNum=num
		if boxes[towerNum].fired=0 and getDistance(boxes[towerNum].id,shipBlock)<6 
			boxes[towerNum].fired=1
			shootBullet( boxes[towerNum].id,shipBlock,towerNum, 20.0, 10.0)
		endif
	next num
	
	bulletNum=bulletCount
	for num=bulletNum to 1 step -1
		if state=0 and objectraycast(shipBlock,getObjectX(myBullet[num].ID)-0.15,getObjectY(myBullet[num].ID)-0.15,getObjectZ(myBullet[num].ID)-.15,getObjectX(myBullet[num].ID)+.15,getObjectY(shipBlock)+.15,getObjectZ(shipBlock)) 
			dec lives:state=1
		endif
		//remove old bullets
		if (myBullet[num].time)+bulletLife<timer() 
			DeleteObject(myBullet[num].ID)
			towerNum=myBullet[num].towerNum
			boxes[towerNum].fired=0
			myBullet.remove(num)
			dec bulletCount	
		endif
	next num
	
	if state=1
		partID=Create3DParticles( getObjectX(shipBlock),getObjectY(shipBlock),getObjectZ(shipBlock) ) 
		Set3DParticlesDirection( partID, 0,2, 0, 0 ) 
		Set3DParticlesDirectionRange( partID,275,45  ) 
		Set3DParticlesFrequency( partID, 100 )
		Set3DParticlesImage(partID,smokeImage)
		Set3DParticlesSize(partID,1)
		Set3DParticlesLife(partID,.25)
		Set3DParticlesVelocityRange(partID,1,10)
		Set3DParticlesMax(partID,150)
		state=2
	endif	
	
	if state=2 
		if getObjectZ(shipBlock)<-5
			SetObjectPosition(shipBlock,getObjectX(shipBlock),getObjectY(shipBlock),getObjectZ(shipBlock)+.1)
		else
			Delete3DParticles(partID) 
			SetSpriteVisible(explosionSpr,1)
			playSprite(explosionSpr,10,0)
			state=3
		endif
	endif
	
	if state=3 and GetSpritePlaying(explosionSpr)=0
		SetSpriteVisible(explosionSpr,0)
		SetObjectPosition(shipBlock,0,5,-10)
		state=0
	endif
	
	
    Print("Move using arrow keys they will aim at you")
    Print("and will shoot if your close")
    Print (lives)
    Step3DPhysicsWorld()
    print(state) 
    Print( ScreenFPS() )
    Sync()
loop

function moveWorld(objID as integer,ax#,ay#,az#)
	RotateObjectGlobalX(objID,ax#)
	RotateObjectGlobalY(objID,ay#)
	RotateObjectGlobalZ(objID,az#)	
endfunction


function shootBullet(objectId as integer,objectID2 as integer,towerNum 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 )
    bullet=InstanceObject(missileObject) 
    SetObjectImage(bullet,missileImage,0) 

    //SetObjectColor( bullet, 255, 0,0,255 )
    SetObjectPosition( bullet, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(bullet,GetObjectAngleX(projectileDirBox),GetObjectAngleY(projectileDirBox),GetObjectAngleZ(projectileDirBox))
    DeleteObject( projectileDirBox )
    //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
	myItem.towerNum=towerNum
	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 ) 
	DeleteVector3(vec1)
	DeleteVector3(vec2)
endfunction distance

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

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Mesh Template" )
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 ang#, angx#, angy#, fDiffY#, startx#, starty#, camerax#,cameray#,cameraz#,memblock, numberofcubes, inventorycubecount

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

size#=5
bladesize#=.2
heaviness#=1 // higher the more fuller

// Heavy Grass
y#=0
for x#=0 to size# step bladesize#
	for z#=0 to size# step bladesize#
		CreateMeshObjectGrassBladeWithColor(x#,0,z#,bladesize#,random2(0,heaviness#),MakeColor(0,random(100-50,100),0))
	next
next
object = CreateObjectFromMeshWithColor(MeshID)

grass as integer[]
i=0
for wx#=-20 to 20
	for wz#=-20 to 20
		grass.insert(InstanceObject(object))
		SetObjectPosition(grass[i],wx# * size#, 0, wz# * size#)
		inc i
	next
next
do
//	RotateObjectLocalX(object,1)
//	RotateObjectLocalY(object,1)
//	RotateObjectLocalZ(object,1)
	
	movecamerawithmouse()
    Print( ScreenFPS() )
    Sync()
loop


function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.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 CreateMeshObjectGrassBladeWithColor(x#, y#, z#, Width#, Height#, Color)
	
	top=random(-1,1)  // add a movement
	AddVertex(MeshID, x#				,y#					,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#/2+top		,y#+height#		,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#			,y#					,z#			, 0,1,0, 0,0,Color)

	AddVertex(MeshID, x#				,y#					,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#			,y#					,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#/2+top		,y#+height#+top			,z#			, 0,1,0, 0,0,Color)

	AddVertex(MeshID, x#+width#/2+top		,y#					,z#-width#/2+top			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#/2+top		,y#					,z#+width#/2+top			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#/2+top		,y#+height#+top			,z#			, 0,1,0, 0,0,Color)
	
	AddVertex(MeshID, x#+width#/2+top		,y#					,z#-width#/2+top			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#/2+top		,y#+height#+top		,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#/2+top		,y#					,z#+width#/2+top			, 0,1,0, 0,0,Color)


endfunction MeshID


function CreateMeshObjectBoxWithColor(x#, y#, z#, Width#, Height#, Depth#, Color)
	
//Front Face	
	AddVertex(MeshID, x#			,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#			, 0,1,0, 0,0,Color)	

// Left
	AddVertex(MeshID, x#			,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#			,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#			,z#-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, x#+width#		,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#			,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#			,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#-depth#	, 0,1,0, 0,0,Color)
	
//back
	AddVertex(MeshID, x#			,y#			,z#-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#			,z#-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, x#+width#		,y#			,z#-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, x#			,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#			,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#			,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#			,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#			,z#-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, x#			,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#+width#		,y#+height#	,z#-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, x#			,y#+height#	,z#-depth#	, 0,1,0, 0,0,Color)
	



endfunction MeshID

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2) 


// create the cube 

	AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,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 AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

Function CreateObjectFromMeshWithColor(m ref as mesh)
	VertexCount = m.VertexList.Length + 1
	IndexCount = (m.TriangleList.Length + 1) * 2
	IndexOffset = 72 + VertexCount*36
	memblock = CreateMemblock(IndexOffset+IndexCount*4)
	SetMemblockInt(memblock,0,VertexCount)
	SetMemblockInt(memblock,4,IndexCount)
	SetMemblockInt(Memblock,8,4)
	SetMemblockInt(memblock,12,32) // no color - 36 if color
	SetmemblockInt(memblock,16,72)
	SetMemblockInt(memblock,20,IndexOffset)
	SetMemblockInt(memblock,24,0x0c000300)
	SetMemblockString(Memblock,28,"position")
	SetMemblockInt(memblock,40,0x08000300)
	SetMemblockString(memblock,44,"normal")
	SetMemblockInt(memblock,52,0x04000200)
	SetMemblockString(memblock,56,"uv")
	SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
	SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
		for i = 0 to m.VertexList.Length
		SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
		SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
		SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
		SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
		SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
		SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
		SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
		SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
	next
	
	for i = 0 to m.TriangleList.Length
		SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
		SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
		SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
	next
	id = CreateObjectFromMeshMemblock(memblock)
//	DeleteMemblock(memblock)
endfunction id


Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, mode)
	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)

	if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
 #constant PI# = 3.14159265359
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
 
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
CubeD = LoadImage("\media\cube.png")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1

		CreateMeshObjectBoxWithTexture(5,0,0,3,5,2)
		CreateMeshObjectConeWithTexture(10,9,5,1)


object = CreateObjectFromMeshWithUVTexturing(MeshID,CubeD)

SetObjectScale(object,.4,.4,.4) 
do
 //   RotateObjectLocalX(object,.1)
    RotateObjectLocalY(object,.05)
   RotateObjectLocalZ(object,.05)
     
    Print( ScreenFPS() )
    Sync()
loop


function createMeshObjectCylinderWithTexture(height#, diameter#, segments#)
	
	
	
endfunction
function CreateMeshObjectConeWithTexture(height#, segments#, Radius#, Bottom)
	
	color=MakeColor(255,255,255) // doesnt use color but the AddVertex requires it 
	faces = segments# * 2
	SegX# = 2 * PI# / segments#

	for i = 0 to segments#
		
		nxt = i+1
		if (nxt >= segments#) then nxt=0
	
		AddVertex(MeshID, 0								, height#/2.0	,0						, 0,1,0, .5,.5,Color)
			
		AddVertex(MeshID, SinRad(-SegX#*i)*radius#		,-height#/2.0	,CosRad(-SegX#*i) * radius#, sinrad( -SegX#*i),abs(radius#)/height#,cosRad(-SegX#*i),SinRad( -SegX# * i ) /2.0 +.5, CosRad(-SegX# * i)/2.0 + .5,Color)
			
		AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#	,-height#/2.0	,CosRad(-SegX#*nxt) * radius#, SinRad(-SegX#*nxt),abs(radius#)/height#,CosRad(-SegX# * nxt),SinRad(-SegX# * (i+1) )/2.0 + .5, CosRad(-SegX#*(i+1)) /2.0+.5,Color)
	next
	
	
	if bottom=1 
		
		for i = 0 to segments#
		
			nxt = i+1
			if (nxt >= segments#) then nxt=0
	
			AddVertex(MeshID, SinRad(-SegX#*i)*radius#		,-height#/2.0	,CosRad(-SegX#*i) * radius#, 0,-height#,0,SinRad( -SegX#*i) /2.0+.5,CosRad(-SegX#*i)/2.0+.5,Color)

			AddVertex(MeshID, 0								, -height#/2.0	,0						, 0,-height#,0, .5,.5,Color)
			
			AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#	,-height#/2.0	,CosRad(-SegX#*nxt) * radius#, 0,-height#,0,SinRad(-SegX#*(i+1))/2.0+.5,CosRad(-SegX#*(i+1))/2.0+.5,Color)
		next
	endif

endfunction MeshID
 
 function CreateMeshObjectBoxWithTexture(X#, Y#, Z#, Width#, Height#, Depth#)
	Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
	
	
//Front Face	
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)	

// Left
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	


// Right
	AddVertex(MeshID, X#+width#		,y#				,Z#		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0		, 1,0,Color)
	


//back
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0, 0,1,Color)


// top
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#	, 0,1,0, 1,0,Color)
	


//bottom
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

 
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,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 AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    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

attribute vec4 position;
attribute vec4 color;
attribute vec2 uv;

varying vec2 uvVarying;
varying vec4 colorVarying;
varying vec3 posVarying;

uniform mat4 agk_Ortho;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;

void main()
{ 
	//gl_Position = agk_Ortho * position;
	highp vec4 pos = agk_World * vec4(position);
	gl_Position = agk_ViewProj * pos;
	posVarying = position.xyz;
	uvVarying = uv;
	colorVarying = color;
}

#ifdef GL_ES
precision mediump float;
#endif

#extension GL_OES_standard_derivatives : enable

#define NUM_OCTAVES 16

uniform float time;
uniform vec2 resolution;

mat3 rotX(float a) {
	float c = cos(a);
	float s = sin(a);
	return mat3(
		1, 0, 0,
		0, c, -s,
		0, s, c
	);
}
mat3 rotY(float a) {
	float c = cos(a);
	float s = sin(a);
	return mat3(
		c, 0, -s,
		0, 1, 0,
		s, 0, c
	);
}

float random(vec2 pos) {
	return fract(sin(dot(pos.xy, vec2(12.9898, 78.233))) * 43758.5453123);
}

float noise(vec2 pos) {
	vec2 i = floor(pos);
	vec2 f = fract(pos);
	float a = random(i + vec2(0.0, 0.0));
	float b = random(i + vec2(1.0, 0.0));
	float c = random(i + vec2(0.0, 1.0));
	float d = random(i + vec2(1.0, 1.0));
	vec2 u = f * f * (3.0 - 2.0 * f);
	return mix(a, b, u.x) + (c - a) * u.y * (1.0 - u.x) + (d - b) * u.x * u.y;
}

float fbm(vec2 pos) {
	float v = 0.0;
	float a = 0.5;
	vec2 shift = vec2(100.0);
	mat2 rot = mat2(cos(0.5), sin(0.5), -sin(0.5), cos(0.5));
	for (int i=0; i<NUM_OCTAVES; i++) {
		v += a * noise(pos);
		pos = rot * pos * 2.0 + shift;
		a *= 0.5;
	}
	return v;
}

void main(void) {
	vec2 p = (gl_FragCoord.xy * 2.0 - resolution.xy) / min(resolution.x, resolution.y);

	float t = 0.0, d;
	
	float time2 = 3.0 * time / 2.0;
	
	vec2 q = vec2(0.0);
	q.x = fbm(p + 0.00 * time2);
	q.y = fbm(p + vec2(1.0));
	vec2 r = vec2(0.0);
	r.x = fbm(p + 1.0 * q + vec2(1.7, 9.2) + 0.15 * time2);
	r.y = fbm(p + 1.0 * q + vec2(8.3, 2.8) + 0.126 * time2);
	float f = fbm(p + r);
	vec3 color = mix(
		vec3(0.101961, 1.866667, 0.319608),
		vec3(0.366667, 1.598039, 0.366667),
		clamp((f * f) * 4.0, 0.0, 1.0)
	);

	color = mix(
		color,
		vec3(0, 0, 0.164706),
		clamp(length(q), 0.0, 1.0)
	);


	color = mix(
		color,
		vec3(0.666667, 1, 0.6),
		clamp(length(r.x), 0.0, 1.0)
	);

	color = (f *f * f + 0.6 * f * f + 0.5 * f) * color;
	
	gl_FragColor = vec4(color, 1.0);
}

SetWindowTitle( "Explosion" )
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 KEY_SPACE	  = 32  //the space bar
#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
SetGenerateMipmaps( 1 )

type face
	ID as integer
	x as float
	y as float
	z as float
	xOld as float
	yOld as float
	zOld as float
	xAng as float
	yAng as float
	zAng as float
	xAngOld as float
	yAngOld as float
	zAngOld as float
	time as float //to be implimented
endtype

global faces as face[]

CreateObjectBox(10,2,2,2)
SetObjectColor(10,0,255,0,255)

// main loop
do
		if GetRawKeyState(KEY_LEFT) then MoveObjectLocalX(10,-1)
		if GetRawKeyState(KEY_RIGHT) then MoveObjectLocalX(10,1)
		if GetRawKeyState(KEY_UP) then MoveObjectLocalY(10,1)
		if GetRawKeyState(KEY_DOWN) then MoveObjectLocalY(10,-1)
		if GetRawKeyPressed(KEY_SPACE) then explosionSetup(10)
			
			
		if faces.length+1 >0 then updateExplosion()
		//if faces.length <=1 then explosionSetup(10) 
		if faces.length <=1  then SetObjectVisible(10,1) 
		
		Print ("Move green block with arrow keys")
		Print ("Press space to self destruct")
		
        sync()
loop

function updateExplosion()
	SetObjectVisible(10,0)
	for num =0 to faces.length-1
		SetObjectVisible(faces[num].ID,1)
		if faces[num].x > faces[num].xOld 
			offsetX=random(0,1)
		else 
			offsetX=-random(0,1)
		endif	
		if faces[num].y > faces[num].yOld 
			offsetY=random(0,1)
		else 
			offsetY=-random(0,1)
		endif	
		if faces[num].z > faces[num].zOld 
			offsetZ=random(0,1)
		else 
			offsetZ=-random(0,1)
		endif	
		SetObjectPosition(faces[num].ID,faces[num].x+offsetX,faces[num].y+offsetY,faces[num].z+offsetZ)
		faces[num].x=GetObjectX(faces[num].ID)
		faces[num].y=GetObjectY(faces[num].ID)
		faces[num].z=GetObjectZ(faces[num].ID)
		if faces[num].xAng > faces[num].xAngOld 
			offsetAngX=random(0,10)
		else 
			offsetAngX=-random(0,10)
		endif	
		if faces[num].yAng > faces[num].yAngOld 
			offsetAngY=random(0,10)
		else 
			offsetAngY=-random(0,10)
		endif	
		if faces[num].zAng > faces[num].zAngOld 
			offsetAngZ=random(0,10)
		else 
			offsetAngZ=-random(0,10)
		endif	
		SetObjectRotation(faces[num].ID,faces[num].xAng+offsetAngX,faces[num].yAng+offsetAngY,faces[num].zAng+offsetAngZ)
		faces[num].xAng=GetObjectAngleX(faces[num].ID)
		faces[num].yAng=GetObjectAngleY(faces[num].ID)
		faces[num].zAng=GetObjectAngleZ(faces[num].ID)
		if timer()>faces[num].time+1
			deleteObject(faces[num].ID)
			faces.remove(num)
		endif
	next num	
endfunction

function explosionSetup(id as integer)
myFace as face
myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id),getObjectZ(id)+1)
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id),getObjectZ(id)-1)
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(.25,2,2)
SetObJectPosition(myFace.ID,getObjectX(id)-1,getObjectY(id),getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(.5,2,2)
SetObJectPosition(myFace.ID,getObjectX(id)+1,getObjectY(id),getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id)+1,getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id)+90,GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id)-1,getObjectZ(id))
SetObjectRotation(myFace.ID,GetObjectAngleX(id)+90,getObjectY(id),getObjectZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

for num =0 to faces.length-1
	faces[num].x=faces[num].x+Random2(-2,2)
	faces[num].y=faces[num].y+Random2(-2,2)
	faces[num].z=faces[num].z+Random2(-2,2)
	faces[num].xAng=faces[num].xAng+Random2(-2,2)
	faces[num].yAng=faces[num].yAng+Random2(-2,2)
	faces[num].zAng=faces[num].zAng+Random2(-2,2)
next num
	
endfunction

// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "gyro-mouse" )
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(0)
SetSpriteSize(spr,10,10)
SetSpriteColor(spr,255,255,255,255)
SetSpritePosition(spr,100,100)
do 
	print(str(GetDirectionX()))
	SetSpritePositionByOffset(spr,GetDirectionX()*(GetDeviceWidth()/2.0)+(GetDeviceWidth()/2.0),GetDirectionY()*(GetDeviceHeight()/2.0)+(GetDeviceHeight()/2.0))
	sync()
loop

SetSpritePositionByOffset(spr,GetDirectionX()*(GetDeviceWidth()/2.0)+(GetDeviceWidth()/2.0),GetDirectionY()*(GetDeviceHeight()/2.0)+(GetDeviceHeight()/2.0))

SetSpritePositionByOffset(spr,GetDirectionX()*(GetDeviceWidth()/2.0)+(GetDeviceWidth()/2.0),-(GetDirectionY()-.45)*(GetDeviceHeight()*.45)+(GetDeviceHeight()*.65))

// Project: encrypter 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "encrypter" )
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 size = 128
global encryptionkey as integer[size,size]

generatebitmask(size,size)



//LoadObject("\media\cube.obj")

	for x=0 to size
		for y=0 to size
				c=MakeColor(encryptionkey[x,y],encryptionkey[x,y],encryptionkey[x,y])
				DrawLine(x,y,x,y,c,c,c)
		next
	next
		
	file = OpenToRead("\media\cube.obj")
	newfile = OpenToWrite("\media\cube.agm")
	WriteLine(newfile,"AGM!")
	writebyte(newfile,size)
	WriteLine(newfile,"cube.obj")
	WriteInteger(newfile, GetFileSize(file))
	
	enclocx=0
	enclocy=0
	
	while not FileEOF(file)
	
		WriteByte(newfile,encryptionkey[enclocx,enclocy])
		WriteInteger(newfile, ReadInteger(file) ~~ encryptionkey[enclocx,enclocy])
		
		inc enclocx
		if enclocx>size 
			enclocx=0
			inc enclocy
		endif
		if enclocy>size
			enclocx=0
			enclocy=0
		endif
		
		
	endwhile
	WriteLine(newfile,"AGM!")
	CloseFile(newfile)
	CloseFile(file)


do
	print ("CUBE.AGM - created")
    Print( ScreenFPS() )
    Sync()
loop

function generatebitmask(sizex,sizey)
	
	for x=0 to sizex
		for y=0 to sizey
			encryptionkey[x,y]=random2(0,255)
				
		next
	next
	
	
	
endfunction

// Project: encrypter 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "encrypter" )
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 size = 128
global encryptionkey as integer[size,size]

generatebitmask(size,size)



//LoadObject("\media\cube.obj")

	for x=0 to size
		for y=0 to size
				c=MakeColor(encryptionkey[x,y],encryptionkey[x,y],encryptionkey[x,y])
				DrawLine(x,y,x,y,c,c,c)
		next
	next
		
	file = OpenToRead("\media\cube.obj")
	newfile = OpenToWrite("\media\cube.agm")
	WriteLine(newfile,"AGM!")
	writebyte(newfile,size)
	WriteLine(newfile,"cube.obj")
	WriteInteger(newfile, GetFileSize(file))
	
	enclocx=0
	enclocy=0
	
	while not FileEOF(file)
	
		WriteByte(newfile,encryptionkey[enclocx,enclocy])
		WriteInteger(newfile, ReadInteger(file) ~~ encryptionkey[enclocx,enclocy])
		
		inc enclocx
		if enclocx>size 
			enclocx=0
			inc enclocy
		endif
		if enclocy>size
			enclocx=0
			enclocy=0
		endif
		
		
	endwhile
	WriteLine(newfile,"AGM!")
	CloseFile(newfile)
	CloseFile(file)


do
	print ("CUBE.AGM - created")
    Print( ScreenFPS() )
    Sync()
loop

function generatebitmask(sizex,sizey)
	
	for x=0 to sizex
		for y=0 to sizey
			encryptionkey[x,y]=random2(0,255)
				
		next
	next
	
	
	
endfunction

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "enctest" )
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 size = 128
global encryptionkey as integer[size,size]

package("assets.agm")

do
    Print( ScreenFPS() )
    Sync()
loop


function generatebitmask(sizex,sizey)
	
	for x=0 to sizex
		for y=0 to sizey
			encryptionkey[x,y]=random2(200,255)
				
		next
	next
endfunction

function package(filename$)
	generatebitmask(size,size)

	newfile = OpenToWrite(filename$)

	fn$=GetFirstFile()
	while fn$<>""
		if fn$<>"bytecode.byc" and fn$<>filename$ // dont encrypt the bytecode or itself (if ever it finds them)
			file = OpenToRead(fn$)
			WriteLine(newfile,"AGM!")
			writebyte(newfile,size)
			WriteLine(newfile,fn$)
			WriteInteger(newfile, GetFileSize(file))

			enclocx=0
			enclocy=0
			length=GetFileSize(file)
			for a=0 to length
				WriteByte(newfile,encryptionkey[enclocx,enclocy])
				WriteByte(newfile, (ReadByte(file) ~~ (encryptionkey[enclocx,enclocy]+a)) ~~a)
				
				inc enclocx
				if enclocx>size 
					enclocx=0
					inc enclocy
				endif
				if enclocy>size
					enclocx=0
					enclocy=0
				endif
		
		
			next
			WriteLine(newfile,"AGM!")
	
			CloseFile(file)
		endif
		fn$=GetNextFile()
	endwhile

	CloseFile(newfile)
endfunction

// Project: enctest 
// Created: 2018-11-17

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "enctest" )
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 _strings
	id
	txt
	fontsize
	x
	y
	rotate#
	angle#
	colorred
	colorgreen
	colorblue
	coloralpha
endtype
global strings as _strings[]



unpackage("assets.agm")

// What do we think is inside the Assets.agm
cube = AGM_LoadObject("cube.obj")
cone = AGM_LoadObject("cone.obj")
ico = AGM_LoadObject("ico.obj")


cubepng=AGM_LoadImage("cobe.png")
conepng=AGM_LoadImage("cone.png")
icopng=AGM_LoadImage("ico.png")

music = AGM_LoadMusic(1, "overworld.ogg")

agm_loadstrings("strings.txt")

SetObjectPosition(cube,-10,0,0)
SetObjectPosition(cone,0,0,0)
SetObjectPosition(ico,10,0,0)

SetObjectImage(cube,cubepng,0)
SetObjectImage(cone,conepng,0)
SetObjectImage(ico,icopng,0)




c=CreateObjectBox(2,2,2)
SetObjectImage(c,conepng,0)
SetObjectPosition(c,-10,4,0)
c=CreateObjectBox(2,2,2)
SetObjectImage(c,cubepng,0)
SetObjectPosition(c,0,4,0)
c=CreateObjectBox(2,2,2)
SetObjectImage(c,icopng,0)
SetObjectPosition(c,10,4,0)

PlayMusicOGG(music)
do
	
	
	for a=0 to strings.length
		SetTextPosition(strings[a].id,strings[a].x,strings[a].y)
	
		SetTextAngle(strings[a].id,strings[a].angle#)
		inc strings[a].angle#,strings[a].rotate#
		
	next

    Print( ScreenFPS() )
    Sync()
loop


function AGM_loadstrings(filename$)
	s as _strings
	
	file  = OpenToRead(filename$)
	
	while not FileEOF(file)
		line$=ReadLine(file)
		s.id = CreateText(GetStringToken(line$,",",1))
		s.fontsize = val(GetStringToken(line$,",",2))
		s.x		= val(GetStringToken(line$,",",3))
		s.y		= val(GetStringToken(line$,",",4))
		s.rotate#		= ValFloat(GetStringToken(line$,",",5))
		s.colorred = val(GetStringToken(line$,",",6))
		s.colorgreen = val(GetStringToken(line$,",",7))
		s.colorblue = val(GetStringToken(line$,",",8))
		s.coloralpha = val(GetStringToken(line$,",",9))
		
		SetTextColor(s.id,s.colorred,s.colorgreen,s.colorblue,s.coloralpha)
		SetTextSize(s.id,s.fontsize)
		
		strings.insert(s)
		
		
	endwhile
	
	CloseFile(file)	
		
	DeleteFile(filename$)
	
endfunction


function AGM_LoadMusic(id, file$)
	
	LoadMusicOGG(id,file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadObject(file$)
	id = LoadObject(file$)
	DeleteFile(file$)
endfunction id

function AGM_LoadImage(file$)
	id = LoadImage(file$)
	DeleteFile(file$)
endfunction id


function unpackage(filename$)

	newfile = OpenToRead(filename$)
  	while not FileEOF(newfile)
		if (readLine(newfile)="AGM!") 
		
			size = readbyte(newfile)

			Dim encryptionkey [size,size]

			fn$ = readLine(newfile)
			length = readInteger(newfile)
			file = OpenToWrite(fn$) 	
			
				enclocx=0
				enclocy=0
	
				for a=0 to length
					encryptionkey[enclocx,enclocy] = ReadByte(newfile)
					if (fn$<>filename$) 
							WriteByte(file, (ReadByte(newfile) ~~ encryptionkey[enclocx,enclocy]+a) ~~a)
					else
						print("ERROR: Bad " + filename$ + " AGM format")
						sync()
						sleep(4000)
						exitfunction
					endif
					inc enclocx
					if enclocx>size 
						enclocx=0
						inc enclocy
					endif
					if enclocy>size
						enclocx=0
						enclocy=0
					endif
		
		
				next
				ReadLine(newfile)
			CloseFile(file)
		else
//			print("ERROR: Bad " + filename$ + " AGM format")
	//		sync()
		//	sleep(4000)
			//exitfunction

		endif
	endwhile
	CloseFile(newfile)
endfunction

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
 noise=LoadImage("noise.png") 
 
createShader()
spr=CreateSprite(noise)
SetSpriteSize(spr,1024,768)
shader=LoadSpriteShader("pixelize.ps")
SetSpriteShader( spr,shader )
SetShaderConstantByName( Shader,"mouse",0,0,0,0)
SetShaderConstantByName( shader,"iResolution",1024,768,0,0 )
do
	SetShaderConstantByName( Shader,"mouse",GetPointerX()/500,GetPointerY()/300,0,0)
    sync()  
loop
  
function createShader()

file = OpenToWrite("pixelize.ps")
WriteLine(file,"#ifdef GL_ES")
WriteLine(file,"precision mediump float;")
WriteLine(file,"#endif")
WriteLine(file,"#extension GL_OES_standard_derivatives : enable")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"uniform float agk_time;")
WriteLine(file,"uniform vec2 mouse;")
WriteLine(file,"uniform vec2 iResolution;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec2 i = floor(uvVarying.xy * 30.) + sin(agk_time);")
WriteLine(file,"gl_FragColor =vec4(mod(i.x * i.y + sin(agk_time),1.0 + mouse.x + sin(agk_time)));")
WriteLine(file,"}")
CloseFile(file)
endfunction

SetWindowSize( 1024, 768, 0 )
SetVirtualResolution( 1024, 768 )
// noise=LoadImage("noise.png") 
 
shipSpr=createSprite(0)
SetSpritePosition(shipSpr,300,300)
SetSpriteColor(shipSpr,255,255,0,255)
SetSpriteSize(shipSpr,80,30) 
SetSpriteDepth(shipSpr,0)

shipSpr2=createSprite(0)
SetSpritePosition(shipSpr2,500,300)
SetSpriteColor(shipSpr2,0,255,255,255)
SetSpriteSize(shipSpr2,80,30) 
SetSpriteDepth(shipSpr2,0)

createShader()
waterSpr=CreateSprite(0)
SetSpriteSize(waterSpr,1024,768)
SetSpriteDepth(waterSpr,10)
shader=LoadSpriteShader("water.ps")
SetSpriteShader(waterSpr,shader)
SetShaderConstantByName( shader,"iResolution",1024,768,0,0 )
do
	x=getSpriteX(shipSpr):y=GetSpriteY(shipSpr)
	if pickColor(x+15,y+31)>55 
		SetSpritePosition(shipSpr,getSpriteX(shipSpr),GetSpriteY(shipSpr)-1)
	else
		SetSpritePosition(shipSpr,getSpriteX(shipSpr),GetSpriteY(shipSpr)+1)
	endif
	
	x2=getSpriteX(shipSpr2):y2=GetSpriteY(shipSpr2)
	if pickColor(x+15,y+31)>55 
		SetSpritePosition(shipSpr2,getSpriteX(shipSpr2),GetSpriteY(shipSpr2)-1)
	else
		SetSpritePosition(shipSpr2,getSpriteX(shipSpr2),GetSpriteY(shipSpr2)+1)
	endif
    sync()  
loop
  
function createShader()

file = OpenToWrite("water.ps")
WriteLine(file,"precision mediump float;")
WriteLine(file,"uniform float agk_time;")
WriteLine(file,"uniform vec2 iResolution;")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"vec2 p = (gl_FragCoord.xy / iResolution.xy) - .5;")
//WriteLine(file,"float sx = 0.2 * (p.x * p.x * 6. - .6) * sin(69. * p.x - 4. * agk_time * .5);")
WriteLine(file,"float sx = 0.075 * (p.x * p.x * 6. - .6) * sin(39. * p.x - 4. * agk_time * .5);")
WriteLine(file,"gl_FragColor =vec4(.05, .0, (5. / (420. * abs(p.y - sx))), 1);")
WriteLine(file,"}")
CloseFile(file)
endfunction

Function pickColor(X,Y)
    local color,img 
    //color as integer
    rem prepare image grab area
    clearScreen()
    render()
    
    img = getImage(X,Y,X+1,Y+1)
    
    rem create memblock
       
    mem = createMemblockfromImage(img)
    
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
    
       
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    clearScreen()
    color = makeColor(r,g,b)
    color=r+g+b
endfunction b

// Project: RubiksCube 
// Created: 2018-12-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "RubiksCube" )
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 KEY_SPACE        32
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40

#constant arrowLeft        1
#constant arrowRight       2
#constant arrowUp		   3
#constant arrowDown        4 
#constant solution         5 
  
#constant arrowLeftSpr1    1
#constant arrowLeftSpr2    2
#constant arrowLeftSpr3    3
#constant arrowRightSpr1   4
#constant arrowRightSpr2   5
#constant arrowRightSpr3   6
#constant arrowUpSpr1	   7
#constant arrowUpSpr2	   8
#constant arrowUpSpr3      9
#constant arrowDownSpr1    10 
#constant arrowDownSpr2    11 
#constant arrowDownSpr3    12 
#constant solutionSpr      13 
#constant loadBtn		   1
#constant saveBtn		   2
#constant shuffleBtn	   3 	

type cubePiece
	id as integer
	num as integer
	angleX as integer
	angleY as integer
	angleZ as integer
	x as integer
	y as integer
	z as integer
	startX as integer //used for checking if solved 
	startY as integer
	startZ as integer	
endtype 
	
global rubiks as cubePiece[27]
global solve as integer[100]
AddVirtualButton(loadBtn,895,290,75)
SetVirtualButtonColor(loadBtn,0,0,255)
SetVirtualButtonText(loadBtn,"Load")
AddVirtualButton(saveBtn,895,390,75)
SetVirtualButtonColor(saveBtn,0,0,255)
SetVirtualButtonText(saveBtn,"Save")
AddVirtualButton(shuffleBtn,895,490,75)
SetVirtualButtonColor(shuffleBtn,0,0,255)
SetVirtualButtonText(shuffleBtn,"Shufffle")


//front face start locations
rubiks[0].num=1:rubiks[0].x=-1:rubiks[0].y=1:rubiks[0].z=-1
rubiks[1].num=2:rubiks[1].x=0:rubiks[1].y=1:rubiks[1].z=-1
rubiks[2].num=3:rubiks[2].x=1:rubiks[2].y=1:rubiks[2].z=-1
rubiks[3].num=4:rubiks[3].x=-1:rubiks[3].y=0:rubiks[3].z=-1
rubiks[4].num=5:rubiks[4].x=0:rubiks[4].y=0:rubiks[4].z=-1
rubiks[5].num=6:rubiks[5].x=1:rubiks[5].y=0:rubiks[5].z=-1
rubiks[6].num=7:rubiks[6].x=-1:rubiks[6].y=-1:rubiks[6].z=-1
rubiks[7].num=8:rubiks[7].x=0:rubiks[7].y=-1:rubiks[7].z=-1
rubiks[8].num=9:rubiks[8].x=1:rubiks[8].y=-1:rubiks[8].z=-1

//middle start locations
rubiks[9].num=10:rubiks[9].x=-1:rubiks[9].y=1:rubiks[9].z=0
rubiks[10].num=11:rubiks[10].x=0:rubiks[10].y=1:rubiks[10].z=0
rubiks[11].num=12:rubiks[11].x=1:rubiks[11].y=1:rubiks[11].z=0
rubiks[12].num=13:rubiks[12].x=-1:rubiks[12].y=0:rubiks[12].z=0
rubiks[13].num=14:rubiks[13].x=0:rubiks[13].y=0:rubiks[13].z=0
rubiks[14].num=15:rubiks[14].x=1:rubiks[14].y=0:rubiks[14].z=0
rubiks[15].num=16:rubiks[15].x=-1:rubiks[15].y=-1:rubiks[15].z=0
rubiks[16].num=17:rubiks[16].x=0:rubiks[16].y=-1:rubiks[16].z=0
rubiks[17].num=18:rubiks[17].x=1:rubiks[17].y=-1:rubiks[17].z=0

//back start locations
rubiks[18].num=19:rubiks[18].x=-1:rubiks[18].y=1:rubiks[18].z=1
rubiks[19].num=20:rubiks[19].x=0:rubiks[19].y=1:rubiks[19].z=1
rubiks[20].num=21:rubiks[20].x=1:rubiks[20].y=1:rubiks[20].z=1
rubiks[21].num=22:rubiks[21].x=-1:rubiks[21].y=0:rubiks[21].z=1
rubiks[22].num=23:rubiks[22].x=0:rubiks[22].y=0:rubiks[22].z=1
rubiks[23].num=24:rubiks[23].x=1:rubiks[23].y=0:rubiks[23].z=1
rubiks[24].num=25:rubiks[24].x=-1:rubiks[24].y=-1:rubiks[24].z=1
rubiks[25].num=26:rubiks[25].x=0:rubiks[25].y=-1:rubiks[25].z=1
rubiks[26].num=27:rubiks[26].x=1:rubiks[26].y=-1:rubiks[26].z=1


triangle=createTriangleImage()
CreateSprite(arrowLeftSpr1,triangle):SetSpriteSize(arrowLeftSpr1,100,100):SetSpriteAngle(arrowLeftSpr1,-90)
CreateSprite(arrowLeftSpr2,triangle):SetSpriteSize(arrowLeftSpr2,100,100):SetSpriteAngle(arrowLeftSpr2,-90)
CreateSprite(arrowLeftSpr3,triangle):SetSpriteSize(arrowLeftSpr3,100,100):SetSpriteAngle(arrowLeftSpr3,-90)
CreateSprite(arrowRightSpr1,triangle):SetSpriteSize(arrowRightSpr1,100,100):SetSpriteAngle(arrowRightSpr1,90)
CreateSprite(arrowRightSpr2,triangle):SetSpriteSize(arrowRightSpr2,100,100):SetSpriteAngle(arrowRightSpr2,90)
CreateSprite(arrowRightSpr3,triangle):SetSpriteSize(arrowRightSpr3,100,100):SetSpriteAngle(arrowRightSpr3,90)
CreateSprite(arrowUpSpr1,triangle):SetSpriteSize(arrowUpSpr1,100,100)
CreateSprite(arrowUpSpr2,triangle):SetSpriteSize(arrowUpSpr2,100,100)
CreateSprite(arrowUpSpr3,triangle):SetSpriteSize(arrowUpSpr3,100,100)
CreateSprite(arrowDownSpr1,triangle):SetSpriteSize(arrowDownSpr1,100,100):SetSpriteAngle(arrowDownSpr1,180)
CreateSprite(arrowDownSpr2,triangle):SetSpriteSize(arrowDownSpr2,100,100):SetSpriteAngle(arrowDownSpr2,180)
CreateSprite(arrowDownSpr3,triangle):SetSpriteSize(arrowDownSpr3,100,100):SetSpriteAngle(arrowDownSpr3,180)
SetSpritePosition(arrowLeftSpr1,180,245)
SetSpritePosition(arrowLeftSpr2,180,345)
SetSpritePosition(arrowLeftSpr3,180,445)
SetSpritePosition(arrowRightSpr1,720,245)
SetSpritePosition(arrowRightSpr2,720,345)
SetSpritePosition(arrowRightSpr3,720,445)
SetSpritePosition(arrowUpSpr1,360,10)
SetSpritePosition(arrowUpSpr2,460,10)
SetSpritePosition(arrowUpSpr3,560,10)
SetSpritePosition(arrowDownSpr1,360,580)
SetSpritePosition(arrowDownSpr2,460,580)
SetSpritePosition(arrowDownSpr3,560,580)

createCubeObject()
obj=loadObject("Cube.obj")
img=createCubeTexture()

SetObjectImage(obj,img,0)
	
for num = 0 to 26
	rubiks[num].id=CloneObject(obj)
	SetObjectPosition(rubiks[num].id,rubiks[num].x,rubiks[num].y,rubiks[num].z)
	rubiks[num].startX=rubiks[num].x:rubiks[num].startY=rubiks[num].y:rubiks[num].startZ=rubiks[num].z
next
sync()
CreateSprite(solutionSpr,createSolvedImage())
SetSpriteSize(solutionSpr,418,446)
SetSpritePosition(solutionSpr,660,-150)
SetSpriteDepth(solutionSpr,11)
shuffle()
SetCameraPosition(1,0,3,-7)
do
	if ( GetPointerPressed ( ) = 1 )
        hit = GetSpriteHit(GetPointerX ( ), GetPointerY ( ) )
    endif
    
	If hit=arrowLeftSpr1//GetRawKeyState(KEY_Q)=1
		rotateTopRowAroundY() //:Sleep(250)
	endif	
	If hit=arrowLeftSpr2 //GetRawKeyState(KEY_A)=1
		rotateMiddleRowAroundY() //:Sleep(250) 
	endif	
	If hit=arrowLeftSpr3 //GetRawKeyState(KEY_Z)=1
		rotateBottomRowAroundY() //:Sleep(250)
	endif	
	
	If hit=arrowRightSpr1 //GetRawKeyState(KEY_W)=1
		rotate2TopRowAroundY() //:Sleep(250)
	endif	
	If hit=arrowRightSpr2 //GetRawKeyState(KEY_S)=1
		rotate2MiddleRowAroundY() //:Sleep(250)
	endif	
	If hit=arrowRightSpr3 //GetRawKeyState(KEY_X)=1
		rotate2BottomRowAroundY() //:Sleep(250)
	endif	
	
	If hit=arrowUpSpr1 //GetRawKeyState(KEY_E)=1
		rotateLeftColumaroundX() //:Sleep(250)
	endif
	If hit=arrowUpSpr2 //GetRawKeyState(KEY_R)=1
		rotateMiddleColumaroundX() //:Sleep(250)
	endif	
	If hit=arrowUpSpr3 //GetRawKeyState(KEY_T)=1
		rotateRightColumaroundX() //:Sleep(250)
	endif	
	
	If hit=arrowDownSpr1 //GetRawKeyState(KEY_D)=1
		rotate2LeftColumaroundX() //:Sleep(250)
	endif
	If hit=arrowDownSpr2 //GetRawKeyState(KEY_F)=1
		rotate2MiddleColumaroundX() //:Sleep(250)
	endif
	If hit=arrowDownSpr3 //GetRawKeyState(KEY_G)=1
		rotate2RightColumaroundX() //:Sleep(250)
	endif
	
	if GetVirtualButtonPressed(loadBtn)=1
		if GetFileExists("rubik.json")=1
			rubiks.load("rubik.json")
			for num = 0 to 26
				SetObjectPosition(rubiks[num].id,rubiks[num].x,rubiks[num].y,rubiks[num].z)
				SetObjectRotation(rubiks[num].id,rubiks[num].angleX,rubiks[num].angleY,rubiks[num].angleZ)
			next
		endif
    endif
	
	if GetVirtualButtonPressed(saveBtn)=1
		for num = 0 to 26
			rubiks[num].angleX=GetObjectAngleX(rubiks[num].id)
			rubiks[num].angleY=GetObjectAngleY(rubiks[num].id)
			rubiks[num].angleZ=GetObjectAngleZ(rubiks[num].id)
		next
        rubiks.save("rubik.json")        
    endif
    
    if GetRawKeyPressed(32)=1
		solve()
		sleep(100)
	endif	
    
	if GetVirtualButtonPressed(shuffleBtn)=1
		shuffle()
	endif
	hit=0
	
	Print( "RUBIKS CUBE PUZZLE" )
    Print( "Use the Arrow buttons" )
    Print( "to rotate cube pieces" )
    Print( "until it looks like ")
    Print( "the cube top right.")
    if isSolved() then Print("Solved")
    Sync()
loop


function getIdByLocation(x as integer,y as integer,z as integer)
	num=-1
	repeat
		inc num
	until rubiks[num].x=x and rubiks[num].y=y and rubiks[num].z=z
endfunction rubiks[num].id	

function setObjectNewlocation(id as integer,x as integer,y as integer,z as integer)
	num=-1
	repeat 
		inc num	
	until rubiks[num].id=id
	rubiks[num].x=x:rubiks[num].y=y:rubiks[num].z=z
	SetObjectPosition(rubiks[num].id,x,y,z)
endfunction	

function isSolved()
	num=-1:flag=1
	repeat
		inc num
		if rubiks[num].startX<>rubiks[num].x then flag=0
		if rubiks[num].startY<>rubiks[num].y then flag=0
		if rubiks[num].startZ<>rubiks[num].z then flag=0
	until num=26	
endfunction flag

function shuffle()
	for t = 1 to 100
	ran=(random(1,6))
	solve[t]=ran
	select ran
		case 1:
			rotateTopRowAroundY()
		endcase
		case 2:
			rotateMiddleRowAroundY()
		endcase
		case 3:
			rotateBottomRowAroundY()
		endcase
		case 4:
			rotateRightColumaroundX()
		endcase
		case 5:
			rotateMiddleColumaroundX()
		endcase
		case 6:
			rotateLeftColumaroundX()
		endcase
	endselect		
	next t			
endfunction

function solve()
	for t = 100 to 1 step -1
	ran=solve[t]
	select ran
		case 1:
			rotate2TopRowAroundY()
		endcase
		case 2:
			rotate2MiddleRowAroundY()
		endcase
		case 3:
			rotate2BottomRowAroundY()
		endcase
		case 4:
			rotate2RightColumaroundX()
		endcase
		case 5:
			rotate2MiddleColumaroundX()
		endcase
		case 6:
			rotate2LeftColumaroundX()
		endcase
	endselect
	sync():sleep(150)		
	next t			
endfunction


function rotateTopRowAroundY()
	id1=getIdByLocation(-1,1,-1) 
	id2=getIdByLocation(0,1,-1)  
	id3=getIdByLocation(1,1,-1)  
		
	id4=getIdByLocation(-1,1,0) 
	id5=getIdByLocation(0,1,0)  
	id6=getIdByLocation(1,1,0)  
		
	id7=getIdByLocation(-1,1,1) 
	id8=getIdByLocation(0,1,1)
	id9=getIdByLocation(1,1,1)  
		
	setObjectNewlocation(id1,-1,1,1):RotateObjectLocaly(id1,90)   
	setObjectNewlocation(id2,-1,1,0):RotateObjectLocaly(id2,90)  
	setObjectNewlocation(id3,-1,1,-1):RotateObjectLocaly(id3,90) 
		
	setObjectNewlocation(id4,0,1,1):RotateObjectLocaly(id4,90)   
	setObjectNewlocation(id5,0,1,0):RotateObjectLocaly(id5,90)   
	setObjectNewlocation(id6,0,1,-1):RotateObjectLocaly(id6,90)  
	
	setObjectNewlocation(id7,1,1,1):RotateObjectLocaly(id7,90)  
	setObjectNewlocation(id8,1,1,0):RotateObjectLocaly(id8,90)   
	setObjectNewlocation(id9,1,1,-1):RotateObjectLocaly(id9,90)  
endfunction	

function rotate2TopRowAroundY()
	id1=getIdByLocation(-1,1,-1) 
	id2=getIdByLocation(0,1,-1)  
	id3=getIdByLocation(1,1,-1)  
		
	id4=getIdByLocation(-1,1,0) 
	id5=getIdByLocation(0,1,0)  
	id6=getIdByLocation(1,1,0)  
		
	id7=getIdByLocation(-1,1,1) 
	id8=getIdByLocation(0,1,1)
	id9=getIdByLocation(1,1,1)  
		
	setObjectNewlocation(id1,1,1,-1):RotateObjectLocaly(id1,-90)   
	setObjectNewlocation(id2,1,1,0):RotateObjectLocaly(id2,-90)  
	setObjectNewlocation(id3,1,1,1):RotateObjectLocaly(id3,-90) 
		
	setObjectNewlocation(id4,0,1,-1):RotateObjectLocaly(id4,-90)   
	setObjectNewlocation(id5,0,1,0):RotateObjectLocaly(id5,-90)   
	setObjectNewlocation(id6,0,1,1):RotateObjectLocaly(id6,-90)  
	
	setObjectNewlocation(id7,-1,1,-1):RotateObjectLocaly(id7,-90)  
	setObjectNewlocation(id8,-1,1,0):RotateObjectLocaly(id8,-90)   
	setObjectNewlocation(id9,-1,1,1):RotateObjectLocaly(id9,-90)  
endfunction	

function rotateMiddleRowAroundY()
	id1=getIdByLocation(-1,0,-1) 
	id2=getIdByLocation(0,0,-1)  
	id3=getIdByLocation(1,0,-1)  
		
	id4=getIdByLocation(-1,0,0) 
	id5=getIdByLocation(0,0,0)  
	id6=getIdByLocation(1,0,0)  
		
	id7=getIdByLocation(-1,0,1) 
	id8=getIdByLocation(0,0,1)
	id9=getIdByLocation(1,0,1)  
		
	setObjectNewlocation(id1,-1,0,1):RotateObjectLocaly(id1,90)   
	setObjectNewlocation(id2,-1,0,0):RotateObjectLocaly(id2,90)  
	setObjectNewlocation(id3,-1,0,-1):RotateObjectLocaly(id3,90) 
		
	setObjectNewlocation(id4,0,0,1):RotateObjectLocaly(id4,90)   
	setObjectNewlocation(id5,0,0,0):RotateObjectLocaly(id5,90)   
	setObjectNewlocation(id6,0,0,-1):RotateObjectLocaly(id6,90)  
		
	setObjectNewlocation(id7,1,0,1):RotateObjectLocaly(id7,90)  
	setObjectNewlocation(id8,1,0,0):RotateObjectLocaly(id8,90)   
	setObjectNewlocation(id9,1,0,-1):RotateObjectLocaly(id9,90)
endfunction	

function rotate2MiddleRowAroundY()
	id1=getIdByLocation(-1,0,-1) 
	id2=getIdByLocation(0,0,-1)  
	id3=getIdByLocation(1,0,-1)  
		
	id4=getIdByLocation(-1,0,0) 
	id5=getIdByLocation(0,0,0)  
	id6=getIdByLocation(1,0,0)  
		
	id7=getIdByLocation(-1,0,1) 
	id8=getIdByLocation(0,0,1)
	id9=getIdByLocation(1,0,1)  
		
	setObjectNewlocation(id1,1,0,-1):RotateObjectLocaly(id1,-90)   
	setObjectNewlocation(id2,1,0,0):RotateObjectLocaly(id2,-90)  
	setObjectNewlocation(id3,1,0,1):RotateObjectLocaly(id3,-90) 
		
	setObjectNewlocation(id4,0,0,-1):RotateObjectLocaly(id4,-90)   
	setObjectNewlocation(id5,0,0,0):RotateObjectLocaly(id5,-90)   
	setObjectNewlocation(id6,0,0,1):RotateObjectLocaly(id6,-90)  
	
	setObjectNewlocation(id7,-1,0,-1):RotateObjectLocaly(id7,-90)  
	setObjectNewlocation(id8,-1,0,0):RotateObjectLocaly(id8,-90)   
	setObjectNewlocation(id9,-1,0,1):RotateObjectLocaly(id9,-90) 
endfunction	

function rotate2BottomRowAroundY()
	id1=getIdByLocation(-1,-1,-1) 
	id2=getIdByLocation(0,-1,-1)  
	id3=getIdByLocation(1,-1,-1)  
		
	id4=getIdByLocation(-1,-1,0) 
	id5=getIdByLocation(0,-1,0)  
	id6=getIdByLocation(1,-1,0)  
		
	id7=getIdByLocation(-1,-1,1) 
	id8=getIdByLocation(0,-1,1)
	id9=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id1,1,-1,-1):RotateObjectLocaly(id1,-90)   
	setObjectNewlocation(id2,1,-1,0):RotateObjectLocaly(id2,-90)  
	setObjectNewlocation(id3,1,-1,1):RotateObjectLocaly(id3,-90) 
		
	setObjectNewlocation(id4,0,-1,-1):RotateObjectLocaly(id4,-90)   
	setObjectNewlocation(id5,0,-1,0):RotateObjectLocaly(id5,-90)   
	setObjectNewlocation(id6,0,-1,1):RotateObjectLocaly(id6,-90)  
	
	setObjectNewlocation(id7,-1,-1,-1):RotateObjectLocaly(id7,-90)  
	setObjectNewlocation(id8,-1,-1,0):RotateObjectLocaly(id8,-90)   
	setObjectNewlocation(id9,-1,-1,1):RotateObjectLocaly(id9,-90) 
endfunction


function rotateBottomRowAroundY()
	id1=getIdByLocation(-1,-1,-1) 
	id2=getIdByLocation(0,-1,-1)  
	id3=getIdByLocation(1,-1,-1)  
		
	id4=getIdByLocation(-1,-1,0) 
	id5=getIdByLocation(0,-1,0)  
	id6=getIdByLocation(1,-1,0)  
		
	id7=getIdByLocation(-1,-1,1) 
	id8=getIdByLocation(0,-1,1)
	id9=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id1,-1,-1,1):RotateObjectLocaly(id1,90)   
	setObjectNewlocation(id2,-1,-1,0):RotateObjectLocaly(id2,90)  
	setObjectNewlocation(id3,-1,-1,-1):RotateObjectLocaly(id3,90) 
		
	setObjectNewlocation(id4,0,-1,1):RotateObjectLocaly(id4,90)   
	setObjectNewlocation(id5,0,-1,0):RotateObjectLocaly(id5,90)   
	setObjectNewlocation(id6,0,-1,-1):RotateObjectLocaly(id6,90)  
		
	setObjectNewlocation(id7,1,-1,1):RotateObjectLocaly(id7,90)  
	setObjectNewlocation(id8,1,-1,0):RotateObjectLocaly(id8,90)   
	setObjectNewlocation(id9,1,-1,-1):RotateObjectLocaly(id9,90)  
endfunction	

function rotateRightColumaroundX()
	id3=getIdByLocation(1,1,-1) 
	id6=getIdByLocation(1,0,-1)  
	id9=getIdByLocation(1,-1,-1)  
		
	id12=getIdByLocation(1,1,0) 
	id15=getIdByLocation(1,0,0)  
	id18=getIdByLocation(1,-1,0)  
		
	id21=getIdByLocation(1,1,1) 
	id24=getIdByLocation(1,0,1)
	id27=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id3,1,1,1):RotateObjectLocalX(id3,90)   
	setObjectNewlocation(id6,1,1,0):RotateObjectLocalX(id6,90)  
	setObjectNewlocation(id9,1,1,-1):RotateObjectLocalX(id9,90) 
		
	setObjectNewlocation(id12,1,0,1):RotateObjectLocalX(id12,90)   
	setObjectNewlocation(id15,1,0,0):RotateObjectLocalX(id15,90)   
	setObjectNewlocation(id18,1,0,-1):RotateObjectLocalX(id18,90)  
		
	setObjectNewlocation(id21,1,-1,1):RotateObjectLocalX(id21,90)  
	setObjectNewlocation(id24,1,-1,0):RotateObjectLocalX(id24,90)   
	setObjectNewlocation(id27,1,-1,-1):RotateObjectLocalX(id27,90)  
endfunction

function rotate2RightColumaroundX()
	id3=getIdByLocation(1,1,-1) 
	id6=getIdByLocation(1,0,-1)  
	id9=getIdByLocation(1,-1,-1)  
		
	id12=getIdByLocation(1,1,0) 
	id15=getIdByLocation(1,0,0)  
	id18=getIdByLocation(1,-1,0)  
		
	id21=getIdByLocation(1,1,1) 
	id24=getIdByLocation(1,0,1)
	id27=getIdByLocation(1,-1,1)  
		
	setObjectNewlocation(id3,1,-1,-1):RotateObjectLocalX(id3,-90)   
	setObjectNewlocation(id6,1,-1,0):RotateObjectLocalX(id6,-90)  
	setObjectNewlocation(id9,1,-1,1):RotateObjectLocalX(id9,-90) 
		
	setObjectNewlocation(id12,1,0,-1):RotateObjectLocalX(id12,-90)   
	setObjectNewlocation(id15,1,0,0):RotateObjectLocalX(id15,-90)   
	setObjectNewlocation(id18,1,0,1):RotateObjectLocalX(id18,-90)  
		
	setObjectNewlocation(id21,1,1,-1):RotateObjectLocalX(id21,-90)  
	setObjectNewlocation(id24,1,1,0):RotateObjectLocalX(id24,-90)   
	setObjectNewlocation(id27,1,1,1):RotateObjectLocalX(id27,-90)  
endfunction


function rotateMiddleColumaroundX()
	id3=getIdByLocation(0,1,-1) 
	id6=getIdByLocation(0,0,-1)  
	id9=getIdByLocation(0,-1,-1)  
		
	id12=getIdByLocation(0,1,0) 
	id15=getIdByLocation(0,0,0)  
	id18=getIdByLocation(0,-1,0)  
		
	id21=getIdByLocation(0,1,1) 
	id24=getIdByLocation(0,0,1)
	id27=getIdByLocation(0,-1,1)  
		
	setObjectNewlocation(id3,0,1,1):RotateObjectLocalX(id3,90)   
	setObjectNewlocation(id6,0,1,0):RotateObjectLocalX(id6,90)  
	setObjectNewlocation(id9,0,1,-1):RotateObjectLocalX(id9,90) 
		
	setObjectNewlocation(id12,0,0,1):RotateObjectLocalX(id12,90)   
	setObjectNewlocation(id15,0,0,0):RotateObjectLocalX(id15,90)   
	setObjectNewlocation(id18,0,0,-1):RotateObjectLocalX(id18,90)  
		
	setObjectNewlocation(id21,0,-1,1):RotateObjectLocalX(id21,90)  
	setObjectNewlocation(id24,0,-1,0):RotateObjectLocalX(id24,90)   
	setObjectNewlocation(id27,0,-1,-1):RotateObjectLocalX(id27,90)  
endfunction
	
function rotate2MiddleColumaroundX()
	id3=getIdByLocation(0,1,-1) 
	id6=getIdByLocation(0,0,-1)  
	id9=getIdByLocation(0,-1,-1)  
		
	id12=getIdByLocation(0,1,0) 
	id15=getIdByLocation(0,0,0)  
	id18=getIdByLocation(0,-1,0)  
		
	id21=getIdByLocation(0,1,1) 
	id24=getIdByLocation(0,0,1)
	id27=getIdByLocation(0,-1,1)  
		
	setObjectNewlocation(id3,0,-1,-1):RotateObjectLocalX(id3,-90)   
	setObjectNewlocation(id6,0,-1,0):RotateObjectLocalX(id6,-90)  
	setObjectNewlocation(id9,0,-1,1):RotateObjectLocalX(id9,-90) 
		
	setObjectNewlocation(id12,0,0,-1):RotateObjectLocalX(id12,-90)   
	setObjectNewlocation(id15,0,0,0):RotateObjectLocalX(id15,-90)   
	setObjectNewlocation(id18,0,0,1):RotateObjectLocalX(id18,-90)  
		
	setObjectNewlocation(id21,0,1,-1):RotateObjectLocalX(id21,-90)  
	setObjectNewlocation(id24,0,1,0):RotateObjectLocalX(id24,-90)   
	setObjectNewlocation(id27,0,1,1):RotateObjectLocalX(id27,-90)  
endfunction	

function rotateLeftColumaroundX()
	id3=getIdByLocation(-1,1,-1) 
	id6=getIdByLocation(-1,0,-1)  
	id9=getIdByLocation(-1,-1,-1)  
		
	id12=getIdByLocation(-1,1,0) 
	id15=getIdByLocation(-1,0,0)  
	id18=getIdByLocation(-1,-1,0)  
		
	id21=getIdByLocation(-1,1,1) 
	id24=getIdByLocation(-1,0,1)
	id27=getIdByLocation(-1,-1,1)  
		
	setObjectNewlocation(id3,-1,1,1):RotateObjectLocalX(id3,90)   
	setObjectNewlocation(id6,-1,1,0):RotateObjectLocalX(id6,90)  
	setObjectNewlocation(id9,-1,1,-1):RotateObjectLocalX(id9,90) 
		
	setObjectNewlocation(id12,-1,0,1):RotateObjectLocalX(id12,90)   
	setObjectNewlocation(id15,-1,0,0):RotateObjectLocalX(id15,90)   
	setObjectNewlocation(id18,-1,0,-1):RotateObjectLocalX(id18,90)  
		
	setObjectNewlocation(id21,-1,-1,1):RotateObjectLocalX(id21,90)  
	setObjectNewlocation(id24,-1,-1,0):RotateObjectLocalX(id24,90)   
	setObjectNewlocation(id27,-1,-1,-1):RotateObjectLocalX(id27,90)  	
endfunction

function rotate2LeftColumaroundX()
	id3=getIdByLocation(-1,1,-1) 
	id6=getIdByLocation(-1,0,-1)  
	id9=getIdByLocation(-1,-1,-1)  
		
	id12=getIdByLocation(-1,1,0) 
	id15=getIdByLocation(-1,0,0)  
	id18=getIdByLocation(-1,-1,0)  
		
	id21=getIdByLocation(-1,1,1) 
	id24=getIdByLocation(-1,0,1)
	id27=getIdByLocation(-1,-1,1)  
		
	setObjectNewlocation(id3,-1,-1,-1):RotateObjectLocalX(id3,-90)   
	setObjectNewlocation(id6,-1,-1,0):RotateObjectLocalX(id6,-90)  
	setObjectNewlocation(id9,-1,-1,1):RotateObjectLocalX(id9,-90) 
		
	setObjectNewlocation(id12,-1,0,-1):RotateObjectLocalX(id12,-90)   
	setObjectNewlocation(id15,-1,0,0):RotateObjectLocalX(id15,-90)   
	setObjectNewlocation(id18,-1,0,1):RotateObjectLocalX(id18,-90)  
		
	setObjectNewlocation(id21,-1,1,-1):RotateObjectLocalX(id21,-90)  
	setObjectNewlocation(id24,-1,1,0):RotateObjectLocalX(id24,-90)   
	setObjectNewlocation(id27,-1,1,1):RotateObjectLocalX(id27,-90) 
endfunction	

Function createCubeObject()
	file = OpenToWrite("cube.obj")
	WriteLine(file,"o Default")
	WriteLine(file,"v 0.475000 0.475000 -0.475000")
	WriteLine(file,"v -0.475000 -0.475000 -0.475000")
	WriteLine(file,"v -0.475000 0.475000 -0.475000")
	WriteLine(file,"v 0.475000 -0.475000 -0.475000")
	WriteLine(file,"v 0.475000 -0.475000 0.475000")
	WriteLine(file,"v -0.475000 -0.475000 0.475000")
	WriteLine(file,"v -0.475000 0.475000 0.475000")
	WriteLine(file,"v 0.475000 0.475000 0.475000")
	WriteLine(file,"vt 0.333333 0.333333")
	WriteLine(file,"vt 0.666667 0.000000")
	WriteLine(file,"vt 0.666667 0.333333")
	WriteLine(file,"vt 0.333333 0.000000")
	WriteLine(file,"vt 0.331333 1.000000")
	WriteLine(file,"vt 0.000000 0.668667")
	WriteLine(file,"vt 0.331333 0.668667")
	WriteLine(file,"vt 0.000000 1.000000")
	WriteLine(file,"vt 1.000000 0.333333")
	WriteLine(file,"vt 0.666667 0.666667")
	WriteLine(file,"vt 1.000000 0.666667")
	WriteLine(file,"vt 0.333333 0.666667")
	WriteLine(file,"vt 0.333333 1.000000")
	WriteLine(file,"vt 0.666667 1.000000")
	WriteLine(file,"vt 0.000000 0.666667")
	WriteLine(file,"vt 0.000000 0.333333")
	WriteLine(file,"vn 0.5774 0.5774 -0.5774")
	WriteLine(file,"vn -0.5774 -0.5774 -0.5774")
	WriteLine(file,"vn -0.5774 0.5774 -0.5774")
	WriteLine(file,"vn 0.5774 -0.5774 -0.5774")
	WriteLine(file,"vn 0.5774 -0.5774 0.5774")
	WriteLine(file,"vn -0.5774 -0.5774 0.5774")
	WriteLine(file,"vn -0.5774 0.5774 0.5774")
	WriteLine(file,"vn 0.5774 0.5774 0.5774")
	
	WriteLine(file,"s 1")
	WriteLine(file,"f 1/1/1 2/2/2 3/3/3")
	WriteLine(file,"f 4/4/4 2/2/2 1/1/1")
	WriteLine(file,"f 2/5/2 5/6/5 6/7/6")
	WriteLine(file,"f 4/8/4 5/6/5 2/5/2")
	WriteLine(file,"f 2/9/2 7/10/7 3/3/3")
	WriteLine(file,"f 6/11/6 7/10/7 2/9/2")
	WriteLine(file,"f 7/10/7 8/12/8 1/1/1")
	WriteLine(file,"f 3/3/3 7/10/7 1/1/1")
	WriteLine(file,"f 5/13/5 7/10/7 6/14/6")
	WriteLine(file,"f 5/13/5 8/12/8 7/10/7")
	WriteLine(file,"f 1/1/1 8/12/8 5/15/5")
	WriteLine(file,"f 1/1/1 5/15/5 4/16/4")
	CloseFile(file)
endfunction	

function createCubeTexture()
	yellow=makecolor(255,255,0) 	//yellow
	blue=makecolor(0,0,255)   		//blue
	white=makecolor(255,255,255) 	//white
	red=makecolor(255,0,0)     		//red
	green=makecolor(0,255,0)     	//green
	orange=makecolor(255,165,0)   	//orange
		
	ClearScreen()
	Sync()
	drawbox(0,0,519,519,white,white,white,white,1) 	
	
	drawBox(0,0,170,170,yellow,yellow,yellow,yellow,1)	
	drawBox(170,0,340,170,blue,blue,blue,blue,1)	
	drawbox(20,0,29,9,white,white,white,white,1)
	drawbox(0,171,170,341,red,red,red,red,1)
	drawbox(170,171,340,341,green,green,green,green,1)
	drawbox(341,171,511,341,orange,orange,orange,orange,1)
	Render()
	img = getImage(0,0,511,511)
endfunction	img

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    green=makecolor(0,255,0)     	//green
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(50,0,100,100,green,green)
    DrawLine(50,0,0,100,green,green)
    DrawLine(0,100,100,100,green,green)
    //DrawLine(5,0,5,9,green,green)
      
    //draw these if you want it filled
    //DrawLine(4,0,8,9,green,green)
    //DrawLine(0,9,8,9,green,green)
    //DrawLine(0,9,4,0,green,green)   
    //DrawBox(4,1,6,8,green,green,green,green,1)
      
    swap()
    img = getimage(1,1,100,100)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
 
function createSolvedImage()
	SetClearColor(0,0,0)
    ClearScreen()
    Render()
    for num = 0 to 26
		DrawObject(rubiks[num].id)
    next num
	render()
    //swap()
    img=GetImage(292,122,418,446)
    SetImageTransparentColor(img,0,0,0)
endfunction	 img

// show all errors
SetErrorMode(2)

#constant screenWidth=1920
#constant screenHeight=1080
 
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
lightID=1
SetCameraPosition(1,0,100,-250)
SetFogMode( 1 ) 
SetFogColor(10,10,10)
SetFogRange(6,16)
 
loadObject(lightID,"trafficLights.obj") 

createShader() 
loadImage(1,"lights2.png") //the complete normal texture
loadImage(2,"green2.png") 
loadImage(3,"orange2.png")
loadImage(4,"red2.png")
 

 
SetObjectImage(lightID,1,0) 
SetObjectImage(lightID,2,1) 
SetObjectImage(lightID,3,2)
SetObjectImage(lightID,4,3)
 
//createShader()
Shader=LoadShader( "neon.vs","neon.ps" )
SetObjectShader(lightID,Shader)
stage#=1.0
lightint#=1.0
lightson=1
SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
SetShaderConstantByName(Shader,"stage",1.0,0.0,0.0,0.0)     
do
    time#=timer()
    r#=7-time#
    g#=7-time#
    b#=7-time#
     
    RotateObjectLocalY(lightId,.5)
    //SetShaderConstantByName(Shader,"pointPos",1,1,1,1)
    //SetShaderConstantByName(Shader,"myColor",r#,g#,b#,0.02) //red green blue factor
    if GetRawKeyState(49)=1
		lightint#=lightint#-0.01
		if lightint#<0.0 then lightint#=0.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeyState(50)=1
		lightint#=lightint#+0.01
		if lightint#>1.0 then lightint#=1.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeypressed(76)=1
		lightson=1-lightson
		SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
	endif
	
	if GetRawKeypressed(32)=1
		if stage#<3 
			inc stage#
		else
			stage#=1.0
		endif
		SetShaderConstantByName(Shader,"stage",stage#,0.0,0.0,0.0)
	endif
	
	Print("Press space to change the light color") //the colors
    print("Press L to toggle lights working or not")
    print("Use 1 and 2 to increase/decrease light")
    print ("Current lighting "+str(lightint#))
    sync()
loop
 
 
function createShader()
file = OpenToWrite("neon.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 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)
  
//pixel shader
file = OpenToWrite("neon.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform sampler2D texture1;")
WriteLine(file,"uniform sampler2D texture2;")
WriteLine(file,"uniform sampler2D texture3;")
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,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec4 agk_MeshDiffuse;")
WriteLine(file,"mediump vec4 colorResult;")
WriteLine(file,"uniform float lightint;")
WriteLine(file,"uniform float lightson;")
WriteLine(file,"uniform float stage;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"	mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"	mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"	vec4 colorA = texture2D(texture0, uvVarying);")
WriteLine(file,"	vec4 colorB;")
WriteLine(file,"	if (stage < 1.1) {")
WriteLine(file,"		colorB = texture2D(texture1, uvVarying);")
WriteLine(file," 	} else {")
WriteLine(file,"		if (stage < 2.1) {")
WriteLine(file,"			colorB = texture2D(texture2, uvVarying);")
WriteLine(file," 		} else {")
WriteLine(file,"			if (stage < 3.1) {")
WriteLine(file,"			colorB = texture2D(texture3, uvVarying);")
WriteLine(file,"			}")
WriteLine(file,"		}")
WriteLine(file,"	}")

WriteLine(file,"	if (lightson < 1.0) {")
WriteLine(file,"		colorResult = vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file," 	} else {")
WriteLine(file,"		if (colorB.a > 0.0) {")
WriteLine(file,"			colorResult = vec4 ((colorA * vec4(light,1.0))*lightint) + (colorB*colorB.a);")
WriteLine(file,"		} else {")
WriteLine(file,"			colorResult =vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"gl_FragColor = colorResult;")
WriteLine(file,"}")
CloseFile(file)
endfunction

type scoreType
	ID as integer
	imgID as integer
endtype
global digitalScore as scoreType[]
loadImage(fontImg,"shared/fontBlu.png")

do
digitalScoreBoard2(Score,-25,-9,-11)
sync()
loop

//The font image is 640 * 112 pixels consisting of each numeric value 64*112 
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

// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40
#constant KEY_A            65
#constant KEY_D            68
#constant KEY_E            69 
#constant KEY_Z            90
#constant KEY_M            77
#constant KEY_S            83
#constant KEY_L            76
#constant KEY_C            67
#constant KEY_HOME         36
#constant KEY_PLUS         107
#constant KEY_SUBTRACT     109
#constant KEY_SHIFT        16
// set window properties
SetWindowTitle( "Mesh Creator from an image 1.9" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


type _boxes
    id
    memID
    x#
    y#
    z#
endtype

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

function normalHeightFunction(extrudeDivisor as integer,direction as integer, filename$)
//top left front 0,9,18
//top right front 2,4,11
//top left back 8,14,16
//top right back 6,10,12
vertexLF as integer[2] = [0,9,18]
vertexRF as integer[2] = [2,4,11]
vertexLB as integer[2] = [8,14,16]
vertexRB as integer[2] = [6,10,12]

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

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

endfunction	centreObjId

function smoothHeightFunction(extrudeDivisor as integer,direction as integer, filename$)
//top left front 0,9,18
//top right front 2,4,11
//top left back 8,14,16
//top right back 6,10,12
vertexLF as integer[2] = [0,9,18]
vertexRF as integer[2] = [2,4,11]
vertexLB as integer[2] = [8,14,16]
vertexRB as integer[2] = [6,10,12]

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

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

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

endfunction	centreObjId

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

endfunction DeletedObjects	

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

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

// 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: 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: BlitzKrieg 
// Created: 2019-01-14

// show all errors
SetErrorMode(2)

#constant	KEY_SPACE        32
#constant	KEY_LEFT         37
#constant   KEY_UP           38
#constant	KEY_RIGHT        39
#constant   KEY_DOWN         40

type _bullet
	ID as integer
	time# as float //time to keep the bullet alive
endtype

type _enemy
	ID as integer
	direction as float
	enemyType as String
	speed as float
	time# as float
	hit as integer
endtype

type _player
	ID as integer
	ID2 as integer
	hit as integer
	time as float
	ammoLeft as integer
endtype
	
// set window properties
SetWindowTitle( "BlitzKrieg" )
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
SetPhysicsScale(.025)
SetPhysicsGravity(0,.25)

SetPhysicsWallBottom(0)
SetPhysicsWallLeft(0)
SetPhysicsWallRight(0)
SetPhysicsWallTop(0)
global player as _player
player.hit=0
player.ammoLeft = 1000
player.ID=CreateSprite(0)
SetSpriteSize(player.ID,10,40)
SetSpritePosition(player.ID,500,700)
SetSpriteOffset(player.ID,5,40)
SetSpritePhysicsOn(player.ID,1)
baseImg=createBaseGun()
player.ID2=createSprite(baseImg)
SetSpriteScale(player.ID2,2,2)
SetSpritePosition(player.ID2,480,732)
SetSpritePhysicsOn(player.ID2,1)

planeLeftImg=createPlaneLeftFace()
planeRightImg=createPlaneRightFace()

global bullets as _bullet[]
global enemies as _enemy[]
global enemyBombs as _bullet[]
global bombersHit,bombersEscaped
global smallHit,smallEscaped
global mediumHit,mediumEscaped
global largeHit,largeEscaped
 
createEnemies(planeRightImg,planeLeftImg)

do
	//rotate player anticlockwise
    if GetRawKeyState(KEY_LEFT)
		if makeNewAngle(GetSpriteAngle(player.ID),90)>15 then SetSpriteAngle(player.ID,GetSpriteAngle(player.ID)-1)
    endif
    //rotate player clockwise
    if GetRawKeyState(KEY_RIGHT)
		if makeNewAngle(GetSpriteAngle(player.ID),90)<165 then SetSpriteAngle(player.ID,GetSpriteAngle(player.ID)+1)    
    endif
    //player shoots 
    if GetRawKeyState(KEY_SPACE)
		if player.ammoLeft>0 
			SetSpriteOffset(player.ID,5,-10) //set the bullet position in front of gun
			shoot(GetSpriteXByOffset(player.ID),GetSpriteYByOffset(player.ID),makeNewAngle(GetSpriteAngle(player.ID),90),185)
			SetSpriteOffset(player.ID,5,40)
			dec player.ammoLeft,1
		endif
	endif
	//if players been hit do an explosion routine
	if player.hit=1
			alpha=GetSpriteColorAlpha(player.ID)
			blue=GetSpriteColorBlue(player.ID)
			green=GetSpriteColorGreen(player.ID)
			alpha2=GetSpriteColorAlpha(player.ID2)
			blue2=GetSpriteColorBlue(player.ID2)
			green2=GetSpriteColorGreen(player.ID2)
	
			if alpha>15 then SetSpriteColorAlpha(player.ID,alpha-10)
			if blue>15 then SetSpriteColorBlue(player.ID,blue-10)
			if green>15 then SetSpriteColorGreen(player.ID,green-10)
			if alpha2>15 then SetSpriteColorAlpha(player.ID2,alpha2-10)
			if blue2>15 then SetSpriteColorBlue(player.ID2,blue2-10)
			if green2>15 then SetSpriteColorGreen(player.ID2,green2-10)
			if player.time+3<timer() 
				removeSprites()
				gameover()
				player.hit=0
				SetSpriteColor(player.ID,255,255,255,255)
				SetSpriteColor(player.ID2,255,255,255,255)
				createEnemies(planeRightImg,planeLeftImg)
				player.ammoLeft=1000
				bombersHit=0:bombersEscaped=0
				smallHit=0:smallEscaped=0
				mediumHit=0:mediumEscaped=0
				largeHit=0:largeEscaped=0
			endif	
				
	endif	
	
	if player.ammoLeft<=0 
		removeSprites()
		gameover()
		player.hit=0
		SetSpriteColor(player.ID,255,255,255,255)
		SetSpriteColor(player.ID2,255,255,255,255)
		createEnemies(planeRightImg,planeLeftImg)
		player.ammoLeft=1000
		bombersHit=0:bombersEscaped=0
		smallHit=0:smallEscaped=0
		mediumHit=0:mediumEscaped=0
		largeHit=0:largeEscaped=0	
	endif	
	
	moveEnemies(planeRightImg,planeLeftImg)
//////////////////////////////////////////////////////////////////////////////////	
//check for player bullets and enemy collisions	
	for num=bullets.length to 0 step -1
		for num2=enemies.length to 0 step -1 
			//print(GetSpriteCollision(bullets[num].ID,enemies[num2].ID)) 
			hit=0
			if enemies[num2].hit=0 then hit=checkContact(bullets[num].ID,enemies[num2].ID) 
			if hit=1 and enemies[num2].hit=0
				Select enemies[num2].enemyType
					case "Bomber":
						inc bombersHit
					endcase	
					Case "Small":
						inc smallHit
					endcase
					case "Medium":
						inc mediumHit
					endcase
					case "Large":
						inc largeHit
					endcase
				endselect	
				//DeleteSprite(bullets[num].ID)
				//bullets.remove(num)
				//SetSpriteVisible(enemies[num2].ID,0)
				enemies[num2].hit=1
			endif		
		next num2	
		//endif	
	next num
//////////////////////////////////////////////////////////////////////////////////	
//check if plane has crashed into player
	for num=enemies.length to 0 step -1 
		if checkContact(enemies[num].ID,player.ID) 
			if player.hit=0 then player.time=timer() //set the explosion timer
			player.hit=1
		endif	
		if checkContact(enemies[num].ID,player.ID2) 
			if player.hit=0 then player.time=timer() //set the explosion timer
			player.hit=1
		endif		
	next	
//check if shot yourself

	for num=bullets.length to 0 step -1 
		if checkContact(bullets[num].ID,player.ID) 
			if player.hit=0 then player.time=timer() //set the explosion timer
			player.hit=1
		endif	
		if checkContact(bullets[num].ID,player.ID2) 
			if player.hit=0 then player.time=timer() //set the explosion timer
			player.hit=1
		endif		
	next
	
//check if been shot by bombers
	for num=enemyBombs.length to 0 step -1 
		if checkContact(enemyBombs[num].ID,player.ID) 
			if player.hit=0 then player.time=timer() //set the explosion timer
			player.hit=1
		endif	
		if checkContact(enemyBombs[num].ID,player.ID2) 
			if player.hit=0 then player.time=timer() //set the explosion timer
			player.hit=1
		endif		
	next
	
//////////////////////////////////////////////////////////////////////////////////	

//////////////////////////////////////////////////////////////////////////////////	
//  Clean up bombs and bullets	
	for num = enemyBombs.length to 0 step-1
		if enemyBombs[num].time#+6<timer() 
			DeleteSprite(enemyBombs[num].ID)
			enemyBombs.remove(num)
		endif	
	next num	
    
    for num = bullets.length to 0 step-1
		if bullets[num].time#+6<timer() 
			DeleteSprite(bullets[num].ID)
			bullets.remove(num)
		endif
	next num	
//////////////////////////////////////////////////////////////////////////////////	
    Print("BlitzKrieg")
	Print("========") 
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
	Print("")
    Print("                    Hit Escape") 
    Print("Bombers     "+str(bombersHit)+"   "+str(bombersEscaped))
    Print("Small           "+str(smallHit)+"   "+str(smallEscaped))
    Print("Medium      "+str(mediumHit)+"   "+str(mediumEscaped))
    Print("Large          "+str(largeHit)+"   "+str(largeEscaped))
    Print("Ammo left  "+str(player.ammoLeft))
    Print( ScreenFPS() )
    StepPhysics(1)
    Sync()
loop

function shoot(x# as float,y# as float,angle# as float, force# as float)
	local bullet as _bullet
	bullet.ID=CreateSprite(0)
	SetSpritePosition(bullet.ID,x#,y#)
	SetSpriteColor(bullet.ID,0,200,0,255)
	SetSpriteSize(bullet.ID,5,5)
	SetSpriteShape(bullet.ID,2)
	SetSpritePhysicsOn(bullet.ID, 2) //2=dynamic
	//SetSpriteAngle(bullet.ID, angle#) 
	SetSpritePhysicsIsBullet(bullet.ID, 1)
	SetSpritePhysicsMass(bullet.ID,10) 
	vx#=cos(angle#)*force#
	vy#=sin(angle#)*force#
	SetSpritePhysicsImpulse(bullet.ID,x#,y#, -vx#, -vy# )
	bullet.time#=timer()
	bullets.insert(bullet)		
endfunction

function dropBomb(x# as float,y# as float,direction as integer,force# as float)
	local bomb as _bullet
	local angle# as float
	if direction=-1
		angle#=275
	else	
		angle#=180
	endif
	bomb.ID=CreateSprite(0)
	SetSpritePosition(bomb.ID,x#,y#)
	SetSpriteColor(bomb.ID,200,0,0,255)
	SetSpriteSize(bomb.ID,5,5)
	SetSpriteShape(bomb.ID,2)
	SetSpritePhysicsOn(bomb.ID, 2) //2=dynamic
	SetSpritePhysicsIsBullet(bomb.ID, 1)
	SetSpritePhysicsMass(bomb.ID,10) 
	vx#=cos(angle#)*force#
	vy#=sin(angle#)*force#
	SetSpritePhysicsImpulse(bomb.ID,x#,y#,vx#,-vy#)
	bomb.time#=timer()
	enemyBombs.insert(bomb)
endfunction	

	
function makeNewAngle(ang#,add#)
    // add the new bit
    ang# = ang# + add#
 
    // check value
    if ang# >= 0.0 and ang# <= 360.0 then exitfunction ang#
 
    // adjust the value
    while ang# < 0.0
        ang# = ang# + 360.0
    endwhile
    while ang# > 360.0
        ang# = ang# - 360.0
    endwhile
endfunction ang#

function createBaseGun()
	local data as integer [215] = [
	       0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,
	       0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
	       0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
	       0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
	       0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0]
	       
	dataCount=0
	 ClearScreen()
	 for y = 0 to 8
		for x = 0 to 23
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,24,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createPlaneRightFace()
	local data as integer [263] =[
	       0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
	       0,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
	       0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
	       0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
	       0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0]
	 dataCount=0
	 ClearScreen()
	 for y = 0 to 10
		for x = 0 to 23
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,24,12)
    SetImageTransparentColor(img,0,0,0)
endfunction	img

function createPlaneLeftFace()
	local data as integer [263] =[
	       0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,
	       0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,
	       0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
	       0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
	 dataCount=0
	 ClearScreen()
	 for y = 0 to 10
		for x = 0 to 23
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,24,12)
    SetImageTransparentColor(img,0,0,0)
endfunction	img

function createEnemy(enemy ref  as _enemy,faceRight as integer,faceleft as integer)
	select enemy.enemyType
		case "Bomber":
			ran=random(1,2)
			if ran= 1 
				enemy.ID=createSprite(faceLeft)
				enemy.direction=-1.0
				SetSpritePosition(enemy.ID,GetDeviceWidth()+random(1,GetDeviceWidth()/2),random(0,GetDeviceHeight()-300))		
			else
				enemy.ID=createSprite(faceRight)
				enemy.direction=1.0			
				SetSpritePosition(enemy.ID,-(random(1,GetDeviceWidth()/2)),random(0,GetDeviceHeight()-300))
			endif	
			enemy.hit=0
			enemy.speed=5/120.0
			enemy.enemyType="Bomber"
			//SetSpritePosition(enemy.ID,random(0,GetDeviceWidth()),random(0,GetDeviceHeight()-200))
			SetSpriteShape(enemy.ID,3) 
			SetSpritePhysicsOn(enemy.ID,2)
			SetSpritePhysicsIsSensor(enemy.ID,1) 
			SetSpritePhysicsMass(enemy.ID,1000)
			SetSpritePhysicsRestitution(enemy.ID,0)
			SetSpritePhysicsCanRotate(enemy.ID,0) 
			SetSpritePhysicsImpulse(enemy.ID,GetSpriteXByOffset(enemy.ID),GetSpriteYByOffset(enemy.ID),enemy.direction*enemy.speed,0)
			SetSpriteScale(enemy.ID,3,3)
			SetSpriteColor(enemy.ID,150,150,150,255)
			//enemies.insert(enemy)
	    endcase
	
	    case "Small":
			ran=random(1,2)
			if ran= 1 
				enemy.ID=createSprite(faceLeft)
				enemy.direction=-1.0
				SetSpritePosition(enemy.ID,GetDeviceWidth()+random(1,GetDeviceWidth()/2),random(0,GetDeviceHeight()-300))		
			else
				enemy.ID=createSprite(faceRight)
				enemy.direction=1.0			
				SetSpritePosition(enemy.ID,-(random(1,GetDeviceWidth()/2)),random(0,GetDeviceHeight()-300))
			endif
			enemy.hit=0
			enemy.speed=random(3,5)/120.0
			enemy.enemyType="Small"
			//SetSpritePosition(enemy.ID,random(0,GetDeviceWidth()),random(0,GetDeviceHeight()-200))
			SetSpriteShape(enemy.ID,2) 
			SetSpritePhysicsOn(enemy.ID,2)
			SetSpritePhysicsIsSensor(enemy.ID,1) 
			SetSpritePhysicsMass(enemy.ID,100)
			SetSpritePhysicsRestitution(enemy.ID,0)
			SetSpritePhysicsCanRotate(enemy.ID,0) 
			SetSpritePhysicsImpulse(enemy.ID,GetSpriteXByOffset(enemy.ID),GetSpriteYByOffset(enemy.ID),enemy.direction*enemy.speed,0)
			SetSpriteScale(enemy.ID,2,2)
			//enemies.insert(enemy)
	    endcase
	
	    case "Medium":
			ran=random(1,2)
			if ran= 1 
				enemy.ID=createSprite(faceLeft)
				enemy.direction=-1.0
				SetSpritePosition(enemy.ID,GetDeviceWidth()+random(1,GetDeviceWidth()/2),random(0,GetDeviceHeight()-300))		
			else
				enemy.ID=createSprite(faceRight)
				enemy.direction=1.0			
				SetSpritePosition(enemy.ID,-(random(1,GetDeviceWidth()/2)),random(0,GetDeviceHeight()-300))
			endif
			enemy.hit=0
			enemy.speed=random(3,5)/120.0
			enemy.enemyType="Medium"
			//SetSpritePosition(enemy.ID,random(0,GetDeviceWidth()),random(0,GetDeviceHeight()-200))
			SetSpriteShape(enemy.ID,2) 
			SetSpritePhysicsOn(enemy.ID,2)
			SetSpritePhysicsMass(enemy.ID,1000)
			SetSpritePhysicsRestitution(enemy.ID,0)
			SetSpritePhysicsCanRotate(enemy.ID,0) 
			SetSpritePhysicsImpulse(enemy.ID,GetSpriteXByOffset(enemy.ID),GetSpriteYByOffset(enemy.ID),enemy.direction*enemy.speed,0)
			SetSpriteScale(enemy.ID,3,3)
			//enemies.insert(enemy)
		endcase
	
	    case "Large":
			ran=random(1,2)
			if ran= 1 
				enemy.ID=createSprite(faceLeft)
				enemy.direction=-1.0
				SetSpritePosition(enemy.ID,GetDeviceWidth()+random(1,GetDeviceWidth()/2),random(0,GetDeviceHeight()-300))		
			else
				enemy.ID=createSprite(faceRight)
				enemy.direction=1.0			
				SetSpritePosition(enemy.ID,-(random(1,GetDeviceWidth()/2)),random(0,GetDeviceHeight()-300))
			endif
			enemy.speed=random(3,5)/120.0
			enemy.enemyType="Large"
			//SetSpritePosition(enemy.ID,random(0,GetDeviceWidth()),random(0,GetDeviceHeight()-200))
			SetSpriteShape(enemy.ID,3) 
			SetSpritePhysicsOn(enemy.ID,2)
			SetSpritePhysicsMass(enemy.ID,1000)
			SetSpritePhysicsRestitution(enemy.ID,0)
			SetSpritePhysicsCanRotate(enemy.ID,0) 
			SetSpritePhysicsImpulse(enemy.ID,GetSpriteXByOffset(enemy.ID),GetSpriteYByOffset(enemy.ID),enemy.direction*enemy.speed,0)
			SetSpriteScale(enemy.ID,4,4)
			//enemies.insert(enemy)
		endcase
endselect		
endfunction

function createEnemies(faceRight as integer,faceLeft as integer)
	enemy as _enemy
	for num = 1 to 5
		enemy.enemyType="Bomber"
		createEnemy(enemy,faceRight,faceLeft)
		enemies.insert(enemy)
	next num
	
	for num = 1 to 5
		enemy.enemyType="Small"
		createEnemy(enemy,faceRight,faceLeft)
		enemies.insert(enemy)
	next num
	
	for num = 1 to 5
		enemy.enemyType="Medium"
		createEnemy(enemy,faceRight,faceLeft)
		enemies.insert(enemy)
	next num
	
	for num = 1 to 5
		enemy.enemyType="Large"
		createEnemy(enemy,faceRight,faceLeft)
		enemies.insert(enemy)
	next num
endfunction

function moveEnemies(faceRight as integer,faceLeft as integer)
	for num=0 to enemies.length
		SetSpritePhysicsImpulse(enemies[num].ID,GetSpriteXByOffset(enemies[num].ID),GetSpriteYByOffset(enemies[num].ID),enemies[num].direction*enemies[num].speed,-.025)
		escapedCount=0
		if GetSpriteX(enemies[num].ID)<-(GetDeviceWidth()/2)  
			SetSpritePhysicsDelete(enemies[num].ID) 
			DeleteSprite(enemies[num].id)
			if enemies[num].hit=0 then escapedCount=1
			createEnemy(enemies[num],faceRight,faceLeft)
		endif	
		if GetSpriteX(enemies[num].ID)>(GetDeviceWidth()/2)+GetDeviceWidth() 
			SetSpritePhysicsDelete(enemies[num].ID) 
			DeleteSprite(enemies[num].id)
			if enemies[num].hit=0 then 	escapedCount=1
			createEnemy(enemies[num],faceRight,faceLeft)
		endif	
		if enemies[num].enemyType="Bomber" and enemies[num].time#+0.75<timer() and enemies[num].hit=0
			dropBomb(GetSpriteXByOffset(enemies[num].ID),GetSpriteYByOffset(enemies[num].ID),enemies[num].direction,85)
			enemies[num].time#=timer()
		endif		
		if escapedCount=1
			Select enemies[num].enemyType
				case "Bomber":
					inc bombersEscaped	
				endcase	
				Case "Small":
					inc smallEscaped
				endcase
				case "Medium":
					inc mediumEscaped
				endcase
				case "Large":
					inc largeEscaped
				endcase
			endselect
		endif
		if enemies[num].hit=1
			alpha=GetSpriteColorAlpha(enemies[num].ID)
			blue=GetSpriteColorBlue(enemies[num].ID)
			green=GetSpriteColorGreen(enemies[num].ID)
			if alpha>15 then SetSpriteColorAlpha(enemies[num].ID,alpha-10)
			if blue>15 then SetSpriteColorBlue(enemies[num].ID,blue-10)
			if green>15 then SetSpriteColorGreen(enemies[num].ID,green-10)
		endif		
	next num	
endfunction	

	

function checkContact(spr as integer,spr2 as integer)
	sprHit as integer
	if GetSpriteFirstContact(spr)
		sprHit=GetSpriteContactSpriteID2()
		if spr2=sprHit then exitfunction 1
		while GetSpriteNextContact()
			sprHit=GetSpriteContactSpriteID2()
			if spr2=sprHit then exitfunction 1
		endwhile
		//text$=str(sprHit)+"    "+str(spr2)
		//print (text$)	
	endif	
endfunction 0

function removeSprites()

	//remove all player bullets
	for num=bullets.length to 0 step -1
		deleteSprite(bullets[num].ID)
		bullets.remove(num)
	next num	

	//remove all enemies
	for num=enemies.length to 0 step -1
		deleteSprite(enemies[num].ID)
		enemies.remove(num)
	next num	
   //remove all enemy bombs
	for num=enemyBombs.length to 0 step -1
		deleteSprite(enemyBombs[num].ID)
		enemyBombs.remove(num)
	next num	
  
endfunction	

function gameover()
	repeat
		Print("BlitzKrieg")
		Print("========") 
		Print("")
		Print("")
		Print("")
		Print("")
		Print("")
		Print("")
		Print("")
		Print("")
		Print("                                                                 GAME OVER")
		Print("")
		Print("")
		Print("")
		Print("                    Hit Escape") 
    	Print("Bombers     "+str(bombersHit)+"   "+str(bombersEscaped))
		Print("Small           "+str(smallHit)+"   "+str(smallEscaped))
		Print("Medium      "+str(mediumHit)+"   "+str(mediumEscaped))
		Print("Large          "+str(largeHit)+"   "+str(largeEscaped))
		Print("Ammo left  "+str(player.ammoLeft))
		Print("")
		Print("                                                  Press space key to play again")
		sync()
	until GetRawKeyPressed(KEY_SPACE)	
	removeSprites()	
endfunction	

SetErrorMode(2)

#constant	KEY_SPACE        32
#constant	KEY_LEFT         37
#constant   KEY_UP           38
#constant	KEY_RIGHT        39
#constant   KEY_DOWN         40

type _asteroid
	ID as integer
	x as float
	y as float
	size as float
	xDir as float
	yDir as float
endtype	

type _bullet
	ID as integer
	time# as float //time to keep the bullet alive
endtype

type _player
	ID as integer
	hit as integer
	imgID as integer
	lives as integer
	score as integer
endtype		

// 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
asteroids as _asteroid[]
bullets as _bullet[]
player as _player
player.imgID=createShipImg()
player.ID=CreateSprite(player.imgID)
player.lives=4
SetSpriteScale(player.ID,5,5)
SetSpritePositionByOffset(player.ID,500,350)
SetSpriteTransparency(player.ID,1)
asteroidImage=createAsteroidImg()
createAsteroids(player.ID,asteroids,asteroidImage)
thrust#=0
repeat
	for num=0 to asteroids.length
		moveAsteroid(asteroids[num])
	next num	
	if GetRawKeyState(KEY_LEFT)
		SetSpriteAngle(player.ID,GetSpriteAngle(player.ID)-2)
	endif	
	
	if GetRawKeyState(KEY_RIGHT)
		SetSpriteAngle(player.ID,GetSpriteAngle(player.ID)+2)
	endif
	
	if GetRawKeyState(KEY_UP)
		thrust#=thrust#+1.5
		if thrust#>5.0 then thrust#=5.0
	endif
	
	if GetRawKeyState(KEY_DOWN)
		thrust#=thrust#-0.250
		if thrust#<0 then thrust#=0
	endif
	
	
	angle# = GetSpriteAngle(player.ID) - 90 //: If angle# < 360 Then angle# = angle# + 360
	//Calculate x / velocity based on sprite angle         
	xvel# = (Cos( angle# ) * (thrust#) )
	yvel# = (Sin( angle# ) * (thrust#) ) 
	//move sprite according to its angle and apply a gravity to the y axis	
	SetSpritePositionByOffset(player.ID, GetSpriteXByOffset(player.ID)+ xvel# ,(GetSpriteYByOffset(player.ID) + yvel# ))
	If GetSpriteXByOffset(player.ID)<-10 then SetSpritePositionByOffset(player.ID,GetWindowWidth()+8,GetSpriteYByOffset(player.ID))
	If GetSpriteXByOffset(player.ID)>GetWindowWidth()+10 then SetSpritePositionByOffset(player.ID,-8,GetSpriteYByOffset(player.ID))
	If GetSpriteYByOffset(player.ID)<-10 then SetSpritePositionByOffset(player.ID,GetSpriteXByOffset(player.ID),GetWindowHeight())
	If GetSpriteYByOffset(player.ID)>GetWindowHeight()+10 then SetSpritePositionByOffset(player.ID,GetSpriteXByOffset(player.ID),-8)

	
	if GetRawKeyReleased(KEY_SPACE)
		shoot(player.ID,bullets)
	endif	
	moveBullets(player,bullets,asteroids,asteroidImage)
	checkPlayerCollided(player,asteroids)
	if player.hit=1
		thrust#=0
		alpha=GetSpriteColorAlpha(player.ID)
		blue=GetSpriteColorBlue(player.ID)
		green=GetSpriteColorGreen(player.ID)
		if alpha>15 then SetSpriteColorAlpha(player.ID,alpha-5)
		if blue>15 then SetSpriteColorBlue(player.ID,blue-5)
		if green>15 then SetSpriteColorGreen(player.ID,green-5)
		if alpha<=15 and blue<=15 and green <=15 
			SetSpritePositionByOffset(player.ID,500,350)
			if checkPlayerCollided(player,asteroids)=0 //make sure player isnt going to restart ontop of an asteroid
				SetSpriteColor(player.ID,255,255,255,255)
				player.hit=0
			endif			
		endif	
	endif		
	
	
	thrust#=thrust#-.025:if thrust#<0 then thrust#=0
	Print("Asteroids")
	Print("========")
	print ("Score =" +str(player.score))
	print ("Lives  =" +str(player.lives))
	print(ScreenFPS())
	sync()
until player.lives=0
gameover(player)
end

function createShipImg()
	local data as integer [119] = [
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,1,0,0,0,0,0,
	       0,0,0,0,0,1,1,1,0,0,0,0,
	       0,0,0,0,1,1,1,1,1,0,0,0,
	       0,0,0,1,1,1,1,1,1,1,0,0,
	       0,0,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,0,0,0,0,0,1,1,1,
	       0,1,0,0,0,0,0,0,0,0,0,1,
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,0,0,0,0,0,0,0]
	       
	dataCount=0
	ClearScreen()
	for y = 0 to 9
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createAsteroidImg()
	local data as integer [144] = [
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,1,1,1,1,0,0,0,0,
	       0,0,1,1,0,0,0,0,1,1,0,0,
	       0,0,1,0,0,0,0,0,0,1,0,0,
	       0,1,0,0,0,0,0,0,0,0,1,0,
	       0,1,0,0,0,0,0,0,0,0,1,0,
	       0,1,0,0,0,0,0,0,0,0,1,0,
	       0,1,0,0,0,0,0,0,0,0,1,0,
	       0,0,1,0,0,0,0,0,0,1,0,0,
	       0,0,1,1,0,0,0,0,1,1,0,0,
	       0,0,0,0,1,1,1,1,0,0,0,0,
	       0,0,0,0,0,0,0,0,0,0,0,0]
	       
	dataCount=0
	ClearScreen()
	for y = 0 to 11
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createAsteroids(shipSpr as integer,asteroids ref as _asteroid[],asteroidImage as integer)
	asteroid as _asteroid
	for num= 1 to 10 //create 10 asteroids
		asteroid.size=100:asteroid.xDir=0:asteroid.yDir=0
		asteroid.x=random(0,GetWindowWidth())
		asteroid.y=random(0,GetWindowHeight())
		while asteroid.xDir=0 and asteroid.yDir=0 //make sure the asteroid moves
			asteroid.xDir=Random(0,4)-2
			asteroid.yDir=Random(0,4)-2
		endwhile
		asteroid.ID=createSprite(asteroidImage)
		SetSpriteTransparency(asteroid.ID,1)
		SetSpriteSize(asteroid.ID,asteroid.size,asteroid.size)
		SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
		while getSpriteCollision(shipSpr,asteroid.ID) //keep trying to place an asteroid until it doiesnt collide with ship
			asteroid.x=random(0,GetWindowWidth())
			asteroid.y=random(0,GetWindowHeight())
			SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
		endwhile
		asteroids.insert(asteroid)
	next num	
endfunction	

function brakeAsteroidUp (currentAsteroid ref as _asteroid, asteroids ref as _asteroid[],asteroidImage as integer)
rem current asteroid has been shot break up into 4 smaller pieces
	asteroid as _asteroid
	size=currentAsteroid.size
	x#=currentAsteroid.x
	y#=currentAsteroid.y
	DeleteSprite(currentAsteroid.ID)
						
	if size>25 			
		asteroid.ID=createSprite(asteroidImage)
		asteroid.size=size/2
		asteroid.x=x#-(size/4)
		asteroid.y=y#-(size/4)
		asteroid.xDir=0:asteroid.yDir=0
			while asteroid.xDir=0 and asteroid.yDir=0 //make sure the asteroid moves
			asteroid.xDir=Random(0,4)-2
			asteroid.yDir=Random(0,4)-2
		endwhile
		SetSpriteTransparency(asteroid.ID,1)
		SetSpriteSize(asteroid.ID,asteroid.size,asteroid.size)
		SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
		asteroids.insert(asteroid)
	endif
			
	if size>25
		asteroid.ID=createSprite(asteroidImage)
		asteroid.size=size/2
		asteroid.x=x#+(size/4)
		asteroid.y=y#-(size/4)
		asteroid.xDir=0:asteroid.yDir=0
		while asteroid.xDir=0 and asteroid.yDir=0 //make sure the asteroid moves
			asteroid.xDir=Random(0,4)-2
			asteroid.yDir=Random(0,4)-2
		endwhile
		SetSpriteTransparency(asteroid.ID,1)
		SetSpriteSize(asteroid.ID,asteroid.size,asteroid.size)
		SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
		asteroids.insert(asteroid)
	endif
			
	if size>25
		asteroid.ID=createSprite(asteroidImage)
		asteroid.size=size/2
		asteroid.x=x#+(size/4)
		asteroid.y=y#+(size/4)
		asteroid.xDir=0:asteroid.yDir=0
		while asteroid.xDir=0 and asteroid.yDir=0 //make sure the asteroid moves
			asteroid.xDir=Random(0,4)-2
			asteroid.yDir=Random(0,4)-2
		endwhile
		SetSpriteTransparency(asteroid.ID,1)
		SetSpriteSize(asteroid.ID,asteroid.size,asteroid.size)
		SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
		asteroids.insert(asteroid)
	endif
			
	if size>25
		asteroid.ID=createSprite(asteroidImage)
		asteroid.size=size/2
		asteroid.x=x#-(size/4)
		asteroid.y=y#+(size/4)
		asteroid.xDir=0:asteroid.yDir=0
		while asteroid.xDir=0 and asteroid.yDir=0 //make sure the asteroid moves
			asteroid.xDir=Random(0,4)-2
			asteroid.yDir=Random(0,4)-2
		endwhile
		SetSpriteTransparency(asteroid.ID,1)
		SetSpriteSize(asteroid.ID,asteroid.size,asteroid.size)
		SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
		asteroids.insert(asteroid)
	endif			

endfunction	

function moveAsteroid(asteroid ref as _asteroid)
	asteroid.x=asteroid.x+asteroid.xDir
	asteroid.y=asteroid.y+asteroid.yDir
	SetSpritePositionByOffset(asteroid.ID,asteroid.x,asteroid.y)
	if asteroid.x <-100
		asteroid.x=GetWindowWidth()+99
		asteroid.xDir=-random(1,2)			
	endif
	if asteroid.x > GetWindowWidth()+100
		asteroid.x=-99
		asteroid.xDir=random(1,2)
	endif
	if asteroid.y <-100
		asteroid.y=GetWindowHeight()+99
		asteroid.yDir=-random(1,2)			
	endif
	if asteroid.y > GetWindowWidth()+100
		asteroid.y=-99
		asteroid.yDir=random(1,2)
	endif

endfunction	

function shoot(shipSpr as integer,bullets ref as _bullet[])
	local bullet as _bullet
	bullet.ID=CreateSprite(0)
	SetSpritePosition(bullet.ID,GetSpriteXByOffset(shipSpr),GetSpriteYByOffset(shipSpr))
	SetSpriteColor(bullet.ID,200,200,200,255)
	SetSpriteSize(bullet.ID,5,5)
	SetSpriteAngle(bullet.ID,getSpriteAngle(shipSpr))
	bullet.time#=timer()
	bullets.insert(bullet)
endfunction

function moveBullets(player ref as _player,bullets ref as _bullet[],asteroids ref as _asteroid[],asteroidImage as integer)
	thrust#=6
	for num = bullets.length to 0 step -1
		angle# = GetSpriteAngle(bullets[num].ID) - 90 //: If angle# < 360 Then angle# = angle# + 360
		//Calculate x / velocity based on sprite angle         
		xvel# = (Cos( angle# ) * (thrust#) )
		yvel# = (Sin( angle# ) * (thrust#) ) 
		//move sprite according to its angle 	
		SetSpritePositionByOffset(bullets[num].ID, GetSpriteXByOffset(bullets[num].ID)+ xvel# ,(GetSpriteYByOffset(bullets[num].ID) + yvel# ))
		for num2 = asteroids.length to 0 step -1
			if GetSpriteCollision(bullets[num].ID,asteroids[num2].ID )
				player.score=player.score+asteroids[num2].size
				brakeAsteroidUp(asteroids[num2],asteroids,asteroidImage)
				asteroids.remove(num2) //remove the asteroid that was shot because the sprite nolonger exists	
			elseif bullets[num].time#+5.0<timer() 
				DeleteSprite(bullets[num].ID)
				bullets.remove(num):exit
			endif
		next num2		
	next num	
endfunction

function checkPlayerCollided(player ref as _player,asteroids ref as _asteroid[])
	for num = asteroids.length to 0 step-1
		if GetSpriteCollision(player.ID,asteroids[num].ID) 
			if player.hit=0 then dec player.lives
			player.hit=1
			exitfunction 1
		endif
	next num		
endfunction	0

function gameover(player ref as _player)
	repeat
		Print("GAME OVER")
		Print("==========") 
		Print("Score ="+str(player.score))
		sync()
	until GetRawKeyPressed(KEY_SPACE)	
endfunction	

SetErrorMode(2)

#constant	KEY_SPACE        32
#constant	KEY_LEFT         37
#constant   KEY_UP           38
#constant	KEY_RIGHT        39
#constant   KEY_DOWN         40

type _bullet
	ID as integer
	time# as float //time to keep the bullet alive
endtype

type _barricade
	ID as integer
endtype 

type _player
	ID as integer
	hit as integer
	imgID as integer
	lives as integer
	score as integer
endtype		

type _invader
	ID as integer
	hit as integer
	scoreValue as integer
endtype	

// 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
player as _player
do
	playGame(player)
	if player.lives<1
		repeat
			Print("GameOver")
			Print("Press Space to play again")
			sync()
		until GetRawKeyPressed(KEY_SPACE)
		player.lives=4	
	endif			

loop

function playGame(player ref as _player)
DeleteAllSprites()
DeleteAllImages()
	
player.imgID=createShipImg()
player.ID=CreateSprite(player.imgID)
player.lives=4
SetSpriteScale(player.ID,5,5)
SetSpritePositionByOffset(player.ID,500,740)
SetSpriteTransparency(player.ID,1)

barricades as _barricade[3]
barricadeImg=createBarricadeImg()
createBarricades(barricades,barricadeImg)

invaders as _invader[]
invaderImage1=createInvader1Img()
invaderImage2=createInvader2Img()
invaderImage3=createInvader3Img()
createInvaders(invaders,invaderImage1,invaderImage2,invaderImage3)
direction=-1

invaderBombs as _bullet[]
bullets as _bullet[]

repeat
	if GetRawKeyState(KEY_LEFT)
		SetSpritePositionByOffset(player.ID,GetSpriteXByOffset(player.ID)-4,GetSpriteYByOffset(player.ID))
		if GetSpriteXByOffset(player.ID)<-10 then SetSpritePositionByOffset(player.ID,GetWindowWidth()+9,GetSpriteYByOffset(player.ID)) 
	endif
	if GetRawKeyState(KEY_RIGHT)
		SetSpritePositionByOffset(player.ID,GetSpriteXByOffset(player.ID)+4,GetSpriteYByOffset(player.ID))
		if GetSpriteXByOffset(player.ID)>GetWindowWidth()+10 then SetSpritePositionByOffset(player.ID,-9,GetSpriteYByOffset(player.ID)) 
	endif
	if GetRawKeyPressed(KEY_SPACE)
		shoot(player.ID,bullets)
	endif	
	moveBullets(player,bullets,invaders)
	direction=moveInvaders(invaders,invaderBombs,direction)
	if direction=99 then exitFunction
	moveBombs(player,invaderBombs,invaders)
	Print("Space Invaders")
	Print("Score="+str(player.score)+"     Lives="+str(player.lives))
	sync()
until player.lives<1 or invaders.length=0

endfunction

function createShipImg()
	local data as integer [95] = [
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,1,1,0,0,0,0,0,
	       0,0,0,0,1,1,1,1,0,0,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,0,0,0,0,0,0,0,0,0,0,0]
	       
	dataCount=0
	ClearScreen()
	for y = 0 to 7
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,8)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createBarricadeImg()
	local data as integer [119] = [
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,1,1,1,1,1,1,0,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,1,0,0,0,0,1,1,1,0,
	       0,0,0,0,0,0,0,0,0,0,0,0]
	       
	dataCount=0
	ClearScreen()
	for y = 0 to 9
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createBarricades(barricades ref as _barricade[],barricadeImg as integer)
	for num = 0 to 3
		barricades[num].ID=createSprite(barricadeImg)
		SetSpriteColor(barricades[num].ID,0,255,0,255)
		SetSpriteScale(barricades[num].ID,10,10)
		SetSpritePositionByOffset(barricades[num].ID,num*250+125,620)
	next num	
endfunction	

function createInvader1Img()
	local data as integer [95] = [
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,0,0,0,1,1,0,0,0,0,0,
	       0,0,0,1,1,1,1,1,1,0,0,0,
	       0,0,0,1,0,1,1,0,1,0,0,0,
	       0,0,0,1,1,1,1,1,1,0,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,0,1,0,0,0,0,0,0,1,0,0]
	dataCount=0
	ClearScreen()
	for y = 0 to 7
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,8)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createInvader2Img()
	local data as integer [95] = [
	       0,0,0,1,0,0,0,0,1,0,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,0,1,1,0,1,1,0,1,1,0,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       1,1,1,1,1,1,1,1,1,1,1,1,
	       1,0,1,1,1,1,1,1,1,1,0,1,
	       0,0,0,0,0,0,0,0,0,0,0,0]
	       
	dataCount=0
	ClearScreen()
	for y = 0 to 7
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,8)
    SetImageTransparentColor(img,0,0,0)
endfunction img

function createInvader3Img()
	local data as integer [95] = [
	       0,0,0,0,0,0,0,0,0,0,0,0,
	       0,0,1,1,1,1,1,1,1,1,0,0,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       1,1,1,1,0,1,1,1,0,1,1,1,
	       1,1,1,1,1,1,1,1,1,1,1,1,
	       0,1,1,1,1,1,1,1,1,1,1,0,
	       0,1,1,0,0,0,0,0,0,1,1,0,
	       0,1,1,1,0,0,0,0,1,1,1,0]
	dataCount=0
	ClearScreen()
	for y = 0 to 7
		for x = 0 to 11
			if data[datacount]=1 then DrawLine(x,y,x,y,255,255,255)
			inc dataCount,1
		next x
	next y	
	
	render()
    img = getImage(0,0,12,8)
    SetImageTransparentColor(img,0,0,0)
endfunction img
function createInvaders(invaders ref as _invader[],image1 as integer,image2 as integer,image3 as integer)
	invader as _invader
	for y = 0 to 4
		select y
			case 0:
				image=image1
				invader.scoreValue=30
			endcase	
			case 1:
				image=image2
				invader.scoreValue=20
			endcase
			case 2:
				image=image2
				invader.scoreValue=20
			endcase
			case 3:
				image=image3
				invader.scoreValue=10
			endcase
			case 4:
				image=image3
				invader.scoreValue=10
			endcase
		endselect		
		for x = 0 to 10
			invader.ID=createSprite(image)
			SetSpriteScale(invader.ID,5,5)
			SetSpritePositionByOffset(invader.ID,x*75+90,y*75+90)
			invaders.insert(invader)
		next x
	next y	
endfunction	

function shoot(ship,bullets ref as _bullet[])
	bullet as _bullet
	bullet.ID=createSprite(0)
	SetSpriteScale(bullet.ID,1,1)
	SetSpritePositionByOffset(bullet.ID,GetSpriteXByOffset(ship),GetSpriteYByOffset(ship))
	bullet.time#=timer()
	bullets.insert(bullet)
endfunction	

function dropBomb(invader ref as _invader,invaderBombs ref as _bullet[])
	bomb as _bullet
	bomb.ID=createSprite(0)
	SetSpriteScale(bomb.ID,1,1)
	SetSpritePositionByOffset(bomb.ID,GetSpriteXByOffset(invader.ID),GetSpriteYByOffset(invader.ID))
	bomb.time#=timer()
	invaderBombs.insert(bomb)
endfunction	

function moveBullets(player ref as _player,bullets ref as _bullet[],invaders ref as _invader[])
	for num = bullets.length to 0 step -1
		SetSpritePositionByOffset(bullets[num].ID,GetSpriteXByOffset(bullets[num].ID),GetSpriteYByOffset(bullets[num].ID)-5)
		for num2 = invaders.length to 0 step -1
            if GetSpriteCollision(bullets[num].ID,invaders[num2].ID )
                player.score=player.score+invaders[num2].scoreValue
                DeleteSprite(invaders[num2].ID)
                invaders.remove(num2) //remove the invader that was shot because the sprite nolonger exists
                DeleteSprite(bullets[num].ID)
                bullets.remove(num):exit   
            elseif bullets[num].time#+5.0<timer() 
                DeleteSprite(bullets[num].ID)
                bullets.remove(num):exit
            endif
        next num2    
		//If GetSpriteYByOffset(bullets[num].ID) <0
		//	deleteSprite(bullets[num].ID)
		//	bullets.remove(num)
		//endif	
	next num	
endfunction	

function moveBombs(player ref as _player,bombs ref as _bullet[],invaders ref as _invader[])
	for num = bombs.length to 0 step -1
		SetSpritePositionByOffset(bombs[num].ID,GetSpriteXByOffset(bombs[num].ID),GetSpriteYByOffset(bombs[num].ID)+5)
		if GetSpriteCollision(bombs[num].ID,player.ID )
            player.lives=player.lives-1
            DeleteSprite(bombs[num].ID)
            bombs.remove(num) //remove the bomb that was shot because the sprite nolonger exists
        elseif bombs[num].time#+5.0<timer() 
            DeleteSprite(bombs[num].ID)
			bombs.remove(num):exit
		endif
	next num	
endfunction	


function moveInvaders(invaders ref as _invader[],invaderBombs ref as _bullet[],Direction as integer)
	nextDirection=Direction
	if invaders.length<4 
		speed#=5
	elseif invaders.length<12 
		speed#=4
	elseif invaders.length<24
		speed#=3
	elseif invaders.length<34
		speed#=2
	else
		speed#=1	
	endif		 	
	for num=invaders.length to 0 step -1
		SetSpritePositionByOffset(invaders[num].ID,GetSpriteXByOffset(invaders[num].ID)+(Direction*speed#),GetSpriteYByOffset(invaders[num].ID))
		if GetSpriteXByOffset(invaders[num].ID)<0 then nextDirection=1
		If GetSpriteXByOffset(invaders[num].ID)>GetWindowWidth() then nextDirection=-1
		if random(1,1000)=1 then dropBomb(invaders[num],invaderBombs)
	next num	
	if nextDirection<> Direction 
		for num=invaders.length to 0 step -1
			SetSpritePositionByOffset(invaders[num].ID,GetSpriteXByOffset(invaders[num].ID),GetSpriteYByOffset(invaders[num].ID)+20)
			If GetSpriteYByOffset(invaders[num].ID)>GetWindowHeight()-100 
				gameOver()
				exitfunction 99
			endif	
		next num	
	endif	
endfunction	nextDirection

function gameOver()
	repeat
		Print ("GAME OVER")
		Print ("You were invaded")
		Print ("Press Space to try again")
		sync()
	until GetRawKeyPressed(KEY_SPACE)
endfunction