IN: scratchpad TUPLE: image-section < section image ; IN: scratchpad M: image pprint* image-section new swap >>image H{ } >>style ; IN: scratchpad M: image pprint* image-section new swap >>image H{ } >>style add-section ; IN: scratchpad M: image-section section-fits? drop t ; IN: scratchpad M: image-section long-section short-section ; M: image-section short-section image>> output-stream get write-gadget ;