Resplit Picture

src/Picture/Composite.hs

@@ -0,0 +1,16 @@
+module Picture.Composite where
+import Picture.Data
+import Picture.Base
+import Geometry
+--import Color
+
+arrowPath :: [Point2] -> Picture
+arrowPath xs = mconcat $ zipWith arrow xs $ tail xs
+
+arrow :: Point2 -> Point2 -> Picture
+arrow a b = line [a,b]
+    <> line [b +.+ n -.- v,b]
+    <> line [b -.- n -.- v,b]
+  where
+    v = 5 *.* normalizeV (b -.- a)
+    n = vNormal v