~rabbits/nasu

e1ca7d44f605207141ff9ee28ed9b73fe90ee9c6 — Devine Lu Linvega 1 year, 4 months ago f2d75db
Optimized blink
1 files changed, 12 insertions(+), 22 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +12 -22
@@ 109,31 109,21 @@
|0000

@state
	&timer $1
	&blink $1
	&changed $1
	&timer $1 &blink $1 &changed $1
@settings
	&depth $1
	&color $1
	&blending $1 
	&ratio $1
	&tool $1
	&focus $2
	&zoom $1
	&depth $1 &color $1 &blending $1 &ratio $1 &tool $1 &focus $2 &zoom $1
@cursor
	&x $2 &y $2 &last $1
@selection 
	&x1 $1 &y1 $1 
	&x2 $1 &y2 $1 
@path 
	&length $1
	&name $20
	&length $1 &name $20
@frame 
	&x1 $2 &y1 $2 
	&x2 $2 &y2 $2 
	&width $2 &height $2
@cursor
	&x $2 &y $2 &last $1

@rect  [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
( interface ) 
@toolview  [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
@colorview [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]


@@ 237,14 227,14 @@ BRK

@on-frame-trap ( -> )

	( incr ) .state/timer LDZ INC DUP .state/timer STZ 
	.state/timer LDZ INC 
	DUP 8MOD ,&no-blink JCN
		.state/blink LDZ #00 =
			DUP 8* INC ;draw-filepath JSR2
			.state/blink STZ
		&no-blink
	.state/timer STZ 

	#08 ! ,&no-toggle JCN
		.state/blink TOGGLE
		#01 .state/blink LDZ 8* + ;draw-filepath JSR2
		#00 .state/timer STZ 
		&no-toggle
	
BRK

@on-transfer ( -> )