     test-meta))
 
 (defn overwrite-metadata [filename metadata]
-  (overwrite-comment filename (get-xml-string metadata)))
+  (overwrite-comment filename (get-ome-xml-string metadata)))
 


(defn rand-image [w h nchannels bytes-per-pixel]
  (rand-bytes (* w h nchannels )))

(def test-meta (populate-meta (new-ome-meta) 512 512 2 2 2 2))


    (.setPixelsType PixelType/UINT8 0)
    (.setChannelID "Channel:0:0" 0 0)
    (.setChannelSamplesPerPixel (+int ncomponents) 0 0)))

;; read/write tiff files

(defn write-ome-tiff [filename pixels metadata]
  (doto (ImageWriter.)
