store-reference-scale ( image -- )

Vocabulary

images.viewer.scaling

Inputs

image

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: images.viewer.scaling

: store-reference-scale ( image -- )
    dup scale>> >>saved-scale drop ;