free software resistance
the cost of computing freedom is eternal vigilance
### fac.fig
*original date:* may 2018
*originally posted:* oct 2024
fac.fig:
```
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
function printxy x y p c
now = p ; locate y x ; colortext c highlight 15 ; print
fig
function inc30 p
# increase p by 30 degrees, but in radians
now = 3.14159 times 2 divby 12 plus p ; return now
fig
textmode
p -3.14159 ; highlight 7 ; cls
r1 = 5.6
r2 = 9.7
sm = "9 10 11 12 1 2 3 4 5 6 7 8" ; split sm " "
lg = ":45 :50 :55 :00 :05 :10 :15 :20 :25 :30 :35 :40" ; split lg " "
for d 1 12 1
xs = p ; cos ; times r1 times 2 plus 38 int
ys = p ; sin ; times r1 times 1 plus 13 int
now = sm ; mid d 1 ; printxy xs ys now 1
xs = p ; cos ; times r2 times 2 plus 37 int
ys = p ; sin ; times r2 times 1 plus 13 int
now = lg ; mid d 1 ; printxy xs ys now 4
now = p ; inc30 p ; swap now p
next
now = line 36 11, 49 18, 4
now = line 37 11, 41 8, 1 ; locate 1 1
```
license: 0-clause bsd
```
# 2018 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.
```
=> https://freesoftwareresistance.neocities.org