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
(swap! converted-frames conj {:image (:image converted)
:delay delay}))))
:delay (fix-gif-frame-delay delay)}))))
(merge
@image-props
{:frames @converted-frames}))))
@ -180,5 +180,5 @@
(fn [^BufferedImage frame-image delay]
(-> frame-image
(convert-image scale-to-width color?)
(assoc :delay delay)
(assoc :delay (fix-gif-frame-delay delay))
(f))))))