java iterator

gistfile1.clj

(defn extract-points [iterator]
  (fn []
    (let [points (make-array Double/TYPE 6)]
      (.currentSegment iterator points)
      (.next iterator))))

(defn extract-all-points [path_iterator]
  (doall
    (take-while (fn [_] (not (.isDone path_iterator)))
                (repeatedly (extract-points path_iterator))))