Module Ortho_route

type point = float * float
type dir =
  1. | Left
  2. | Right
  3. | Up
  4. | Down
type box = float * float * float * float
val route : boxes:box list -> margin:float -> (point * dir option) -> (point * dir option) -> point list
val bends : point list -> int