Sorry your browser is not supported!

// Project: DrawCircle 
// Created: 2018-12-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "DrawCircle" )
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( 60, 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
SetResolutionMode( 1 ) 

colorRed As Integer
colorRed = MakeColor(255,0,0)

angle As Float
do
	angle = PointDirection(1024/2,768/2, GetRawMouseX(), GetRawMouseY())
	DrawCircle(1024/2,768/2,768/2, colorRed, -360, -angle, 1, 1)

    Print( ScreenFPS() )
	Sync()
loop

// Source https://qb64.org/wiki/Alternative_circle_routine
Function DrawCircle(cx As Integer, cy As Integer, r As Float, color As Integer, s# As Float, e# As Float, a As Float, f As Integer)
	// Local variables used
	s As Integer
	e As Integer

	nx As Float
	ny As Float
	xr As Float
	yr As Float
	st As Float
	en As Float
	asp As Float
	stepp As Float
	c As Float
	d As Float
	
	st = s# * 0.01745329252 // convert start angle to radian and copy to local variable
	en = e# * 0.01745329252 // convert end angle to radian and copy to local variable
	asp = a // copy aspect ratio to local variable
	If asp <= 0 Then asp = 1 // keep aspect ratio between 0 and 4
	If asp > 4 Then asp = 4
	If asp < 1 // calculate x/y radius based on aspect ratio
		xr = r * asp * 4
	Else
		xr = r 
	EndIf
	If asp > 1
		yr = r * asp
	Else
		yr = r
	EndIf
	If st < 0 // remember if line needs drawn from center to start radian
		s = -1
		st = -st 
	EndIf
	If en < 0 // remember if line needs drawn from center to end radian
		e = -1
		en = -en 
	EndIf

	If s = -1 // draw line from center to start radian?
		nx = cx + xr * CosRad(st) // yes, compute starting point on circle's circumference
		ny = cy + yr * -SinRad(st)
		DrawLine(cx, cy, nx, ny, color, color) // draw line from center to radian
	EndIf

	If en <= st Then en = en + 6.2831852 // come back around to proper location (draw counterclockwise)

	stepp = 0.159154945806 / r
	//stepp = 0.159154945806 / r
	c = st // cycle from start radian to end radian
	Repeat
		nx = (1.0 * cx) + xr * CosRad(c) // compute next point on circle's circumfrerence
		ny = (1.0 * cy) + yr * -SinRad(c)
		If f = 0
			DrawLine(nx, ny, nx, ny, color, color) // draw line from center to radian
		Else
			DrawLine(cx, cy, nx, ny, color, color) // draw line from center to radian
			DrawLine(cx+1, cy, nx+1, ny, color, color) // For whatever reason AGK needs these extra
			DrawLine(cx, cy+1, nx, ny+1, color, color) // lines to fill in the circle correctly
		EndIf
		Inc c, stepp
	Until c >= en

	If e = -1 Then DrawLine(cx, cy, nx, ny, color, color) // draw line from center to end radian if needed

EndFunction

Function PointDirection(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
	angle As Float
	angle = ATanFull(y1 - y2, x1 - x2)
EndFunction angle

// Project: circsect 
// Created: 2018-12-16

// show all errors
SetErrorMode(2)

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

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

circlestart=0     // start angle to start drawing
circleend = 360   // end angle to end drawing

radius#=100

locx#=screenwidth/2
locy#=screenheight/2

col = MakeColor(0,255,0)

do
	for a#=0 to 360 step .01
		x#=radius# * sin(a#)
		y#=radius# * cos(a#)
		
		if a#>circlestart and a#<circleend then DrawLine(locx#, locy#, locx#+x#, locy# + y#, col,col)
		
	next
	dec circleend
    Print( ScreenFPS() )
    Sync()
loop

rem pseudocode example plotting along a circles circumferance
rem xlocation centre of x of your circle
rem ylocation centre of y on your circle
for c#=0 to 6.28 step.025
   x#=radius*sin(c#)+xLocation
   y#=radius*cos(c#)+yLocation
   plot x#,y#
   drawline xLocation,yLocation,x#,y#
next c#

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

uniform float StartAngle;
uniform float EndAngle;
 
void main()
{
	float x = uvVarying.x-0.5;
	float y = uvVarying.y-0.5;
	float angle = atan(y,x);
	
	if ((sqrt(x*x+y*y) <= 0.5) && ((angle >= StartAngle) && (angle <= EndAngle)))
	{
		gl_FragColor = colorVarying;
	} 
	else
	{
		gl_FragColor = vec4(0.0,0.0,0.0,0.0);
	}
		
}

// Project: DrawCircle 
// Created: 2018-12-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "DrawCircle" )
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( 60, 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
SetResolutionMode( 1 ) 

global shader as integer
shader = LoadSpriteShader("CircleArc.ps")
global circleSprite as integer
circleSprite = CreateSprite(CreateImageColor(255,255,255,255))
SetSpriteShader(circleSprite,Shader)
SetSpriteTransparency(circleSprite,1)

colorRed As Integer
colorRed = MakeColor(255,0,0)

angle As Float
do
	angle = PointDirection(1024/2,768/2, GetRawMouseX(), GetRawMouseY())
	DrawCircle(1024/2,768/2,768/2, colorRed, 0, -angle)

    Print( ScreenFPS() )
    Print( angle )
	Sync()
loop

// Source https://qb64.org/wiki/Alternative_circle_routine
Function DrawCircle(cx As Integer, cy As Integer, r As Float, color As Integer, s# As Float, e# As Float)
	// Local variables used

	st As Float
	en As Float

	SetSpriteSize(circleSprite,r*2,r*2)
	SetSpritePosition(circleSprite,cx-r,cy-r)
	SetSpriteColor(circleSprite,GetColorRed(color),GetColorBlue(Color),GetColorGreen(Color),255)
	
	st = s# * 0.01745329252 // convert start angle to radian and copy to local variable
	en = e# * 0.01745329252 // convert end angle to radian and copy to local variable
	if st < en
		SetShaderConstantByName(shader,"StartAngle",st,0,0,0)
		SetShaderConstantByName(shader,"EndAngle",en,0,0,0)
	else
		SetShaderConstantByName(shader,"StartAngle",en,0,0,0)
		SetShaderConstantByName(shader,"EndAngle",st,0,0,0)
	endif
		

EndFunction

Function PointDirection(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
	angle As Float
	angle = ATanFull(y1 - y2, x1 - x2)
EndFunction angle

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

uniform float StartAngle;
uniform float EndAngle;
 
void main()
{
	float x = uvVarying.x-0.5;
	float y = uvVarying.y-0.5;
	float angle = atan(y,x);
	if (angle < 0.0) angle += 6.28318530718;
	
	if ((sqrt(x*x+y*y) <= 0.5) && ((angle >= StartAngle) && (angle <= EndAngle)))
	{
		gl_FragColor = colorVarying;
	} 
	else
	{
		gl_FragColor = vec4(0.0,0.0,0.0,0.0);
	}
		
}

// Project: DrawCircle 
// Created: 2018-12-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "DrawCircle" )
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( 60, 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
SetResolutionMode( 1 ) 

global shader as integer
shader = LoadSpriteShader("CircleArc.ps")
global circleSprite as integer
circleSprite = CreateSprite(CreateImageColor(255,255,255,255))
SetSpriteShader(circleSprite,Shader)
SetSpriteTransparency(circleSprite,1)

colorRed As Integer
colorRed = MakeColor(255,0,0)
startAngle as float
startAngle = 0.0
angle As Float

do
	angle = PointDirection(1024/2,768/2, GetRawMouseX(), GetRawMouseY())
	if GetRawMouseLeftPressed() = 1
		startAngle = angle
	else
		DrawCircle(1024/2,768/2,768/2, colorRed, startAngle, angle)
	endif

    Print( ScreenFPS() )
    Print( angle )
	Sync()
loop

// Source https://qb64.org/wiki/Alternative_circle_routine
Function DrawCircle(cx As Integer, cy As Integer, r As Float, color As Integer, s# As Float, e# As Float)
	// Local variables used

	st As Float
	en As Float

	SetSpriteSize(circleSprite,r*2,r*2)
	SetSpritePosition(circleSprite,cx-r,cy-r)
	SetSpriteColor(circleSprite,GetColorRed(color),GetColorBlue(Color),GetColorGreen(Color),255)
	
	st = s# * 0.01745329252 // convert start angle to radian and copy to local variable
	en = e# * 0.01745329252 // convert end angle to radian and copy to local variable
	if st < en
		SetShaderConstantByName(shader,"StartAngle",st,0,0,0)
		SetShaderConstantByName(shader,"EndAngle",en,0,0,0)
	else
		SetShaderConstantByName(shader,"StartAngle",en,0,0,0)
		SetShaderConstantByName(shader,"EndAngle",st,0,0,0)
	endif
		

EndFunction

Function PointDirection(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
	angle As Float
	y1 = 767 - y1
	y2 = 767 - y2
	angle = ATanFull(y1 - y2, x1 - x2)
EndFunction angle

// Project: CircleShader 

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Circle segment" )
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
SetVsync(1) 
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

// Create a simple image
// you could use ANY image/texture you want to fill in your circle segment rather than a solid colour
Im = CreateImageColor(255,0,0,255)

// Create the sprite
Spr = CreateSprite(Im)
SetSpriteSize(Spr,512,512)
SetSpritePosition(Spr,200,200)

// Load the shader and apply it
Sdr = LoadSpriteShader("CircleSegment.ps")
SetSpriteShader(Spr,Sdr)


do
	
	//Change the angle
	Angle# = 160*sin(Timer()*80)
	
	// Set an inner radius
	ir# = 0.2+0.2*sin(Timer()*18)
	
	// Set the angle into the shader
	SetShaderConstantByName(Sdr,"Angles",-170,Angle#,0.5,ir#)


    // If escape is pressed then exit
    if GetRawKeyPressed(27) then end
    
    Sync()
loop

uniform sampler2D texture0;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;
 
uniform vec4 Angles; 
 
mediump vec2 Centre = vec2(0.5,0.5);


void main()
{
    // Calculate if inside a circle
    mediump vec2 Diff = uvVarying-Centre;
    if(length(Diff)>Angles.z || length(Diff)<Angles.w) discard;

    // calculate the angle
    mediump float Angle = atan(Diff.x,-Diff.y);
    Angle = degrees(Angle);
    
    if (Angle > Angles.x && Angle< Angles.y)
    {
		gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;		
	}
	else
	{	
		discard;
	}
}

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

// Project: CircleShader 

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Circle segment" )
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
SetVsync(1) 
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

// Create a simple image
// you could use ANY image/texture you want to fill in your circle segment rather than a solid colour
Im = CreateImageColor(255,0,0,255)

Sdr = LoadSpriteShader("CircleSegment.ps")

// Create the sprite
Spr = CreateSprite(Im)
SetSpriteSize(Spr,200,200)
SetSpritePosition(Spr,200,200)
SetSpriteShader(Spr,Sdr)


Spr2 = CreateSprite(Im)
SetSpriteSize(Spr2,200,200)
SetSpritePosition(Spr2,500,200)
SetSpriteAngle(Spr2,180)
SetSpriteShader(Spr2,Sdr)



do
	
	//Change the angle
	Angle# = 180*sin(Timer()*80)
	Print (Angle#)
	
	// Set an inner radius
	ir# = 0//0.2+0.2*sin(Timer()*18)
	
	// Set the angle into the shader
	SetShaderConstantByName(Sdr,"Angles",-180,Angle#,0.5,ir#)


    // If escape is pressed then exit
    if GetRawKeyPressed(27) then end
    
    Sync()
loop

uniform sampler2D texture0;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;
 
uniform vec4 Angles; 
 
mediump vec2 Centre = vec2(0.5,0.5);


void main()
{
    // Calculate if inside a circle
    mediump vec2 Diff = uvVarying-Centre;
	mediump vec4 Range = Angles;
	bool Invert = false;
	
    if(length(Diff)>Angles.z || length(Diff)<Angles.w) discard;
	
	//Bring angles into range of -180 to 180
	while (Range.x >= 180.0) Range.x -= 360.0;
	while (Range.x < -180.0) Range.x += 360.0;
	while (Range.y >= 180.0) Range.y -= 360.0;
	while (Range.y < -180.0) Range.y += 360.0;
	
    // calculate the angle
    mediump float Angle = atan(Diff.x,-Diff.y);
    Angle = degrees(Angle);
	
	//check for crossing -180/180 boundary
	if (Range.y < Range.x)
	{
		Range.z = Range.x;
		Range.x = Range.y;
		Range.y = Range.z;
		Invert = true;
	}
		
    
    if (Angle > Range.x && Angle< Range.y)
    {
		if (Invert == false) 
		{
			gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
		}
		else
		{
			discard;
		}
	}
	else
	{	
		if (Invert == true) 
		{
			gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
		}
		else
		{
			discard;
		}
	}
}

// Project: DrawCircle 
// Created: 2018-12-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "DrawCircle" )
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( 60, 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
SetResolutionMode( 1 ) 

global shader as integer
shader = LoadSpriteShader("CircleSegment.ps")
global circleSprite as integer
circleSprite = CreateSprite(CreateImageColor(255,255,255,255))
SetSpriteShader(circleSprite,Shader)
SetSpriteTransparency(circleSprite,1)

colorRed As Integer
colorRed = MakeColor(255,0,0)
startAngle as float
startAngle = 0.0
angle As Float

do
	if GetRawKeyPressed(27) then end
	angle = ATanFull(GetPointerX()-1024/2,GetPointerY()-768/2)
	if GetPointerPressed() = 1
		startAngle = angle
	else
		DrawCircle(1024/2,768/2,768/2, 0.25, colorRed, startAngle, angle)
	endif

    Print( ScreenFPS() )
    Print( angle )
	Sync()
loop

// cx, cy: Center of arc
// r: radius of arc in pixels
// ir: inner radius, percentage of r, so 0.5 will set the inner radius half way betweem
//      r and the center, 0.0 will completely fill the arc, 0.9 will make a thin line, etc...
// color: the color of the arc
// s, e: starting and ending angle of the arc, always drawn from s to e in a clockwise direction
Function DrawCircle(cx As Integer, cy As Integer, r As Float, ir as float, color As Integer, s As Float, e As Float)
	// Local variables used

	SetSpriteSize(circleSprite,r*2,r*2)
	SetSpritePosition(circleSprite,cx-r,cy-r)
	SetSpriteColor(circleSprite,GetColorRed(color),GetColorBlue(Color),GetColorGreen(Color),255)
	
	SetShaderConstantByName(shader,"Angles",s,e,0.5, ir*0.5)
		

EndFunction