From: Werner Lemberg <wl@gnu.org>
Date: Sun, 5 Aug 2007 05:01:33 +0000 (+0200)
Subject: Fix alteration in ancient notation.  From Jürgen.
X-Git-Tag: release/2.11.29-1~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dd31a1df02aaa72e54948a083803a1bbc1e49469;p=lilypond.git

Fix alteration in ancient notation.  From Jürgen.
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index bd3aa52744..af454f24a7 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -398,24 +398,24 @@ centered, X==1 is at the right, X == -1 is at the left."
        ))
   
 (define-public alteration-hufnagel-glyph-name-alist
-   '((1/2 . "accidentals.hufnagel-1")
+   '((-1/2 . "accidentals.hufnagel-1")
      (0 . "accidentals.vaticana0")
-     (-1/2 . "accidentals.mensural1")))
+     (1/2 . "accidentals.mensural1")))
 
 (define-public alteration-medicaea-glyph-name-alist
-   '((1/2 . "accidentals.medicaea-1")
+   '((-1/2 . "accidentals.medicaea-1")
      (0 . "accidentals.vaticana0")
-     (-1/2 . "accidentals.mensural1")))
+     (1/2 . "accidentals.mensural1")))
 
 (define-public alteration-vaticana-glyph-name-alist
-   '((1/2 . "accidentals.vaticana-1")
+   '((-1/2 . "accidentals.vaticana-1")
      (0 . "accidentals.vaticana0")
-     (-1/2 . "accidentals.mensural1")))
+     (1/2 . "accidentals.mensural1")))
 
 (define-public alteration-mensural-glyph-name-alist
-   '((1/2 . "accidentals.mensural-1")
+   '((-1/2 . "accidentals.mensural-1")
      (0 . "accidentals.vaticana0")
-     (-1/2 . "accidentals.mensural1")))
+     (1/2 . "accidentals.mensural1")))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;