Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-03 18:29:53 +00:00
Code Issues Projects Releases Wiki Activity

twister: update tiny version

Browse Source
This commit is contained in:
Vince Weaver 2023-12-07 17:18:43 -05:00
parent 697a9e6e9a
commit 7c379152b4
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
graphics/gr/twister/tiny.bas
View File

@ -1,10 +1,7 @@
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
3J=0:FORI=1TO63:FORY=0TO19:J=J+1:S=20-A(J):T=20-B(J):Q=20+A(J):R=20+B(J)
4COLOR=0:HLIN12,27ATY:COLOR=1:U=S:V=T:IFQ<RTHENU=Q:V=R
6HLINU,VATY:COLOR=2:IFR<STHENT=R:Q=S
8HLINT,QATY:NEXTY,I:GOTO3