Short Intro Challange: plazma blobs w/ scanlines

[xteraco]

heres my entry, its plazma with scanlines in lovely xteraco green

Code Select Expand


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


[Clyde]

Pretty cool mate, nice effect.

[Shockwave]

Nice plasma pattern Xteraco

[benny!]

Excellent. Luv it !

[cirux]

Nice, like the colours/flow.

[Tetra]

Good one xteraco