Another small filled circe sub (not as fast as fcirc)

[SierraKen]

If you guys want super simple, I still like my old way....

Code: (Select All)

Screen _NewImage(800, 600, 32)



diameter = 200



Circle (400, 300), diameter, _RGB32(0, 255, 0)



Locate 1, 1: Input "Press Enter To Fill Circle", a$





For sz = .1 To diameter Step .1

    Circle (400, 300), sz, _RGB32(255, 0, 0)

Next sz