Rosetta Code

Colour bars/Display: Difference between revisions

Page Discussion

Colour bars/Display (view source)

Revision as of 14:48, 16 November 2018

100 bytes removed ,  5 years ago
m
→‎{{header|Perl 6}}: proper error message on file open failure, style tweaks
m (→‎{{header|Go}}: Removed top and bottom blank lines from code window.)
m (→‎{{header|Perl 6}}: proper error message on file open failure, style tweaks)
Line 984:
close DISPLAY ;#to be watched with <image viewer> testprogram.png</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|20152018.1210}}
<lang perl6>my ($HORx,$y) = 1280, 720;
my $VERT = 720;
 
my @colors = map -> $r, $g, $b { Buf.new: |(($r, $g, $b) xx $HORx div 8) },
0, 0, 0, 0,
255, 0, 0,
0, 255, 0,
0, 0, 0,255,
255, 0, 255,
0, 255, 255,
255, 255, 0,
255, 255, 255;
 
my $PPMimg = open "colorbars.ppm", :w ororelse die "Can't create colorbars.ppm: $!_";
 
$PPMimg.print: qq:to/EOH/;
P6
# colorbars.ppm
$HORx $VERTy
255
EOH
 
for ^$VERT -> $vy {
for ^@colors -> $h {
$PPMimg.write: @colors[$h];
}
}
 
$PPMimg.close;</lang>
 
=={{header|Phix}}==
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/182383"