~rabbits/nasu

9b685a225ebfbbdbf147e8b7078c12ec0fb0f254 — neauoire 1 year, 3 months ago 936ed11
Improved blendview
1 files changed, 9 insertions(+), 12 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +9 -12
@@ 120,7 120,9 @@
@state
	&timer $1 &blink $1 &changed $1
@settings
	&depth $1 &color $1 &blend $1 &ratio $1 &tool $1 &focus $2 &zoom $1
	&depth $1 &color $1 &blend $1 
	&ratio $1 &tool $1 &focus $2 
	&zoom $1
@cursor
	&x $2 &y $2 &last $1
@selection 


@@ 500,7 502,8 @@ BRK

	( skip ) .Mouse/state DEI #00 ! BRK?
	
	#01
	.settings/focus LDZ2 BANK-SPRITESHEET -- 10// NIP 

	.Mouse/y DEI2 .nametable/y LDZ2 -- 8// 10** 
	.Mouse/x DEI2 .nametable/x LDZ2 -- 8// ++
	BANK-NAMETABLE ++ STA


@@ 621,24 624,18 @@ BRK
	.Mouse/x DEI2 .blendview/x1 LDZ2 -- 8// NIP
	.Mouse/y DEI2 .blendview/y1 LDZ2 -- 8// NIP 4* +
	DUP #0f > ,&no-set JCN
		.settings/blend LDZ #b0 AND + .settings/blend STZ
		;draw-blendview JSR2
		;draw-preview JSR2
		RELEASE-MOUSE BRK
		DUP .settings/blend LDZ #b0 AND + .settings/blend STZ
		&no-set
	DUP #12 ! ,&no-hor JCN
		.settings/blend LDZ #10 EOR .settings/blend STZ
		;draw-blendview JSR2
		;draw-preview JSR2
		RELEASE-MOUSE POP BRK
		&no-hor
	DUP #13 ! ,&no-ver JCN
		.settings/blend LDZ #20 EOR .settings/blend STZ
		;draw-blendview JSR2
		;draw-preview JSR2
		RELEASE-MOUSE POP BRK
		&no-ver
	POP
	;draw-blendview JSR2
	;draw-preview JSR2
	RELEASE-MOUSE 

BRK