|
|
|
|
@ -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 |
|
|
|
|
|
Devine Lu Linvega
3 years ago