| blib/lib/ChordPro/Output/PDF/StringDiagrams.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 31 | 35.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 145 | 0 | 0 | 48 | $fingers and $fbg ne $fg |
| 200 | 0 | 288 | 0 | $fing and $bar |
| 288 | 0 | 0 | $fing and $bar and $bar->{$fing} | |
| 206 | 192 | 0 | 0 | $fret > $v and not $oflo++ |
| line | l | !l | condition |
|---|---|---|---|
| 81 | 48 | 0 | $ps->{'diagrams'}{'linewidth'} || 0.1 |
| 120 | 0 | 0 | $col // "black" |
| 194 | 48 | 0 | $info->{'frets'} // [] |
| 197 | 0 | 288 | $fingers->[$sx] // -1 |
| 264 | 48 | 0 | $ps->{'diagrams'}{'linewidth'} || 0.1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 84 | 0 | 48 | 0 | $info->{'diagram'} // $main::config->{'pdf'}{'theme'}{'foreground'} |
| 202 | 0 | 0 | 0 | $sx == $bar->{$fing}[2] or $sx == $bar->{$fing}[3] |
| 269 | 24 | 24 | 0 | $self->{'grids'}{join $;, $gw, $gh, $lw, $v, $strings, $fg} //= do { my $w = $gw * ($strings - 1); my $h = $strings; my $form = $ps->{'pr'}{'pdf'}->xo_form; my(@bb) = (-$lw / 2, -$lw / 2, ($h - 1) * $gw + $lw / 2, $v * $gh + $lw / 2); $form->bbox(@bb); my $dc = bless({"pdfgfx", $form}, "ChordPro::Output::PDF::Writer"); '???'; my $color = $fg; $dc->hline(0, ($v - $_) * $gh, $w, $lw, $color) foreach (0 .. $v); $dc->vline($_ * $gw, $v * $gh, $gh * $v, $lw, $color) foreach (0 .. $h - 1); $form } |