d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added pen icon

This commit is contained in:
Devine Lu Linvega 2024-05-31 09:43:45 -07:00
parent 7519bf8c0a
commit f897d6f5be
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
gui/notepad/spritesheet10x10.chr
View File

Binary file not shown.

3
gui/notepad/src/assets.tal
View File

@ -13,6 +13,9 @@
@mouse-icn [ @mouse-icn [
80c0 e0f0 f8fc feff f8d8 8c0c 0606 0000 ] 80c0 e0f0 f8fc feff f8d8 8c0c 0606 0000 ]
@pen-icn [
c0e0 9090 4848 2424 1212 0909 0600 0000 ]
@bar-icn &a [ @bar-icn &a [
0000 007e 007e 007e 007e 007e 007e 0000 ] 0000 007e 007e 007e 007e 007e 007e 0000 ]
&b [ &b [

4
gui/notepad/src/notepad.tal
View File

@ -117,7 +117,7 @@
POP BRK POP BRK
@on-mouse-sketch ( -> ) @on-mouse-sketch ( -> )
[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn <update-cursor> [ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;pen-icn <update-cursor>
( | handle states ) ( | handle states )
[ LIT &last $1 ] .Mouse/state DEI DUP ,&last STR [ LIT &last $1 ] .Mouse/state DEI DUP ,&last STR
( ) DUP2 #0100 NEQ2 ?{ file-save } ( ) DUP2 #0100 NEQ2 ?{ file-save }
@ -200,6 +200,8 @@
@toggle-sketch ( -- ) @toggle-sketch ( -- )
.selection/sketch LDZk #01 EOR SWP STZ .selection/sketch LDZk #01 EOR SWP STZ
#41 ;pen-icn ;caret-icn .selection/sketch LDZ ?{ SWP2 }
POP2 <update-cursor>
JMP2r JMP2r
@erase-sketch ( -- ) @erase-sketch ( -- )