GeezerVison is showing github.com — smallbasic.github.io/samples/node/1267.bas at master · smallbasic/smallbasic.github.io

Expand file tree

1267.bas

Copy path

More file actions

34 lines (32 loc) · 817 Bytes

Copy path

34 lines (32 loc) · 817 Bytes

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

'FULL SCREEN LAVA.BAS SMALLBASIC 0.12.0 2015-11-18 MGA/B+

'MANY MODIFICATIONS TO LAVA FROM THE CODE LIBRARY

DM=500

DIM CX(1 TO DM),CY(1 TO DM),CC(1 TO DM),COLR(100)

RANDOMIZE TIMER

FOR I=0 TO 100

R=RND

IF I MOD 3=0 THEN

COLR(I)=RGB(0,0,0)

ELIF I MOD 3=1

COLR(I)=RGB(R*255,0,0)

ELSE

COLR(I)=RGB(R*127+128,R*127+64,0)

FOR K = 1 TO DM

CX(K) = INT(RND*XMAX)

CY(K) = INT(RND*YMAX)

CC(K)=COLR(INT(RND*41))

NEXT K

REPEAT

RECT 0,0,XMAX,YMAX,0

PAINT INT(RND*(XMAX-2))+1,INT(RND*(YMAX-2))+1, COLR(INT(RND*101)),0

FOR K=1 TO DM

CIRCLE CX(K),CY(K),RND*8+2,RND*.6,CC(K) FILLED

CX(K)=CX(K)+INT(RND*6)

IF CX(K)>XMAX-10 THEN CX(K)=10

CY(K)=CY(K)+INT(RND*9)-4

IF CY(K)<5 OR CY(K)>YMAX-5 THEN CY(K)=RND*(YMAX-10)+5:CX(K)=10

NEXT K

SHOWPAGE

UNTIL LEN(INKEY$)