From b5589f75a09be0e3f7986861e4d3ec8b937d7ea6 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 7 Dec 2023 23:47:55 -0500
Subject: [PATCH] twister: final version

---
 graphics/gr/twister/Makefile      | 2 +-
 graphics/gr/twister/tiny.bas      | 6 +++---
 graphics/gr/twister/tiny_300.bas  | 8 ++++++++
 graphics/gr/twister/tiny_fast.bas | 8 ++++++++
 4 files changed, 20 insertions(+), 4 deletions(-)
 create mode 100644 graphics/gr/twister/tiny_300.bas
 create mode 100644 graphics/gr/twister/tiny_fast.bas

diff --git a/graphics/gr/twister/Makefile b/graphics/gr/twister/Makefile
index 490bb336..150d58fe 100644
--- a/graphics/gr/twister/Makefile
+++ b/graphics/gr/twister/Makefile
@@ -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
 
diff --git a/graphics/gr/twister/tiny.bas b/graphics/gr/twister/tiny.bas
index ee402df2..f7655536 100644
--- a/graphics/gr/twister/tiny.bas
+++ b/graphics/gr/twister/tiny.bas
@@ -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
diff --git a/graphics/gr/twister/tiny_300.bas b/graphics/gr/twister/tiny_300.bas
new file mode 100644
index 00000000..04853f06
--- /dev/null
+++ b/graphics/gr/twister/tiny_300.bas
@@ -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
diff --git a/graphics/gr/twister/tiny_fast.bas b/graphics/gr/twister/tiny_fast.bas
new file mode 100644
index 00000000..7cd724cf
--- /dev/null
+++ b/graphics/gr/twister/tiny_fast.bas
@@ -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