Here's a small code snippet for creating rasterbars. Just use the image I've included and run it to see the effect.
// --------------------------------- //
// Project: RasterBars By Amon
// Start: Saturday, December 26, 2009
// IDE Version: 7.203
SETCURRENTDIR("Media") // seperate media and binaries?
LOADSPRITE "rasterbar.png",0
SETSCREEN 800,600,0
LIMITFPS 60
LET yincrease = 50
TYPE RB
x
y
a
s
d
ENDTYPE
GLOBAL RBArr[] AS RB
FOR xiter = 0 TO 10
GLOBAL r AS RB
r.x = 0
r.y = 70
r.a = yincrease
r.s = 10
r.d = 5
yincrease = yincrease + 20
DIMPUSH RBArr[], r
NEXT
WHILE KEY(01) = 0
BLACKSCREEN
DrawRB()
UpdateRB()
SHOWSCREEN
WEND
FUNCTION UpdateRB:
FOREACH r IN RBArr[]
r.y = r.y + SIN(r.a)
r.a = r.a + 2
IF r.a >= 360 THEN r.a = r.a - 359
NEXT
ENDFUNCTION
FUNCTION DrawRB:
FOREACH r IN RBArr[]
DRAWSPRITE 0,r.x,r.y
NEXT
ENDFUNCTION
[attachment deleted by admin]