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/examples/bezier_test.fs
+++ b/examples/bezier_test.fs
@ -68,7 +68,7 @@ scanlines max-scanlines cells erase
 : draw-spans max-scanlines 0 do i draw-row loop ;

 : 0.<< ( n -- n ) 16 lshift ;
-: 0.>> ( n -- n ) 16 rshift ;
+: 0.>> ( n -- n ) 16 arshift ;

 : line ( x1 y1 x2 y2 )
  0 0 0 0 { x1 y1 x2 y2 dx dy sy ey }