Added flipx

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