Added zoom
This commit is contained in:
parent
8ce9a998a2
commit
7006d8fc75
Binary file not shown.
Binary file not shown.
|
@ -8,12 +8,12 @@
|
||||||
- Only draw-canvas target tile
|
- Only draw-canvas target tile
|
||||||
- Resize buttons
|
- Resize buttons
|
||||||
- Zoom
|
- Zoom
|
||||||
- Erase
|
- Clear all button
|
||||||
- Toggle guides
|
- Toggle guides
|
||||||
- Set eye option
|
|
||||||
- Complete save/load
|
- Complete save/load
|
||||||
- Limit size
|
- Limit size
|
||||||
- Draw point inbetween
|
- Draw point inbetween
|
||||||
|
- Pixel cleanup brush
|
||||||
)
|
)
|
||||||
|
|
||||||
%RTN { JMP2r }
|
%RTN { JMP2r }
|
||||||
|
@ -27,6 +27,7 @@
|
||||||
;center { x 2 y 2 }
|
;center { x 2 y 2 }
|
||||||
;toolbar { x1 2 y1 2 x2 2 y2 2 }
|
;toolbar { x1 2 y1 2 x2 2 y2 2 }
|
||||||
;cursor { x 2 y 2 x0 2 y0 2 size 1 patt 1 drag 1 zoom 1 }
|
;cursor { x 2 y 2 x0 2 y0 2 size 1 patt 1 drag 1 zoom 1 }
|
||||||
|
;zoom { x 2 y 2 }
|
||||||
;rect { x1 2 y1 2 x2 2 y2 2 }
|
;rect { x1 2 y1 2 x2 2 y2 2 }
|
||||||
;color { byte 1 }
|
;color { byte 1 }
|
||||||
;pos { x 2 y 2 }
|
;pos { x 2 y 2 }
|
||||||
|
@ -36,7 +37,7 @@
|
||||||
|0100 @RESET
|
|0100 @RESET
|
||||||
|
|
||||||
( load file )
|
( load file )
|
||||||
( ,filepath ,load-file JSR2 )
|
,filepath ,load-file JSR2
|
||||||
|
|
||||||
( find screen center )
|
( find screen center )
|
||||||
~Screen.width #0002 DIV2 =center.x
|
~Screen.width #0002 DIV2 =center.x
|
||||||
|
@ -46,7 +47,7 @@
|
||||||
( default brush )
|
( default brush )
|
||||||
#04 =cursor.size
|
#04 =cursor.size
|
||||||
|
|
||||||
#0026 =canvas.w #001a =canvas.h ( 380x260 )
|
#0020 =canvas.w #0010 =canvas.h ( 380x260 )
|
||||||
|
|
||||||
( center canvas )
|
( center canvas )
|
||||||
~center.x ~canvas.w 8* 2/ SUB2 =canvas.x1
|
~center.x ~canvas.w 8* 2/ SUB2 =canvas.x1
|
||||||
|
@ -54,7 +55,7 @@
|
||||||
|
|
||||||
,draw-background JSR2
|
,draw-background JSR2
|
||||||
,fit-canvas JSR2
|
,fit-canvas JSR2
|
||||||
|
|
||||||
( fit toolbar )
|
( fit toolbar )
|
||||||
~toolbar.x1 #0010 ADD2 =toolbar.x2
|
~toolbar.x1 #0010 ADD2 =toolbar.x2
|
||||||
~toolbar.y1 #0040 ADD2 =toolbar.y2
|
~toolbar.y1 #0040 ADD2 =toolbar.y2
|
||||||
|
@ -137,6 +138,24 @@ BRK
|
||||||
|
|
||||||
$no-touch
|
$no-touch
|
||||||
|
|
||||||
|
,$no-ctrl ~Controller #00 EQU JMP2?
|
||||||
|
|
||||||
|
,$no-ctrl-up ~Controller #10 EQU JMP2?
|
||||||
|
~zoom.y ++ =zoom.y
|
||||||
|
$no-ctrl-up
|
||||||
|
,$no-ctrl-down ~Controller #20 EQU JMP2?
|
||||||
|
~zoom.y -- =zoom.y
|
||||||
|
$no-ctrl-down
|
||||||
|
,$no-ctrl-left ~Controller #40 EQU JMP2?
|
||||||
|
~zoom.x ++ =zoom.x
|
||||||
|
$no-ctrl-left
|
||||||
|
,$no-ctrl-right ~Controller #80 EQU JMP2?
|
||||||
|
~zoom.x -- =zoom.x
|
||||||
|
$no-ctrl-right
|
||||||
|
,draw-canvas JSR2
|
||||||
|
|
||||||
|
$no-ctrl
|
||||||
|
|
||||||
~Mouse.x =cursor.x0
|
~Mouse.x =cursor.x0
|
||||||
~Mouse.y =cursor.y0
|
~Mouse.y =cursor.y0
|
||||||
|
|
||||||
|
@ -148,12 +167,33 @@ BRK
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@fit-canvas
|
||||||
|
|
||||||
|
~canvas.w 8* ~canvas.x1 ADD2 =canvas.x2
|
||||||
|
~canvas.h 8* ~canvas.y1 ADD2 =canvas.y2
|
||||||
|
~canvas.x1 -- ~canvas.y1 -- ~canvas.x2 ~canvas.y2 #01 ,line-rect JSR2
|
||||||
|
,draw-canvas JSR2
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
@paint ( x y )
|
@paint ( x y )
|
||||||
|
|
||||||
,erase ~Mouse.state #10 EQU JMP2?
|
,erase ~Mouse.state #10 EQU JMP2?
|
||||||
|
|
||||||
#0003 SUB2 =pos.y #0003 SUB2 =pos.x ( cursor offset )
|
#0003 SUB2 =pos.y #0003 SUB2 =pos.x ( cursor offset )
|
||||||
|
|
||||||
|
( trim if zoomed )
|
||||||
|
,$no-zoom ~cursor.zoom #01 NEQ JMP2?
|
||||||
|
~pos.x 8/ ~zoom.x ADD2 #0003 SUB2 =pos.x
|
||||||
|
~pos.y 8/ ~zoom.y ADD2 #0003 SUB2 =pos.y
|
||||||
|
$no-zoom
|
||||||
|
|
||||||
|
( center zoom on paint )
|
||||||
|
,$no-follow ~cursor.zoom JMP2?
|
||||||
|
~pos.x ~canvas.w 2/ SUB2 #0003 ADD2 =zoom.x
|
||||||
|
~pos.y ~canvas.h 2/ SUB2 #0003 ADD2 =zoom.y
|
||||||
|
$no-follow
|
||||||
|
|
||||||
#00 =px.x #00 =px.y
|
#00 =px.x #00 =px.y
|
||||||
$ver
|
$ver
|
||||||
#00 =px.x
|
#00 =px.x
|
||||||
|
@ -178,6 +218,18 @@ RTN
|
||||||
|
|
||||||
#0003 SUB2 =pos.y #0003 SUB2 =pos.x ( cursor offset )
|
#0003 SUB2 =pos.y #0003 SUB2 =pos.x ( cursor offset )
|
||||||
|
|
||||||
|
( trim if zoomed )
|
||||||
|
,$no-zoom ~cursor.zoom #01 NEQ JMP2?
|
||||||
|
~pos.x 8/ ~zoom.x ADD2 #0003 SUB2 =pos.x
|
||||||
|
~pos.y 8/ ~zoom.y ADD2 #0003 SUB2 =pos.y
|
||||||
|
$no-zoom
|
||||||
|
|
||||||
|
( center zoom on paint )
|
||||||
|
,$no-follow ~cursor.zoom JMP2?
|
||||||
|
~pos.x ~canvas.w 2/ SUB2 #0003 ADD2 =zoom.x
|
||||||
|
~pos.y ~canvas.h 2/ SUB2 #0003 ADD2 =zoom.y
|
||||||
|
$no-follow
|
||||||
|
|
||||||
#00 =px.x #00 =px.y
|
#00 =px.x #00 =px.y
|
||||||
$ver
|
$ver
|
||||||
#00 =px.x
|
#00 =px.x
|
||||||
|
@ -246,6 +298,16 @@ RTN
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@get-pixel ( x y )
|
||||||
|
|
||||||
|
SWP POP #07 AND =px.y
|
||||||
|
SWP POP #07 AND =px.x
|
||||||
|
( get tile ) ~pix.x 8/ ~pix.y 8/ ~canvas.w MUL2 ADD2 8*
|
||||||
|
( add addr ) ,data ADD2
|
||||||
|
#00 ~px.y ADD2 LDR #07 ~px.x SUB SHR #01 AND
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
@add-pixel ( x y )
|
@add-pixel ( x y )
|
||||||
|
|
||||||
=pix.y =pix.x
|
=pix.y =pix.x
|
||||||
|
@ -278,6 +340,8 @@ RTN
|
||||||
|
|
||||||
@draw-canvas
|
@draw-canvas
|
||||||
|
|
||||||
|
,draw-canvas-zoom ~cursor.zoom #01 EQU JMP2?
|
||||||
|
|
||||||
~canvas.y1 =Sprite.y
|
~canvas.y1 =Sprite.y
|
||||||
,data =Sprite.addr
|
,data =Sprite.addr
|
||||||
$ver
|
$ver
|
||||||
|
@ -292,6 +356,26 @@ RTN
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@draw-canvas-zoom
|
||||||
|
|
||||||
|
~zoom.y =pix.y
|
||||||
|
~canvas.y1 =Sprite.y
|
||||||
|
,data =Sprite.addr
|
||||||
|
$ver
|
||||||
|
~canvas.x1 =Sprite.x
|
||||||
|
~zoom.x =pix.x
|
||||||
|
$hor
|
||||||
|
( incr ) ,bigpixel_icn #0008 #00 ~pix.x ~pix.y ,get-pixel JSR2 MUL2 ADD2 =Sprite.addr
|
||||||
|
( draw ) #09 =Sprite.color
|
||||||
|
( incr ) ~Sprite.x 8+ =Sprite.x
|
||||||
|
( incr ) ~pix.x ++ =pix.x
|
||||||
|
,$hor ~Sprite.x ~canvas.x2 NEQ2 JMP2?
|
||||||
|
( incr ) ~Sprite.y 8+ =Sprite.y
|
||||||
|
( incr ) ~pix.y ++ =pix.y
|
||||||
|
,$ver ~Sprite.y ~canvas.y2 NEQ2 JMP2?
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
@draw-cursor
|
@draw-cursor
|
||||||
|
|
||||||
~cursor.x ~Mouse.x NEQU2
|
~cursor.x ~Mouse.x NEQU2
|
||||||
|
@ -415,6 +499,8 @@ RTN
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
( Generics )
|
||||||
|
|
||||||
@line-rect ( x1 y1 x2 y2 color )
|
@line-rect ( x1 y1 x2 y2 color )
|
||||||
|
|
||||||
( load ) =color =rect.y2 =rect.x2 DUP2 =Screen.y =rect.y1 DUP2 =Screen.x =rect.x1
|
( load ) =color =rect.y2 =rect.x2 DUP2 =Screen.y =rect.y1 DUP2 =Screen.x =rect.x1
|
||||||
|
@ -446,15 +532,6 @@ RTN
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
@fit-canvas
|
|
||||||
|
|
||||||
~canvas.w 8* ~canvas.x1 ADD2 =canvas.x2
|
|
||||||
~canvas.h 8* ~canvas.y1 ADD2 =canvas.y2
|
|
||||||
~canvas.x1 -- ~canvas.y1 -- ~canvas.x2 ~canvas.y2 #01 ,line-rect JSR2
|
|
||||||
,draw-canvas JSR2
|
|
||||||
|
|
||||||
RTN
|
|
||||||
|
|
||||||
@size_icn
|
@size_icn
|
||||||
[ 0000 0010 0000 0000 ]
|
[ 0000 0010 0000 0000 ]
|
||||||
[ 0000 1038 1000 0000 ]
|
[ 0000 1038 1000 0000 ]
|
||||||
|
@ -490,6 +567,10 @@ RTN
|
||||||
[ 3048 8484 4834 0200 ]
|
[ 3048 8484 4834 0200 ]
|
||||||
[ 3245 8284 4834 0200 ]
|
[ 3245 8284 4834 0200 ]
|
||||||
|
|
||||||
|
@bigpixel_icn
|
||||||
|
[ 5580 0080 0080 0080 ]
|
||||||
|
[ 55ff 7fff 7fff 7fff ]
|
||||||
|
|
||||||
@brush_pointer [ 80c0 e0f0 f8e0 1000 ]
|
@brush_pointer [ 80c0 e0f0 f8e0 1000 ]
|
||||||
@brush_hand [ 4040 4070 f8f8 f870 ]
|
@brush_hand [ 4040 4070 f8f8 f870 ]
|
||||||
|
|
||||||
|
@ -500,7 +581,7 @@ RTN
|
||||||
@save_icn [ fe82 8282 848a f400 ]
|
@save_icn [ fe82 8282 848a f400 ]
|
||||||
|
|
||||||
@blank_icn [ 0000 0000 0000 0000 ]
|
@blank_icn [ 0000 0000 0000 0000 ]
|
||||||
@filepath [ noodle-io.bit 00 ]
|
@filepath [ projects/picture.bit 00 ]
|
||||||
|
|
||||||
@font_hex
|
@font_hex
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue