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

(wallpaper) Fill screen on launch

This commit is contained in:
neauoire 2023-12-09 11:58:48 -08:00
parent 921c87e984
commit fa47ac5677
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/utils/wallpaper.tal
View File

@ -17,6 +17,10 @@
#16ae .System/g DEO2
#16ae .System/b DEO2
<load-theme>
( | fill screen )
.Screen/width DEI2 #03 SFT2 NIP
( ) .Screen/height DEI2 #03 SFT2 NIP <set-size>
( ) #83 .Screen/pixel DEO
( | default file )
.Console/type DEI ?{ <load-default> }
;await-src .Console/vector DEO2
@ -43,9 +47,6 @@
#0020 .File/length DEO2
;stat .File/stat DEO2
.File/success DEI2 ORA ?{ JMP2r }
( | fill screen )
.Screen/width DEI2 #03 SFT2 NIP
( ) .Screen/height DEI2 #03 SFT2 NIP <set-size>
;dict/default !<draw-wallpaper>
@read-size ( 00x00* -- )