open Boxes open Picture val generate : float -> float -> float -> float -> float -> box -> picture