structure TextConstants = struct val xSpace = 13 val xSpace3 = xSpace * 3 val ySpace = 25 val scale: Real32.real = 2.0 val textLineWidth = xSpace * 80 end