scale ( a b s -- c )

Vocabulary

ui.gadgets.borders.private

Inputs

a	an object
b	an object
s	an object

Outputs

c

an object

Definition

USING: kernel math.vectors ;

IN: ui.gadgets.borders.private

: scale ( a b s -- c )
    [ v* ] [ { 1 1 } swap v- v* ] bi-curry bi* v+ ;