1. Simple fader - Reply
Eduardo,
I changed you fader so it now does what I think you wanted it to do. Jiri
-- snip ------------------------------------------------------------------------
include graphics.e
include image.e
object junk
sequence bitmap,pal
procedure delay(atom dt)
atom t
t=time()
while t+dt>time() do end while -- waste time
end procedure
-- Reading bitmap and constructing a screen
junk=graphics_mode(19)
bitmap=read_bitmap("Stone.bmp")
pal=bitmap[1]/4
pal[17]={0,0,0} -- make border always black
all_palette(pal*0) -- start with all colors set to black
for g=0 to 199 by 18 do
for f=0 to 319 by 19 do
display_image({f,g},bitmap[2])
end for
end for
-- Starting 16 step fade in routine
delay(1)
for d=1 to 16 do
all_palette(pal*d/16)
delay(.1)
end for
delay(2)
-- Starting 16 step fade out routine
for d=15 to 0 by -1 do
all_palette(pal*d/16)
delay(.1)
end for
delay(1)
junk=graphics_mode(-1) -- clean up: back to text mode
