~rabbits/cccc

f1df39abcfc022aad5f11b84012fccaed25c2fd2 — Devine Lu Linvega 1 year, 4 months ago 1fc1b51
Fixed leak in mute button
1 files changed, 52 insertions(+), 52 deletions(-)

M src/cccc.tal
M src/cccc.tal => src/cccc.tal +52 -52
@@ 147,7 147,7 @@ BRK

@on-touch-top ( x y -- )

	POP tog-mute
	POP2 toggle-mute

BRK



@@ 262,13 262,13 @@ JMP2r

!update-input

@tog-mute ( -- )
@toggle-mute ( -- )

	.mode/mute LDZk #00 EQU SWP STZ

!draw-mute

@tog-mode ( -- )
@toggle-mode ( -- )

	;buttons/mode press-button
	.mode/dec LDZk INC #01 AND SWP STZ


@@ 710,10 710,6 @@ JMP2r

JMP2r

@mute-chr
	0038 4483 4438 0000 0000 387c 3800 0000
	0038 4483 4438 0000 0000 0000 0000 0000

@draw-button-clr ( icon* state -- )

	#09 ,draw-button-small/color STR


@@ 1114,7 1110,7 @@ JMP2r

@fncpad
	=clear =swp =dup =erase =erase =erase
	=tog-mode =inv =vid =eval =eval =eval
	=toggle-mode =inv =vid =eval =eval =eval

@numpad
	=put/7 =put/8 =put/9 =put/f


@@ 1127,7 1123,7 @@ JMP2r
	=do-and =do-ora =do-sfl =do-sfr

@keys
	"~ =clear 09 =tog-mode "? =inv "@ =vid
	"~ =clear 09 =toggle-mode "? =inv "@ =vid
	"+ =do-add "- =do-sub "* =do-mul "/ =do-div
	"& =do-and "| =do-ora "< =do-sfl "> =do-sfr
	20 =eval 08 =erase "% =swp "" =dup


@@ 1145,7 1141,7 @@ JMP2r

@layout
	=buttons/clr =clear
	=buttons/mode =tog-mode
	=buttons/mode =toggle-mode
	=buttons/7 =put/7
	=buttons/8 =put/8
	=buttons/9 =put/9


@@ 1220,39 1216,37 @@ JMP2r
@|assets )

@cursor-icn
	80c0 e0f0 f8e0 1000
@dpad-chr
	0000 ff81 8142 2418 0000 007e 7e3c 1800
80c0 e0f0 f8e0 1000

@fill-icn
	ffff ffff ffff ffff
ffff ffff ffff ffff

@logo-icn
	1824 40df 4024 1800
1824 40df 4024 1800

@patt-icn
	8800 2200 8800 2200
	aa55 aa55 aa55 aa55
@decal-icn
	001c 22c1 0000 0000
	0000 0007 8870 0000

@mode-icns
	( hex/dec )
	0018 7818 1818 7e00
	003c 607c 6666 3c00
	0018 7818 1818 7e00
	003c 6666 6666 3c00
	&dot
	( f )
	007e 6060 7c60 6000
	( d )
	007c 6666 6666 7c00
8800 2200 8800 2200
aa55 aa55 aa55 aa55

@decal-icn
001c 22c1 0000 0000
0000 0007 8870 0000

@mode-icns ( hex/dec )
0018 7818 1818 7e00
003c 607c 6666 3c00
0018 7818 1818 7e00
003c 6666 6666 3c00
&dot
( f ) 007e 6060 7c60 6000
( d ) 007c 6666 6666 7c00
@binary-icns
	003c 6666 6666 3c00
	0018 7818 1818 7e00
003c 6666 6666 3c00
0018 7818 1818 7e00

@button-icns
	&def
	001f 2040 4040 4040 0000 1f3f 3f3f 3f3f 
&def
001f 2040 4040 4040 0000 1f3f 3f3f 3f3f 
00ff 0000 0000 0000 0000 ffff ffff ffff 
00f8 0402 0202 0202 0000 f8fc fcfc fcfc 
4040 4040 4040 4040 3f3f 3f3f 3f3f 3f3f 


@@ 1261,9 1255,8 @@ JMP2r
4040 4040 4020 1f00 3f3f 3f3f 1f00 0000 
0000 0000 0000 ff00 ffff ffff ff00 0000 
0202 0202 0204 f800 fcfc fcfc f800 0000 

	&alt
	001f 2040 4040 4040 0000 001f 3f3f 3f3f 
&alt
001f 2040 4040 4040 0000 001f 3f3f 3f3f 
00ff 0000 0000 0000 0000 00ff ffff ffff 
00f8 0402 0202 0202 0000 00f8 fcfc fcfc 
4040 4040 4040 4040 3f3f 3f3f 3f3f 3f3f 


@@ 1283,7 1276,6 @@ fafa fafa fafa fafa 0404 0404 0404 0404
ffff ffff ff00 ff00 0000 0000 00ff 0000 
fafa fafa fa04 f800 0404 0404 04f8 0000


@outline-frame
0000 0000 0000 0001 0000 0000 0000 0000 
0000 0000 0000 ff00 0000 0000 0000 0000 


@@ 1294,6 1286,18 @@ fafa fafa fa04 f800 0404 0404 04f8 0000
00ff 0000 0000 0000 0000 0000 0000 0000 
8000 0000 0000 0000 0000 0000 0000 0000 

@ctl-icns
&clr 0000 183c 3c18 0000
&mode 0000 007f fe00 0000
&inv 006c 6666 6666 3600
&vid 0033 6666 6666 cc00

@wst-icns
&push 0018 3c7e 1818 1800
&pop 0018 1818 7e3c 1800
&swp 007c 7e02 407e 3e00
&dup 003c 6666 6666 6c00

@mod-icns
	&and
	0000 000f 1f18 180f 0000 00e0 e000 00f8


@@ 1320,18 1324,6 @@ fafa fafa fa04 f800 0404 0404 04f8 0000
	0000 0001 0100 001f 0000 0080 8000 00f8
	1f00 0001 0100 0000 f800 0080 8000 0000

@ctl-icns
	&clr 0000 183c 3c18 0000
	&mode 0000 007f fe00 0000
	&inv 006c 6666 6666 3600
	&vid 0033 6666 6666 cc00

@wst-icns
	&push 0018 3c7e 1818 1800
	&pop 0018 1818 7e3c 1800
	&swp 007c 7e02 407e 3e00
	&dup 003c 6666 6666 6c00

@num-icns
	&0
	0000 000f 1f18 1818 0000 00f0 f818 1818


@@ 1385,13 1377,21 @@ fafa fafa fa04 f800 0404 0404 04f8 0000
@slash-icns
0000 0006 060c 0c18
1830 3060 6000 0000

@dot-icns
0000 0000 0000 0000
0000 0018 1800 0000

@quote-icns
0000 0018 1818 0800
0000 0000 0000 0000

@mute-chr
0038 4483 4438 0000 0000 387c 3800 0000
0038 4483 4438 0000 0000 0000 0000 0000
@dpad-chr
0000 ff81 8142 2418 0000 007e 7e3c 1800

@tone 
8eae b5b9 c0ce dbdc cdb6 a295 8b80 7364 
5953 5256 585a 5d62 686f 7579 7d7e 8183