Ramer-Douglas-Peucker line simplification: Difference between revisions
Ramer-Douglas-Peucker line simplification (view source)
Revision as of 17:47, 19 November 2023
, 6 months ago→{{header|ALGOL 68}}: Fix typos
(Added Algol 68) |
(→{{header|ALGOL 68}}: Fix typos) |
||
Line 59:
{{trans|Go}}
<syntaxhighlight lang="algol68">
BEGIN # Ramer
MODE POINT = STRUCT( REAL x, y );
Line 74:
END # APPEND # ;
PROC rdp = ( []POINT l, REAL epsilon )[]POINT:
BEGIN # algorithm #
INT x := 0;
Line 97:
[]POINT( l[ LWB l ], l[ UPB l ] )
FI
END #
OP FMT = ( REAL v )STRING: # formsts v with up to 2 decimals #
|