Anonymous user
Ramer-Douglas-Peucker line simplification: Difference between revisions
Ramer-Douglas-Peucker line simplification (view source)
Revision as of 08:57, 15 September 2018
, 5 years ago→{{header|REXX}}: corrected spelling of the name: Peucker.
m (→{{header|REXX}}: elided the use of a separate assignment for dressing up the output (points) with parenthesis.) |
m (→{{header|REXX}}: corrected spelling of the name: Peucker.) |
||
Line 787:
=={{header|REXX}}==
The computation for the ''perpendicular distance'' was taken from the '''GO''' example.
<lang rexx>/*REXX program uses the
/*───────────────────────────── reducing the number of points used to define its shape. */
parse arg epsilon pts /*obtain optional arguments from the CL*/
Line 795:
say ' error threshold: ' epsilon /*echo the error threshold to the term.*/
say ' points specified: ' pts /* " " shape points " " " */
$= RDP(pts) /*invoke
say 'points simplified: ' rez($) /*display points with () ───► terminal.*/
exit /*stick a fork in it, we're all done. */
| |||