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

Faster underline

This commit is contained in:
Devine Lu Linvega 2024-03-20 11:32:14 -07:00
parent 6bdf52a56d
commit d3f823a809
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/left.tal
View File

@ -1221,10 +1221,14 @@
( width* ) get-glyph-width STH2
( draw2 ) get-color .Screen/sprite
( draw1 ) DUPr [ LITr 08 LTHr JMPr DEOk ] DEO
( [ LIT2 00 -state/underline ] LDZ EQU ?{
DEO2kr
;underline-icn .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEOk DEO } )
.state/underline LDZ ?draw-underline
ADD2r [ LITr -Screen/x ] DEO2r
JMP2r
@draw-underline ( addr* -- addr* )
OVR2r [ LITr -Screen/x ] DEO2r
;underline-icn .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEOk DEO
ADD2r [ LITr -Screen/x ] DEO2r
JMP2r