(let [canvas (js/document.getElementById "canvas-1")
ctx (.getContext canvas "2d")
width (.-innerWidth js/window)
height (.-innerHeight js/window)]
(defn ellipse [x y w h]
(.ellipse ctx x y w h 0 0 (* 2 js/Math.PI)))
(set! (.-width canvas) width)
(set! (.-height canvas) height)
(set! (.-fillStyle ctx) "black")
(.clearRect ctx 0 0 width height)
(.fillRect ctx 0 0 width height)
(set! (.-strokeStyle ctx) "rgba(255,0,0,0.5)")
(doseq [i (range 100)]
(.beginPath ctx)
;(.arc ctx (/ width 2) (/ height 2) 150 0 (* 2 js/Math.PI))
(ellipse (/ width 2) (/ height 2)
(-> (js/Math.sin i) (* 20) (+ (* i 17)))
(-> (js/Math.cos i) (* 10) (+ (* i 4))))
(.stroke ctx))
)