June 2018 Update

Task/Death-Star/00DESCRIPTION

@@ -1,7 +1,9 @@
 {{omit from|AWK|Does not have this functionality in the language}}
 {{omit from|Lotus 123 Macro Scripting}}
 {{omit from|ML/I}}
+{{omit from|Modula-2}}
 {{omit from|Retro}}
+{{omit from|SQL PL|It does not handle GUI}}
 
 [[File:Deathstar-tcl.gif|400px|thumb]]
 

Task/Death-Star/Perl-6/death-star.pl6

@@ -30,7 +30,7 @@ my $neg = sphere.new(
 );
 
 sub MAIN ($outfile = 'deathstar-perl6.pgm') {
-    spurt $outfile, ("P5\n$x $y\n$depth"); # .pgm header
+    spurt $outfile, ("P5\n$x $y\n$depth\n"); # .pgm header
     my $out = open( $outfile, :a, :bin ) or die "$!\n";
     say 'Calculating row:';
     $out.write( Blob.new( draw_ds(3, .15) ) );