Description
The head/tail are scale invariant and but the shaft is not: that is as it should be. However, the interaction of these facts with the way we do joints leads to funny gaps after scaling. For example:
a = arrowAt origin unitX
main = defaultMain $
mconcat
[ square 5 # alignBL # translate (r2 (-1,-1))
, a
, a # scale 4 # translateY 1
]
produces