~rabbits/oekaki

5387c64bb396030c4dfb179a06e03f409c2f94be — neauoire 4 months ago 2db52ca
Display drag cursor
1 files changed, 17 insertions(+), 25 deletions(-)

M src/oekaki.tal
M src/oekaki.tal => src/oekaki.tal +17 -25
@@ 51,7 51,7 @@
	( name ) "Oekaki 0a
	( desc ) "Drawing 20 "Program 0a
	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( date ) "22 20 "Sep 20 "4 "2023 $1
	( date ) "28 20 "Sep 20 "2023 $1
	( exts ) 00

(


@@ 264,8 264,7 @@
(
@|tools )

@tools
	[
@tools [
	=pen/hover =pen/down =pen/up =pen/drag
	=line/hover =line/down =line/up =line/drag
	=rect/hover =rect/down =rect/up =rect/drag


@@ 334,14 333,18 @@

@move
	&hover ( -- )
		( draw cursor ) #43 ;hand-icn <update-cursor>
		JMP2r
	&down ( -- )
		( draw cursor ) #42 ;hand-icn/down <update-cursor>
		.Mouse/x DEI2 ,&x STR2
		.Mouse/y DEI2 ,&y STR2
		( set origin ) JMP2r
	&up ( -- )
		( draw cursor ) #43 ;hand-icn <update-cursor>
		!<redraw-all>
	&drag ( -- )
		( draw cursor ) #42 ;hand-icn/down <update-cursor>
		.Mouse/x DEI2
		( ) DUP2 [ LIT2 &x $2 ] SUB2 .canvas/x LDZ2 ADD2 .canvas/x STZ2
		( ) ,&x STR2


@@ 557,8 560,7 @@
	&rlem "RLE-mono $1
	&void "unknown-type $1

@tga-types
	[
@tga-types [
	=tga-types-txts/null =tga-types-txts/rawc
	=tga-types-txts/rawt =tga-types-txts/rawm
	=tga-types-txts/void =tga-types-txts/void


@@ 838,34 840,27 @@
(
@|assets )

@fill-icn
	[ ffff ffff ffff ffff ]
@fill-icn [ ffff ffff ffff ffff ]

@pointer-icn
	[ 80c0 e0f0 f8e0 1000 ]
@pointer-icn [ 80c0 e0f0 f8e0 1000 ]

@eraser-icn
	[ c0e0 7038 1c0a 0400 ]
@eraser-icn [ c0e0 7038 1c0a 0400 ]

@hand-icn
	[ 2020 20b8 7c7c 3838 ]
@hand-icn [ 4040 787c fcfc 7c38 ] &down [ 0000 787c fcfc 7c38 ]

@shapes-icns
	[
@shapes-icns [
	7eff ffff ffff ff7e 3c7e ffff ffff 7e3c
	187e 7eff ff7e 7e18 003c 7e7e 7e7e 3c00
	0018 3c7e 7e3c 1800 0000 183c 3c18 0000
	0000 0018 1800 0000 0000 0010 0000 0000 ]

@extended-icns
	[
@extended-icns [
	0010 183c 3c18 0800 0000 183e 7c18 0000
	183c 3c3c 3c3c 3c18 0000 7eff ff7e 0000
	1018 1818 1818 1808 0000 007f fe00 0000
	0060 7038 1c0e 0600 0006 0e1c 3870 6000 ]

@patts-icns
	[
@patts-icns [
	ffff ffff ffff ffff aa55 aa55 aa55 aa55
	cccc 3333 cccc 3333 &spray ( flex )
	ffff ffff ffff ffff 0055 00aa 0055 00aa


@@ 873,18 868,15 @@
	0000 0011 0000 0011 1122 4488 1122 4488
	8844 2211 8844 2211 ]

@tools-icns
	[
@tools-icns [
	0215 2220 2020 20c0 0205 0208 1020 4080
	02f5 aad4 aad6 aafe 0205 02f8 7838 5888 ]

@flow-icns
	[
@flow-icns [
	0000 00ff ff00 0000 0000 00ee ee00 0000
	0000 00db db00 0000 0000 00aa aa00 0000 ]

@blend-icns
	[
@blend-icns [
	ffff ffff 8181 81ff ff81 8181 ffff ffff ]

@dict &default "pict40x28.chr $1