~rabbits/nasu

79375ace1c3ae2f6063a3a9de4a03cecebeb4394 — Devine Lu Linvega 8 months ago 3cd9581
Added openMono
3 files changed, 20 insertions(+), 2 deletions(-)

M build.sh
M src/manifest.tal
M src/nasu.tal
M build.sh => build.sh +1 -1
@@ 27,4 27,4 @@ then
fi

echo "Running.."
uxnemu bin/nasu.rom ako10x10.chr
uxnemu bin/nasu.rom cibo10x10.icn # ako10x10.chr

M src/manifest.tal => src/manifest.tal +2 -1
@@ 3,10 3,11 @@
	&name "Nasu $1 
	&date "2022-06-28 $1
	&menu
		05 "File $1
		06 "File $1
			01 'n :file-new "New $1
			01 'r :file-rename "Rename $1
			01 'o :file-open "Open $1
			02 'o :file-open-mono "OpenMono $1
			01 's :file-save "Save $1
			01 'p :save-theme "SaveTheme $1
		04 "Edit $1

M src/nasu.tal => src/nasu.tal +17 -0
@@ 1066,6 1066,23 @@ JMP2r

JMP2r

@file-open-mono ( -- )

	( clear )
	;spritesheet #1200 ;mclr JSR2
	( spritesheet )
	;filepath .File/name DEO2
	#0008 .File/length DEO2
	#0000
	&loop
		#00 OVR #40 SFT2 ;spritesheet ADD2 .File/read DEO2
		INC NEQk ,&loop JCN
	POP2
	#00 .state/changed STZ ;draw-state JSR2
	;redraw JSR2

JMP2r

@file-save ( -- )

	( spritesheet )