alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make boxes scale in a more stable way.

Browse Source
This commit is contained in:
Brad Nelson
2024-05-16 21:18:49 -07:00
parent 4284a22b28
commit c4f0895e54
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
common/graphics_utils.fs
View File

@ -65,10 +65,10 @@ gstack value gp
graphics definitions also internals
: box { left top w h }
left sx * tx + 16 arshift
top sy * ty + 16 arshift
w sx * 16 arshift
h sy * 16 arshift
left sx * tx + 16 arshift { l } l
top sy * ty + 16 arshift { t } t
left w + sx * tx + 16 arshift l -
top h + sy * ty + 16 arshift t -
raw-box
;