Select Code to Download

    159     push @rows, $_ foreach ($start .. $y);
    push @rows, $start .. $y;
...
    356     push @draw, $lines[$_] foreach $y1 .. $y2;
    push @draw, @lines[ $y1 .. $y2 ];

    265   if (scalar @lines > 5) {
    266     @sayme = map { $lines[-$_] } (1 .. 5);
    267     @sayme = reverse @sayme;
    268   } else {

   if (@lines > 5) {
     @sayme = @lines[ -5 .. -1 ];
   } else {