change defaults

diagrams · Mar 4, 2014 · 8ce0b10 · 8ce0b10
1 parent 0cf4726
commit 8ce0b10
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Diagrams/TwoD/Arrow.hs b/src/Diagrams/TwoD/Arrow.hs
@@ -150,7 +150,7 @@ straightShaft = trailFromOffsets [unitX]
 instance Default ArrowOpts where
   def = ArrowOpts
         { _arrowHead    = dart
-        , _arrowTail    = lineTail
+        , _arrowTail    = noTail
         , _arrowShaft   = trailFromOffsets [unitX]
         , _headSize     = 0.3
         , _tailSize     = 0.3

diff --git a/src/Diagrams/TwoD/Arrowheads.hs b/src/Diagrams/TwoD/Arrowheads.hs
@@ -23,6 +23,7 @@ module Diagrams.TwoD.Arrowheads
        , spike
        , thorn
        , missile
+       , lineHead
        , noHead
 
        -- ** Configurable arrowheads
@@ -209,6 +210,9 @@ arrowheadMissile :: Angle -> ArrowHT
 arrowheadMissile theta = smoothArrowhead $ arrowheadDart theta
 
 -- Standard heads ---------------------------------------------------------
+lineHead :: ArrowHT
+lineHead l w = (square 1 # scaleX l # scaleY w # alignL, mempty)
+
 noHead :: ArrowHT
 noHead _ _ = (mempty, mempty)