(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))
  )