Browse code

Improved brush support

neauoire authored on 05/03/2021 19:08:19
Showing 1 changed files
... ...
@@ -1,8 +1,8 @@
1
-( app/nasu )
1
+( 
2
+	app/nasu : spritesheet editor
2 3
 
3
-(
4
-	arrows - move
5
-	click  - Paint/Select cell
4
+	arrows - move selection
5
+	click  - Paint cell
6 6
 	1 2 3  - Select brush
7 7
 )
8 8
 
... ...
@@ -49,7 +49,7 @@ BRK
49 49
 	( keyboard controls )
50 50
 
51 51
 	,no-key ~dev/key #00 EQU JMP? POP2
52
-	
52
+
53 53
 		,no-key ~dev/key #31 LTH JMP? POP2
54 54
 		,no-key ~dev/key #33 GTH JMP? POP2
55 55
 		( select ) ~dev/key #31 SUB =bankview.mode
... ...
@@ -159,6 +159,14 @@ BRK
159 159
 			~tileview.addr ADD2 =addr ( addr offset )
160 160
 			~dev/mouse.x ~tileview.x SUB2 ~dev/mouse.x ~tileview.x SUB2 #0040 DIV2 #0040 MUL2 SUB2 =pos.x
161 161
 			~dev/mouse.y ~tileview.y SUB2 ~dev/mouse.y ~tileview.y SUB2 #0040 DIV2 #0040 MUL2 SUB2 =pos.y
162
+			,no-fill-mode ~bankview.mode #01 NEQ JMP? POP2
163
+				( fill row ) #ff ~addr ~pos.y #0008 DIV2 ADD2 STR
164
+				,redraw JSR ,click-end JMP
165
+			@no-fill-mode
166
+			,no-erase-mode ~bankview.mode #02 NEQ JMP? POP2
167
+				( erase row ) #00 ~addr ~pos.y #0008 DIV2 ADD2 STR
168
+				,redraw JSR ,click-end JMP
169
+			@no-erase-mode
162 170
 			( load ) ~addr ~pos.y #0008 DIV2 ADD2 LDR
163 171
 			( mask ) #01 #07 ~pos.x #0008 DIV2 SWP POP SUB ROL 
164 172
 			XOR