Data commit
This commit is contained in:
Ingy döt Net
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
259
Task/Box-the-compass/OoRexx/box-the-compass.rexx
Normal file
259
Task/Box-the-compass/OoRexx/box-the-compass.rexx
Normal file
|
|
@ -0,0 +1,259 @@
|
|||
/* Rexx */
|
||||
|
||||
Do
|
||||
globs = '!DEG !MIN !SEC !FULL'
|
||||
Drop !DEG !MIN !SEC !FULL
|
||||
sign. = ''
|
||||
sign.!DEG = 'c2b0'x -- degree sign : U+00B0
|
||||
sign.!MIN = 'e280b2'x -- prime : U+2032
|
||||
sign.!SEC = 'e280b3'x -- double prime : U+2033
|
||||
points. = ''
|
||||
|
||||
Call display_compass_points
|
||||
|
||||
Call display_sample
|
||||
Say
|
||||
|
||||
headings. = ''
|
||||
headings.0 = 0
|
||||
Call make_headings
|
||||
|
||||
Call flush_queue
|
||||
Do h_ = 1 to headings.0
|
||||
Queue headings.h_
|
||||
End h_
|
||||
|
||||
Call display_sample
|
||||
Say
|
||||
|
||||
Return
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
flush_queue:
|
||||
Procedure
|
||||
Do
|
||||
Do q_ = 1 to queued()
|
||||
Parse pull .
|
||||
End q_
|
||||
Return
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
display_sample:
|
||||
Procedure Expose points. sign. (globs)
|
||||
Do
|
||||
|
||||
Do q_ = 1 to queued()
|
||||
Parse pull heading
|
||||
index = get_index(heading)
|
||||
Parse Value get_point(index) with p_abbrev p_full
|
||||
Say index~right(3),
|
||||
p_abbrev~left(4) p_full~left(20),
|
||||
heading~format(5, 3) || sign.!DEG '('format_degrees_minutes_seconds(heading)')',
|
||||
''
|
||||
End q_
|
||||
|
||||
Return
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
display_compass_points:
|
||||
Procedure Expose points. sign. (globs)
|
||||
Do
|
||||
|
||||
points = 32
|
||||
one_pt = 360 / points
|
||||
|
||||
Do h_ = 0 to points - 1
|
||||
heading = h_ * 360 / points
|
||||
hmin = heading - one_pt / 2
|
||||
hmax = heading + one_pt / 2
|
||||
|
||||
If hmin < 0 then Do
|
||||
hmin = hmin + 360
|
||||
End
|
||||
If hmax >= 360 then Do
|
||||
hmax = hmax - 360
|
||||
End
|
||||
|
||||
index = (h_ // points) + 1
|
||||
Parse Value get_point(index) with p_abbrev p_full
|
||||
|
||||
Say index~right(3),
|
||||
p_abbrev~left(4) p_full~left(20),
|
||||
hmin~format(5, 3) || sign.!DEG '('format_degrees_minutes_seconds(hmin)')',
|
||||
heading~format(5, 3) || sign.!DEG '('format_degrees_minutes_seconds(heading)')',
|
||||
hmax~format(5, 3) || sign.!DEG '('format_degrees_minutes_seconds(hmax)')',
|
||||
''
|
||||
End h_
|
||||
Say
|
||||
|
||||
Return
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
make_headings:
|
||||
Procedure Expose headings.
|
||||
Do
|
||||
points = 32
|
||||
Do i_ = 0 to points
|
||||
heading = i_ * 360 / 32
|
||||
|
||||
it = i_ // 3
|
||||
Select
|
||||
When it = 1 then Do
|
||||
heading_h = heading + 5.62
|
||||
End
|
||||
|
||||
When it = 2 then Do
|
||||
heading_h = heading - 5.62
|
||||
End
|
||||
|
||||
Otherwise Do
|
||||
heading_h = heading
|
||||
End
|
||||
End
|
||||
|
||||
index = (i_ // points) + 1
|
||||
ix = headings.0 + 1; headings.0 = ix; headings.ix = heading_h
|
||||
End i_
|
||||
|
||||
Return
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
get_index:
|
||||
Procedure
|
||||
Do
|
||||
Parse Arg heading .
|
||||
|
||||
one_pt = 360 / 32
|
||||
hn = heading // 360
|
||||
hi = hn % one_pt
|
||||
|
||||
If hn > hi * one_pt + one_pt / 2 then Do
|
||||
hi = hi + 1 -- greater than max range for this point; bump to next point
|
||||
End
|
||||
|
||||
idx = hi // 32 + 1 -- add one to get index into points. stem
|
||||
|
||||
Return idx
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
get_point:
|
||||
Procedure Expose points. sign. (globs)
|
||||
Do
|
||||
Parse arg index .
|
||||
|
||||
Call get_points
|
||||
|
||||
Return points.index points.index.!FULL
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
get_points:
|
||||
Procedure Expose points. sign. (globs)
|
||||
Do
|
||||
|
||||
Drop !FULL
|
||||
|
||||
points. = ''
|
||||
p_ = 0
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'N'; points.p_.!FULL = 'North'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NbE'; points.p_.!FULL = 'North by East'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NNE'; points.p_.!FULL = 'North-Northeast'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NEbn'; points.p_.!FULL = 'Northeast by North'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NE'; points.p_.!FULL = 'Northeast'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NEbE'; points.p_.!FULL = 'Northeast by East'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'ENE'; points.p_.!FULL = 'East-Northeast'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'EbN'; points.p_.!FULL = 'East by North'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'E'; points.p_.!FULL = 'East'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'EbS'; points.p_.!FULL = 'East by South'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'ESE'; points.p_.!FULL = 'East-Southeast'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SEbE'; points.p_.!FULL = 'Southeast by East'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SE'; points.p_.!FULL = 'Southeast'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SEbS'; points.p_.!FULL = 'Southeast by South'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SSE'; points.p_.!FULL = 'South-Southeast'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SbE'; points.p_.!FULL = 'South by East'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'S'; points.p_.!FULL = 'South'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SbW'; points.p_.!FULL = 'South by West'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SSW'; points.p_.!FULL = 'South-Southwest'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SWbS'; points.p_.!FULL = 'Southwest by South'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SW'; points.p_.!FULL = 'Southwest'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'SWbW'; points.p_.!FULL = 'Southwest by West'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'WSW'; points.p_.!FULL = 'Southwest'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'WbS'; points.p_.!FULL = 'West by South'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'W'; points.p_.!FULL = 'West'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'WbN'; points.p_.!FULL = 'West by North'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'WNW'; points.p_.!FULL = 'West-Northwest'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NWbW'; points.p_.!FULL = 'Northwest by West'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NW'; points.p_.!FULL = 'Northwest'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NWbN'; points.p_.!FULL = 'Northwest by North'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NNW'; points.p_.!FULL = 'North-Northwest'
|
||||
p_ = p_ + 1; points.0 = p_; points.p_ = 'NbW'; points.p_.!FULL = 'North by West'
|
||||
|
||||
Return
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
get_decimal_angle:
|
||||
Procedure Expose sign. (globs)
|
||||
Do
|
||||
Parse Arg degrees ., minutes ., seconds .
|
||||
|
||||
degrees = degrees * 10 % 10
|
||||
minutes = minutes * 10 % 10
|
||||
|
||||
angle = degrees + minutes / 60 + seconds / 60 / 60
|
||||
|
||||
Return angle
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
format_decimal_angle:
|
||||
Procedure Expose sign. (globs)
|
||||
Do
|
||||
Parse Arg degrees ., minutes ., seconds .
|
||||
|
||||
Return get_decimal_angle(degrees, minutes, seconds)~format(5, 3) || sign.!DEG
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
get_degrees_minutes_seconds:
|
||||
Procedure Expose sign. (globs)
|
||||
Do
|
||||
Parse arg angle .
|
||||
|
||||
degrees = angle * 100 % 100
|
||||
minutes = ((angle - degrees) * 60) * 100 % 100
|
||||
seconds = ((((angle - degrees) * 60) - minutes) * 60) * 100 % 100
|
||||
|
||||
Return degrees minutes seconds
|
||||
End
|
||||
Exit
|
||||
|
||||
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
|
||||
format_degrees_minutes_seconds:
|
||||
Procedure Expose sign. (globs)
|
||||
Do
|
||||
Parse arg angle .
|
||||
|
||||
Parse Value get_degrees_minutes_seconds(angle) with degrees minutes seconds .
|
||||
|
||||
formatted = degrees~right(3) || sign.!DEG || minutes~right(2, 0) || sign.!MIN || seconds~right(2, 0) || sign.!SEC
|
||||
|
||||
Return formatted
|
||||
End
|
||||
Exit
|
||||
Loading…
Add table
Add a link
Reference in a new issue