Diagrams.TwoD.Path.Calligraphic

Create "calligraphic" strokes by filling between two offset copies of a curve.

Documentation

calligraphic :: R2 -> Trail' Line R2 -> Trail' Loop R2

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)