Help for this page
my $color = ( abs( $newPoint->[A] ) * 256 + (100 - $newY) +);
my $color = ( abs( $newPoint->[A] ) * 256 );