Data commit

Task/Box-the-compass/REXX/box-the-compass.rexx

@@ -0,0 +1,29 @@
+/*REXX program  "boxes the compass"   [from degree (º) headings  ───►  a 32 point set]. */
+parse arg $                                      /*allow   º   headings to be specified.*/
+if $=''  then $= 0 16.87 16.88 33.75 50.62 50.63 67.5 84.37 84.38 101.25 118.12 118.13   ,
+                 135 151.87 151.88 168.75 185.62 185.63 202.5 219.37 219.38 236.25       ,
+                 253.12 253.13 270 286.87 286.88 303.75 320.62 320.63 337.5 354.37 354.38
+                                                 /* [↑]  use default, they're in degrees*/
+@pts= 'n nbe n-ne nebn ne nebe e-ne ebn e ebs e-se sebe se sebs s-se sbe',
+      "s sbw s-sw swbs sw swbw w-sw wbs w wbn w-nw nwbw nw nwbn n-nw nbw"
+
+#= words(@pts) + 1                               /*#:  used for integer ÷ remainder (//)*/
+dirs= 'north south east west'                    /*define cardinal compass directions.  */
+                                                 /* [↓]  choose a glyph for degree  (°).*/
+if 4=='f4'x  then degSym= "a1"x                  /*is this system an  EBCDIC  system?   */
+             else degSym= "a7"x                  /*'f8'x  is the degree symbol: °  vs º */
+                                                 /*──────────────────────────── f8 vs a7*/
+say right(degSym'heading', 30)     center("compass heading", 20)
+say right(     '════════', 30)     copies(              "═", 20)
+pad= ' '                                         /*used to interject a blank for output.*/
+         do j=1  for words($);   x= word($, j)   /*obtain one of the degree headings.   */
+         say right( format(x, , 2)degSym, 30-1)          pad         boxHeading(x)
+         end   /*j*/
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+boxHeading: y= arg(1)//360; if y<0  then y=360-y /*normalize heading within unit circle.*/
+            z= word(@pts, trunc(max(1, (y/11.25 +1.5) // #))) /*convert degrees─►heading*/
+                                               do k=1  for words(dirs);   d= word(dirs, k)
+                                               z= changestr( left(d, 1),  z,  d)
+                                               end   /*k*/    /* [↑]  old, haystack, new*/
+            return changestr('b',  z,  " by ")                /*expand  "b" ───► " by ".*/