#!/usr/bin/perl

use strict;

use lib "d:/Programs/Perl/lib";
use MyColor;

my $color = "red";
my $scale = 0.5;
$color = $ARGV[0] if(defined $ARGV[0]);
$scale = $ARGV[1] if(defined $ARGV[1]);


my $c = MyColor::GetColor($color);
print "Color $color is [$c]\n";
my ($r, $g, $b) = MyColor::ColorToRGB($color);
print "	[$r, $g, $b]\n";
my ($newc, $newr, $newg, $newb) = MyColor::ScaleColor($color, $scale, 1);
print "	* $scale = $newc [$newr, $newg, $newb]\n";