Sorry your browser is not supported!

do
cls


if mouseclick()=1
inc circnum
dim circx(circnum)
dim circy(circnum)
dim diam(circnum)
circx(cirnum)=mousex()
circy(cirnum)=mousey()

circ=1
wait 500
endif


while circ=1

if mousemovex()>0

circle 200,200,mousemovex()+5
endif

if mouseclick()=2
diam(circnum)=mousemovex()+5
circ=0
endif

endwhile

for x=0 to circnum
circle 200,200,diam(circnum)
next x

loop

1st: Click Somewhere To Position The Circle
2nd: Adjust Radius By Moving Mouse LeftRight
2nd: Left-Click To Center Mouse Cursor
2nd: Right-Click To Fill In Circle
3rd: Press Any Key To Quit

Do
   If MouseClick() = 1 Then XPos = MouseX() : YPos = MouseY() : Radius = 5 : Exit
   Sync
Loop

Do
   OldMouseX = MouseX()
   If MouseClick() = 1 Then Position Mouse 320,YPos
   If MouseClick() = 2
      FillCircle(XPos,YPos,Radius) : Print "Press Any Key..."
      Suspend For Key : End
   EndIf
   Cls : Circle XPos,YPos,Radius : Sync
   If MouseX() < OldMouseX Then Inc Radius
   If MouseX() > OldMouseX Then Dec Radius
Loop

Function FillCircle(XPos,YPos,Radius)
   For Radius# = .1 To Radius Step .1
      Circle XPos,YPos,Radius#
   Next Radius#
EndFunction

ClS : Sync On : Sync Rate 0 : Randomize Timer()

MaxCircles = 10
ActiveCircles = 0

Normal = 0
Dragging = 1

Mode = Normal
TempX = 0 : TempY = 0
TempRadius = 0

Dim CircleX(MaxCircles)
Dim CircleY(MaxCircles)
Dim CircleR(MaxCircles)
Dim CircleC(MaxCircles)

Blue = RGB(0,255,255) : Red = RGB(255,0,0)

Repeat
   ClS

   If MouseClick() = 1
      If LClick = 0
         If Mode = Dragging
            If ActiveCircles <= MaxCircles
               CircleX(ActiveCircles) = TempX : CircleY(ActiveCircles) = TempY
               CircleR(ActiveCircles) = TempRadius
               CircleC(ActiveCircles) = RGB(Rnd(255),Rnd(255),Rnd(255))
               ActiveCircles = ActiveCircles + 1
            Endif
            Mode = Normal
         Else
            If Mode = Normal
               TempX = MouseX() : TempY = MouseY() : Mode = Dragging
            Endif
         Endif
      Endif
      LClick = 1
   Else
      LClick = 0
      If MouseClick() = 2
         Select Mode
            Case Dragging
               Mode = Normal
            EndCase
         EndSelect
      Endif
   Endif

   For Tmp = 0 To ActiveCircles - 1
      FilledCircle(CircleX(Tmp),CircleY(Tmp),CircleR(Tmp),CircleC(Tmp))
   Next Tmp

   If Mode = Dragging
      TempRadius = Abs(MouseX() - TempX)
      Ink Red,0 : Circle TempX,TempY,TempRadius
   Endif

   Sync
Until EscapeKey()
End

Function FilledCircle(X,Y,Radius,Color)
   For Tmp = 0 To Radius
      D = SqRt(Radius*Radius - Tmp*Tmp)
      Ink Color,0
      Box X - Tmp,Y - D,X - Tmp,Y + D
      Box X + Tmp,Y - D,X + Tmp,Y + D
   Next Tmp
EndFunction