Box the compass: Difference between revisions

Content added Content deleted
(adding MUMPS example)
m (→‎{{header|Tcl}}: prettier!)
Line 306: Line 306:
S SbW S-SW SWbS SW SWbW W-SW WbS W WbN W-NW NWbW NW NWbN N-NW NbW
S SbW S-SW SWbS SW SWbW W-SW WbS W WbN W-NW NWbW NW NWbN N-NW NbW
}
}
set unpack {N north E east W west S south b " by "}
set unpack {N "north" E "east" W "west" S "south" b " by "}


# Compute the width of each compass segment
# Compute the width of each compass segment