Greyscale bars/Display: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m →{{header|Perl 6}}: modify to make similar to other image tasks |
|||
Line 984: | Line 984: | ||
($width,$height) = 1280,768 unless $width; |
($width,$height) = 1280,768 unless $width; |
||
my $PGM = open " |
my $PGM = open "Greyscale-bars-perl6.pgm", :w or die "Can't create Greyscale-bars-perl6.pgm: $!"; |
||
$PGM.print: qq:to/EOH/; |
$PGM.print: qq:to/EOH/; |
||
P2 |
P2 |
||
# |
# Greyscale-bars-perl6.pgm |
||
$width $height |
$width $height |
||
65535 |
65535 |
||
Line 1,012: | Line 1,012: | ||
$PGM.close; |
$PGM.close; |
||
shell "eog -f greybars.pgm"; |
|||
sub divvy($all, $div) { |
sub divvy($all, $div) { |