Dark Bit Factory & Gravity
GENERAL => Challenges & Competitions => Topic started by: xteraco on June 17, 2006
-
heres my entry, its plazma with scanlines in lovely xteraco green :)
SCREEN 18,32,2
dim as single screen_width, screen_height, plasma_speed
dim as integer scrn_xpos, scrn_ypos, plaz_color, plaz_sequance
screen_width = 640 'width of plasma area
screen_height = 300 'height of plasma area
plas_Xsize = 180 'width of single plasma bubble
plas_Ysize = 100 'height of single plasma bubble
plasma_speed = 2 'speed of plasma bubble sequance
while inkey$ = "" 'start loop here, and end loop if there's keypress
plaz_sequance = plaz_sequance + plasma_speed 'sequance the plasma at a set speed
FOR scrn_xpos = 0 TO screen_width
FOR scrn_ypos = 200 TO screen_height
plaz_color = ABS(COS((scrn_xpos + plaz_sequance) * 4 / plas_Xsize) + sin((scrn_ypos + plaz_sequance) * 4 / plas_Ysize) + cos((scrn_xpos + scrn_ypos) * 1 / 23)) * 5 / 1 + 16
PSET (scrn_xpos , scrn_ypos), RGB(0, plaz_color * 800 / 50, 0) 'draw pixels!!!!!! (xpos,ypos), color
scrn_ypos = scrn_ypos + 1 'makes it skip everyother line, adds speed!!!
NEXT scrn_ypos
NEXT scrn_xpos
wend
-
Pretty cool mate, nice effect.
-
Nice plasma pattern Xteraco :)
-
Excellent. Luv it !
-
Nice, like the colours/flow.
-
Good one xteraco :)