maria-orbiters.cljs

;; 300x300 seems to be about where performance starts to degrade.

(let [i (cell (interval :frame inc))]
  (cell 
    (apply layer
      (for [x (range 0 300 20)
            y (range 0 300 20)]
        (let [angle (* (/ 3.14 180) (+ @i x y))]
          (position (+ x (* 15 (Math/cos angle)))
                    (+ y (* 15 (Math/sin angle)))
                    (circle 7)))))))