Returning the serve: https://gist.github.com/jackrusher/6664422

toro_beta.clj

(defn setup []
  (frame-rate 4)
  (no-fill)
  (stroke 0 0 0 128)
  (smooth))

(def rotor (atom 0))
(def zoomer (atom 200))
(def zoomer-flag (atom 1))

(defn draw []
  (frame-rate 30)
  (background 245)
  (stroke-weight 3.5)
  (stroke 29 0 16 35)
  (translate 300 300)

  (if (>= @zoomer 400)
    (reset! zoomer-flag 2))  
  (if (<= @zoomer -400)
    (reset! zoomer-flag 1))
  (if (= 1 @zoomer-flag)
    (do (swap! zoomer inc)
        (swap! rotor inc))
    (do (swap! zoomer dec)
        (swap! rotor dec)))

  (rotate (radians @rotor))

  (doseq [i (range 0 360 1.5)] 
    (push-matrix)
    (rotate (radians i))
    (translate 0 @zoomer)
    (rotate (radians i))
    (scale (map-range (sin (radians (* i 6))) -1 1 0.35 1)
           (map-range (sin (radians (* i 3))) -1 1 0.7 1))
    (ellipse 0 0 120 80)
    (pop-matrix)
    )
  )

(defsketch toro-toro-torus
  :title "plusfun with toroids"
  :setup setup
  :draw draw
  :size [600 600])