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

Improved presentation mode

This commit is contained in:
neauoire 2021-03-30 19:35:34 -07:00
parent d4783214a4
commit d5ae0cf76c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
projects/software/noodle.usm
View File

@ -69,7 +69,7 @@
@RESET ( -- )
( theme )
#e0cd =theme.r0 #30fd =theme.g0 #30fd =theme.b0 ( normal mode )
#e0fa =theme.r0 #30fa =theme.g0 #30fa =theme.b0 ( normal mode )
#00fe =theme.r1 #00f3 =theme.g1 #00f3 =theme.b1 ( presentation mode )
~theme.r0 =System.r ~theme.g0 =System.g ~theme.b0 =System.b
@ -81,6 +81,7 @@
#04 =brush.size #00 =brush.patt #00 =brush.tool
( load file )
,untitled_txt ,path.name ,strcpy JSR2
,path.name ,load-file JSR2
( setup panes )
@ -401,6 +402,7 @@ RTN
@load-file ( path -- )
=File.name FILESIZE =File.length ,data =File.load
~File.name ,path.name ,strcpy JSR2
RTN
@ -675,7 +677,7 @@ RTN
( draw new cursor )
~cursor.x =Sprite.x ~cursor.y =Sprite.y
,pointers_icn #00 ~Controller #02 EQU 8* ADD2 =Sprite.addr
#1f =Sprite.color
#1f ~Mouse.state #01 EQU #0a MUL SUB =Sprite.color
RTN
@ -803,10 +805,8 @@ RTN
,save_icn =Sprite.addr
#03 =Sprite.color
~document.presentation #01 EQU ^$skip-path JNZ
#0008 =Sprite.x
,path.name #01 ,draw-label JSR2
$skip-path
#0008 =Sprite.x
,path.name #01 ,draw-label JSR2
RTN