Skip to content

Instantly share code, notes, and snippets.

@cieloazul310

cieloazul310/sketch_sep-01-2020_11-44-02.glisp.glisp

Created September 1, 2020 02:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cieloazul310/e103d6dd769317d421ff0a3a5d71c0bf to your computer and use it in GitHub Desktop.
Save cieloazul310/e103d6dd769317d421ff0a3a5d71c0bf to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sketch_sep-01-2020_11-44-02.glisp.glisp
(def size 600)
(def half (/ size 2))
(def center [half half])
(def cyan "#00FFFF")
(def magenta "#FF00FF")
(def yellow "#FFFF00")
(def black "#000000")
(defn color [i]
(case (mod i 4)
0 cyan
1 magenta
2 yellow
3 black
)
)
(defn transformer [i]
(transform
(path/align-at (mod (/ i 6) 1)
(circle center (* half (pow 0.9 i)))
)
(circle [0 0] (* half (pow 0.95 i)))
)
)
(def item (for [i (range 0 18 1)]
(style (stroke (color i) 1)
(transformer i)
)
))
(artboard
{:bounds [0 0 size size] :background "#fff"}
item
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment