~rabbits/nasu

5bfd098b58add69d52e5a1a2bd655ae99ff383e8 — neauoire 1 year, 3 months ago 606c4b2
Fixed outline drawing
1 files changed, 13 insertions(+), 13 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +13 -13
@@ 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