(defn heart-coords []
  (for [t (range (-(Math/PI)) (Math/PI) 0.01)]
    (let [x (* 16 (Math/pow (Math/sin t) 3))
          y (- (* 13 (Math/cos t))
               (* 5 (Math/cos (* 2 t)))
               (* 2 (Math/cos (* 3 t)))
               (Math/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]))))))