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: down to 286

Browse Source
This commit is contained in:
Vince Weaver 2023-12-07 20:55:30 -05:00
parent 7b7bdd2a2d
commit 373cb1a98f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,5 @@
0DIMA(2E3),B(2E3):GR:P=3.14:W=20
1FORE=0TOP*2STEP.1:FORY=0TOW:IFVTHEN5
3F=Y/(15+COS(E)*12)-P+SIN(E)*P:A(J)=8*COS(F):B(J)=8*SIN(F)
5S=W-A(J):T=W-B(J):Q=W+A(J):R=W+B(J)
6COLOR=0:HLIN12,27ATY:COLOR=1:M=S:N=T:IFQ<RTHENM=Q:N=R
7HLINM,NATY:COLOR=2:IFR<STHENT=R:Q=S
8HLINT,QATY:J=J+1:NEXTY,E:V=1:J=0:GOTO1
1FORJ=0TO1280:E=E+.1:FORY=0TOW:IFNOTVTHENF=Y/(15+COS(E)*12)-P+SIN(E)*P:A(J)=8*COS(F):B(J)=8*SIN(F)
5Q=A(J):R=B(J):COLOR=0:HLIN12,27ATY:COLOR=1:M=-Q:N=-R:IFQ<RTHENM=Q:N=R
7HLINW+M,W+NATY:COLOR=2:IFR<-QTHENR=-R:Q=-Q
8HLINW-R,W+QATY:J=J+1:NEXTY,J:V=1:GOTO1