type matrix = {a : float;b : float;c : float;d : float;tx : float;ty : float;
}val translation : float -> float -> matrixval scaling : float -> float -> matrixval rotation : float -> matrixval scale_of : matrix -> floattype point = float * floatval flatten : ?tolerance:float -> segment list -> (point list * bool) list