digital literacy for everyone


[lit]

[generate-title]

[lit] fig is a multi-purpose educational language-- originally designed to offer 16 colours in the term window or vt, with a compatible 16-colour palette in a graphics window. [img]https://ia801509.us.archive.org/29/items/fig_screencaps/cirs.fig.png[img] [fig] #### license: creative commons cc0 1.0 (public domain) #### http://creativecommons.org/publicdomain/zero/1.0/ sa 100 display cx arr times sa cy arr times sa cc arr times sa function cir(x y c) while ifless x 100 z x plus 10 swap z x fig ifless y 100 z y plus 10 swap z y fig ifmore x 700 z x minus 10 swap z x fig ifmore y 500 z y minus 10 swap z y fig ifmore x 99 ifmore y 99 ifless x 701 ifless y 501 break fig fig fig fig wend xo = -10 yo = 0 for p -3.14159 3.14159 0.5 #4879857142857144 #p -3.14159 zx p times 10 cos times 5 int plus x zy p times 10 sin times 5 int plus y z pset zx zy c #ifequal xo -10 #pass #else #z line xo yo zx zy c #fig xo = zx yo = zy next fig for r 1 sa 1 co randint 9 15 cc arrset r co sx randint 5 750 cx arrset r sx sy randint 5 550 cy arrset r sy z cir sx sy co next dd while for r 1 sa 1 co arrget cc r zx arrget cx r sx randint -5 5 divby 1 int times 1 plus zx cx arrset r sx zy arrget cy r sy randint -5 5 divby 1 int times 1 plus zy cy arrset r sy ifequal dd 0 z cir zx zy 0 z cir sx sy co fig next z sleep .005 now dd plus 1 swap now dd ifmore dd 5 dd 0 fig ifequal dd 0 now display dd 0 fig wend
fig main page: [url]https://codeinfig.neocities.org/fig/index.html[url] home: [lit]https://codeinfig.neocities.org[lit]