From 7b7bdd2a2d60f9842d6960024b5dc9f5c6cdeecb Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 7 Dec 2023 20:16:47 -0500
Subject: [PATCH] twister: down below 300

---
 graphics/gr/twister/tiny.bas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/graphics/gr/twister/tiny.bas b/graphics/gr/twister/tiny.bas
index 727850d6..67730e84 100644
--- a/graphics/gr/twister/tiny.bas
+++ b/graphics/gr/twister/tiny.bas
@@ -1,7 +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: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
+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