gered/clj-image2ascii
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

convert frame delays to milliseconds and fix really low delays

Browse source
This commit is contained in:
Gered 2014-04-02 22:17:45 -04:00
parent cc79193339
commit 921d00a6ab
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/clojure/clj_image2ascii/core.clj
View file

@ -75,13 +75,23 @@
:color? (if color? true false) ; forcing an explicit true/false because i am nitpicky like that :color? (if color? true false) ; forcing an explicit true/false because i am nitpicky like that
:image (ImageToAscii/convert final-image color?)}))) :image (ImageToAscii/convert final-image color?)})))
(defn- fix-gif-frame-delay [delay]
; based on the findings here: http://nullsleep.tumblr.com/post/16524517190/animated-gif-minimum-frame-delay-browser-compatibility
; basically, we should not allow any delay less then 0.02s (20ms) because none of the major browsers support it
; and this library is primarily intended for web use, where we want to mimic GIF-like playback (even though we
; won't be held by the same limitations since we will be using javascript for our animation)
(let [ms (* delay 10)]
(if (< ms 20)
20
ms)))
(defn- get-ascii-gif-frames [^ImageInputStream image-stream scale-to-width color?] (defn- get-ascii-gif-frames [^ImageInputStream image-stream scale-to-width color?]
(->> (AnimatedGif/read image-stream) (->> (AnimatedGif/read image-stream)
(mapv (mapv
(fn [^ImageFrame frame] (fn [^ImageFrame frame]
(-> (.image frame) (-> (.image frame)
(convert-image scale-to-width color?) (convert-image scale-to-width color?)
(assoc :delay (.delay frame))))))) (assoc :delay (fix-gif-frame-delay (.delay frame))))))))
(defn convert-animated-gif-frames (defn convert-animated-gif-frames
([^ImageInputStream image-stream color?] ([^ImageInputStream image-stream color?]