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.