Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

twister: final version

This commit is contained in:
Vince Weaver 2023-12-07 23:47:55 -05:00
parent 373cb1a98f
commit b5589f75a0
4 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
graphics/gr/twister/Makefile
View File

@ -42,5 +42,5 @@ TINY.BAS: tiny.bas
###
clean:
rm -f *~ *.o HELLO TWISTER.BAS LORES.BAS *.lst
rm -f *~ *.o HELLO TWISTER.BAS LORES.BAS TINY.BAS *.lst

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

@ -1,5 +1,5 @@
0DIMA(2E3),B(2E3):GR:P=3.14:W=20
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
1FORJ=0TO1280:E=E+.1:FORY=0TOW:IFE<6THENF=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:HLIN9,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
8HLINW-R,W+QATY:J=J+1:NEXTY,J:GOTO1

8
graphics/gr/twister/tiny_300.bas Normal file
View File

@ -0,0 +1,8 @@
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
9J=J+1:NEXTY,E:V=1:J=0:GOTO1

8
graphics/gr/twister/tiny_fast.bas Normal file
View File

@ -0,0 +1,8 @@
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