sig
  val kappa : float
  val restrict_angle : float -> float -> float
  val circle : float -> float -> float -> Pdfgraphics.path
  val rectangle : float -> float -> float -> float -> Pdfgraphics.path
end