| lib/ChordPro/Output/PDF/StringDiagrams.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 45 | 35.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 153 | 0 | 0 | 48 | $fingers and $fbg ne $fg |
| 209 | 0 | 288 | 0 | $fing and $bar |
| 288 | 0 | 0 | $fing and $bar and $bar->{$fing} | |
| 211 | 0 | 0 | 0 | $fsh eq "below" and $fing =~ /^[A-Z0-9]$/ |
| 224 | 192 | 0 | 0 | $fret > $v and not $oflo++ |
| 259 | 192 | 0 | 0 | $fsh eq "below" and $fing =~ /^[A-Z0-9]$/ |
| 313 | 0 | 96 | 24 | $bfno <= 1 and $_ == 0 |
| line | l | !l | condition |
|---|---|---|---|
| 34 | 24 | 0 | $ps->{'diagrams'}{'linewidth'} || 0.1 |
| 84 | 48 | 0 | $ps->{'diagrams'}{'linewidth'} || 0.1 |
| 128 | 0 | 0 | $col // "black" |
| 203 | 48 | 0 | $info->{'frets'} // [] |
| 206 | 0 | 288 | $fingers->[$sx] // -1 |
| 288 | 48 | 0 | $ps->{'diagrams'}{'linewidth'} || 0.1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 91 | 0 | 48 | 0 | $info->{'diagram'} // $main::config->{'pdf'}{'theme'}{'foreground'} |
| 210 | 0 | 0 | 0 | $sx == $bar->{$fing}[2] or $sx == $bar->{$fing}[3] |
| 230 | 0 | 0 | 192 | $fbg eq $fg or $fsh eq "below" |
| 295 | 24 | 24 | 0 | $self->{'grids'}{join $;, $gw, $gh, $lw, $bflw, $bfno, $fg, $v, $strings} //= do { my $w = $gw * ($strings - 1); my $h = $strings; my $form = $ps->{'pr'}{'pdf'}->xo_form; my(@bb) = (-$lw / 2, -$lw / 2 - $bflw / 2, ($h - 1) * $gw + $lw / 2, $v * $gh + $lw / 2 + $bflw / "2.5"); $form->bbox(@bb); my $dc = bless({"pdfgfx", $form}, "ChordPro::Output::PDF::Writer"); '???'; my $color = $fg; foreach $_ (0 .. $v) { if ($bfno <= 1 and $_ == 0) { $dc->hline(0, ($v - $_) * $gh, $w, $bflw, $color); } else { $dc->hline(0, ($v - $_) * $gh - $bflw / 2, $w, $lw, $color); } ; } ; $dc->vline($_ * $gw, $v * $gh + $bflw / 4, $gh * $v + $bflw / "1.5", $lw, $color) foreach (0 .. $h - 1); $form } |