From f6ffc5812ba47c21611e272bed3d10c3c6a0dead Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Tue, 4 Jun 2024 20:28:14 -0800 Subject: [PATCH] Faster drawing --- gui/notepad/src/notepad.tal | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index 38ee4ef..c42b677 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -254,16 +254,16 @@ #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2 #ffff #00 OVR2r STH2r ,&x2 LDR2 lts2 DUP2 ADD2 ADD2 ,&sx STR2 #ffff #00 STH2kr ,&y2 LDR2 lts2 DUP2 ADD2 ADD2 ,&sy STR2 - [ LIT2 &dx $2 ] [ LIT2 &dy $2 ] ADD2 + ,&dx LDR2 ,&dy LDR2 ADD2 &>while ( -- ) ( draw ) OVR2r STH2r STH2kr [ LIT &color $1 ] ( x ) OVR2r STH2r [ LIT2 &x2 $2 ] EQU2 ( y ) STH2kr [ LIT2 &y2 $2 ] EQU2 AND ?&end DUP2k ADD2 DUP2 - ( y ) ,&dy LDR2 lts2 ?{ + ( y ) [ LIT2 &dy $2 ] lts2 ?{ ( e+dy ) SWP2 ,&dy LDR2 ADD2 SWP2 ( x1+sx ) SWP2r [ LIT2r &sx $2 ] ADD2r SWP2r } - ( x ) ,&dx LDR2 gts2 ?{ + ( x ) [ LIT2 &dx $2 ] gts2 ?{ ( e+dx ) ,&dx LDR2 ADD2 ( y1+sy ) [ LIT2r &sy $2 ] ADD2r } !&>while