From 46e2374049552fcaabadb3e573c0527cc841bb3c Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 21 Jan 2024 09:42:10 -0800
Subject: [PATCH] (hilbert) Housekeeping

---
 projects/examples/demos/hilbert.tal | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/projects/examples/demos/hilbert.tal b/projects/examples/demos/hilbert.tal
index e9a8678..b0f137c 100644
--- a/projects/examples/demos/hilbert.tal
+++ b/projects/examples/demos/hilbert.tal
@@ -5,9 +5,9 @@
 
 @on-reset ( -> )
 	( | theme )
-	#6fff .System/r DEO2
-	#7fff .System/g DEO2
-	#8fff .System/b DEO2
+	#6f04 .System/r DEO2
+	#7f00 .System/g DEO2
+	#8f00 .System/b DEO2
 	( | screen size )
 	#00c0
 	( ) DUP2 .Screen/width DEO2
@@ -22,6 +22,7 @@
 
 @on-frame ( -> )
 	[ LIT2 &f $2 ] INC2 DUP2 ,&f STR2
+	( | end )
 	DUP2 #0400 LTH2 ?{
 		POP2 #0000 .Screen/vector DEO2
 		BRK }
@@ -51,10 +52,9 @@
 	#2001
 	&l ( -- )
 		#00 OVR STH2
-		[ LIT2 &t $2 ]
-		( ) DUP2k #01 SFT2 #0001 AND2 DUP2 ,&rx STR2
+		[ LIT2 &t $2 ] DUP2 #02 SFT2 ,&t STR2
+		( ) DUP2 #01 SFT2 #0001 AND2 DUP2 ,&rx STR2
 		( ) EOR2 #0001 AND2 ,&ry STR2
-		( ) #02 SFT2 ,&t STR2
 		[ LIT2 &x $2 ] [ LIT2 &y $2 ] [ LIT2 &rx $2 ] [ LIT2 &ry $2 ]
 		( ) STH2kr rot
 		( ) STH2kr ,&ry LDR2 MUL2 ADD2 ,&y STR2