neauoire
/
porporo
mirror of https://git.sr.ht/~rabbits/porporo
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

(wallpaper) Abstracted drawing

This commit is contained in:
neauoire 2023-11-29 09:51:51 -08:00
parent a553f8f74d
commit 5368168bc7
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
etc/wallpaper.tal
View File

@ -37,16 +37,20 @@
@await-src ( -> )
.Console/read DEI .src skey ?{ BRK }
( | format )
;src scap/ #0003 SUB2 ;&icn-ext scmp3 .1bpp STZ
;src scap/ #0003 SUB2 ;dict/icn-ext scmp3 .1bpp STZ
( | resize )
;src scap/ #0009 SUB2 read-size DUP2 .size STZ2
( h ) #00 SWP #30 SFT2 .Screen/height DEO2
( w ) #00 SWP #30 SFT2 .Screen/width DEO2
( | stream )
;src <draw-wallpaper>
;src <sclr>
BRK
@<draw-wallpaper> ( src* -- )
.File/name DEO2
#0000 DUP2 .Screen/x DEO2
.Screen/y DEO2
#05 .Screen/auto DEO
;src .File/name DEO2
#00 .size/w LDZ #30 SFT2 DUP2 .1bpp LDZ ?{
#85 ;<draw-row>/blend STA
#10 SFT2 }
@ -57,8 +61,7 @@
<draw-row>
!&s
&eof ( -- )
POP2r ;src <sclr>
BRK &icn-ext "icn $1
POP2r JMP2r
@<draw-row> ( -- )
;row .Screen/addr DEO2
@ -134,6 +137,13 @@
STA
JMP2r
@feof ( buf* -- f )
.File/read DEO2
.File/success DEI2 #0000 EQU2 JMP2r
(
@|theme )
@<load-theme> ( -- )
;&path .File/name DEO2
#0002 .File/length DEO2
@ -145,10 +155,6 @@
POP2 JMP2r
&path ".theme $1
@feof ( buf* -- f )
.File/read DEO2
.File/success DEI2 #0000 EQU2 JMP2r
(
@|assets )
@ -156,6 +162,8 @@
@fill-icn [ ffff ffff ffff ffff ]
@dict &icn-ext "icn $1
(
@|memory )