I had fun this morning trying to get this going, not quite right but close enough to give idea.
_TITLE "*** Circle Filled *** by bplus 2018-02-28"
i = 0
r = 150
ck = 1
IF ((x
- cs
(c
).x
) ^ 2 + (y
- cs
(c
).y
) ^ 2) ^ .5 < r
+ cs
(c
).r
THEN ck
= 0:
EXIT FOR IF ck
THEN 'new circle draw it fcirc x, y, r
cs(i).x = x
cs(i).y = y
cs(i).r = r
i = i + 1
'keep reducing r until smallest r desired
r = r - 1
'start this sucker in top left corner of screen
cs(i).x = r
cs(i).y = r
cs(i).r = r
fcirc cs(i).x, cs(i).y, cs(i).r
i = i + 1
'Steve McNeil's copied from his forum note: Radius is too common a name
RadiusError = -subRadius
X = subRadius
Y = 0
' Draw the middle span here so we don't draw it twice in the main loop,
' which would be a problem with blending turned on.
LINE (CX
- X
, CY
)-(CX
+ X
, CY
), , BF
RadiusError = RadiusError + Y * 2 + 1
LINE (CX
- Y
, CY
- X
)-(CX
+ Y
, CY
- X
), , BF
LINE (CX
- Y
, CY
+ X
)-(CX
+ Y
, CY
+ X
), , BF
X = X - 1
RadiusError = RadiusError - X * 2
Y = Y + 1
LINE (CX
- X
, CY
- Y
)-(CX
+ X
, CY
- Y
), , BF
LINE (CX
- X
, CY
+ Y
)-(CX
+ X
, CY
+ Y
), , BF
If you know what I am trying to get at, feel free to show me the way. :)