From 438bf832c4d0b6052081ee9c9435a9e5421893d3 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Tue, 19 Dec 2023 10:15:48 -0800
Subject: [PATCH] Added flipx

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

diff --git a/src/nasu.tal b/src/nasu.tal
index 0d83a83..e98f02c 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -537,12 +537,18 @@ JMP2r
 	OVR2 OVR2 get-pixel INC #03 AND !put-pixel
 
 @filter-flipx ( x* y* -- )
-
+	( ignore second half )
 	OVR2
 	( ) [ LIT2 00 -selection/x1 ] LDZ #30 SFT2
 	( ) [ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 OVR2 SUB2 #01 SFT2
 	( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r }
-	#02 !put-pixel
+	( write )
+	STH2 DUP2 ,&x1 STR2
+	[ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 ,&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
+	,&x1 LDR2 STH2r [ LIT &c2 $1 ] !put-pixel
 
 @filter-flipy ( x* y* -- )
 	POP2 POP2