sample-linear-gradient ( colors percent -- color )

Vocabulary

colors.mix

Inputs

colors	an object
percent	an object

Outputs

color

an object

Definition

USING: math sequences ;

IN: colors.mix

:: sample-linear-gradient ( colors percent -- color )
    colors length :> num-colors num-colors 1 - percent *
    >integer :> left-index 1.0 num-colors 1 - /
    :> cell-range percent left-index cell-range * - cell-range /
    :> alpha left-index colors nth :> left-color left-index 1 +
    num-colors mod colors nth
    :> right-color left-color right-color alpha linear-gradient
    ;