| Copyright | (c) 2013 Brent Yorgey |
|---|---|
| License | BSD-style (see LICENSE) |
| Maintainer | byorgey@cis.upenn.edu |
| Safe Haskell | None |
| Language | Haskell2010 |
Diagrams.TwoD.Path.Calligraphic
Description
Create "calligraphic" strokes by filling between two offset copies of a curve.
Documentation
calligraphic :: R2 -> Trail' Line R2 -> Trail' Loop R2 Source
calligraphic pen t creates a "calligraphic" variant of t by
filling between two copies of t offset by the pen vector.
import Diagrams.Coordinates
import Diagrams.TwoD.Path.Calligraphic
curve = cubicSpline False [1 ^& 1, 2 ^& 5, 5 ^& 6, 8 ^& 12]
# scale 3
calligraphicEx =
[ circle 15 # calligraphic (2 ^& 1)
, curve # calligraphic (2 ^& 2)
]
# map (centerXY . strokeLoop)
# fc black
# hcat' (with & sep .~ 10)