blue
/
GregoBase
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix initials

This commit is contained in:
Olivier Berten 2021-03-06 19:57:59 +01:00
parent 1abfe35356
commit f62f0c9cc4
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
chant_img.php
View File

@ -43,7 +43,7 @@ function mkstemp($suffix) {
return False;
}
function gregorio($s,$i=1) {
function gregorio($s) {
$f = mkstemp('.gabc');
fwrite($f[0],"nabc-lines: 1;\n%%\n".$s);
fclose($f[0]);
@ -57,8 +57,6 @@ function gregorio($s,$i=1) {
unlink($gf);
$tex = substr($tex,0,-12)."\n\\relax\n";
$tex .= "\\gresetinitiallines{$i}\n";
return $tex;
}
@ -140,23 +138,23 @@ function mgabc2tex($c, $firstverse = False) {
# Parsing gabc
#
$g = json_decode($c['gabc']);
$i = $c['initial'];
if($c['initial'] != 1) $tex .= "\\gresetinitiallines{".$c['initial']."}\n";
if(is_array($g)) {
foreach($g as $l) {
if($l[0] == 'gabc') {
$tex .= gregorio($l[1], $i);
$i = 0;
$tex .= gregorio($l[1]);
$tex .= "\\gresetinitiallines{0}\n";
} else {
$tex .= "\\vspace{10pt}\n".$l[1]."\\par\n";
}
}
} elseif($c['gabc_verses'] && !$firstverse) {
$tex .= gregorio($g."\n".$c['gabc_verses'], $i);
$tex .= gregorio($g."\n".$c['gabc_verses']);
} elseif($c['tex_verses'] && !$firstverse) {
$tex .= gregorio($g, $i);
$tex .= gregorio($g);
$tex .= "\\vspace{10pt}\n".$c['tex_verses']."\\par\n";
} else {
$tex .= gregorio($g, $i);
$tex .= gregorio($g);
}
#
# Document footer