30 lines
698 B
Raku
30 lines
698 B
Raku
class Pixel { has uint8 ($.R, $.G, $.B) }
|
|
class Bitmap {
|
|
has UInt ($.width, $.height);
|
|
has Pixel @!data;
|
|
|
|
method fill(Pixel $p) {
|
|
@!data = $p.clone xx ($!width*$!height)
|
|
}
|
|
method pixel(
|
|
$i where ^$!width,
|
|
$j where ^$!height
|
|
--> Pixel
|
|
) is rw { @!data[$i*$!height + $j] }
|
|
|
|
method data { @!data }
|
|
}
|
|
|
|
role PPM {
|
|
method P6 returns Blob {
|
|
"P6\n{self.width} {self.height}\n255\n".encode('ascii')
|
|
~ Blob.new: flat map { .R, .G, .B }, self.data
|
|
}
|
|
}
|
|
|
|
my Bitmap $b = Bitmap.new(width => 125, height => 125) but PPM;
|
|
for flat ^$b.height X ^$b.width -> $i, $j {
|
|
$b.pixel($i, $j) = Pixel.new: :R($i*2), :G($j*2), :B(255-$i*2);
|
|
}
|
|
|
|
$*OUT.write: $b.P6;
|