From 0cdcfd5844a9afa8f7eeca4938c65a9adb825510 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Tue, 19 Dec 2023 10:19:41 -0800
Subject: [PATCH] Added flipy

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

diff --git a/src/nasu.tal b/src/nasu.tal
index e98f02c..6146ed1 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -551,8 +551,18 @@ JMP2r
 	,&x1 LDR2 STH2r [ LIT &c2 $1 ] !put-pixel
 
 @filter-flipy ( x* y* -- )
-	POP2 POP2
-	JMP2r
+	( ignore second half )
+	DUP2
+	( ) [ LIT2 00 -selection/y1 ] LDZ #30 SFT2
+	( ) [ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 OVR2 SUB2 #01 SFT2
+	( ) 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
 
 (
 @|map )