Pointless Circle thingy...

Me too , try this...

Graphics 640,480
SetBuffer BackBuffer()

outerr = Rand(0,220)
innerr = outerr - Rand(10,outerr)
col = Rand(0,16777215)

Repeat


	LockBuffer BackBuffer()
	
	For x=-outerr To outerr
		For y=-outerr To outerr
		
			r= Sqr((x*x)+(y*y))

			
			If r>=innerr And r<=outerr Then
				If intriangle(x,y,0,0,Sin(ang)*(outerr*2),Cos(ang)*(outerr*2),Sin(ang+2)*(outerr*2),Cos(ang+2)*(outerr*2)) Then 
					If r=innerr Or r=outerr Then c=16777215 Else c=col
					WritePixelFast x+320,y+240,c
				EndIf
			EndIf
		
		Next
	Next
	
	UnlockBuffer BackBuffer()
	Flip
	
ang = (ang + 1) Mod 360
	
	If ang = 0 Then
		outerr = Rand(0,220)
		innerr = outerr - Rand(10,outerr)
		col = Rand(0,16777215)
	EndIf
		
		
	
Until KeyHit(1)


Function InTriangle(x,y,x1,y1,x2,y2,x3,y3)
	ab# = (y-y1)*(x2-x1) - (x-x1)*(y2-y1) 
	ca# = (y-y3)*(x1-x3) - (x-x3)*(y1-y3)
	bc# = (y-y2)*(x3-x2) - (x-x2)*(y3-y2)
	Return ab*bc>0 And bc*ca>0
End Function