fill-by-minimum-dim ( dim1 dim2 fill -- fill' )

Vocabulary

images.viewer.scaling.private

Inputs

dim1	an object
dim2	an object
fill	an object

Outputs

fill'

an object

Definition

USING: arrays kernel math math.vectors sequences ;

IN: images.viewer.scaling.private

: fill-by-minimum-dim ( dim1 dim2 fill -- fill' )
    [ v- first2 < ] dip f 2array swap [ <reversed> ] unless ;