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

fix

Browse Source
This commit is contained in:
Brad Nelson
2022-02-26 03:23:53 -08:00
parent 8e5d2a3ef2
commit dc03dbd8d6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/grf_utils.fs
View File

@ -76,7 +76,7 @@ grf definitions also internals
16 lshift tx - sx / swap ; 16 lshift tx - sx / swap ;
: g{ sx >g sy >g tx >g ty >g ; : g{ sx >g sy >g tx >g ty >g ;
: }g g> to ty g> to tx g> to sy g> to sx ; : }g g> to ty g> to tx g> to sy g> to sx ;
: translate ( x y -- ) sy * +to ty sx * +to tx ; : translate ( x y -- ) sy * +to ty sx * +to tx ;
: scale ( nx dx ny dy -- ) : scale ( nx dx ny dy -- )
sy -rot */ to sy sy -rot */ to sy