(scale) ( a b c d -- a*d b*c )

Vocabulary

math.ratios.private

Inputs

a	an object
b	an object
c	an object
d	an object

Outputs

a*d	an object
b*c	an object

Definition

USING: kernel math ;

IN: math.ratios.private

: (scale) ( a b c d -- a*d b*c ) [ * swap ] dip * swap ; inline