Cad_snap
type kind =
| Endpoint
| Midpoint
| Center
| Quadrant
| Intersection
| Perpendicular
val name : kind -> string
val find : Cad_drawing.t -> aperture:float -> ?from:Cad_geom.pt -> Cad_geom.pt -> (kind * Cad_geom.pt) option