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