contain-image ( image-gadget fill -- fill' )


Vocabulary
images.viewer.scaling.private

Inputs
image-gadgetan object
fillan object


Outputs
fill'an object


Definition
USING: kernel ;

IN: images.viewer.scaling.private

: contain-image ( image-gadget fill -- fill' )
[ dup [ root-gadget-dim ] [ image-aspect-ratio ] bi ]
[ fit-aspect-ratio ] bi* cover-image ;