open Boxes
open Picture

val generate : float -> float -> float -> float -> float -> box -> picture