mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-08 12:30:47 +00:00
11 lines
224 B
QBasic
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
|