Draw a sphere: Difference between revisions

 

=={{header|Perl 6}}==

{{trans|C}}

 

my $out = open( $outfile, :w, :bin ) or die "$!\n";

$out.say("P5\n$x $y\n$depth"); # .pgm header

$out.close;

}