~rabbits/grail

fb81729b58e5a33cd2392ddc8de842333b5698fc — neauoire 6 months ago a4b9849
Optimizations
1 files changed, 12 insertions(+), 12 deletions(-)

M src/grail.tal
M src/grail.tal => src/grail.tal +12 -12
@@ 1,7 1,7 @@
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|90 @Mouse &vector $2 &x $1 &lx $1 &y $1 &ly $1 &state $1 &chord $1 &pad $4 &scrolly &scrolly-hb $1 &scrolly-lb $1
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|a0 @File &vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2

|0000



@@ 32,7 32,7 @@

@on-mouse ( -> )
	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;cursor-icn <update-cursor>
	[ LIT &last $1 ] .Mouse/state DEI #00 NEQ DUP ,&last STR
	[ LIT2 &last $1 -Mouse/state ] DEI #00 NEQ DUP ,&last STR
	DUP2 #0001 EQU2 ?on-mouse-down
	DUP2 #0101 EQU2 ?on-mouse-drag
	DUP2 #0100 EQU2 ?on-mouse-up


@@ 59,7 59,7 @@
	<draw-stroke>
	( | toggle punctuation mode )
	;<push-point>/last-dir LDA INC ?{
		.mode LDZ #02 NEQ ?{
		[ LIT2 02 -mode ] LDZ NEQ ?{
			[ LIT ". ] <send>
			BRK }
		BRK }


@@ 72,7 72,7 @@
	( name ) "Grail 0a
	( desc ) "Shorthand 20 "Recognnizer 0a
	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( date ) "13 20 "Dec 20 "2023 $1
	( date ) "18 20 "Dec 20 "2023 $1
	( exts ) 00

(


@@ 102,7 102,7 @@
		!<start-stroke>/resume

@<send> ( char -- )
	.mode LDZ #00 EQU ?{ capitalize }
	[ LIT2 00 -mode ] LDZ EQU ?{ capitalize }
	#18 DEO
	#02 !<draw-directions>



@@ 201,14 201,14 @@
	#0008 .Screen/x DEO2
	#00e8 .Screen/y DEO2
	;button-icn .Screen/addr DEO2
	#16 .Screen/auto DEO
	#01 .Screen/sprite DEOk DEO
	[ LIT2 16 -Screen/auto ] DEO
	[ LIT2 01 -Screen/sprite ] DEOk DEO
	( | icon )
	#000c .Screen/x DEO2
	#00ec .Screen/y DEO2
	#00 .mode LDZ #30 SFT2 ;modes-icn ADD2 .Screen/addr DEO2
	#00 .Screen/auto DEO
	#01 .mode LDZ #00 NEQ ADD .Screen/sprite DEO
	[ LIT2 00 -mode ] LDZ #30 SFT2 ;modes-icn ADD2 .Screen/addr DEO2
	[ LIT2 00 -Screen/auto ] DEO
	[ LIT2 00 -mode ] LDZ NEQ INC .Screen/sprite DEO
	JMP2r

@<draw-guide> ( -- )


@@ 295,8 295,8 @@
	[ LIT2 -System/debug -System/r ]
	&l ( -- )
		;&buf .File/read DEO2
		.File/success DEI2 #0000 EQU2 ?{
			STHk [ LIT2 &buf $2 ] STHr DEO2
		[ LIT2 00 -File/success-lb ] DEI EQU ?{
			[ LIT2r &buf $2 ] STHk DEO2r
			INC INC NEQk ?&l }
	POP2 JMP2r
	&path ".theme $1