dos33fsprogs/graphics/hgr/bubble_universe/bubble.bas
2024-02-16 00:29:06 -05:00

11 lines
224 B
QBasic

10 HCOLOR=7
20 N=200:R=6.28/235:T=0:SZ=200:SW=280/SZ:SH=SCRH/SZ
30 HGR2:FOR I=0 TO N:RR=R*I:FOR J=0 TO N
40 U=SIN(I+V)+SIN(RR+X)
50 V=COS(I+V)+COS(RR+X)
60 X=U+T
70 HPLOT 32*U+140,32*V+96
80 NEXT J,I
90 T=T+.025
100 GOTO 30