Author Topic: Barrel Scroll full source (Read 826 times)

Shockwave · « **on:** December 16, 2009 »

This shows how to achieve the classic Amiga barrel scroll effect in Freebasic, the archive includes the music and gfx.

nzo · « **Reply #1 on:** December 16, 2009 »

Strange.. I get this..

Shockwave · « **Reply #2 on:** December 17, 2009 »

Hmmm.. What version of FB mate?
Did you compile with -lang deprecated ?

nzo · « **Reply #3 on:** December 17, 2009 »

Yes, depracated as always.
Latest version (checks) - 0.20.0
Strange?

Shockwave · « **Reply #4 on:** December 17, 2009 »

Clyde · « **Reply #5 on:** December 17, 2009 »

instead of the rgb line try this:

dim col as uinteger=( pdxfnt.bmp.pal(L*3) shl 16 )or( pdxfnt.bmp.pal(L*3+1) shl 8 )or(pdxfnt.bmp.pal(L*3+2))
if col>0 then FONT_COLOURS(L)=col

nzo · « **Reply #6 on:** December 17, 2009 »

That fixed it.