mod (fig graphics)

mod

 

#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/

proginf = "mod 2007 mn fig version 2017 mn"

function rgbcolor r g b
python
    figcgapal[0] = (r, g, b)
    fig
    fig

FOR y = 1 512 1
FOR x = 1 768 1

a = x times y times 3.14 times 4 COS times 10 minus .5 int mod 8

ifequal a 1 
r 512 minus y mod 256
g 512 minus y mod 256
b 768 minus x mod 192 plus 64
xc x plus 16
yc y plus 44
y2 y plus 45
now rgbcolor r g b PSET (xc, yc), 0 #PSET (xc, y2), 0
fig

NEXT
now display
NEXT
now display lineinput

 

 

Advertisements

2 thoughts on “mod (fig graphics)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s