scale-image ( image -- )


Vocabulary
images.viewer.scaling

Inputs
imagean object


Outputs
None

Definition
USING: accessors kernel math math.order sequences ui.gadgets
ui.gestures ;

IN: images.viewer.scaling

: scale-image ( image -- )
drag-loc first2 + scaling-inverse-proportional-factor /f
over saved-scale>> + 0 max >>scale relayout ;