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