From 326487942eaafe5bc111ccfe8d83c650e737bf05 Mon Sep 17 00:00:00 2001
From: sheaf <sam.derbyshire@gmail.com>
Date: Wed, 30 Aug 2023 17:40:47 +0200
Subject: [PATCH] fix orientation computation

---
 src/splines/Math/Orientation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/splines/Math/Orientation.hs b/src/splines/Math/Orientation.hs
index 81719fe..3226aaf 100644
--- a/src/splines/Math/Orientation.hs
+++ b/src/splines/Math/Orientation.hs
@@ -114,7 +114,7 @@ splineTangents spline@( Spline { splineStart = sp0, splineCurves = curves } )
               cp1 = view typed scp1
               cp2 = view typed scp2
               q   = view typed sq
-          -> ( p --> cp1 ) : ( cp2 --> q ) : go q crvs
+          -> ( p --> cp1 ) : ( cp1 --> cp2 ) : ( cp2 --> q ) : go q crvs
 
 -- | Checks whether a 2D vector lies "in between" two other vectors according to a given orientation,
 -- i.e. whether the angle of the query vector lies in between the angles of the start and end vectors.