Browse Source

Fixed outline drawing

main
neauoire 4 years ago
parent
commit
5bfd098b58
  1. 26
      src/main.tal

26
src/main.tal

@ -185,13 +185,13 @@
.frame/x1 LDZ2 #0090 ++ .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;zoomview SET-RECT
.frame/x1 LDZ2 #00c0 ++ .frame/y1 LDZ2 #0048 #0020 SIZE-TO-RECT ;dataview SET-RECT
.tileview/x1 LDZ2 #0002 -- .tileview-frame/x1 STZ2
.tileview/y1 LDZ2 #0002 -- .tileview-frame/y1 STZ2
.tileview/x1 LDZ2 #0001 -- .tileview-frame/x1 STZ2
.tileview/y1 LDZ2 #0001 -- .tileview-frame/y1 STZ2
.tileview/x2 LDZ2 INC2 .tileview-frame/x2 STZ2
.tileview/y2 LDZ2 INC2 .tileview-frame/y2 STZ2
.zoomview/x1 LDZ2 #0002 -- .zoomview-frame/x1 STZ2
.zoomview/y1 LDZ2 #0002 -- .zoomview-frame/y1 STZ2
.zoomview/x1 LDZ2 #0001 -- .zoomview-frame/x1 STZ2
.zoomview/y1 LDZ2 #0001 -- .zoomview-frame/y1 STZ2
.zoomview/x2 LDZ2 INC2 .zoomview-frame/x2 STZ2
.zoomview/y2 LDZ2 #0007 -- .zoomview-frame/y2 STZ2
@ -250,23 +250,23 @@ BRK
.Controller/button DEI #01 AND ;on-control JCN2
.Controller/key DEI
DUP #31 ! ,&no-1 JCN
#31 !~ ,&no-1 JCN
( color ) #00 .settings/color STZ ;draw-toolview JSR2 &no-1
DUP #32 ! ,&no-2 JCN
#32 !~ ,&no-2 JCN
( color ) #01 .settings/color STZ ;draw-toolview JSR2 &no-2
DUP #33 ! ,&no-3 JCN
#33 !~ ,&no-3 JCN
( color ) #02 .settings/color STZ ;draw-toolview JSR2 &no-3
DUP #34 ! ,&no-4 JCN
#34 !~ ,&no-4 JCN
( color ) #03 .settings/color STZ ;draw-toolview JSR2 &no-4
DUP #08 ! ,&no-delete JCN
#08 !~ ,&no-delete JCN
( delete ) ;op-erase ;run-selection JSR2 SET-STATE ;redraw JSR2 &no-delete
DUP #20 ! ,&no-zoom JCN
#20 !~ ,&no-zoom JCN
( zoom ) .settings/zoom TOGGLE ;redraw JSR2 &no-zoom
DUP #71 ! ,&no-tool0 JCN
#71 !~ ,&no-tool0 JCN
( tool ) #00 .settings/tool STZ ;redraw JSR2 &no-tool0
DUP #77 ! ,&no-tool1 JCN
#77 !~ ,&no-tool1 JCN
( tool ) #01 .settings/tool STZ ;redraw JSR2 &no-tool1
DUP #1b ! ,&no-escape JCN
#1b !~ ,&no-escape JCN
( escape ) RESET-SELECTION ;redraw JSR2 &no-escape
POP

Loading…
Cancel
Save