ACCIDENTAL CODE LOOKS COOL

ahenry3068 · Post by **ahenry3068** » Tue May 30, 2023 2:42 am

I did this by accident... Trying to come up with a way to draw a cloud in the sky.
This code didn't work at all. But it kinda looks cool

Code: Select all

10 XLIMIT = 319
20 YLIMIT = 239
30 CL = 16:CU=31
40 X = RND(-TI)

60 B1 = INT(RND(1)*XLIMIT) + 1
70 B2 = INT(RND(1)*XLIMIT) + 1
80 B3 = INT(RND(1)*YLIMIT) + 1
90 B4 = INT(RND(1)*YLIMIT) + 1


100 SCREEN $80
105 COLOR 5
110  FOR F = B1 TO 0 STEP -1
115     PRINT F
120     FOR G = B2 TO 0 STEP -1
130        FOR H = B3 TO 0 STEP -1 
140           FOR I = B4 TO 0 STEP -1 
150               C = INT(RND(1) * (CU-CL)) + (CL - 1)
160               X1 = INT(RND(1)*B1)+30
170               X2 = INT(RND(1)*B2)+1
180               Y1 = INT(RND(1)*B3)+15
190               Y2 = INT(RND(1)*B4)+1
200               LINE X1,Y1,X2,Y2,C
210           NEXT I
220        NEXT H
230     NEXT G
240 NEXT F