make sure to "fix" frame delays before they are returned

This commit is contained in:
Gered 2014-04-05 16:32:19 -04:00
parent 67ccf4cd4d
commit 3e20d40b6d

View file

@ -137,7 +137,7 @@
; and append the converted frame's ascii to the list ; and append the converted frame's ascii to the list
(swap! converted-frames conj {:image (:image converted) (swap! converted-frames conj {:image (:image converted)
:delay delay})))) :delay (fix-gif-frame-delay delay)}))))
(merge (merge
@image-props @image-props
{:frames @converted-frames})))) {:frames @converted-frames}))))
@ -180,5 +180,5 @@
(fn [^BufferedImage frame-image delay] (fn [^BufferedImage frame-image delay]
(-> frame-image (-> frame-image
(convert-image scale-to-width color?) (convert-image scale-to-width color?)
(assoc :delay delay) (assoc :delay (fix-gif-frame-delay delay))
(f)))))) (f))))))