Figure_shapes
val grey : float -> Playground.color
val segment : Playground.color -> float -> Figure.point -> Figure.point -> Playground.shape
val figure : Figure.t -> Playground.shape list