Skip to content

Instantly share code, notes, and snippets.

@cieloazul310

cieloazul310/sketch_sep-02-2020_08-59-56.glisp.glisp

Created September 1, 2020 23:59
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/b169ce3d0e744ceb3ee4d1969826a95e to your computer and use it in GitHub Desktop.
Save cieloazul310/b169ce3d0e744ceb3ee4d1969826a95e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sketch_sep-02-2020_08-59-56.glisp.glisp
(def size 200)
(def half (/ size 2))
(def center [half half])
(defn k [i] (pow (/ (sqrt 2) 2) i ))
(defn kr [i] (* half (k i)))
(defn krect [i]
(rect
[
(- half (kr i))
(- half (kr i))
(* size (k i))
(* size (k i))
]
)
)
(defn A [i] (circle center (kr i)))
(defn B [i]
(path/transform
(pivot center (rotate (deg 45)))
(krect i)
))
(defn item [i]
(path/merge
(A i)
(B i)
(krect i)
)
)
(def items
(for [i (range 0 10 1)] (item i))
)
(artboard
{:bounds [0 0 size size] :background "#fff"}
(style (stroke "#ddd" 1) items)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment