0 Members and 1 Guest are viewing this topic.
SCREEN 18,32,2dim as single screen_width, screen_height, plasma_speeddim as integer scrn_xpos, scrn_ypos, plaz_color, plaz_sequancescreen_width = 640 'width of plasma areascreen_height = 300 'height of plasma areaplas_Xsize = 180 'width of single plasma bubbleplas_Ysize = 100 'height of single plasma bubbleplasma_speed = 2 'speed of plasma bubble sequancewhile inkey$ = "" 'start loop here, and end loop if there's keypressplaz_sequance = plaz_sequance + plasma_speed 'sequance the plasma at a set speedFOR 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_xposwend