a1215

a1215_cljs_orbit.cljs

(ns work.a1215-cljs-orbit
  (:use [art.canvas :only (filled-rect filled-circle)]
        [art.util :only (canvas-2d-animation)]))

(defn draw
  [ctx]
  (let [time (* (. (js/Date.) (getTime)) 0.002)
        x (+ 128 (* 96 (. js/Math sin time)))
        y (+ 128 (* 96 (. js/Math cos (* 0.9 time))))]
    (-> ctx
        (filled-rect 0 0 255 255 "rgb(245,245,245)")
        (filled-circle x y 10 "rgb(255,0,0)"))))

(defn ^:export main []
  (canvas-2d-animation draw))