digital literacy for everyone
[lit][generate-title]
[lit]
[fig]
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
textmode
now display
function circle x y r c
cr r int plus 1
p -3.14159
try
rcpr 1 divby r
except
rcpr .005
resume
while
now p plus rcpr swap now p
ifmore p 3.14159
break
fig
cosx p cos times cr plus x int
siny p sin times cr plus y int
now pset cosx siny c
wend
fig
x
y
r
c
xf = 1
yf = 1
rf = .5
cf = 1
try
while
morex x plus 3
morey y plus 1
now circle (morex, morey), r, c : sleep .01
pc randint 1 20 mod 19 not
iftrue pc
now cls
fig
python
x = x + xf ; y = y + yf ; c = c + cf ; r = r + rf
if x < 1: xf = 1
if x > 78: xf = -1
if y < 1: yf = 1
if y > 24: yf = -1
if c < 1: cf = 1
if c > 14: cf = -1
if r < 1: rf = .5
if r > 24/4: rf = -.5
fig
wend
except
now colortext 7 : highlight 0 : cls : system : end
resume
home: [lit]https://freesoftwareresistance.neocities.org[lit]