From ed86a446d5644c88f0e5106cf7aa4d8b86f710b1 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 30 Apr 2003 22:10:53 +0000 Subject: [PATCH] (dir_down): remove underscores from glyph names. Underscores are not allowed .ps encoding files. --- ChangeLog | 5 +++ Documentation/misc/ChangeLog-1.5 | 1 - Documentation/user/refman.itely | 4 +-- input/mutopia/R.Schumann/romanze-op28-2.ly | 6 +++- lily/item.cc | 1 - mf/parmesan-custodes.mf | 36 +++++++++++----------- scm/chords-ignatzek.scm | 6 ++++ 7 files changed, 36 insertions(+), 23 deletions(-) diff --git a/ChangeLog b/ChangeLog index c7cdb2aab9..b05cac7958 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-05-01 Han-Wen Nienhuys + + * mf/parmesan-custodes.mf (dir_down): remove underscores from + glyph names. Underscores are not allowed .ps encoding files. + 2003-04-30 Juergen Reuter * lily/spacing-spanner.cc, ly/paper-init.ly: introduced paper diff --git a/Documentation/misc/ChangeLog-1.5 b/Documentation/misc/ChangeLog-1.5 index 6c889e0eb2..c561b28b6b 100644 --- a/Documentation/misc/ChangeLog-1.5 +++ b/Documentation/misc/ChangeLog-1.5 @@ -3563,7 +3563,6 @@ i2002-07-12 Mats Bengtsson * lily/staff-spacing.cc (next_notes_correction): Correct the spacing of a note following a barline. - 2002-03-04 Glen Prideaux * mf/feta-solfa.mf: Shaped note heads diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely index 1c4beb5ac9..89452552ba 100644 --- a/Documentation/user/refman.itely +++ b/Documentation/user/refman.itely @@ -4785,8 +4785,8 @@ in the context, with the following arguments: @item the context where @code{\applyoutput} is processed. @end itemize -The cause of the grob, i.e. the music expression or object that was -responsible for creating the object, is in the object property +In addition, the cause of the grob, i.e. the music expression or object +that was responsible for creating the object, is in the object property @code{cause}. For example, for a note head, this is a @internalsref{NoteHead} event, and for a @internalsref{Stem} object, this is a @internalsref{NoteHead} object. diff --git a/input/mutopia/R.Schumann/romanze-op28-2.ly b/input/mutopia/R.Schumann/romanze-op28-2.ly index eabcf57b94..54212f4726 100644 --- a/input/mutopia/R.Schumann/romanze-op28-2.ly +++ b/input/mutopia/R.Schumann/romanze-op28-2.ly @@ -236,7 +236,11 @@ leftb = \notes \transpose c cis { \property PianoStaff.connectArpeggios = ##t \property PianoStaff.Arpeggio \override #'molecule-callback = \arpeggioBracket - \property PianoStaff.instrument="\Huge\bf\it 2." + \property PianoStaff.InstrumentName \set #'font-relative-size = #3 + \property PianoStaff.InstrumentName \set #'font-shape = #'italic + \property PianoStaff.InstrumentName \set #'font-magnification = #3 + + \property PianoStaff.instrument="2. " \context Staff = up { \property Staff.DynamicLineSpanner \override #'direction = #-1 \clef G <\global \context Voice=upv \righta> diff --git a/lily/item.cc b/lily/item.cc index 236885dc32..89eb804389 100644 --- a/lily/item.cc +++ b/lily/item.cc @@ -6,7 +6,6 @@ (c) 1997--2003 Han-Wen Nienhuys */ - #include "paper-score.hh" #include "warn.hh" #include "item.hh" diff --git a/mf/parmesan-custodes.mf b/mf/parmesan-custodes.mf index 82e5e89446..b4a0be94a0 100644 --- a/mf/parmesan-custodes.mf +++ b/mf/parmesan-custodes.mf @@ -80,27 +80,27 @@ def custos_hufnagel(expr verbose_name, internal_name, ly_name, enddef; % custos hufnagel, stem up, between staff lines -custos_hufnagel("Custos Hufnagel", "hufnagel-u0", "hufnagel_u0", +custos_hufnagel("Custos Hufnagel", "hufnagel-u0", "hufnagelu0", dir_up, between_staff_lines); % custos hufnagel, stem up, on staff line -custos_hufnagel("Custos Hufnagel", "hufnagel-u1", "hufnagel_u1", +custos_hufnagel("Custos Hufnagel", "hufnagel-u1", "hufnagelu1", dir_up, on_staff_line); % custos hufnagel, stem up, anywhere -custos_hufnagel("Custos Hufnagel", "hufnagel-u2", "hufnagel_u2", +custos_hufnagel("Custos Hufnagel", "hufnagel-u2", "hufnagelu2", dir_up, anywhere); % custos hufnagel, stem down, between staff lines -custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d0", "hufnagel_d0", +custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d0", "hufnageld0", dir_down, between_staff_lines); % custos hufnagel, stem down, on staff line -custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d1", "hufnagel_d1", +custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d1", "hufnageld1", dir_down, on_staff_line); % custos hufnagel, stem down, anywhere -custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d2", "hufnagel_d2", +custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d2", "hufnageld2", dir_down, anywhere); %%%%%%%% @@ -166,15 +166,15 @@ custos_medicaea("Custos Med.", "medicaea-u2", "medicaea_u2", dir_up, anywhere); % custos medicaea, stem down, between staff lines -custos_medicaea("Reverse Custos Med.", "medicaea-d0", "medicaea_d0", +custos_medicaea("Reverse Custos Med.", "medicaea-d0", "medicaead0", dir_down, between_staff_lines); % custos medicaea, stem down, on staff line -custos_medicaea("Reverse Custos Med.", "medicaea-d1", "medicaea_d1", +custos_medicaea("Reverse Custos Med.", "medicaea-d1", "medicaead1", dir_down, on_staff_line); % custos medicaea, stem down, anywhere -custos_medicaea("Reverse Custos Med.", "medicaea-d2", "medicaea_d2", +custos_medicaea("Reverse Custos Med.", "medicaea-d2", "medicaead2", dir_down, anywhere); %%%%%%%% @@ -241,15 +241,15 @@ custos_vaticana("Custos Ed. Vat.", "vaticana-u2", "vaticana_u2", dir_up, anywhere); % custos vaticana, stem down, between staff lines -custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d0", "vaticana_d0", +custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d0", "vaticanad0", dir_down, between_staff_lines); % custos vaticana, stem down, on_staff_line -custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d1", "vaticana_d1", +custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d1", "vaticanad1", dir_down, on_staff_line); % custos vaticana, stem down, anywhere -custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d2", "vaticana_d2", +custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d2", "vaticanad2", dir_down, anywhere); %%%%%%%% @@ -303,27 +303,27 @@ def custos_mensural(expr verbose_name, internal_name, ly_name, enddef; % custos mensural, stem up, between staff lines -custos_mensural("Custos Mensural", "mensural-u0", "mensural_u0", +custos_mensural("Custos Mensural", "mensural-u0", "mensuralu0", dir_up, between_staff_lines); % custos mensural, stem up, on staff line -custos_mensural("Custos Mensural", "mensural-u1", "mensural_u1", +custos_mensural("Custos Mensural", "mensural-u1", "mensuralu1", dir_up, on_staff_line); % custos mensural, stem up, anywhere -custos_mensural("Custos Mensural", "mensural-u2", "mensural_u2", +custos_mensural("Custos Mensural", "mensural-u2", "mensuralu2", dir_up, anywhere); % custos mensural, stem down, between staff lines -custos_mensural("Reverse Custos Mensural", "mensural-d0", "mensural_d0", +custos_mensural("Reverse Custos Mensural", "mensural-d0", "mensurald0", dir_down, between_staff_lines); % custos mensural, stem down, on staff line -custos_mensural("Reverse Custos Mensural", "mensural-d1", "mensural_d1", +custos_mensural("Reverse Custos Mensural", "mensural-d1", "mensurald1", dir_down, on_staff_line); % custos mensural, stem down, anywhere -custos_mensural("Reverse Custos Mensural", "mensural-d2", "mensural_d2", +custos_mensural("Reverse Custos Mensural", "mensural-d2", "mensurald2", dir_down, anywhere); fet_endgroup ("custodes") diff --git a/scm/chords-ignatzek.scm b/scm/chords-ignatzek.scm index f1c61ff517..5ef42c0a69 100644 --- a/scm/chords-ignatzek.scm +++ b/scm/chords-ignatzek.scm @@ -1,3 +1,9 @@ +;; implement Ignatzek chord naming +;; +;; source file of the GNU LilyPond music typesetter +;; +;; (c) 2003 Han-Wen Nienhuys + (define (natural-chord-alteration p) "Return the natural alteration for step P." (if (= (ly:pitch-steps p) 6) -- 2.39.2