Select Code to Download

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