mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-05-31 21:41:32 +00:00
9 lines
324 B
QBasic
9 lines
324 B
QBasic
0DIMA(2E3),B(2E3):GR:P=3.14:FORE=0TOP*2STEP.1:?J
|
|
1M=15+COS(E)*12:N=P-SIN(E)*P:FORY=0TO19
|
|
2F=Y/M-N:A(J)=8*COS(F):B(J)=8*SIN(F):GOTO9
|
|
3J=0:FORE=1TO63:FORY=0TO19:S=20-A(J):T=20-B(J):Q=20+A(J):R=20+B(J)
|
|
4COLOR=0:HLIN12,27ATY:COLOR=1:M=S:N=T:IFQ<RTHENM=Q:N=R
|
|
6HLINM,NATY:COLOR=2:IFR<STHENT=R:Q=S
|
|
8HLINT,QATY
|
|
9J=J+1:NEXTY,E:GOTO3
|