[REBOL] not exactly true ... Re: Re: Animated gifs...
From: petr::krenzelok::trz::cz at: 19-Nov-2002 6:39
Brett Handley wrote:
>Hmm. This seems ok,
>
> view layout [ANIM rate 3 frames read %gif-frames/ effect []]
>
>Where the folder %gif-frames holds all the individual frames.
>
It is some two years ago, or even more that I posted example (I don't
have the script anymore :-), showing anim-gifs ... Just try loading any
anim-gif and you will see, that Rebol puts them into block of separate
images for you ;-)
Here's very ugly example, some rebol guru could put it into new style.
Anim style is not all that usefull, as it tries to load each frame
separately from file or so ...
There still may be some issues, as alpha etc. ...
gif-anim: load %corsa.gif
view layout [
img: image (first gif-anim) with [
rate: 1
cnt: 1
feel: make feel [
engage: func [f a e][
if e/type == 'time [
cnt: cnt + 1
if cnt == length? gif-anim [cnt: 1]
f/image: pick gif-anim cnt
show f
]
]
]
]
]
btw: putting effect: [merge] into above code crashes rebol - sending to
feedback ....
-pekr-