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]fun.fig.png[img]
[fig]
# 2019 mn
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
now display
for p -3.14159 3.14159 0.00314159
xl2 p tan times 40 plus 400 int
yl2 p sin times 40 plus 300 int
al2 p cos times 40 plus 400 int
bl2 p sin times 40 plus 300 int
cl2 p cos times 40 plus 400 int
dl2 p tan times 40 plus 300 int
el2 p sin times 40 plus 400 int
fl2 p tan times 40 plus 300 int
gl2 p tan times 40 plus 400 int
hl2 p cos times 40 plus 300 int
xl p tan times 40 plus 400 int
yl p sin times xl plus 300 int
al p cos times 40 plus 400 int
bl p sin times al plus 300 int
cl p cos times 40 plus 400 int
dl p tan times cl plus 300 int
el p sin times 40 plus 400 int
fl p tan times el plus 300 int
gl p tan times 40 plus 400 int
hl p cos times gl plus 300 int
now line xl yl al bl 14
now line cl dl el fl 12
now line gl hl xl yl 10
xl p tan times yl plus 400 int
yl p sin times 40 plus 300 int
al p cos times bl plus 400 int
bl p sin times 40 plus 300 int
cl p cos times dl plus 400 int
dl p tan times 40 plus 300 int
el p sin times fl plus 400 int
fl p tan times 40 plus 300 int
gl p tan times hl plus 400 int
hl p cos times 40 plus 300 int
try
now line xl yl al bl 9
except
pass
resume
try
now line cl dl el fl 8
except
pass
resume
try
now line gl hl xl yl 7
except
pass
resume
now line xl2 yl2 al2 bl2 15
now line cl2 dl2 el2 fl2 13
now line gl2 hl2 xl2 yl2 11
now display
next
now lineinput
home: [lit]https://freesoftwareresistance.neocities.org[lit]