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