mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-11 20:29:31 +00:00
11 lines
356 B
QBasic
11 lines
356 B
QBasic
0DIMA(1280),B(1280):GR:P=3.14:FORE=0TOP*2STEP.1:?J
|
|
1M=120+COS(E)*100:N=P-SIN(E)*P:FORY=0TO19:J=J+1
|
|
2F=Y*8/M-N:A(J)=8*SIN(F):B(J)=8*SIN(F+P/2):NEXTY,E
|
|
3J=0:FORI=1TO63:FORY=0TO19:J=J+1:Q=A(J):R=B(J):S=20-Q:T=20-R:Q=Q+20:R=R+20
|
|
4COLOR=0:HLIN12,27ATY:COLOR=1
|
|
5IFQ<RTHENHLINQ,RATY:GOTO7
|
|
6HLINS,TATY
|
|
7COLOR=2:IFR<STHENHLINR,SATY:GOTO9
|
|
8HLINT,QATY
|
|
9NEXTY,I:GOTO3
|