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

##</code><code>##

            my $color = ( abs( $newPoint->[A] ) * 256 );