mirror-uxn
/
nasu
mirror of https://git.sr.ht/~rabbits/nasu
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Open/Save icn files as mono

main
Devine Lu Linvega 2 years ago
parent
e6bc8b6d92
commit
17568aa93e
4 changed files with 30 additions and 21 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 0
      etc/ako10x10.chr
  2. BIN
      etc/cibo10x10.icn
  3. 3
      makefile
  4. 46
      src/nasu.tal

0
ako10x10.chr → etc/ako10x10.chr
Unescape View File

BIN
etc/cibo10x10.icn
View File

Binary file not shown.

3
makefile
Unescape View File

@ -10,7 +10,8 @@ all: ${ROM}
lint: lint:
@ ${LIN} src/${ID}.tal @ ${LIN} src/${ID}.tal
test: test:
@ ${EMU} ${ROM} ako10x10.chr @ ${EMU} ${ROM} etc/ako10x10.chr
@ ${EMU} ${ROM} etc/cibo10x10.icn
run: all run: all
@ ${EMU} ${ROM} @ ${EMU} ${ROM}
clean: clean:

46
src/nasu.tal
Unescape View File

@ -48,15 +48,15 @@
#00 .settings/brush STZ #00 .settings/brush STZ
set-focus set-focus
( place ) ( place )
.Screen/width DEI2 #01 SFT2 .frame/width LDZ2 #01 SFT2 SUB2 #001b .frame/width LDZ2 .frame/height LDZ2 ;frame set-size .Screen/width DEI2 #01 SFT2 .frame/width LDZ2 #01 SFT2 SUB2 #001b .frame/width LDZ2 .frame/height LDZ2 ;frame <set-size>
.frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #0038 ADD2 #007f DUP2 ;tileview set-size .frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #0038 ADD2 #007f DUP2 ;tileview <set-size>
.frame/x1 LDZ2 #0089 ADD2 .frame/y1 LDZ2 #0038 ADD2 #007f DUP2 ;nametableview set-size .frame/x1 LDZ2 #0089 ADD2 .frame/y1 LDZ2 #0038 ADD2 #007f DUP2 ;nametableview <set-size>
.frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #001f #002f ;zoomview set-size .frame/x1 LDZ2 #0001 SUB2 .frame/y1 LDZ2 #001f #002f ;zoomview <set-size>
.frame/x1 LDZ2 #002f ADD2 .frame/y1 LDZ2 #001f #002f ;preview set-size .frame/x1 LDZ2 #002f ADD2 .frame/y1 LDZ2 #001f #002f ;preview <set-size>
.frame/x1 LDZ2 #005f ADD2 .frame/y1 LDZ2 #0020 #002f ;colorview set-size .frame/x1 LDZ2 #005f ADD2 .frame/y1 LDZ2 #0020 #002f ;colorview <set-size>
.frame/x1 LDZ2 #008f ADD2 .frame/y1 LDZ2 #001f #002f ;blendview set-size .frame/x1 LDZ2 #008f ADD2 .frame/y1 LDZ2 #001f #002f ;blendview <set-size>
.frame/x1 LDZ2 #00bf ADD2 .frame/y1 LDZ2 #0048 #002f ;dataview set-size .frame/x1 LDZ2 #00bf ADD2 .frame/y1 LDZ2 #0048 #002f ;dataview <set-size>
.tileview/x1 LDZ2 .tileview/y2 LDZ2 #0008 ADD2 .frame/width LDZ2 #0008 ;toolview set-size .tileview/x1 LDZ2 .tileview/y2 LDZ2 #0008 ADD2 .frame/width LDZ2 #0008 ;toolview <set-size>
( static drawings ) ( static drawings )
load-theme load-theme
draw-once draw-once
@ -71,7 +71,7 @@ BRK
( name ) "Nasu 0a ( name ) "Nasu 0a
( details ) "A 20 "Sprite 20 "Editor 0a ( details ) "A 20 "Sprite 20 "Editor 0a
( author ) "By 20 "Hundred 20 "Rabbits 0a ( author ) "By 20 "Hundred 20 "Rabbits 0a
( date ) "6 20 "Jun 20 "2024 00 ( date ) "30 20 "Jun 20 "2024 00
01 01
( icon ) 83 =appicon ( icon ) 83 =appicon
@ -129,7 +129,7 @@ BRK
;on-button .Controller/vector DEO2 ;on-button .Controller/vector DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
#01 draw-filepath #01 draw-filepath
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
JMP2r JMP2r
@ -140,7 +140,7 @@ JMP2r
;on-mouse-trap .Mouse/vector DEO2 ;on-mouse-trap .Mouse/vector DEO2
( clear cursor ) ( clear cursor )
#40 draw-cursor #40 draw-cursor
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
JMP2r JMP2r
@ -260,7 +260,7 @@ BRK
set-selection-zoom set-selection-zoom
toggle-zoom toggle-zoom
redraw redraw
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
BRK BRK
@ -303,7 +303,7 @@ BRK
@on-touch-toolview ( -> ) @on-touch-toolview ( -> )
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
.Mouse/x DEI2 .toolview/x1 LDZ2 SUB2 #03 SFT2 NIP .Mouse/x DEI2 .toolview/x1 LDZ2 SUB2 #03 SFT2 NIP
[ #20 ] NEQk NIP ?&no-save file-save POP BRK &no-save [ #20 ] NEQk NIP ?&no-save file-save POP BRK &no-save
[ #1e ] NEQk NIP ?&no-load file-open POP BRK &no-load [ #1e ] NEQk NIP ?&no-load file-open POP BRK &no-load
@ -327,7 +327,7 @@ BRK
DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?&no-sr ;op-shiftr run &no-sr DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?&no-sr ;op-shiftr run &no-sr
DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?&no-shiftleft ;op-shiftl run &no-shiftleft DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?&no-shiftleft ;op-shiftl run &no-shiftleft
POP POP
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
!&finish !&finish
&no-mod &no-mod
@ -347,7 +347,7 @@ BRK
( x ) .Mouse/x DEI2 .preview/x1 LDZ2 SUB2 #03 SFT2 NIP ( x ) .Mouse/x DEI2 .preview/x1 LDZ2 SUB2 #03 SFT2 NIP
#40 SFT ADD #11 ADD .settings/ratio STZ #40 SFT ADD #11 ADD .settings/ratio STZ
draw-preview draw-preview
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
BRK BRK
@ -387,7 +387,7 @@ BRK
POP POP
draw-blendview draw-blendview
draw-preview draw-preview
( release mouse ) #00 .Mouse/state DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
BRK BRK
@ -514,6 +514,13 @@ JMP2r
!redraw !redraw
@is-mono ( filepath -- f )
scap #0004 SUB2
( ) LDA2k [ LIT2 ".i ] EQU2 STH
( ) INC2 INC2 LDA2 [ LIT2 "cn ] EQU2 STHr
AND
JMP2r
( (
@|filter ) @|filter )
@ -1269,7 +1276,7 @@ JMP2r
!redraw !redraw
@file-open ( -- ) @file-open ( -- )
;filepath is-mono ?file-open-mono
( clear ) ( clear )
;spritesheet #1300 mclr ;spritesheet #1300 mclr
load-theme load-theme
@ -1305,6 +1312,7 @@ JMP2r
!redraw !redraw
@file-save ( -- ) @file-save ( -- )
;filepath is-mono ?file-save-mono
( spritesheet ) ( spritesheet )
;filepath .File/name DEO2 ;filepath .File/name DEO2
@ -1456,7 +1464,7 @@ JMP2r
( generics ) ( generics )
@set-size ( x1 y1 w* h* rect* -- ) @<set-size> ( x1 y1 w* h* rect* -- )
STH2 STH2
( size to rect ) ( size to rect )

Write Preview
Loading…
Cancel
Save