Grayscale image: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (Undo revision 237787 by SqrtNegInf (talk)) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: fixed file read) |
||
| Line 1,161: | Line 1,161: | ||
$out.say("P5\n$dim\n$depth"); |
$out.say("P5\n$dim\n$depth"); |
||
for $in. |
for $in.lines.ords -> $r, $g, $b { |
||
my $gs = $r * 0.2126 + $g * 0.7152 + $b * 0.0722; |
my $gs = $r * 0.2126 + $g * 0.7152 + $b * 0.0722; |
||
$out.print: chr($gs min 255); |
$out.print: chr($gs min 255); |
||