~rabbits/noodle

78d0516f1403af2bb6008b7eb51c2a870e5dbabb — neauoire 4 months ago 5ae1c84
Minor optimizations
2 files changed, 8 insertions(+), 8 deletions(-)

M src/manifest.tal
M src/noodle.tal
M src/manifest.tal => src/manifest.tal +1 -1
@@ 36,7 36,7 @@ BRK
		BRK
		&no-sub
	( do not leave if menu is active )
	;draw-menu/sel LDA #ff NEQ ,&no-leave JCN
	;draw-menu/sel LDA INC ,&no-leave JCN
	.Mouse/y DEI2 #000c LTH2 ,&no-leave JCN
		,menu-close JSR
		&no-leave

M src/noodle.tal => src/noodle.tal +7 -7
@@ 211,7 211,7 @@ BRK

	( when scroll )
	.Mouse/scrolly DEI2
	DUP2 #ffff NEQ2 ,&no-up JCN
	INC2k ORA ,&no-up JCN
		POP2 ;move-up JSR2 BRK
		&no-up
	DUP2 #0001 NEQ2 ,&no-down JCN


@@ 219,7 219,7 @@ BRK
		&no-down
	POP2
	.Mouse/scrollx DEI2
	DUP2 #ffff NEQ2 ,&no-left JCN
	INC2k ORA ,&no-left JCN
		POP2 ;move-left JSR2 BRK
		&no-left
	DUP2 #0001 NEQ2 ,&no-right JCN


@@ 1175,9 1175,9 @@ JMP2r
	#06 .brush/tool LDZ
	.panel/x LDZ2 #0004 ADD2
	.panel/y LDZ2 #0005 ADD2
		,draw-icons JSR
		,draw-icons ( .. )

JMP2r
JMP

@draw-pattpane ( -- )



@@ 1714,9 1714,9 @@ JMP2
@pixel-raw-true ( pixel* -- color )

	STH2
	( b ) #00 STH2kr LDA INC2r
	( g ) #00 STH2kr LDA INC2r
	( r ) #00 STH2r LDA
	( b ) #00 LDAkr STHr INC2r
	( g ) #00 LDAkr STHr INC2r
	( r ) #00 LDAr STHr
	( res ) ADD2 ADD2 #0003 DIV2 NIP

JMP2r