                               ascmc)]
           (merge
             (if (angles? (:angles want))
-              {:angles (subvec (vec ascmc) 0 8)}
+              {:angles (nice-angles ascmc (:angles want))}
               {})
             (if (houses? (:houses want))
               {:houses (zipmap (range 1 13) (rest cusps))}

          (> (count hs) 0))
      (get hs 0)
      \O)))

(defn calc [stuff]
  (let [sw (SwissEph.)

  defaults {:utc nil
            :geo {:lat nil :lon nil}
            :bodies []
            :angles [:Asc :MC]
            :houses "O"
            :meta false})

