NAME
Math::Color - Perl class to represent colors
HIERARCHY
-+- Math::Vec3 -+- Math::Color
SEE ALSO
Math::Color, Math::Image, Math::Vec2, Math::Vec3, Math::Rotation Math::Quaternion
SYNOPSIS
use Math::Color;
my $c = new Math::Color; # Make a new Color
my $c1 = new Math::Color(0,1,0);
DESCRIPTION
METHODS
new(r,g,b)
r, g, b are given on [0, 1].
my $c = new Math::Color;
my $c1 = new Math::Color($v);
my $c2 = new Math::Color(0, 0.5, 1);
my $c3 = new Math::Color([0, 0.5, 1]);
copy
Makes a copy
$c2 = $c1->copy;
$c2 = new Math::Color($c1);
setValue(r,g,b)
Sets the value of the color. r, g, b are given on [0, 1].
$c1->setValue(0, 0.2, 1);
setRed(r)
Sets the first value of the color r is given on [0, 1].
$c1->setRed(1);
$c1->red = 1;
$c1->r = 1;
$c1->[0] = 1;
setGreen(g)
Sets the second value of the color. g is given on [0, 1].
$c1->setGreen(0.2);
$c1->green = 0.2;
$c1->g = 0.2;
$c1->[1] = 0.2;
setBlue(b)
Sets the third value of the color. b is given on [0, 1].
$c1->setBlue(0.3);
$c1->blue = 0.3;
$c1->[2] = 0.3;
getValue
Returns the @value of the color.
@v = $c1->getValue;
r
red
getRed
Returns the first value of the color.
$r = $c1->getRed;
$r = $c1->red;
$r = $c1->r;
$r = $c1->[0];
g
green
getGreen
Returns the second value of the color.
$g = $c1->getGreen;
$g = $c1->green;
$g = $c1->g;
$g = $c1->[1];
b
blue
getBlue
Returns the third value of the color.
$b = $c1->getBlue;
$b = $c1->blue;
$b = $c1->b;
$b = $c1->[2];
setHSV(h,s,v)
h is given on [0, 2 pi]. s, v are given on [0, 1]. RGB are each returned on [0, 1].
$c->setHSV(1/12,1,1); # 1 0.5 0
getHSV
h is in [0, 2 pi]. s, v are each returned on [0, 1].
@hsv = $c->getHSV;
toString
Returns a string representation of the color. This is used to overload the '""' operator, so that color may be freely interpolated in strings.
my $c = new Math::Color(0.1, 0.2, 0.3);
print $c->toString; # "0.1, 0.2, 0.3"
print "$c"; # "0.1, 0.2, 0.3"
SEE ALSO
Math::Complex, Math::Trig, Math::Quaternion
Math::Color, Math::Image, Math::Vec2, Math::Vec3, Math::Rotation
BUGS & SUGGESTIONS
If you run into a miscalculation, need some sort of feature or an additional holiday, or if you know of any new changes to the funky math, please drop the author a note.
ARRANGED BY
Holger Seelig E<holger.seelig@yahoo.de>
COPYRIGHT
This is free software; you can redistribute it and/or modify it under the same terms as Perl itself.