(AGK version: 108.15)

Submitted: 2013-07-11 15:34:48

Setvirtualresolution(640,480)
ResetTimer()
//Create test sprite cube
id=CreateSprite(0)
SetSpriteColor(id,0,255,0,255)
SetSpriteSize(id,50,50)
SetSpritePosition(id,200,200)

Do
    For i=1 to 360 step 2
        SetSpriteAngle(id,i)
        Sync()
    Next i
    If Timer()>15 Then Exit
Loop
End

(AGK version: 2.0.15)

Submitted: 2015-10-25 14:23:27

// Project: ProgressCircle 
SetVirtualResolution( 100, 100 )

global spr as integer[100]
for i=0 to 99
	spr[i]=CreateSprite(0)
	r# = i * (360.0/100.0)
	SetSpriteSize(spr[i],1,1)
	SetSpriteAngle(spr[i],r#)
	x#= sin(r#)*10.0
	y#=-cos(r#)*10.0
	SetSpritePositionByOffset(spr[i],50+x#,50.0+y#)
next

p=0
do
    p=p+1
    if p>100 then p=p-100

	UpdateProgress(p)

    Print( ScreenFPS() )
    Sync()
loop
end

function UpdateProgress(p)

	for i=0 to 99	
		
		s=spr[i]
		
		if i<=p
			SetSpriteColorAlpha(s,255)
		else
			SetSpriteColorAlpha(s,64)
		endif
	next	

endfunction