motiejus/wm
1
Fork 0
Code Releases Activity

unit tests for self-crossings

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

23
tests.sql
View File

@ -46,8 +46,6 @@ create table demo_selfcrossing3 (name text, i bigint, way geometry);
insert into demo_selfcrossing3 select name, generate_subscripts(ways, 1), unnest(ways) from selfcrossing;
\q
do $$
declare
vbends geometry[];
@ -81,3 +79,24 @@ begin
perform assert_equals('LINESTRING(114 20,133 20,145 15,145 0,136 5,123 7,114 7)', st_astext(vinflections[2]));
perform assert_equals('LINESTRING(123 7,114 7,111 2)', st_astext(vinflections[3]));
end $$ language plpgsql;
do $$
declare
vcrossings geometry[];
begin
select self_crossing((select ways from inflections where name='fig6')) into vcrossings;
perform assert_equals(
'LINESTRING(84 47,91 59,114 64,120 45,125 39,141 39,147 32)',
(select st_astext(
st_linemerge(st_union(way))
) from (select unnest(vcrossings) way) a)
);
select self_crossing((select ways from inflections where name='fig6-rev')) into vcrossings;
perform assert_equals(
'LINESTRING(84 47,91 59,114 64,120 45,125 39,141 39,147 32)',
(select st_astext(
st_translate(st_reverse(st_linemerge(st_union(way))), -80, 0)
) from (select unnest(vcrossings) way) a)
);
end $$ language plpgsql;

6
wm.sql
View File

@ -234,8 +234,10 @@ begin
-- segment is always duplicated with the i-th bend.
bends[i+1] = st_removepoint(bends[i+1], 0);
bends[j] = st_geometryn(multi, 1);
bends[j] = st_setpoint(bends[j], st_npoints(bends[j])-1,
st_pointn(bends[i], st_npoints(bends[i])));
bends[j] = st_setpoint(
bends[j], st_npoints(bends[j])-1,
st_pointn(bends[i], st_npoints(bends[i]))
);
bends = bends[1:j] || bends[i+1:prev_length];
j = i;
else