blob: 4ff6c66a5266f138ac7f8ac38dbbd4b12308519f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(** Common module for ensuring that the function is evaluated only once *)
module Path_Builder = Path.Builder.Make(Path.Point)
module Fixed = Path.Fixed.Make(Path.Point)
(* Canva representation *)
module CanvaRepr = Path.FillPrinter.Make(Layer.CanvaPrinter)
(* SVG representation *)
module SVGRepr = Path.WireFramePrinter.Make(Layer.Svg)
|