From 0abcd16c9957df119fb0f3b1ae5543a30ee551d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Motiejus=20Jak=C5=A1tys?= Date: Tue, 6 Apr 2021 14:34:00 +0300 Subject: [PATCH] name all tables to wm_ --- IV/Makefile | 2 +- IV/tests.sql | 54 ++++++++++++++++++++++++++-------------------------- IV/wm.sql | 10 +++++----- 3 files changed, 33 insertions(+), 33 deletions(-) diff --git a/IV/Makefile b/IV/Makefile index 0dd1dd0..312574b 100644 --- a/IV/Makefile +++ b/IV/Makefile @@ -22,7 +22,7 @@ clean: .PHONY: clean-tables clean-tables: - for t in $$(./db -c '\dt' | awk '/\y(demo_wm|debug_wm|figures)\y/{print $$3}'); do \ + for t in $$(./db -c '\dt' | awk '/\ywm_\w+\y/{print $$3}'); do \ ./db -c "drop table $$t"; \ done -rm .faux_test diff --git a/IV/tests.sql b/IV/tests.sql index bf86cf6..253e6ca 100644 --- a/IV/tests.sql +++ b/IV/tests.sql @@ -23,45 +23,45 @@ $$ language plpgsql; -- to preview this somewhat conveniently in QGIS: -- stage || '_' || name || ' gen:' || coalesce(gen, 'Ø') || ' nbend:' || lpad(nbend, 2, '0') -drop table if exists debug_wm; -create table debug_wm(stage text, name text, gen bigint, nbend bigint, way geometry, props json); +drop table if exists wm_debug; +create table wm_debug(stage text, name text, gen bigint, nbend bigint, way geometry, props json); -drop table if exists figures; -create table figures (name text, way geometry); +drop table if exists wm_figures; +create table wm_figures (name text, way geometry); -- to "normalize" a new line when it's in `f`: -- select st_astext(st_snaptogrid(st_transscale(geometry, 80, 130, .3, .3), 1)) from f; -insert into figures (name, way) values ('fig3',ST_GeomFromText('LINESTRING(0 0,12 0,13 4,20 2,20 0,32 0,33 10,38 16,43 15,44 10,44 0,60 0)')); -insert into figures (name, way) values ('fig3-1',ST_GeomFromText('LINESTRING(0 0,12 0,13 4,20 2,20 0,32 0,33 10,38 16,43 15,44 10,44 0)')); -insert into figures (name, way) values ('fig5',ST_GeomFromText('LINESTRING(0 39,19 52,27 77,26 104,41 115,49 115,65 103,65 75,53 45,63 15,91 0)')); -insert into figures (name, way) values ('fig6',ST_GeomFromText('LINESTRING(84 47,91 59,114 64,122 80,116 92,110 93,106 106,117 118,136 107,135 76,120 45,125 39,141 39,147 32)')); -insert into figures (name, way) values ('fig6-rev',ST_Reverse(ST_Translate((select way from figures where name='fig6'), 60, 0))); -insert into figures (name, way) values ('fig6-combi', +insert into wm_figures (name, way) values ('fig3',ST_GeomFromText('LINESTRING(0 0,12 0,13 4,20 2,20 0,32 0,33 10,38 16,43 15,44 10,44 0,60 0)')); +insert into wm_figures (name, way) values ('fig3-1',ST_GeomFromText('LINESTRING(0 0,12 0,13 4,20 2,20 0,32 0,33 10,38 16,43 15,44 10,44 0)')); +insert into wm_figures (name, way) values ('fig5',ST_GeomFromText('LINESTRING(0 39,19 52,27 77,26 104,41 115,49 115,65 103,65 75,53 45,63 15,91 0)')); +insert into wm_figures (name, way) values ('fig6',ST_GeomFromText('LINESTRING(84 47,91 59,114 64,122 80,116 92,110 93,106 106,117 118,136 107,135 76,120 45,125 39,141 39,147 32)')); +insert into wm_figures (name, way) values ('fig6-rev',ST_Reverse(ST_Translate((select way from wm_figures where name='fig6'), 60, 0))); +insert into wm_figures (name, way) values ('fig6-combi', ST_Union( - ST_Translate((select way from figures where name='fig6'), 0, 90), - ST_Translate((select way from figures where name='fig6'), 80, 90) + ST_Translate((select way from wm_figures where name='fig6'), 0, 90), + ST_Translate((select way from wm_figures where name='fig6'), 80, 90) ) ); -insert into figures (name, way) values ('inflection-1',ST_GeomFromText('LINESTRING(110 24,114 20,133 20,145 15,145 0,136 5,123 7,114 7,111 2)')); -insert into figures (name, way) values ('multi-island',ST_GeomFromText('MULTILINESTRING((-15 10,-10 10,-5 11,0 11,5 11,10 10,11 9,13 10,15 9),(-5 11,-2 15,0 16,2 15,5 11))')); +insert into wm_figures (name, way) values ('inflection-1',ST_GeomFromText('LINESTRING(110 24,114 20,133 20,145 15,145 0,136 5,123 7,114 7,111 2)')); +insert into wm_figures (name, way) values ('multi-island',ST_GeomFromText('MULTILINESTRING((-15 10,-10 10,-5 11,0 11,5 11,10 10,11 9,13 10,15 9),(-5 11,-2 15,0 16,2 15,5 11))')); --- Run ST_SimplifyWM in debug mode, so `debug_wm` is populated. That table +-- Run ST_SimplifyWM in debug mode, so `wm_debug` is populated. That table -- is used for geometric assertions later in the file. -drop table if exists demo_wm; -create table demo_wm (name text, i bigint, way geometry); -insert into demo_wm (name, way) select name, ST_SimplifyWM(way, name) from figures; +drop table if exists wm_demo; +create table wm_demo (name text, i bigint, way geometry); +insert into wm_demo (name, way) select name, ST_SimplifyWM(way, name) from wm_figures; do $$ declare vbends geometry[]; begin - select array((select way from debug_wm where name='fig3' and stage='bbends')) into vbends; + select array((select way from wm_debug where name='fig3' and stage='bbends')) into vbends; perform assert_equals(5, array_length(vbends, 1)); perform assert_equals('LINESTRING(0 0,12 0,13 4)', st_astext(vbends[1])); perform assert_equals('LINESTRING(12 0,13 4,20 2,20 0)', st_astext(vbends[2])); perform assert_equals('LINESTRING(20 2,20 0,32 0,33 10)', st_astext(vbends[3])); perform assert_equals('LINESTRING(32 0,33 10,38 16,43 15,44 10,44 0)', st_astext(vbends[4])); - perform assert_equals(4, array_length(detect_bends((select way from figures where name='fig3-1')), 1)); - select detect_bends((select way from figures where name='fig5')) into vbends; + perform assert_equals(4, array_length(detect_bends((select way from wm_figures where name='fig3-1')), 1)); + select detect_bends((select way from wm_figures where name='fig5')) into vbends; perform assert_equals(3, array_length(vbends, 1)); end $$ language plpgsql; @@ -70,14 +70,14 @@ declare vbends geometry[]; vinflections geometry[]; begin - select array((select way from debug_wm where name='fig5' and stage='cinflections')) into vinflections; + select array((select way from wm_debug where name='fig5' and stage='cinflections')) into vinflections; perform assert_equals('LINESTRING(0 39,19 52,27 77)', st_astext(vinflections[1])); perform assert_equals('LINESTRING(19 52,27 77,26 104,41 115,49 115,65 103,65 75,53 45)', st_astext(vinflections[2])); perform assert_equals('LINESTRING(65 75,53 45,63 15,91 0)', st_astext(vinflections[3])); -- inflections-1, the example in fix_gentle_inflections docstring - select array((select way from debug_wm where name='inflection-1' and stage='bbends')) into vbends; - select array((select way from debug_wm where name='inflection-1' and stage='cinflections')) into vinflections; + select array((select way from wm_debug where name='inflection-1' and stage='bbends')) into vbends; + select array((select way from wm_debug where name='inflection-1' and stage='cinflections')) into vinflections; perform assert_equals(vbends[1], vinflections[1]); -- unchanged 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])); @@ -88,7 +88,7 @@ declare vcrossings geometry[]; mutated boolean; begin - select (self_crossing(array((select way from debug_wm where stage='cinflections' and name='fig6')))).* into vcrossings, mutated; + select (self_crossing(array((select way from wm_debug where stage='cinflections' and name='fig6')))).* into vcrossings, mutated; perform assert_equals(true, mutated); perform assert_equals( 'LINESTRING(84 47,91 59,114 64,120 45,125 39,141 39,147 32)', @@ -97,7 +97,7 @@ begin ) from (select unnest(vcrossings) way) a) ); - select (self_crossing(array((select way from debug_wm where stage='cinflections' and name='fig6-rev')))).* into vcrossings, mutated; + select (self_crossing(array((select way from wm_debug where stage='cinflections' and name='fig6-rev')))).* into vcrossings, mutated; perform assert_equals(true, mutated); perform assert_equals( 'LINESTRING(84 47,91 59,114 64,120 45,125 39,141 39,147 32)', @@ -106,7 +106,7 @@ begin ) from (select unnest(vcrossings) way) a) ); - select (self_crossing(array((select way from debug_wm where stage='cinflections' and name='fig6-combi' and gen=1)))).* into vcrossings, mutated; + select (self_crossing(array((select way from wm_debug where stage='cinflections' and name='fig6-combi' and gen=1)))).* into vcrossings, mutated; perform assert_equals(true, mutated); perform assert_equals( 'MULTILINESTRING((84 137,91 149,114 154,120 135,125 129,141 129,147 122),(164 137,171 149,194 154,200 135,205 129,221 129,227 122))', diff --git a/IV/wm.sql b/IV/wm.sql index 6a9d5dc..43fbee6 100644 --- a/IV/wm.sql +++ b/IV/wm.sql @@ -306,7 +306,7 @@ begin end if; if dbgname is not null then - insert into debug_wm (stage, name, nbend, way, props) values( + insert into wm_debug (stage, name, nbend, way, props) values( 'ebendattrs', dbgname, i, @@ -355,7 +355,7 @@ begin stagenum = 1; while mutated loop if dbgname is not null then - insert into debug_wm (stage, name, gen, nbend, way) values( + insert into wm_debug (stage, name, gen, nbend, way) values( 'afigures', dbgname, stagenum, @@ -367,7 +367,7 @@ begin bends = detect_bends(lines[i]); if dbgname is not null then - insert into debug_wm(stage, name, gen, nbend, way) values( + insert into wm_debug(stage, name, gen, nbend, way) values( 'bbends', dbgname, stagenum, @@ -379,7 +379,7 @@ begin bends = fix_gentle_inflections(bends); if dbgname is not null then - insert into debug_wm(stage, name, gen, nbend, way) values( + insert into wm_debug(stage, name, gen, nbend, way) values( 'cinflections', dbgname, stagenum, @@ -391,7 +391,7 @@ begin select * from self_crossing(bends) into bends, mutated; if dbgname is not null then - insert into debug_wm(stage, name, gen, nbend, way) values( + insert into wm_debug(stage, name, gen, nbend, way) values( 'dcrossings', dbgname, stagenum,