free software resistance
the cost of computing freedom is eternal vigilance
### s.fig
*original date:* feb 2016
*originally posted:* oct 2024
s.fig:
```
function se(x, y, i)
c = 1
za = 0
while
x2 = x times x
y2 = y times y
im = i
v= x2 plus y2 plus za
ifmore v 4
break
fig
ifmore c im
break
fig
z c plus 1 swap z c
x x2
y y2
za = v #plus za swap z za
wend
z return c
fig
s = 1
yl 0
for y (-2, 2, .015625):
z yl plus 1 swap z yl
zc z mod 2 not
iftrue zc
z display #sleep .1
fig
xl 0
for x (-2, 2, .0078125):
z xl plus 1 swap z xl
z se x y 50 mod 16
pz pset xl yl z
fig
z "" print
fig
z display
```
license: 0-clause bsd
```
# 2016 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