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