From 0966239f2a1c1213c1cae64504336154b8f155a1 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Tue, 19 Dec 2023 10:35:37 -0800
Subject: [PATCH] Fixed issue with flip filters

---
 src/nasu.tal | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/nasu.tal b/src/nasu.tal
index 6146ed1..dd708b1 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -544,7 +544,8 @@ JMP2r
 	( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r }
 	( write )
 	STH2 DUP2 ,&x1 STR2
-	[ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 ,&x2 STR2
+	[ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2
+	[ LIT2 00 -selection/x1 ] LDZ #30 SFT2 ADD2 ,&x2 STR2
 	[ LIT2 &x1 $2 ] STH2kr get-pixel ,&c1 STR
 	[ LIT2 &x2 $2 ] STH2kr get-pixel ,&c2 STR
 	,&x2 LDR2 STH2kr [ LIT &c1 $1 ] put-pixel
@@ -558,11 +559,12 @@ JMP2r
 	( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r }
 	( write )
 	DUP2 ,&y1 STR2
-	[ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 ,&y2 STR2
-	DUP2 [ LIT2 &y1 $2 ]  get-pixel ,&c1 STR
-	DUP2 [ LIT2 &y2 $2 ]  get-pixel ,&c2 STR
-	DUP2 ,&y2 LDR2  [ LIT &c1 $1 ] put-pixel
-	 ,&y1 LDR2  [ LIT &c2 $1 ] !put-pixel
+	[ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 
+	[ LIT2 00 -selection/y1 ] LDZ #30 SFT2 ADD2 ,&y2 STR2
+	DUP2 [ LIT2 &y1 $2 ] get-pixel ,&c1 STR
+	DUP2 [ LIT2 &y2 $2 ] get-pixel ,&c2 STR
+	DUP2 ,&y2 LDR2 [ LIT &c1 $1 ] put-pixel
+	,&y1 LDR2 [ LIT &c2 $1 ] !put-pixel
 
 (
 @|map )