Paste: prettyprint images

Author: j
Mode: factor
Date: Sun, 13 Nov 2011 19:16:31
Plain Text |
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>> <image-gadget> output-stream get write-gadget ;

New Annotation

Summary:
Author:
Mode:
Body: