motiejus/wm
1
Fork 0
Code Releases Activity

wip fix syntax errors

Browse Source
This commit is contained in:
Motiejus Jakštys 2021-05-19 22:57:46 +03:00 committed by Motiejus Jakštys
parent b240aa4ed6
commit c3321e5372
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
wm.sql
View File

@ -270,16 +270,17 @@ $$ language plpgsql;
-- "Line Generalization Based on Analysis of Shape Characteristics" algorithm, -- "Line Generalization Based on Analysis of Shape Characteristics" algorithm,
-- 1998. -- 1998.
drop function if exists ST_SimplifyWM; drop function if exists ST_SimplifyWM;
create function ST_SimplifyWM(geometry geom) returns geometry as $$ create function ST_SimplifyWM(geom geometry) returns geometry as $$
declare declare
line geometry; line geometry;
geoms geometry[]; geoms geometry[];
bends geometry[]; bends geometry[];
mutated boolean;
l_type text; l_type text;
begin begin
l_type = st_geometrytype(geom); l_type = st_geometrytype(geom);
if l_type = 'ST_LineString' then if l_type = 'ST_LineString' then
geoms = array(geom); geoms = array[geom];
elseif l_type = 'ST_MultiLineString' then elseif l_type = 'ST_MultiLineString' then
geoms = array((select geom from st_dump(geom) order by path[1] desc)); geoms = array((select geom from st_dump(geom) order by path[1] desc));
else else