fix Spike arrowhead

bug introduced by changes to Arc to use Direction type see issue #203
diagrams · Jul 23, 2014 · 5d7e42a · 5d7e42a
1 parent 0240b8e
commit 5d7e42a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Diagrams/TwoD/Arrowheads.hs b/src/Diagrams/TwoD/Arrowheads.hs
@@ -133,7 +133,8 @@ arrowheadSpike theta len shaftWidth  = (hd # scale r, jt # scale r)
                 . closeTrail $ arc' 1 (xDir & _theta <>~ (negateV phi)) (2 *^ phi)
     l1 = trailFromSegments [straight $ unit_X ^+^ v]
     l2 = trailFromSegments [reverseSegment . straight $ (unit_X ^+^ (reflectY v))]
-    c = reflectX $ arc' 1 (xDir & _theta <>~ theta) ((-2) *^ theta)
+    c = arc' 1 (rotate φ xDir) ((-2) *^ φ)
+    φ = (1/2 @@ turn) ^-^ theta
     v = rotate theta unitX
 
     -- The length of the head without its joint is, -2r cos theta and