normalized ( a b c quot: ( a b c -- a' b' c' ) -- a' b' c' )

Vocabulary

colors.ryb.private

Inputs

a	an object
b	an object
c	an object
quot	a quotation with stack effect ( a b c -- a' b' c' )

Outputs

a'	an object
b'	an object
c'	an object

Definition

USING: kernel math math.order ;

IN: colors.ryb.private

: normalized
    ( a b c quot: ( a b c -- a' b' c' ) -- a' b' c' )
    [ 3dup min min ] dip over
    [ [ - ] curry tri@ ] [ call ] [ [ + ] curry tri@ ] tri* ;
    inline