A src/manifest.tal => src/manifest.tal +39 -0
@@ 0,0 1,39 @@
+@manifest
+
+ &name "Nasu $1
+ &date "2022-06-27 $1
+ &size &w 0130 &h 00e0
+ &theme &r 0a6f &g 05cf &b 0caf
+ &menu
+ 04 "File $1
+ 10 'n :file-new "New $1
+ 10 'r :file-rename "Rename $1
+ 10 'o :file-open "Open $1
+ 10 's :file-save "Save $1
+ 03 "Edit $1
+ 10 'c :edit-copy "Copy $1
+ 10 'v :edit-paste "Paste $1
+ 10 'x :edit-cut "Cut $1
+ 03 "Select $1
+ 00 'q :select-tool1 "Brush $1
+ 00 'w :select-tool2 "Selector $1
+ 00 'e :select-tool2 "Zoom $1
+ 04 "Pick $1
+ 00 '1 :pick-1 "Color1 $1
+ 00 '2 :pick-2 "Color2 $1
+ 00 '3 :pick-3 "Color3 $1
+ 00 '4 :pick-4 "Color4 $1
+ 08 "Move $1
+ 01 00 :move-up "Up $1
+ 02 00 :move-down "Down $1
+ 04 00 :move-left "Left $1
+ 08 00 :move-right "Right $1
+ 01 00 :scale-up "Decr.Height $1
+ 02 00 :scale-down "Incr.Height $1
+ 04 00 :scale-left "Decr.Width $1
+ 08 00 :scale-right "Incr.Width $1
+ 03 "Options $1
+ 00 08 :option-erase "Erase $1
+ 00 20 :option-zoom "Zoom $1
+ 00 1b :option-deselect "Deselect $1
+
M src/nasu.tal => src/nasu.tal +4 -2
@@ 313,7 313,7 @@ BRK
BRK
@on-touch-toolview ( -> )
-
+
( release mouse ) #00 .Mouse/state DEO
.Mouse/x DEI2 .toolview/x1 LDZ2 SUB2 #03 SFT2 NIP
[ #1f ] NEQk NIP ,&no-save JCN ;save-file JSR2 POP BRK &no-save
@@ 1080,7 1080,7 @@ JMP2r
( file )
@new-file ( -- )
-
+
#00 ;draw-filepath JSR2
( clear )
;spritesheet #1200 ;mclr JSR2
@@ 1438,6 1438,8 @@ JMP2r
1010 1010 1010 1000 0804 0402 0404 0800
0000 0032 4c00 0000 0000 0000 0000 0000
+( ~src/manifest.tal )
+
|8000
@spritesheet $1000
&nametable $100