From cfc7c0f9289b14fd86fec7de054c6219de04eedf Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 7 Jun 2023 18:48:25 -0700
Subject: [PATCH] Pause during mouse-down

---
 gui/wireworld/wireworld.tal | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gui/wireworld/wireworld.tal b/gui/wireworld/wireworld.tal
index c651a72..90406ce 100644
--- a/gui/wireworld/wireworld.tal
+++ b/gui/wireworld/wireworld.tal
@@ -14,7 +14,7 @@
 
 	@color $1
 	@pointer &x $2 &y $2
-	@timer &frame $1 &play $1
+	@timer &play $1
 
 (
 @|vectors )
@@ -44,13 +44,13 @@ BRK
 
 @on-frame ( -> )
 
+	.Mouse/state DEI #00 EQU [ JMP BRK ]
 	.timer/play LDZ [ JMP BRK ]
+
 	( every 4th )
-	.timer/frame LDZk
+	[ LIT &f $1 ] INCk ,&f STR
 		#03 AND ?&no-run
-			run
-			&no-run
-		LDZk INC SWP STZ
+		run &no-run
 
 BRK