mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-05-31 21:41:32 +00:00
11 lines
219 B
QBasic
11 lines
219 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:FOR J=0 TO N
|
|
40 U=SIN(I+V)+SIN(R*I+X)
|
|
50 V=COS(I+V)+COS(R*I+X)
|
|
60 X=U+T
|
|
70 HPLOT 48*U+140,48*V+96
|
|
80 NEXT J,I
|
|
90 T=T+.025
|
|
100 GOTO 30
|