From 9f695409a1524bda023332b8e384898bea5093a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Motiejus=20Jak=C5=A1tys?= <motiejus@uber.com>
Date: Wed, 19 May 2021 20:00:24 +0300
Subject: [PATCH] add gentle inflection contribution by Tomas Straupis

---
 IV/wm.sql | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/IV/wm.sql b/IV/wm.sql
index 09da3ee..b0c4cd9 100644
--- a/IV/wm.sql
+++ b/IV/wm.sql
@@ -194,6 +194,11 @@ begin
       -- distance from head's 1st vertex should be larger than from 2nd vertex
       exit when st_distance(ptail, phead[2]) < st_distance(ptail, phead[3]);
 
+      -- bend with smaller baseline wins when two neighboring bends can
+      -- have gentle inflections.
+      exit when st_distance(st_pointn(bends[i], 1), st_pointn(bends[i], -1)) <
+        st_distance(st_pointn(bends[i-1], 1), st_pointn(bends[i-1], -1));
+
       -- Detected a gentle inflection.
       -- Move head of the tail to the tail of head
       bends[i] = st_removepoint(bends[i], 0);