-#!@PERL@ -w
+##!@PERL@ -w
# -*-Perl-*-
my $mudcount = 0;
my $mudela_b = 0;
if ($center_b) {
print BOOK "\\begin{minipage}[c]{.5\\textwidth}\n";
}
- print BOOK "\\input " . gen_texfile . "%\n";
+ print BOOK "\\input " . gen_texfile . "\n";
if ($center_b) {
print BOOK "\\end{minipage}";
$center_b = 0;
print BOOK "\\begin{verbatim}\n";
}
if ($fragment_b) {
- print MUDELA "\\score { \\melodic {\\octave c';";
+ print MUDELA "\\score { \\melodic { ";
} else {
print MUDELA "default_paper = \\paper { \\paper_sixteen ";
print MUDELA "linewidth = 7.\\cm;}";