psychedelic-animation.cljs

; rewritten in Clojurescript from javascript (originally by Piotr Stosur: http://js1k.com/2013-spring/demo/1431)

(ns psychedelic-animation.demo
  (:use [enchilada :only [canvas svg ctx]]
        [jayq.core :only [show hide]]
        [monet.core :only [animation-frame]]
        [monet.canvas :only [fill-style fill-rect draw-image rotate translate]]))

(show canvas)
(hide svg)

(defn draw-frame! [img v t]
  (let [w (+ 400 (* (Math/sin t) 1))
        r (Math/floor (* (Math/sin (* t 3)) 255))
        g (Math/floor (* (Math/sin (* t 5)) 255))
        b (Math/floor (* (Math/sin (* t 7)) 255))]
    (->
      ctx
      (fill-style (str "rgba(" r "," g "," b ",0.1)"))
      (fill-rect { :x 0 :y 0 :w w :h w })
      (draw-image img { :x 0 :y 0 :w w :h w })
      (rotate (* 0.01 (Math/abs (Math/sin t)))))))

(defn animate [img v]
  (letfn [(loop [t]
            (fn []
              (animation-frame (loop (+ t 0.01))
              (draw-frame! img v t))))]
    ((loop 0))))
      
(animate (.get canvas 0) 450)