            [pdok.featured.xslt TransformXSLT]
            [pdok.featured.converters Transformer]
            [com.vividsolutions.jts.geom Geometry]
-           [com.vividsolutions.jts.io WKTWriter]))
+           [com.vividsolutions.jts.io WKTWriter WKTReader]))
 
 (def lower-case
   (fnil str/lower-case ""))

(defmethod as-jts :default [_] nil)

(def gml->jts-cache (atom (cache/lu-cache-factory {} :threshold 30000)))
(defmethod as-jts "gml" [obj]
 (when-let [gml (get obj "gml")]
   (if (cache/has? @gml->jts-cache gml)


(defmethod as-jts "jts" [obj]
  (get obj "jts"))

(defmethod as-jts "wkt" [obj]
  (let [jts (.read ^WKTReader wkt-reader ^String (get obj "wkt"))]
    (when-let [srid (get obj "srid")]
      ; srid should be an integer, but it might be a string
      (doto jts (.setSRID (if (string? srid) (Integer/parseInt srid) srid))))
    jts))

(defn as-rd [^Geometry geometry]
  (when geometry
