motiejus/wm
1
Fork 0
Code Releases Activity

debugging inflections

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

2
tests.sql
View File

@ -48,6 +48,6 @@ begin
drop table if exists inflections; drop table if exists inflections;
create table inflections (way geometry); create table inflections (way geometry);
--insert into inflections select unnest(fix_gentle_inflections(vbends)); --insert into inflections select unnest(fix_gentle_inflections(vbends));
select fix_gentle_inflections(vbends); insert into inflections select unnest(fix_gentle_inflections(vbends));
end $$ language plpgsql; end $$ language plpgsql;

4
wm.sql
View File

@ -76,11 +76,13 @@ $$ language plpgsql;
-- commulative inflection angle small (see variable below). -- commulative inflection angle small (see variable below).
create or replace function fix_gentle_inflections(INOUT bends geometry[]) as $$ create or replace function fix_gentle_inflections(INOUT bends geometry[]) as $$
declare declare
pi real;
small_angle real; small_angle real;
phead geometry; -- head point of head bend phead geometry; -- head point of head bend
ptail geometry[]; -- 3 head points of tail bend ptail geometry[]; -- 3 head points of tail bend
i int4; -- bends[i] is the current head i int4; -- bends[i] is the current head
begin begin
pi = radians(180);
-- the threshold when the angle is still "small", so gentle inflections can -- the threshold when the angle is still "small", so gentle inflections can
-- be joined -- be joined
small_angle := radians(30); small_angle := radians(30);
@ -116,7 +118,7 @@ begin
select geom from st_dumppoints(bends[i]) order by path[1] desc limit 1 into phead; select geom from st_dumppoints(bends[i]) order by path[1] desc limit 1 into phead;
while true loop while true loop
-- copy last 3 points of bends[i-1] (tail) to ptail -- copy last 3 points of bends[i-1] (tail) to ptail
select array_agg(geom) from st_dumppoints(bends[i-1]) order by path[1] desc limit 3 into ptail; select array(select geom from st_dumppoints(bends[i-1]) order by path[1] desc limit 3) into ptail;
-- if inflection angle between ptail[1:3] "large", stop processing this bend -- if inflection angle between ptail[1:3] "large", stop processing this bend
if abs(st_angle(ptail[1], ptail[2], ptail[2], ptail[3]) - pi) > small_angle then if abs(st_angle(ptail[1], ptail[2], ptail[2], ptail[3]) - pi) > small_angle then