~rabbits/oekaki

528b14c19f4e11757e458834129369039c69fabd — neauoire 3 months ago 78ee272
Removed post vector
2 files changed, 14 insertions(+), 19 deletions(-)

M makefile
M src/oekaki.tal
M makefile => makefile +2 -0
@@ 12,6 12,8 @@ clean:
lint:
	@ ${LIN} src/${ID}.tal
run: ${ROM}
	@ ${EMU} ${ROM}
test: ${ROM}
	@ ${EMU} ${ROM} etc/salad.tga
install: ${ROM}
	@ cp ${ROM} ${DIR}

M src/oekaki.tal => src/oekaki.tal +12 -19
@@ 40,11 40,11 @@
	.Console/type DEI ?{
		;dict/default ;src/buf <scpy>
		;src/buf <open-file> }
	!<post-vector>
	BRK

@on-soft ( -> )
	;src/buf <open-file>
	!<post-vector>
	BRK

@meta
	00


@@ 59,10 59,10 @@

@on-console ( -> )
	.Console/read DEI .src zkey ?&open
	!<post-vector>
	BRK
	&open ( -> )
		;src/buf <open-file>
		!<post-vector>
		BRK

@on-control ( -> )
	.Controller/button DEI


@@ 90,7 90,7 @@
	DUP #08 NEQ ?{ <make-file> }
	DUP #09 NEQ ?{ <toggle-menu> }
	DUP #1b NEQ ?{ <center> }
	POP !<post-vector>
	POP BRK

@on-control-options ( -> )
	.Controller/key DEI


@@ 98,7 98,7 @@
	DUP [ LIT "n ] NEQ ?{ <make-file> }
	DUP [ LIT "s ] NEQ ?{ ;src/buf <save-file> }
	DUP [ LIT "o ] NEQ ?{ ;src/buf <open-file> }
	POP !<post-vector>
	POP BRK

@on-mouse ( -> )
	.menu/hide LDZ ?{


@@ 109,40 109,33 @@
	( tool ) .brush/tool LDZ
	( alt override ) .Controller/button DEI #02 NEQ ?{ POP #03 }
	#30 SFT ADD
	( load ) #00 SWP ;tools ADD2 LDA2 JSR2 !<post-vector>
	( load ) #00 SWP ;tools ADD2 LDA2 JSR2 BRK

@on-mouse-menu ( -> )
	[ LIT2 41 -Mouse/state ] DEI #00 NEQ SUB ;hand-icn <update-cursor>
	.Mouse/state DEI ?{ !<post-vector> }
	.Mouse/state DEI ?{ BRK }
	.Mouse/y DEI2 #0002 SUB2 #000a DIV2 NIP
	( | size )
	DUP #08 GTH ?{
		<release-mouse>
		.brush/shape LDZ #33 SFT ADD <set-shape>
		!<post-vector> }
		BRK }
	#09 SUB
	( | patt )
	DUP #09 GTH ?{ <release-mouse>
		<set-patt>
		!<post-vector> }
		BRK }
	#0b SUB
	( | tool )
	DUP #03 GTH ?{ <release-mouse>
		<set-tool>
		!<post-vector> }
		BRK }
	DUP #0a NEQ ?{
		<release-mouse>
		.brush/flow LDZ INC <set-flow> }
	DUP #0b NEQ ?{ <release-mouse>
		<toggle-blend> }
	POP !<post-vector>

@<post-vector> ( -> )
	.System/wst DEI2 #0200 EQU2 ?{
		;dict/leak <pstr>
		#0a18 DEO
		#0101 #0e DEO2 }
	BRK
	POP BRK

(
@|controls )