From 900e8313d26e0972969133046bc3558ea55fdcfa Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sun, 18 Jul 2010 16:41:50 +0200
Subject: [PATCH] Use light-heavy barline instead of light-light at end of
piece
---
pae2xml.pl | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/pae2xml.pl b/pae2xml.pl
index aa23e2f..4b7c940 100755
--- a/pae2xml.pl
+++ b/pae2xml.pl
@@ -383,10 +383,15 @@ sub parse_notes {
</barline>
';
} elsif ($barline =~ /^\/\/$/) {
- print OUT ' <barline location="right">
- <bar-style>light-light</bar-style>
+ $type = "light-light";
+ # At the end of a piece use a light-heavy barline
+ if ($notes eq "") {
+ $type = "light-heavy";
+ }
+ print OUT " <barline location=\"right\">
+ <bar-style>$type</bar-style>
</barline>
-';
+";
}
print OUT " </measure>\n";
reset_measure_attributes ();
--
GitLab