diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index c42b677..4ff0547 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -250,10 +250,10 @@ ,&x2 STR2 STH2 STH2 - SWP2r ,&x2 LDR2 OVR2r STH2r SUB2 abs2 ,&dx STR2 - #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 + ( dx ) SWP2r ,&x2 LDR2 OVR2r STH2r SUB2 abs2 ,&dx STR2 + ( dy ) #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2 + ( sx ) #0001 #ffff OVR2r STH2r ,&x2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2 + ( sy ) #0001 #ffff STH2kr ,&y2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2 ,&dx LDR2 ,&dy LDR2 ADD2 &>while ( -- ) ( draw ) OVR2r STH2r STH2kr [ LIT &color $1 ]