view release on metacpan or  search on metacpan

lib/Fl/Color.pod  view on Meta::CPAN

};

=pod

=item fl_color_average(...)

    my $average = fl_color_average(FL_RED, FL_BLUE, .14);

Returns the weighted average color between the two given colors.

The red, green and blue values are averages using the following formula:

    color = color1 * weight  + color2 * (1 - weight)

Thus, a weight value of 1.0 will return the first color, while a value of 0.0
will return the second color.

=cut

xs {name        => 'fl_color_average',
    definitions => [{required => [['Fl_Color', 'color1'],