Pinstripe/Display: Difference between revisions

{{Works with|rakudo|20172018.0510}}

<lang perl6>my ($HORx,$y) = 1280,720;

spurt "pinstripes.pgm", qq:to/EOH/ orelse .die;

$HORx $VERTy

my $PGMimg = open "pinstripes.pgm", :a, :bin ororelse .die "Can't append to pinstripes.pgm: $!";

my $vzones = $VERTy div 4;

my $hzonesstripes = ceiling $HORx / $w / +@colors;

my $line = Buf.new: (flat((@colors Xxx $w) xx $hzonesstripes).Array).splice(0,$HORx); # DH change 2015-12-20

$PGMimg.write: $line for ^$vzones;

$PGMimg.close;</lang>