d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-06-04 17:27:10 -08:00
parent 32fa540223
commit 0ae7b1232d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gui/notepad/src/notepad.tal
View File

@ -259,13 +259,15 @@
( draw ) ,&x1 LDR2 ,&y1 LDR2 [ LIT &color $1 ] <set-pixel> ( draw ) ,&x1 LDR2 ,&y1 LDR2 [ LIT &color $1 ] <set-pixel>
( x ) [ LIT2 &x1 $2 ] [ LIT2 &x2 $2 ] EQU2 ( x ) [ LIT2 &x1 $2 ] [ LIT2 &x2 $2 ] EQU2
( y ) [ LIT2 &y1 $2 ] [ LIT2 &y2 $2 ] EQU2 AND ?&end ( y ) [ LIT2 &y1 $2 ] [ LIT2 &y2 $2 ] EQU2 AND ?&end
STH2kr DUP2 ADD2 DUP2 ,&dy LDR2 lts2 ?{ STH2kr DUP2 ADD2 DUP2
( | hey )
,&dy LDR2 lts2 ?{
STH2r ,&dy LDR2 ADD2 STH2 STH2r ,&dy LDR2 ADD2 STH2
,&x1 LDR2 [ LIT2 &sx $2 ] ADD2 ,&x1 STR2 } ,&x1 LDR2 [ LIT2 &sx $2 ] ADD2 ,&x1 STR2 }
,&dx LDR2 gts2 ?&>while ,&dx LDR2 gts2 ?{
STH2r ,&dx LDR2 ADD2 STH2 STH2r ,&dx LDR2 ADD2 STH2
,&y1 LDR2 [ LIT2 &sy $2 ] ADD2 ,&y1 STR2 ,&y1 LDR2 [ LIT2 &sy $2 ] ADD2 ,&y1 STR2 }
!&>while !&>while
&end POP2r JMP2r &end POP2r JMP2r
@snap ( x1* x2* -- x* ) @snap ( x1* x2* -- x* )