~rabbits/nasu

9934cfc58d8880ee21a58cc20b96b0ee15ff1d3b — neauoire 1 year, 1 month ago 421c141
Always move zoom selection
1 files changed, 5 insertions(+), 2 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +5 -2
@@ 560,6 560,9 @@ RTN
	.selection/y2 LDZ .selection/y1 LDZ GTH ,&no-y JCN
		.selection/y1 LDZ .selection/y2 STZ
		&no-y

	.selection/x1 LDZ 8* .selection/y1 LDZ 8* ;set-selection-zoom JSR2

	( focus )
	.selection LDZ2 ;set-focus JSR2



@@ 787,10 790,10 @@ RTN
	POP2
	POP2r POP2r
	( guides )
	#00 #08 .selection/zy LDZ - 8MOD2 8** #0001 -- STH2
	#00 #08 .selection/zy LDZ - 8MOD2 8** #0007 ++ STH2
	.tileview/x1 LDZ2 .tileview/x2 LDZ2 .tileview/y1 LDZ2 STH2kr ++ #02 ;line-hor-dashed JSR2
	.tileview/x1 LDZ2 .tileview/x2 LDZ2 .tileview/y1 LDZ2 STH2r ++ #0040 ++ #02 ;line-hor-dashed JSR2
	#00 #08 .selection/zx LDZ - 8MOD2 8** #0001 -- STH2
	#00 #08 .selection/zx LDZ - 8MOD2 8** #0007 ++ STH2
	.tileview/x1 LDZ2 STH2kr ++ .tileview/y1 LDZ2 .tileview/y2 LDZ2 #02 ;line-ver-dashed JSR2
	.tileview/x1 LDZ2 STH2r ++ #0040 ++ .tileview/y1 LDZ2 .tileview/y2 LDZ2 #02 ;line-ver-dashed JSR2