gistfile1.clj

(ns fish.core
  (:use [arcadia.core] [hard.core] [hard.tween]))

(def ccol (objects-named "colcube"))

(defn cc-tween [go]
  (let [[x y z] (->vec (->v3 go))
        start (tween (* (+ 12 x) 0.1))
        shrink (tween {go {:local-scale [50 50 50]}} 0.1)
        grow (tween {go {:local-scale [100 100 100]}} 0.1)
        t1 (tween {go {:euler [90 90 0]}} 0.4 :pow2 :+)]
    (link start shrink)
    (link shrink t1 grow 1.5 shrink)
    (run start)))

(mapv cc-tween ccol)