Introducing ARSHIFT (Arithmetic Shift Right) to fix heart game.

2022-06-04 20:38:36 -07:00
parent ab2b73f2ff
commit e6ca85f4f6
6 changed files with 16 additions and 9 deletions
--- a/common/graphics_utils.fs
+++ b/common/graphics_utils.fs
@ -65,10 +65,10 @@ gstack value gp
 graphics definitions also internals

 : box { left top w h }
-  left sx * tx + 16 rshift
-  top sy * ty + 16 rshift
-  w sx * 16 rshift
-  h sy * 16 rshift
+  left sx * tx + 16 arshift
+  top sy * ty + 16 arshift
+  w sx * 16 arshift
+  h sy * 16 arshift
  raw-box
 ;