Cad_edit (elm_playground.Cad

type pt = Cad_geom.pt

val offset : 
  float ->
  Cad_drawing.entity ->
  side:pt ->
  (Cad_drawing.entity, string) Stdlib.result

val trim : 
  Cad_geom.curve list ->
  Cad_drawing.entity ->
  at:pt ->
  (Cad_drawing.entity list, string) Stdlib.result

val extend : 
  Cad_geom.curve list ->
  Cad_drawing.entity ->
  at:pt ->
  (Cad_drawing.entity, string) Stdlib.result

val fillet : 
  float ->
  (Cad_drawing.entity * pt) ->
  (Cad_drawing.entity * pt) ->
  (Cad_drawing.entity * Cad_drawing.entity * Cad_drawing.entity option, string)
    Stdlib.result

val curve : Cad_drawing.entity -> Cad_geom.curve option