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

Starting to mdernize codebase

main
Devine Lu Linvega 2 years ago
parent
17568aa93e
commit
d631933aa5
1 changed files with 73 additions and 73 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. 146
      src/nasu.tal

146
src/nasu.tal
Unescape View File

@ -24,20 +24,20 @@
@tileview &x1 $2 &y1 $2 &x2 $2 &y2 $2 @tileview &x1 $2 &y1 $2 &x2 $2 &y2 $2
@nametableview &x $2 &y $2 &x2 $2 &y2 $2 @nametableview &x $2 &y $2 &x2 $2 &y2 $2
|100 ( -> ) |100 @on-reset ( -> )
( meta ) ( | meta )
;meta #06 DEO2 ;meta #06 DEO2
( theme ) ( | theme )
#970f .System/r DEO2 #970f .System/r DEO2
#7d0f .System/g DEO2 #7d0f .System/g DEO2
#dc0f .System/b DEO2 #dc0f .System/b DEO2
( size ) ( | size )
#012e .Screen/width DEO2 #012e .Screen/width DEO2
#00f0 .Screen/height DEO2 #00f0 .Screen/height DEO2
( vectors ) ( | vectors )
;on-console .Console/vector DEO2 ;on-console .Console/vector DEO2
( set defaults ) ( | set defaults )
#0108 .frame/width STZ2 #0108 .frame/width STZ2
#00c8 .frame/height STZ2 #00c8 .frame/height STZ2
#01 .settings/depth STZ #01 .settings/depth STZ
@ -47,7 +47,7 @@
#01 .settings/tool STZ #01 .settings/tool STZ
#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>
@ -57,10 +57,10 @@
.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
( begin ) ( | begin )
file-new file-new
draw-menu draw-menu
untrap untrap
@ -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 ) "30 20 "Jun 20 "2024 00 ( date ) "16 20 "Jul 20 "2024 00
01 01
( icon ) 83 =appicon ( icon ) 83 =appicon
@ -138,7 +138,7 @@ JMP2r
;on-frame-trap .Screen/vector DEO2 ;on-frame-trap .Screen/vector DEO2
;on-button-trap .Controller/vector DEO2 ;on-button-trap .Controller/vector DEO2
;on-mouse-trap .Mouse/vector DEO2 ;on-mouse-trap .Mouse/vector DEO2
( clear cursor ) ( | clear cursor )
#40 draw-cursor #40 draw-cursor
( release mouse ) [ LIT2 00 -Mouse/state ] DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
@ -147,17 +147,17 @@ JMP2r
@on-console ( -> ) @on-console ( -> )
#00 draw-filepath #00 draw-filepath
( start ) ( | start )
[ LIT &listening $1 ] ?&no-start [ LIT &listening $1 ] ?&no-start
#01 ,&listening STR #01 ,&listening STR
;filepath #0040 mclr ;filepath #0040 mclr
&no-start &no-start
( end ) ( | end )
.Console/read DEI .Console/read DEI
DUPk #1f GTH SWP #7f LTH AND ?&no-end DUPk #1f GTH SWP #7f LTH AND ?&no-end
#00 ,&listening STR #00 ,&listening STR
&no-end &no-end
( capture ) ( | capture )
capture-trap capture-trap
#01 draw-filepath #01 draw-filepath
@ -187,7 +187,7 @@ JMP2r
@on-mouse-trap ( -> ) @on-mouse-trap ( -> )
( release trap on touch ) ( | release trap on touch )
.Mouse/state DEI ?&release BRK &release .Mouse/state DEI ?&release BRK &release
untrap untrap
@ -232,7 +232,7 @@ BRK
.Mouse/x DEI2 .Mouse/y DEI2 .preview within-rect ?on-touch-preview .Mouse/x DEI2 .Mouse/y DEI2 .preview within-rect ?on-touch-preview
.Mouse/x DEI2 .Mouse/y DEI2 .zoomview within-rect ?on-touch-zoomview .Mouse/x DEI2 .Mouse/y DEI2 .zoomview within-rect ?on-touch-zoomview
&no-touch &no-touch
( release-record ) ( | release-record )
#0000 .Mouse/state DEO .cursor/last STZ #0000 .Mouse/state DEO .cursor/last STZ
BRK BRK
@ -241,11 +241,11 @@ BRK
.Mouse/x DEI2 .tileview/x1 LDZ2 SUB2 .Mouse/x DEI2 .tileview/x1 LDZ2 SUB2
.Mouse/y DEI2 .tileview/y1 LDZ2 SUB2 .Mouse/y DEI2 .tileview/y1 LDZ2 SUB2
( test ) ( | test )
.settings/tool LDZ #02 EQU ?&zoom .settings/tool LDZ #02 EQU ?&zoom
.settings/zoom LDZ #01 EQU ?&zoomed .settings/zoom LDZ #01 EQU ?&zoomed
.settings/tool LDZ #01 EQU ?&select .settings/tool LDZ #01 EQU ?&select
( paint ) ( | paint )
.settings/color LDZ .Mouse/state DEI #01 EQU MUL .settings/color LDZ .Mouse/state DEI #01 EQU MUL
put-pixel put-pixel
#01 .state/changed STZ draw-state #01 .state/changed STZ draw-state
@ -290,7 +290,7 @@ BRK
@on-touch-nametable ( -> ) @on-touch-nametable ( -> )
( id ) ( | id )
.Mouse/y DEI2 .nametableview/y LDZ2 SUB2 #43 SFT2 .Mouse/y DEI2 .nametableview/y LDZ2 SUB2 #43 SFT2
.Mouse/x DEI2 .nametableview/x LDZ2 SUB2 #03 SFT2 ADD2 .Mouse/x DEI2 .nametableview/x LDZ2 SUB2 #03 SFT2 ADD2
#0003 MUL2 ;nametable ADD2 STH2 #0003 MUL2 ;nametable ADD2 STH2
@ -379,7 +379,7 @@ BRK
.Mouse/x DEI2 .blendview/x1 LDZ2 SUB2 #03 SFT2 NIP .Mouse/x DEI2 .blendview/x1 LDZ2 SUB2 #03 SFT2 NIP
.Mouse/y DEI2 .blendview/y1 LDZ2 SUB2 #03 SFT2 NIP #20 SFT ADD .Mouse/y DEI2 .blendview/y1 LDZ2 SUB2 #03 SFT2 NIP #20 SFT ADD
[ #0f GTHk NIP ] ?&no-set DUP .settings/blend STHk LDZ #b0 AND ADD STHr STZ !&end &no-set [ #0f GTHk NIP ] ?&no-set DUP .settings/blend STHk LDZ #b0 AND ADD STHr STZ !&end &no-set
( buttons ) ( | buttons )
#03 AND #03 AND
[ #02 NEQk NIP ] ?&no-ver .settings/blend STHk LDZ #20 EOR STHr STZ &no-ver [ #02 NEQk NIP ] ?&no-ver .settings/blend STHk LDZ #20 EOR STHr STZ &no-ver
[ #03 NEQk NIP ] ?&no-hor .settings/blend STHk LDZ #10 EOR STHr STZ &no-hor [ #03 NEQk NIP ] ?&no-hor .settings/blend STHk LDZ #10 EOR STHr STZ &no-hor
@ -387,7 +387,7 @@ BRK
POP POP
draw-blendview draw-blendview
draw-preview draw-preview
( release mouse ) [ LIT2 00 -Mouse/state ] DEO ( | release mouse ) [ LIT2 00 -Mouse/state ] DEO
BRK BRK
@ -420,7 +420,7 @@ BRK
.selection/y1 LDZ #0f STHk LTH ?&ok-limity1 STHkr .selection/y1 STZ &ok-limity1 POPr .selection/y1 LDZ #0f STHk LTH ?&ok-limity1 STHkr .selection/y1 STZ &ok-limity1 POPr
.selection/x2 LDZ #0f STHk LTH ?&ok-limitx2 STHkr .selection/x2 STZ &ok-limitx2 POPr .selection/x2 LDZ #0f STHk LTH ?&ok-limitx2 STHkr .selection/x2 STZ &ok-limitx2 POPr
.selection/y2 LDZ #0f STHk LTH ?&ok-limity2 STHkr .selection/y2 STZ &ok-limity2 POPr .selection/y2 LDZ #0f STHk LTH ?&ok-limity2 STHkr .selection/y2 STZ &ok-limity2 POPr
( invert ) ( | invert )
.selection/x2 LDZ .selection/x1 LDZ STHk GTH ?&ok-flipx STHkr .selection/x2 STZ &ok-flipx POPr .selection/x2 LDZ .selection/x1 LDZ STHk GTH ?&ok-flipx STHkr .selection/x2 STZ &ok-flipx POPr
.selection/y2 LDZ .selection/y1 LDZ STHk GTH ?&ok-flipy STHkr .selection/y2 STZ &ok-flipy POPr .selection/y2 LDZ .selection/y1 LDZ STHk GTH ?&ok-flipy STHkr .selection/y2 STZ &ok-flipy POPr
@ -469,7 +469,7 @@ JMP2r
DUP DUP
.selection/x2 LDZ ADD #0f AND .selection/x2 STZ .selection/x2 LDZ ADD #0f AND .selection/x2 STZ
.selection/x1 LDZ ADD #0f AND .selection/x1 STZ .selection/x1 LDZ ADD #0f AND .selection/x1 STZ
( clamp ) ( | clamp )
.selection/x2 LDZ .selection/x1 LDZ GTH ?&no-x .selection/x2 LDZ .selection/x1 LDZ GTH ?&no-x
.selection/x1 LDZ .selection/x2 STZ .selection/x1 LDZ .selection/x2 STZ
&no-x &no-x
@ -479,18 +479,18 @@ JMP2r
.selection/x1 LDZ #30 SFT .selection/y1 LDZ #30 SFT set-selection-zoom .selection/x1 LDZ #30 SFT .selection/y1 LDZ #30 SFT set-selection-zoom
( focus ) ( | focus )
set-focus set-focus
!redraw !redraw
@mod-selection-zoom ( x y -- ) @mod-selection-zoom ( x y -- )
( set zoom ) ( | set zoom )
.selection/zy LDZ ADD SWP .selection/zy LDZ ADD SWP
.selection/zx LDZ ADD SWP .selection/zx LDZ ADD SWP
set-selection-zoom set-selection-zoom
( set from ) ( | set from )
.selection/zx LDZ #03 SFT .selection/zx LDZ #03 SFT
.selection/zy LDZ #03 SFT .selection/zy LDZ #03 SFT
set-selection-from set-selection-from
@ -502,14 +502,14 @@ JMP2r
.selection/y2 LDZ ADD #0f AND .selection/y2 STZ .selection/y2 LDZ ADD #0f AND .selection/y2 STZ
.selection/x2 LDZ ADD #0f AND .selection/x2 STZ .selection/x2 LDZ ADD #0f AND .selection/x2 STZ
( clamp ) ( | clamp )
.selection/x2 LDZ .selection/x1 LDZ GTH ?&no-x .selection/x2 LDZ .selection/x1 LDZ GTH ?&no-x
.selection/x1 LDZ .selection/x2 STZ .selection/x1 LDZ .selection/x2 STZ
&no-x &no-x
.selection/y2 LDZ .selection/y1 LDZ GTH ?&no-y .selection/y2 LDZ .selection/y1 LDZ GTH ?&no-y
.selection/y1 LDZ .selection/y2 STZ .selection/y1 LDZ .selection/y2 STZ
&no-y &no-y
( focus ) ( | focus )
set-focus set-focus
!redraw !redraw
@ -544,7 +544,7 @@ JMP2r
OVR2 OVR2 get-pixel INC #03 AND !put-pixel OVR2 OVR2 get-pixel INC #03 AND !put-pixel
@filter-flipx ( x* y* -- ) @filter-flipx ( x* y* -- )
( ignore second half ) ( | ignore second half )
OVR2 OVR2
( ) [ LIT2 00 -selection/x1 ] LDZ #30 SFT2 ( ) [ LIT2 00 -selection/x1 ] LDZ #30 SFT2
( ) [ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 OVR2 SUB2 #01 SFT2 ( ) [ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 OVR2 SUB2 #01 SFT2
@ -559,12 +559,12 @@ JMP2r
,&x1 LDR2 STH2r [ LIT &c2 $1 ] !put-pixel ,&x1 LDR2 STH2r [ LIT &c2 $1 ] !put-pixel
@filter-flipy ( x* y* -- ) @filter-flipy ( x* y* -- )
( ignore second half ) ( | ignore second half )
DUP2 DUP2
( ) [ LIT2 00 -selection/y1 ] LDZ #30 SFT2 ( ) [ LIT2 00 -selection/y1 ] LDZ #30 SFT2
( ) [ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 OVR2 SUB2 #01 SFT2 ( ) [ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 OVR2 SUB2 #01 SFT2
( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r } ( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r }
( write ) ( | write )
DUP2 ,&y1 STR2 DUP2 ,&y1 STR2
[ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 [ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2
[ LIT2 00 -selection/y1 ] LDZ #30 SFT2 ADD2 ,&y2 STR2 [ LIT2 00 -selection/y1 ] LDZ #30 SFT2 ADD2 ,&y2 STR2
@ -652,10 +652,10 @@ JMP2r
STH2 STH2
#0800 #0800
&loop &loop
( ch1 ) ( | ch1 )
#00 OVR STH2kr ADD2 #00 OVR STH2kr ADD2
LDAk rol ROT ROT STA LDAk rol ROT ROT STA
( ch2 ) ( | ch2 )
#00 OVR STH2kr #0008 ADD2 ADD2 #00 OVR STH2kr #0008 ADD2 ADD2
LDAk rol ROT ROT STA LDAk rol ROT ROT STA
INC GTHk ?&loop INC GTHk ?&loop
@ -669,10 +669,10 @@ JMP2r
STH2 STH2
#0800 #0800
&loop &loop
( ch1 ) ( | ch1 )
#00 OVR STH2kr ADD2 #00 OVR STH2kr ADD2
LDAk ror ROT ROT STA LDAk ror ROT ROT STA
( ch2 ) ( | ch2 )
#00 OVR STH2kr #0008 ADD2 ADD2 #00 OVR STH2kr #0008 ADD2 ADD2
LDAk ror ROT ROT STA LDAk ror ROT ROT STA
INC GTHk ?&loop INC GTHk ?&loop
@ -721,7 +721,7 @@ JMP2r
.settings/zoom LDZ ?draw-tileview-zoom .settings/zoom LDZ ?draw-tileview-zoom
.tileview/x1 LDZ2 .Screen/x DEO2 .tileview/x1 LDZ2 .Screen/x DEO2
.tileview/y1 LDZ2 .Screen/y DEO2 .tileview/y1 LDZ2 .Screen/y DEO2
( draw tiles ) ( | draw tiles )
;spritesheet .Screen/addr DEO2 ;spritesheet .Screen/addr DEO2
#f6 .Screen/auto DEO #f6 .Screen/auto DEO
#1000 #1000
@ -729,7 +729,7 @@ JMP2r
#81 .Screen/sprite DEO #81 .Screen/sprite DEO
INC GTHk ?&loop INC GTHk ?&loop
POP2 POP2
( draw selection ) ( | draw selection )
#06 .selection/x2 LDZ .selection/x1 LDZ SUB #40 SFT ADD .Screen/auto DEO #06 .selection/x2 LDZ .selection/x1 LDZ SUB #40 SFT ADD .Screen/auto DEO
#00 .selection/x1 LDZ #30 SFT2 .tileview/x1 LDZ2 ADD2 .Screen/x DEO2 #00 .selection/x1 LDZ #30 SFT2 .tileview/x1 LDZ2 ADD2 .Screen/x DEO2
#00 .selection/y1 LDZ #30 SFT2 .tileview/y1 LDZ2 ADD2 .Screen/y DEO2 #00 .selection/y1 LDZ #30 SFT2 .tileview/y1 LDZ2 ADD2 .Screen/y DEO2
@ -741,7 +741,7 @@ JMP2r
INC GTHk ?&loop-sel INC GTHk ?&loop-sel
POP2 POP2
#01 .Screen/auto DEO #01 .Screen/auto DEO
( draw selection size ) ( | draw selection size )
.selection/x2 LDZ .selection/x1 LDZ SUB #02 LTH ?&no-label .selection/x2 LDZ .selection/x1 LDZ SUB #02 LTH ?&no-label
.selection/y2 LDZ #0f EQU ?&no-label .selection/y2 LDZ #0f EQU ?&no-label
#00 .selection/x1 LDZ #30 SFT2 .tileview/x1 LDZ2 ADD2 .Screen/x DEO2 #00 .selection/x1 LDZ #30 SFT2 .tileview/x1 LDZ2 ADD2 .Screen/x DEO2
@ -782,14 +782,14 @@ JMP2r
POP2 POP2
INC GTHk ?&ver INC GTHk ?&ver
POP2 POP2
( guide hor ) ( | guide hor )
#0007 .selection/zy LDZ SUB #0007 AND2 #30 SFT2 #0001 SUB2 #0008 ADD2 STH2 #0007 .selection/zy LDZ SUB #0007 AND2 #30 SFT2 #0001 SUB2 #0008 ADD2 STH2
.tileview/x1 LDZ2 .tileview/y1 LDZ2 STH2kr ADD2 #0a line-hor-dashed .tileview/x1 LDZ2 .tileview/y1 LDZ2 STH2kr ADD2 #0a line-hor-dashed
.selection/zy LDZ #07 AND #00 EQU ?&skip-hor .selection/zy LDZ #07 AND #00 EQU ?&skip-hor
.tileview/x1 LDZ2 .tileview/y1 LDZ2 STH2kr ADD2 #0040 ADD2 #0a line-hor-dashed .tileview/x1 LDZ2 .tileview/y1 LDZ2 STH2kr ADD2 #0040 ADD2 #0a line-hor-dashed
&skip-hor &skip-hor
POP2r POP2r
( guide ver ) ( | guide ver )
#0007 .selection/zx LDZ SUB #0007 AND2 #30 SFT2 #0001 SUB2 #0008 ADD2 STH2 #0007 .selection/zx LDZ SUB #0007 AND2 #30 SFT2 #0001 SUB2 #0008 ADD2 STH2
.tileview/x1 LDZ2 STH2kr ADD2 .tileview/y1 LDZ2 #0a line-ver-dashed .tileview/x1 LDZ2 STH2kr ADD2 .tileview/y1 LDZ2 #0a line-ver-dashed
.selection/zx LDZ #07 AND #00 EQU ?&skip-ver .selection/zx LDZ #07 AND #00 EQU ?&skip-ver
@ -834,11 +834,11 @@ JMP2r
@get-pixel ( x* y* -- color ) @get-pixel ( x* y* -- color )
( channel 1 ) ( | channel 1 )
OVR2 SWP2 get-pixel-addr [ STH2k ] LDA OVR2 SWP2 get-pixel-addr [ STH2k ] LDA
ROT ROT NIP #07 AND [ STHk ] ROT ROT NIP #07 AND [ STHk ]
#07 SWP SUB SFT #01 AND #07 SWP SUB SFT #01 AND
( channel 2 ) ( | channel 2 )
[ STHr ] [ STH2r ] #0008 ADD2 LDA SWP [ STHr ] [ STH2r ] #0008 ADD2 LDA SWP
#07 SWP SUB SFT #01 AND #07 SWP SUB SFT #01 AND
DUP ADD DUP ADD
@ -848,11 +848,11 @@ JMP2r
@get-pixel-addr ( x* y* -- addr* ) @get-pixel-addr ( x* y* -- addr* )
( clamp ) ( | clamp )
#007f AND2 SWP2 #007f AND2 SWP2 #007f AND2 SWP2 #007f AND2 SWP2
( get row ) ( | get row )
DUP2 #0007 AND2 DUP2 #0007 AND2
( get tile ) ( | get tile )
SWP2 #83 SFT2 ADD2 SWP2 #83 SFT2 ADD2
SWP2 #43 SFT2 ADD2 SWP2 #43 SFT2 ADD2
;spritesheet ADD2 ;spritesheet ADD2
@ -916,12 +916,12 @@ JMP2r
INC GTHk ?&ver INC GTHk ?&ver
POP2 POP2
( frame ) ( | frame )
.zoomview/x1 LDZ2 .Screen/x DEO2 .zoomview/x1 LDZ2 .Screen/x DEO2
.zoomview/y1 LDZ2 .Screen/y DEO2 .zoomview/y1 LDZ2 .Screen/y DEO2
#0404 ;frame2-chr draw-frame #0404 ;frame2-chr draw-frame
( label ) ( | label )
#01 .Screen/auto DEO #01 .Screen/auto DEO
.zoomview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .zoomview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
.zoomview/x1 LDZ2 .Screen/x DEO2 .zoomview/x1 LDZ2 .Screen/x DEO2
@ -934,7 +934,7 @@ JMP2r
@draw-preview ( -- ) @draw-preview ( -- )
( stash address ) ( | stash address )
.settings/focus LDZ2 STH2k .Screen/addr DEO2 .settings/focus LDZ2 STH2k .Screen/addr DEO2
#0400 #0400
&ver &ver
@ -942,9 +942,9 @@ JMP2r
#0400 #0400
&hor &hor
#00 OVR #30 SFT .preview/x1 LDZ2 ADD2 .Screen/x DEO2 #00 OVR #30 SFT .preview/x1 LDZ2 ADD2 .Screen/x DEO2
( get x,y ) ( | get x,y )
OVR2 NIP OVR SWP OVR2 NIP OVR SWP
( check if within ratio ) ( | check if within ratio )
.settings/ratio LDZ #0f AND LTH STH .settings/ratio LDZ #0f AND LTH STH
.settings/ratio LDZ #04 SFT LTH STHr .settings/ratio LDZ #04 SFT LTH STHr
#0101 NEQ2 ?&outside #0101 NEQ2 ?&outside
@ -962,7 +962,7 @@ JMP2r
POP2 POP2
POP2r POP2r
( label ) ( | label )
.preview/x1 LDZ2 .Screen/x DEO2 .preview/x1 LDZ2 .Screen/x DEO2
.preview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .preview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
#03 ;draw-chr/color STA #03 ;draw-chr/color STA
@ -1020,19 +1020,19 @@ JMP2r
POP2 POP2
#01 .Screen/auto DEO #01 .Screen/auto DEO
( label ) ( | label )
.blendview/x1 LDZ2 .Screen/x DEO2 .blendview/x1 LDZ2 .Screen/x DEO2
.blendview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .blendview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
#03 ;draw-chr/color STA #03 ;draw-chr/color STA
( get blending ) .settings/blend LDZ draw-byte ( get blending ) .settings/blend LDZ draw-byte
( y ) ( | y )
.blendview/x1 LDZ2 #0010 ADD2 .Screen/x DEO2 .blendview/x1 LDZ2 #0010 ADD2 .Screen/x DEO2
.settings/blend LDZ #20 AND #00 NEQ STH .settings/blend LDZ #20 AND #00 NEQ STH
;arrow-ver-icns #00 STHkr #30 SFT2 ADD2 .Screen/addr DEO2 ;arrow-ver-icns #00 STHkr #30 SFT2 ADD2 .Screen/addr DEO2
#02 STHr SUB .Screen/sprite DEO #02 STHr SUB .Screen/sprite DEO
( x ) ( | x )
.blendview/x1 LDZ2 #0018 ADD2 .Screen/x DEO2 .blendview/x1 LDZ2 #0018 ADD2 .Screen/x DEO2
.settings/blend LDZ #10 AND #00 NEQ STH .settings/blend LDZ #10 AND #00 NEQ STH
;arrow-hor-icns #00 STHkr #30 SFT2 ADD2 .Screen/addr DEO2 ;arrow-hor-icns #00 STHkr #30 SFT2 ADD2 .Screen/addr DEO2
@ -1042,7 +1042,7 @@ JMP2r
@draw-dataview ( -- ) @draw-dataview ( -- )
( position ) ( | position )
.dataview/x1 LDZ2 .Screen/x DEO2 .dataview/x1 LDZ2 .Screen/x DEO2
.dataview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .dataview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
#03 ;draw-chr/color STA #03 ;draw-chr/color STA
@ -1057,7 +1057,7 @@ JMP2r
.Screen/x DEI2k #000c ADD2 ROT DEO2 .Screen/x DEI2k #000c ADD2 ROT DEO2
#02 ;draw-chr/color STA #02 ;draw-chr/color STA
( ch2 ) #0008 ADD2 LDA2 draw-short ( ch2 ) #0008 ADD2 LDA2 draw-short
( skip line ) ( | skip line )
.dataview/x1 LDZ2 .Screen/x DEO2 .dataview/x1 LDZ2 .Screen/x DEO2
draw-lb draw-lb
INC GTHk ?&loop INC GTHk ?&loop
@ -1068,7 +1068,7 @@ JMP2r
@draw-toolview ( -- ) @draw-toolview ( -- )
.toolview/y1 LDZ2 .Screen/y DEO2 .toolview/y1 LDZ2 .Screen/y DEO2
( colors ) ( | colors )
.toolview/x1 LDZ2 .Screen/x DEO2 .toolview/x1 LDZ2 .Screen/x DEO2
;circle-icns #00 .settings/color LDZ #01 EQU #30 SFT2 ADD2 .Screen/addr DEO2 ;circle-icns #00 .settings/color LDZ #01 EQU #30 SFT2 ADD2 .Screen/addr DEO2
#01 .Screen/sprite DEO #01 .Screen/sprite DEO
@ -1076,7 +1076,7 @@ JMP2r
#02 .Screen/sprite DEO #02 .Screen/sprite DEO
;circle-icns #00 .settings/color LDZ #03 EQU #30 SFT2 ADD2 .Screen/addr DEO2 ;circle-icns #00 .settings/color LDZ #03 EQU #30 SFT2 ADD2 .Screen/addr DEO2
#03 .Screen/sprite DEO #03 .Screen/sprite DEO
( tools ) ( | tools )
.Screen/x DEI2k #0008 ADD2 ROT DEO2 .Screen/x DEI2k #0008 ADD2 ROT DEO2
;brush-icn .Screen/addr DEO2 ;brush-icn .Screen/addr DEO2
#01 .settings/tool LDZ #00 EQU ADD .Screen/sprite DEO #01 .settings/tool LDZ #00 EQU ADD .Screen/sprite DEO
@ -1084,7 +1084,7 @@ JMP2r
#01 .settings/tool LDZ #01 EQU ADD .Screen/sprite DEO #01 .settings/tool LDZ #01 EQU ADD .Screen/sprite DEO
;zoom-icns [ #00 .settings/zoom LDZ #30 SFT2 ADD2 ] .Screen/addr DEO2 ;zoom-icns [ #00 .settings/zoom LDZ #30 SFT2 ADD2 ] .Screen/addr DEO2
#01 .settings/tool LDZ #02 EQU ADD .Screen/sprite DEO #01 .settings/tool LDZ #02 EQU ADD .Screen/sprite DEO
( file i/o ) ( | file i/o )
draw-state draw-state
.toolview/x2 LDZ2 STH2k #0018 SUB2 .Screen/x DEO2 .toolview/x2 LDZ2 STH2k #0018 SUB2 .Screen/x DEO2
;load-icn .Screen/addr DEO2 ;load-icn .Screen/addr DEO2
@ -1092,7 +1092,7 @@ JMP2r
STH2r #0020 SUB2 .Screen/x DEO2 STH2r #0020 SUB2 .Screen/x DEO2
;make-icn .Screen/addr DEO2 ;make-icn .Screen/addr DEO2
#01 .Screen/sprite DEO #01 .Screen/sprite DEO
( filepath ) ( | filepath )
#01 #01
!draw-filepath !draw-filepath
@ -1110,12 +1110,12 @@ JMP2r
.toolview/x1 LDZ2 #0040 ADD2 .Screen/x DEO2 .toolview/x1 LDZ2 #0040 ADD2 .Screen/x DEO2
.toolview/y1 LDZ2 INC2 .Screen/y DEO2 .toolview/y1 LDZ2 INC2 .Screen/y DEO2
( clear ) ( | clear )
DUP #00 EQU ?clear-filepath DUP #00 EQU ?clear-filepath
;draw-chr/color STA ;draw-chr/color STA
;filepath ;filepath
( scroll ) ( | scroll )
DUP2 slen #0013 GTH2 #00 SWP DUP2 slen #0013 GTH2 #00 SWP
;filepath slen #0013 SUB2 MUL2 ADD2 ;filepath slen #0013 SUB2 MUL2 ADD2
draw-str POP2 draw-str POP2
@ -1266,9 +1266,9 @@ JMP2r
@file-new ( -- ) @file-new ( -- )
#00 draw-filepath #00 draw-filepath
( clear ) ( | clear )
;spritesheet #1300 mclr ;spritesheet #1300 mclr
( rename to untitled.txt ) ( | rename to untitled.txt )
;filepath #0040 mclr ;filepath #0040 mclr
;untitled-txt ;filepath scpy ;untitled-txt ;filepath scpy
#00 .state/changed STZ draw-state #00 .state/changed STZ draw-state
@ -1277,14 +1277,14 @@ JMP2r
@file-open ( -- ) @file-open ( -- )
;filepath is-mono ?file-open-mono ;filepath is-mono ?file-open-mono
( clear ) ( | clear )
;spritesheet #1300 mclr ;spritesheet #1300 mclr
load-theme load-theme
( spritesheet ) ( | spritesheet )
;filepath .File/name DEO2 ;filepath .File/name DEO2
#1000 .File/length DEO2 #1000 .File/length DEO2
;spritesheet .File/read DEO2 ;spritesheet .File/read DEO2
( nametable ) ( | nametable )
;nametable-ext ;filepath scap #0004 mcpy ;nametable-ext ;filepath scap #0004 mcpy
;filepath .File/name DEO2 ;filepath .File/name DEO2
#0300 .File/length DEO2 #0300 .File/length DEO2
@ -1297,9 +1297,9 @@ JMP2r
@file-open-mono ( -- ) @file-open-mono ( -- )
( clear ) ( | clear )
;spritesheet #1300 mclr ;spritesheet #1300 mclr
( spritesheet ) ( | spritesheet )
;filepath .File/name DEO2 ;filepath .File/name DEO2
#0008 .File/length DEO2 #0008 .File/length DEO2
#0000 #0000
@ -1314,12 +1314,12 @@ JMP2r
@file-save ( -- ) @file-save ( -- )
;filepath is-mono ?file-save-mono ;filepath is-mono ?file-save-mono
( spritesheet ) ( | spritesheet )
;filepath .File/name DEO2 ;filepath .File/name DEO2
#1000 .File/length DEO2 #1000 .File/length DEO2
;spritesheet .File/write DEO2 ;spritesheet .File/write DEO2
( nametable ) ( | nametable )
has-nametable #00 EQU ?&no-nametable has-nametable #00 EQU ?&no-nametable
;nametable-ext ;filepath scap #0004 mcpy ;nametable-ext ;filepath scap #0004 mcpy
;filepath .File/name DEO2 ;filepath .File/name DEO2
@ -1334,7 +1334,7 @@ JMP2r
@file-save-mono ( -- ) @file-save-mono ( -- )
( spritesheet ) ( | spritesheet )
;filepath .File/name DEO2 ;filepath .File/name DEO2
#0008 .File/length DEO2 #0008 .File/length DEO2
#0000 #0000
@ -1467,7 +1467,7 @@ JMP2r
@<set-size> ( x1 y1 w* h* rect* -- ) @<set-size> ( x1 y1 w* h* rect* -- )
STH2 STH2
( size to rect ) ( | size to rect )
STH2 STH2 OVR2 STH2r ADD2 OVR2 STH2r ADD2 STH2 STH2 OVR2 STH2r ADD2 OVR2 STH2r ADD2
STH2r STH2r
DUP2 ROT2 SWP2 #0006 ADD2 STA2 DUP2 ROT2 SWP2 #0006 ADD2 STA2

Write Preview
Loading…
Cancel
Save