steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new module images.viewer.prettyprint 

Pretty-prints image objects as images.
db4
Joe Groff 2011-11-13 12:10:23 -08:00
parent c4885ac082
commit d1786adfe4
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/gadgets/panes/panes.factor
View File

@ -144,6 +144,9 @@ PRIVATE>
GENERIC: write-gadget ( gadget stream -- ) GENERIC: write-gadget ( gadget stream -- )
M: filter-writer write-gadget
stream>> write-gadget ;
M: pane-stream write-gadget ( gadget pane-stream -- ) M: pane-stream write-gadget ( gadget pane-stream -- )
pane>> current>> swap add-gadget drop ; pane>> current>> swap add-gadget drop ;

24
extra/images/viewer/prettyprint/prettyprint.factor Normal file
View File

@ -0,0 +1,24 @@
USING: accessors hashtables images images.viewer io io.styles
kernel math namespaces prettyprint.custom prettyprint.sections
sequences ui.gadgets.panes ;
FROM: images => image ;
IN: images.viewer.prettyprint
TUPLE: image-section < section
image ;
CONSTANT: approx-pixels-per-cell 8
: <image-section> ( image -- section )
dup dim>> first approx-pixels-per-cell /i image-section new-section
over >>image
swap presented associate >>style ;
M: image-section long-section
short-section ;
M: image-section short-section
image>> <image-gadget> output-stream get write-gadget ;
M: image pprint*
<image-section> add-section ;