Graphics.Typography.Geometry.Outlines

This module contains the necessary calls to the other modules of Metafont' to compute the outlines of a given number of pen strokes. The normal way of using it is by calling outlines. One other possible way would be :

let curves=cutAll curvesList in
remerge $ contour curves $ intersections curves

Documentation

cutAll :: [[Curve]] -> Vector (Vector Curve)

cutAll curves is the array of all the curves, cut such that each part does not intersect itself.

intersections :: Vector (Vector Curve) -> Map (Int, Int, Double) [(Int, Int, Double, Double)]

Computes the intersections between any pair of curves given as input, in parallel in GHC using +RTS -N.

contour :: Vector (Vector Curve) -> Map (Int, Int, Double) [(Int, Int, Double, Double)] -> [[(Int, Int, Double, Double)]]

contour takes the curves and the intersections computed as in intersections, and outputs a list of all simple closed paths defined by the curves in the input.

remerge :: Vector (Vector Curve) -> [(Int, Int, Double, Double)] -> [Curve]

remerge takes the curves, the output of contour, and outputs the list of "remerged" curves, i.e. where the parts free of self-intersections are glued back to each other.

outlines :: [[Curve]] -> [[Curve]]

Takes a list of curves, potentially offset, and outputs the relevants part of the outlines.