Box the compass: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,998: / Line 5,998: @@
       ' heading put ]
+  [ 4 45 v* 1 2 v+ / 32 mod heading ]   is degrees->compass$ ( n/d --> $ )
-  [ 360 1 v/ 32 1 v*
-2 v+ / 32 mod heading ]           is degrees->compass$ ( n/d --> $ )
   $ " 0.0  16.87  16.88  33.75  50.62  50.63