From df03961ca102d9e9ac71091583e52598c7dbbe32 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 21 May 2023 18:15:27 -0700
Subject: [PATCH] Added edit-invert

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

diff --git a/src/nasu.tal b/src/nasu.tal
index d541721..25c042e 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -71,7 +71,7 @@ BRK
 	( name ) "Nasu 0a
 	( details ) "A 20 "Sprite 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "Jan 20 "8, 20 "2023 00
+	( date ) "May 20 "21, 20 "2023 00
 	02
 		( icon ) 83 =appicon
 		( mask ) 41 1705
@@ -88,12 +88,13 @@ BRK
 		00 00 =file-save-mono "SaveMono $1
 		01 "p =save-theme "SaveTheme $1
 		01 "q =exit "Exit $1
-	05 "Edit $1
+	06 "Edit $1
 		01 "c =edit-copy-chr "Copy $1
 		05 "C =edit-copy-icn "CopyMono $1
 		01 "v =edit-paste "Paste $1
 		01 "x =edit-cut "Cut $1
 		00 08 =edit-erase "Erase $1
+		00 "i =edit-invert "Invert $1
 	01 "View $1
 		02 00 =toggle-zoom "Zoom $1
 	09 "Move $1
@@ -535,6 +536,17 @@ JMP2r
 
 !mclr
 
+@op-invert ( addr* -- )
+
+	,&t STR2
+	#1000
+	&loop
+		#00 OVR [ LIT2 &t $2 ] ADD2 LDA2k #ffff EOR2 SWP2 STA2
+		INC INC GTHk ?&loop
+	POP2
+
+JMP2r
+
 @op-shiftu ( addr* -- )
 
 	DUP2k #0007 ADD2 SWP2 LDAk STH
@@ -1294,6 +1306,13 @@ JMP2r
 
 !redraw
 
+@edit-invert ( -- )
+
+	;op-invert run
+	#01 .state/changed STZ draw-state
+
+!redraw
+
 ( select )
 
 @tool-brush ( -- ) #00 !set-tool