~rabbits/nasu

f9d891608254ce89d4f2f27594ce601b0ca7f2ef — Devine Lu Linvega a month ago 01ddfaf
Moved select-reset
2 files changed, 11 insertions(+), 14 deletions(-)

M src/manifest.tal
M src/nasu.tal
M src/manifest.tal => src/manifest.tal +4 -7
@@ 4,7 4,7 @@
	&theme &r 0a6f &g 05cf &b 0caf

	&name "Nasu $1 
	&date "2022-06-27 $1
	&date "2022-06-28 $1
	&menu
		04 "File $1
			01 'n :file-new "New $1


@@ 15,7 15,7 @@
			01 'c :edit-copy "Copy $1
			01 'v :edit-paste "Paste $1
			01 'x :edit-cut "Cut $1
		0b "Select $1
		0c "Select $1
			00 'q :select-brush "Brush $1
			00 'w :select-selector "Selector $1
			00 'e :select-zoom "Zoom $1


@@ 27,15 27,15 @@
			24 00 :select-inch "Incr.Height $1
			44 00 :select-decw "Decr.Width $1
			84 00 :select-incw "Incr.Width $1
			00 1b :select-reset "Reset $1
		04 "Pick $1
			00 '1 :pick-color1 "Color1 $1
			00 '2 :pick-color2 "Color2 $1
			00 '3 :pick-color3 "Color3 $1
			00 '4 :pick-color4 "Color4 $1
		03 "Options $1
		02 "Options $1
			00 08 :option-erase "Erase $1
			00 20 :option-zoom "Zoom $1
			00 1b :option-deselect "Deselect $1
		$1

@print-manifest ( -- )


@@ 68,9 68,6 @@ JMP2r
	&loop
		STHkr OVR SFT #01 AND #00 EQU ,&no-button JCN
			#00 OVR ;&buttons ADD2 LDA #18 DEO
			DUP #03 GTH ,&no-mod JCN
				LIT '+ #18 DEO
				&no-mod
			&no-button
		INC GTHk ,&loop JCN
	POP2

M src/nasu.tal => src/nasu.tal +7 -7
@@ 1184,6 1184,13 @@ JMP2r
@select-decw ( -- ) #ff00 ;scale-selection JSR2 JMP2r
@select-incw ( -- ) #0100 ;scale-selection JSR2 JMP2r

@select-reset ( -- )

	.selection/x1 LDZ2 .selection/x2 STZ2
	;redraw JSR2

JMP2r

( pick )

@pick-color1 ( -- ) #00 ;set-color JSR2 JMP2r


@@ 1207,13 1214,6 @@ JMP2r

JMP2r

@option-deselect ( -- )

	.selection/x1 LDZ2 .selection/x2 STZ2 
	;redraw JSR2

JMP2r

( generics )

@set-size ( x1 y1 w* h* rect* -- )