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/heart.fs
+++ b/common/heart.fs
@ -85,10 +85,10 @@ graphics internals definitions
 graphics definitions also internals

 : heart 0 { x y s r }
-  x sx * tx + 16 rshift
-  y sy * ty + 16 rshift
-  s sx * 16 rshift
-  s sy * 16 rshift
+  x sx * tx + 16 arshift
+  y sy * ty + 16 arshift
+  s sx * 16 arshift
+  s sy * 16 arshift
  raw-heart
 ;