Sorry your browser is not supported!

SetErrorMode(2)
 
SetVSync(1)
// set window properties
SetWindowTitle( "test" )
setwindowsize( 1366.0, 768.0, 0, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetDisplayAspect( 1366.0/768.0 )
SetOrientationAllowed( 0, 0, 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

circleprogress = LoadSprite( "/media/lightyellow.png" )
SetSpriteSize( circleprogress, 30, 30*1.778645 )
SetSpritePositionByOffset( circleprogress, 50, 50 )
cps = LoadShader( "/media/Shader/circle.vs", "/media/Shader/circle.ps" )
SetSpriteShader( circleprogress, cps )
//setspriteangle(circleprogress, -90) - no effect
//following code does not produce a sprite on screen
//Render2DBack()
//tool_durability_image = GetImage( 50, 50, 50.0, 50.0 )
//circleprogress1 = CreateSprite( tool_durability_image )
//deletesprite(circleprogress)
//SetSpritePositionByOffset( circleprogress1, 50, 50 ) 
//SetSpriteAngle( circleprogress1, -90.0 )



do 
    sync()
loop

attribute highp vec4 position;
attribute mediump vec4 color;
attribute mediump vec2 uv;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;
varying mediump vec4 posVarying;
uniform highp mat4 agk_Ortho;
 
void main() 
{
    gl_Position = agk_Ortho * position;
    uvVarying = uv;
    colorVarying = color;
    posVarying = position;
}

uniform sampler2D texture0;
uniform vec2 agk_spritepos;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;
varying mediump vec4 posVarying;

 
void main ()
{
float progress = .75;
float endangle = progress*3.14;
float l = length(uvVarying - vec2(0.5, 0.5));
vec2 delta = ( posVarying.xy- vec2(50.0, 50.0));  
float angle = acos(dot(normalize(delta),vec2(0,1)));
if (l > 0.5 ||  l < 0.4 )
{
discard;
}
else
{
if (angle > endangle && progress != 1.0 ) 
discard;
}




gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
}

// Project: Clock Reveal 
// Created: 2018-04-16 by Rich Dersheimer

// set window properties
SetWindowTitle("Clock Reveal")
SetWindowSize(1024,768,0)

// set display properties
SetVirtualResolution(1024,768)
UseNewDefaultFonts(1)
SetClearColor(100,100,255)

// make the half-disc image
colorWhite = MakeColor(255,255,255)
DrawEllipse(512.0,384.0,100.0,100.0,colorWhite,colorWhite,1)
render()
DiscImg = GetImage(412.0,284.0,100.0,200.0)
ClearScreen()

// make the 4 sprites
Disc as integer[4]
For D = 1 to 4
	Disc[D] = CreateSprite(DiscImg)
	SetSpriteOffset(Disc[D],100.0,100.0)
	SetSpritePositionByOffset(Disc[D],512.0,384.0)
next D

// set up the sprite colors and angles
SetSpriteColor(Disc[1],255,0,0,255)
SetSpriteColor(Disc[3],255,0,0,255)
SetSpriteColor(Disc[4],0,150,0,255)
SetSpriteColor(Disc[2],0,150,0,255)
SetSpriteAngle(Disc[1],180.0)
SetSpriteAngle(Disc[2],180.0)

// add some buttons
AddVirtualButton(1,325.0,400.0,50.0)
SetVirtualButtonColor(1,255,0,0)
SetVirtualButtonText(1,"FIRE")

AddVirtualButton(2,700.0,400.0,50.0)
SetVirtualButtonColor(2,0,255,0)
SetVirtualButtonText(2,"REFUEL")

// initialize the amount of fuel
FuelState# = 360.0

do
	If GetVirtualButtonState(1) = 1 AND FuelState# <= 360.0 AND FuelState# >180.0
		SetSpriteAngle(Disc[4], FuelState#)
		SetSpriteVisible(Disc[4],1)
		FuelState# = FuelState# - 1.0
	endif
	
	If GetVirtualButtonState(1) = 1 AND FuelState# <= 180.0 AND FuelState# >= 1.0
		SetSpriteAngle(Disc[2], FuelState#)
		SetSpriteVisible(Disc[4],0)		
		FuelState# = FuelState# - 1.0
	endif

	If GetVirtualButtonState(2) = 1 AND FuelState# >= 0.0 AND FuelState# < 180.0
		SetSpriteAngle(Disc[2], FuelState#)
		SetSpriteVisible(Disc[2],1)
		FuelState# = FuelState# + 1
	endif

	If GetVirtualButtonState(2) = 1 AND FuelState# >=180.0 AND FuelState# < 360.0
		SetSpriteAngle(Disc[4], FuelState#)
		SetSpriteVisible(Disc[4],1)
		FuelState# = FuelState# + 1
	endif	
	
	if FuelState# = 0.0
		SetSpriteVisible(Disc[2],0)
		SetSpriteAngle(Disc[2],0.0)
	endif
	
	if FuelState# = 360.0
		SetSpriteAngle(Disc[4],0.0)
		SetspriteVisible(Disc[4],1)
	endif

	FuelPercentage = FuelState#/360.0 * 100
	print("Fuel State: " + str(FuelPercentage) + "%")
    Sync()
loop

SetWindowTitle( "Radial Progress Bar" )
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( 0, 0, 1, 1 ) // allow only 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



radialTextureID=CreateProgressRadial()
radialTextureID2=clearProgressRadial()
//SetImageTransparentColor(radialTextureID,0,0,0 )
//SetImageTransparentColor(radialTextureID2,0,0,0 )

CreateSprite(3,0) //this could use any image you have loaded that you wish to hide with your radial progress bar
SetSpriteSize(3,255,255)
SetSpriteColor(3,0,255,0,255)
CreateSprite(1,radialTextureID)
CreateSprite(2,radialTextureID2)
SetSpritePosition(1,0,0)
SetSpritePosition(2,0,0)
SetSpritePosition(3,0,0)
SetSpriteDepth(1,1)
SetSpriteDepth(2,2)
SetSpriteDepth(3,5)


SetClearColor(0,0,0)
angle#=0
repeat 
	angle#=angle#+1
	if angle#<=360
		SetSpriteAngle(1,angle#)
		tempImg=progressRadial()
		DeleteImage(radialTextureID2)
		CopyImage(radialTextureID2,tempImg,0,0,255,255) 
		SetSpriteimage(2,radialTextureID2)
	else
		angle#=0
		tempImg=clearProgressRadial()
		DeleteImage(radialTextureID2)
		CopyImage(radialTextureID2,tempImg,0,0,255,255)
		SetSpriteimage(2,radialTextureID2)
	endif
sync()
until GetRawKeyPressed(27)

function clearProgressRadial()
	SetClearColor(0,0,0)
    ClearScreen()
	DrawBox (0,0,255,255,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
    Render()
    img = getimage(0,0,255,255)
	SetImageTransparentColor(img,0,0,0 )
    Swap() 
endfunction img

function createProgressRadial()
    SetClearColor(0,0,0)
    ClearScreen()
	//DrawBox (124,0,130,128,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
    DrawBox (124,0,130,128,MakeColor(1,1,1),MakeColor(1,1,1),MakeColor(1,1,1),MakeColor(1,1,1),1)
    Render()
    img = getimage(0,0,255,255)
	SetImageTransparentColor(img,0,0,0 )
    Swap() 
 endfunction img
 

function progressRadial()
	SetClearColor(0,0,0)
    ClearScreen()
    DrawSprite(1)
    Render()
    img = getimage(0,0,255,255)
    //Swap()  	
 endfunction img

SetWindowTitle( "Speedometer" )
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( 0, 0, 1, 1 ) // allow only 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 speedoTextureID       =3
#constant speedoNeedleTextureID =4

CreateSpeedoTexture(speedoTextureID)
CreateSprite(1,speedoTextureID)
SetSpritePosition(1,10,768-GetSpriteHeight(1))
CreateSpeedoNeedle(speedoNeedleTextureID)
CreateSprite(2,speedoNeedleTextureID)
SetSpritePosition(2,10,768-GetSpriteHeight(2))
angle#=0
repeat 
	angle#=angle#+1
	SetSpriteAngle(2,angle#)
sync()
until GetRawKeyPressed(27)

function CreateSpeedoTexture(imgId as integer)
	SetClearColor(0,0,0)
	ClearScreen()
	text1=createText("10"):SetTextSize(text1,20):SetTextPosition(text1,15,167):DrawText(text1)
	text2=createText("20"):SetTextSize(text2,20):SetTextPosition(text2,0,130):DrawText(text2) 
	text3=createText("30"):SetTextSize(text3,20):SetTextPosition(text3,1,87):DrawText(text3) 
	text4=createText("40"):SetTextSize(text4,20):SetTextPosition(text4,18,46):DrawText(text4) 
	text5=createText("50"):SetTextSize(text5,20):SetTextPosition(text5,50,17):DrawText(text5) 
	text6=createText("60"):SetTextSize(text6,20):SetTextPosition(text6,90,1):DrawText(text6) 
	text7=createText("70"):SetTextSize(text7,20):SetTextPosition(text7,134,1):DrawText(text7) 
	text8=createText("80"):SetTextSize(text8,20):SetTextPosition(text8,177,17):DrawText(text8) 
	text9=createText("90"):SetTextSize(text9,20):SetTextPosition(text9,209,46):DrawText(text9) 
	text10=createText("100"):SetTextSize(text10,20):SetTextPosition(text10,226,87):DrawText(text10) 
	text11=createText("110"):SetTextSize(text11,20):SetTextPosition(text11,228,130):DrawText(text11) 
	text12=createText("120"):SetTextSize(text12,20):SetTextPosition(text12,220,167):DrawText(text12) 
	Render()
	//img = getimage(0,0,255,255)
	getimage(ImgId,0,0,255,255)
	Swap()
	DeleteText(text1):DeleteText(text2):DeleteText(text3):DeleteText(text4):DeleteText(text5):DeleteText(text6)
	DeleteText(text7):DeleteText(text8):DeleteText(text9):DeleteText(text10):DeleteText(text11):DeleteText(text12)
endfunction //img  
 
function CreateSpeedoNeedle(imgId as integer)
	ClearScreen()
	DrawLine( 125, 126, 58, 194,255,255,255 )
	DrawLine( 126, 126, 59, 194,255,255,255 )
	DrawLine( 127, 126, 60, 194,255,255,255 )
	DrawEllipse(126,126,4,4,makecolor(255,255,255),makecolor(255,255,255),1) 
	Render()
	//img = getimage(0,0,255,255)
	getimage(ImgId,0,0,255,255)
	Swap() 
 endfunction //img