Optimized blink

src/main.tal

@@ -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 ( -> )