Support Forum / Форум поддержки

Code: Select all

REM retro background
REM just a simple retro game background for fun.
REM enjoy...

GRAPHICS
res = 20
speed=.009

main:
GRAPHICS CLEAR 0,0,0
REFRESH OFF
GOSUB background
REFRESH 
GOTO main

background:
mm=mm+.speed
b=1000*SIN(mm)
g=1000*SIN(mm/2)
r=1000*SIN(mm/3)

FOR a=1 TO SCREEN_HEIGHT() STEP res
    FILL COLOR (r+a)/1000,(g+a)/1000,(b+a)/1000
    FILL RECT 0,a TO SCREEN_WIDTH(),a+res
NEXT a

RETURN