Anonymous user
Greyscale bars/Display: Difference between revisions
m
→{{header|Perl 6}}: tweaks
(→{{header|Perl 6}}: add entry) |
m (→{{header|Perl 6}}: tweaks) |
||
Line 591:
<pre>$ ocaml graphics.cma greyscale_bars.ml</pre>
=={{header|Perl 6}}==
<lang perl6>my $wininfo = qx
my ($width,$height) = ($wininfo ~~ /'Width: ' (\d+) .*? 'Height: ' (\d+)/)[];
($width,$height) = 1280,768 unless $width;
Line 599:
$PGM.print: qq:to/EOH/;
P2
#
$width $height
65535
| |||