<image-section> ( image -- section )


Vocabulary
images.viewer.prettyprint

Inputs
imagean object


Outputs
sectionan object


Definition
USING: accessors hashtables io.styles kernel math
prettyprint.sections sequences ;

IN: images.viewer.prettyprint

: <image-section> ( image -- section )
dup dim>> first approx-pixels-per-cell /i
image-section new-section over >>image
swap presented associate >>style ;