fill-axis-by-aspect-ratio ( image-gadget fill -- fill' )


Vocabulary
images.viewer.scaling.private

Inputs
image-gadgetan object
fillan object


Outputs
fill'an object


Definition
USING: arrays kernel sequences ;

IN: images.viewer.scaling.private

: fill-axis-by-aspect-ratio ( image-gadget fill -- fill' )
[ image-aspect-ratio ] [ first2 ] bi*
[ fill-x-axis-by-aspect-ratio ]
[ fill-y-axis-by-aspect-ratio ] if* 2array ;