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 |