cover-image ( image-gadget fill -- fill' )


Vocabulary
images.viewer.scaling.private

Inputs
image-gadgetan object
fillan object


Outputs
fill'an object


Definition
USING: kernel sequences ;

IN: images.viewer.scaling.private

: cover-image ( image-gadget fill -- fill' )
dup first2 or not
[ drop dup fill-aspect-ratio cover-image ]
[ dupd scale-fill-by-root-dims fill-in-by-aspect-ratio ] if
;