From 7c379152b4d2fe1f4d839f0653abf372fd268b38 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 7 Dec 2023 17:18:43 -0500
Subject: [PATCH] twister: update tiny version

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

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