design3D.clj

(defn heart-coords []
  (for [t (range (-(Math/PI)) (Math/PI) 0.01)] ; the circumference
    (let [x (* 16 (Math/pow (Math/sin t) 3))   ; x = 16 sin3 t
          y (- (* 13 (Math/cos t))             ; y = 13 cos t -
               (* 5 (Math/cos (* 2 t)))        ; 5 cos(2 t) -
               (* 2 (Math/cos (* 3 t)))        ; 2 cos(3 t) -
               (Math/cos (* 4 t)))             ; cos(4 t)
          z 0
          tp (/ (+ t 3) 6.1)
          r (Math/sin (* tp Math/PI))
          g 0
          b 0]
      (union
        (->> (sphere 2)
             (color [r g b 1])
             (translate [x y z]))))))