1. Simple fader - Reply
- Posted by "BABOR, JIRI" <J.Babor at GNS.CRI.NZ> Jul 18, 1997
- 620 views
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