Yes and those have gone through the ringer of Pete, STx and bplus testing ;-))
But as with Charlie it is good to know how to do these on your own for customized effects (they will cost you speed probably).
For example:
```Screen _NewImage(400, 400, 32)
cx = _Width / 2: cy = _Height / 2
r = 100
While r > 0
x = 0: y = r 'reset
While x < y
Color _RGB32(x * 3, 255 - 6 * x, 0)
y = Sqr(r * r - x * x)
PSet (cx - x, cy - y)
PSet (cx + x, cy - y)
PSet (cx - x, cy + y)
PSet (cx + x, cy + y)
PSet (cx - y, cy - x)
PSet (cx + y, cy - x)
PSet (cx - y, cy + x)
PSet (cx + y, cy + x)
x = x + .25
Wend
r = r - .5
Wend```
But as with Charlie it is good to know how to do these on your own for customized effects (they will cost you speed probably).
For example:
```Screen _NewImage(400, 400, 32)
cx = _Width / 2: cy = _Height / 2
r = 100
While r > 0
x = 0: y = r 'reset
While x < y
Color _RGB32(x * 3, 255 - 6 * x, 0)
y = Sqr(r * r - x * x)
PSet (cx - x, cy - y)
PSet (cx + x, cy - y)
PSet (cx - x, cy + y)
PSet (cx + x, cy + y)
PSet (cx - y, cy - x)
PSet (cx + y, cy - x)
PSet (cx - y, cy + x)
PSet (cx + y, cy + x)
x = x + .25
Wend
r = r - .5
Wend```
b = b + ...