human.equivalent
/
nasu
mirror of https://git.sr.ht/~rabbits/nasu
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Always move zoom selection

main
neauoire 4 years ago
parent
421c141530
commit
9934cfc58d
1 changed files with 5 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 7
      src/main.tal

7
src/main.tal
Unescape View File

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

Write Preview
Loading…
Cancel
Save