spiral cone (fig graphics)



#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
proginf = "spiralcone 2017 mn"
function rgbcolor r g b c
    figcgapal[c] = (r, g, b)
v 1
c 400
for r 490 110 -1
    for p -3.14159 3.14159 .003067958984375
        w r divby 5 plus 5 int
        rc r divby 2 int
        rd 256 minus rc rgbcolor rc 255 0 11
        x p times 2 cos times w plus c int
        y p times 2 sin times w plus r int
        m 6.28 plus 1.57 divby 108.503 divby 2
        now v plus m swap now v 
        now v int mod 2 times 11 pset x y now
        y2 y minus 1 pset x y2 now
    now display
now display lineinput




One thought on “spiral cone (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