1 2 3 4
open Boxes open Picture val generate : float -> float -> float -> float -> float -> box -> picture