From dc03dbd8d69765a2a9214b355c2bf7498a59b373 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Sat, 26 Feb 2022 03:23:53 -0800 Subject: [PATCH] fix --- ueforth/common/grf_utils.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ueforth/common/grf_utils.fs b/ueforth/common/grf_utils.fs index c2fb9e8..17eed5d 100644 --- a/ueforth/common/grf_utils.fs +++ b/ueforth/common/grf_utils.fs @@ -76,7 +76,7 @@ grf definitions also internals 16 lshift tx - sx / swap ; : 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 ; : scale ( nx dx ny dy -- ) sy -rot */ to sy