From e83793a9860420527f173d106889bfd30ed3bd91 Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 02:00:02 +0000 Subject: [PATCH] lilypond-1.5.8 --- input/bugs/accents.ly | 13 ++++ input/bugs/ancient-font.ly | 132 ++++++++++++++++++++++++++++++++ input/bugs/barline.ly | 27 +++++++ input/bugs/broken-tuplet.ly | 18 +++++ input/bugs/different-time.ly | 33 ++++++++ input/bugs/dots.ly | 11 +++ input/bugs/lyrics-spacing.ly | 27 +++++++ input/bugs/prefatory-spacing.ly | 15 ++++ input/bugs/rest-melisma.ly | 20 +++++ input/bugs/slur-attachment.ly | 21 +++++ input/bugs/steep-beam.ly | 7 ++ input/bugs/text-kerning.ly | 16 ++++ 12 files changed, 340 insertions(+) create mode 100644 input/bugs/accents.ly create mode 100644 input/bugs/ancient-font.ly create mode 100644 input/bugs/barline.ly create mode 100644 input/bugs/broken-tuplet.ly create mode 100644 input/bugs/different-time.ly create mode 100644 input/bugs/dots.ly create mode 100644 input/bugs/lyrics-spacing.ly create mode 100644 input/bugs/prefatory-spacing.ly create mode 100644 input/bugs/rest-melisma.ly create mode 100644 input/bugs/slur-attachment.ly create mode 100644 input/bugs/steep-beam.ly create mode 100644 input/bugs/text-kerning.ly diff --git a/input/bugs/accents.ly b/input/bugs/accents.ly new file mode 100644 index 0000000000..6d26098115 --- /dev/null +++ b/input/bugs/accents.ly @@ -0,0 +1,13 @@ +\version "1.3.148" +\score { + \context Staff \notes\relative c''< + \context Voice=one { + \voiceOne + e2-> + } + \context Voice=two { + \voiceTwo + f,2-> + } + > +} \ No newline at end of file diff --git a/input/bugs/ancient-font.ly b/input/bugs/ancient-font.ly new file mode 100644 index 0000000000..6aef817e6b --- /dev/null +++ b/input/bugs/ancient-font.ly @@ -0,0 +1,132 @@ +\version "1.3.148" +\header { +texidoc="setting staff symbol properties the normal way is broken" + title = "ancient font test" + date = "2000" +} + + + +\include "paper26.ly" + +global = \notes { + \property Score.timing = ##f +% \property Staff.TimeSignature \override #'style = #'old +} + +upperVoice = \context Staff = upperVoice < + \global + \property Staff.StaffSymbol \override #'line-count = #4 + \notes \transpose c' { + \property Voice.NoteHead \override #'style = #'mensural + \property Voice.Stem \override #'stem-centered = ##t + \property Staff.Custos \override #'style = #'vaticana + \clef "vaticana_fa2" + c2 d e f g + +% \property Staff.clefGlyph = #"clefs-vaticana_do" +% \property Staff.clefPosition = #1 +% \property Staff.clefOctavation = #0 + \clef "vaticana_do2" + + a b c' + b a g f + \clef "vaticana_fa1" + e d c1 \bar "|" + + \property Staff.Custos \override #'style = #'medicaea + \clef "medicaea_fa2" + c2 d e f g + \clef "medicaea_do2" + a b c' + b a g f + \clef "medicaea_fa1" + e d c1 \bar "|" + + \property Staff.Custos \override #'style = #'hufnagel + \clef "hufnagel_fa2" + c2 d e f g + \clef "hufnagel_do2" + a b c' + b a g f + \clef "hufnagel_fa1" + e d c1 \bar "||" + } +> + +lowerVoice = \context Staff = lowerNotes < + \global + \property Staff.StaffSymbol \override #'line-count = #5 + \notes \transpose c' { + \property Voice.NoteHead \override #'style = #'mensural + \property Voice.Stem \override #'stem-centered = ##t + \property Staff.Custos \override #'style = #'mensural + \clef "mensural1_c2" + c2 d e f g + \property Staff.forceClef = ##t + \clef "mensural1_c2" + a b c' + b a g f + \clef "mensural2_c2" + e d c1 \bar "|" + + \clef "mensural2_c2" + c2 d e f g + \property Staff.forceClef = ##t + \clef "mensural3_c2" + a b c' + b a g f + \clef "mensural3_c2" + e d c1 \bar "|" + + \clef "mensural1_f" + c2 d e f g + \property Staff.forceClef = ##t + \clef "mensural1_f" + a b c' + b a g f + \clef "mensural2_f" + e d c1 \bar "|" + + \property Staff.forceClef = ##t + \clef "mensural2_f" + c2 d e f g + \clef "mensural_g" + a' b' c'' + b' a' g' f' + \property Staff.forceClef = ##t + \clef "mensural_g" + e' d' c'1 \bar "|" + + \property Staff.forceClef = ##t + \clef "mensural_g" + c'2 d' e' f' g' + \clef "hufnagel_do_fa" + a b c' + b a g f + \property Staff.forceClef = ##t + \clef "hufnagel_do_fa" + e d c1 \bar "||" + } +> + +\score { + \context ChoirStaff < + \upperVoice + \lowerVoice + > + \paper { +% \paperTwentysix + linewidth = 17.25\cm + textheight = 26.0\cm + indent = 0.0 + \translator { + \StaffContext + \consists Custos_engraver +% Custos \override #'style = #'mensural + \remove Time_signature_engraver +% StaffSymbol \override #'line-count = #4 + } + } +} + diff --git a/input/bugs/barline.ly b/input/bugs/barline.ly new file mode 100644 index 0000000000..73fb3631c0 --- /dev/null +++ b/input/bugs/barline.ly @@ -0,0 +1,27 @@ +\version "1.3.148" + +\header { +texidoc = "Staves that end half way a system should end at the bar line." +} + +melody = \notes \relative c' { + \partial 8 + g8 | + \bar "|."\clef bass +} + + + +accompaniment = \chords \sequential { + r8 + r2 r2 +} + +\score { + \simultaneous { + \context ChordNames \accompaniment + \context Staff { + \melody } + } + \paper { } +} diff --git a/input/bugs/broken-tuplet.ly b/input/bugs/broken-tuplet.ly new file mode 100644 index 0000000000..5008c4aff2 --- /dev/null +++ b/input/bugs/broken-tuplet.ly @@ -0,0 +1,18 @@ +\version "1.3.148" + +\header { + +texidoc = "tuplet bracket doesn't behave properly at line break. Not a real problem." +} + +\score{ + \notes\relative c''< + { % broken cresc dumps core + c2 c4*2/3 \times 2/3 { c( c c } + c4 c c c + } > + \paper{ + indent = 0. + linewidth=30.\mm + } +} diff --git a/input/bugs/different-time.ly b/input/bugs/different-time.ly new file mode 100644 index 0000000000..2db2460f2b --- /dev/null +++ b/input/bugs/different-time.ly @@ -0,0 +1,33 @@ +\version "1.3.148" + +\header { +texidoc = " Spacing for one staff in polymetric music should +be not hampered by a staff in another time signature." +} + +\score{ + \context PianoStaff < + \context Staff = upper \notes\relative c''{ + \property Staff.timeSignatureFraction = #'(3 . 4) + c4 c c + c2. + + } + \context Staff = lower \notes\relative c' { + \property Staff.timeSignatureFraction = #'(4 . 4) + c4 c c c + c1 + } + > + \paper{ + linewidth=-1.0 + \translator { + \ScoreContext + \remove Timing_engraver + } + \translator { + \StaffContext + \consists Timing_engraver + } + } +} diff --git a/input/bugs/dots.ly b/input/bugs/dots.ly new file mode 100644 index 0000000000..b279b4c06d --- /dev/null +++ b/input/bugs/dots.ly @@ -0,0 +1,11 @@ +\version "1.3.148" + +\header { + texidoc = "Dots should remain close to the heads they belong to, but should not overlap." +} + + +\score { + \notes + \context Voice { } +} diff --git a/input/bugs/lyrics-spacing.ly b/input/bugs/lyrics-spacing.ly new file mode 100644 index 0000000000..623016d37b --- /dev/null +++ b/input/bugs/lyrics-spacing.ly @@ -0,0 +1,27 @@ +\include "norsk.ly" + +\header { +texidoc ="``baz'' should be centered on the a (tenor voice), but it is +not." +} + +\version "1.3.148" + +sop = \notes \transpose c'' {e2 e fis1 } +alt = \notes \relative c' {cis2 e e d } +ten = \notes \relative c' {a2 a a1 } +txt = \lyrics {foo2 bar baz jazz } + +\score { + < + \context Staff = up \notes < + \context Voice=sopv {\stemUp \sop} + \context Voice=altv {\stemDown \alt} + > + \context Staff = down \notes < \clef "F" + \context Voice=tenv {\stemUp \ten} + > + \context Lyrics = la { \txt } + > + \paper { linewidth = -1 } +} diff --git a/input/bugs/prefatory-spacing.ly b/input/bugs/prefatory-spacing.ly new file mode 100644 index 0000000000..06e718bc2a --- /dev/null +++ b/input/bugs/prefatory-spacing.ly @@ -0,0 +1,15 @@ +\version "1.3.148" + +\header { texidoc= "Spacing after clef/key should be stretched +equidistantly for large stretching, but should stay clear of prefatory +matter for small stretching. Support in the spacing engine for +separate spring constants for stretching/shrinking is needed" +} + +foo = \notes\relative c'' { \key as \major f } + +\score { + + < \foo + > +} diff --git a/input/bugs/rest-melisma.ly b/input/bugs/rest-melisma.ly new file mode 100644 index 0000000000..b8ef6e73e0 --- /dev/null +++ b/input/bugs/rest-melisma.ly @@ -0,0 +1,20 @@ +\version "1.3.148" +\header { +texidoc = "slur or long note on other staves fool lily into extending melisma" +} +\score { + < + \addlyrics + \notes { + \property Staff.automaticMelismata= ##t + c4 () c r c + } + \context Lyrics \lyrics { foo __ bar } + \context Staff=foolMelismata \notes{ + c4 ( c c ) c + } + \context Staff=foolMelismata \notes{ + c1 + } + > +} \ No newline at end of file diff --git a/input/bugs/slur-attachment.ly b/input/bugs/slur-attachment.ly new file mode 100644 index 0000000000..2353bbac5a --- /dev/null +++ b/input/bugs/slur-attachment.ly @@ -0,0 +1,21 @@ +\version "1.3.148" + +\header{ +texidoc = " +Slurs should be attached to note heads, except when they would collide +with beams. Also see: ophee-slurs. +" +} +\score{ + \notes \relative c''{ + \property Voice.Slur \set #'direction = #1 + a8( a )a4 + a4( a8 )a + a8 a()a4 + a4() a8 a + } + \paper{ + indent = 0.0 + linewidth = 100.\mm + } +} diff --git a/input/bugs/steep-beam.ly b/input/bugs/steep-beam.ly new file mode 100644 index 0000000000..f07d339017 --- /dev/null +++ b/input/bugs/steep-beam.ly @@ -0,0 +1,7 @@ +\version "1.3.148" + +\header { +texidoc = "1st beam should prob. be horizontal." +} + +\score { \notes <{ [ r8 g''16 des'] [r8 c16 a] }>} diff --git a/input/bugs/text-kerning.ly b/input/bugs/text-kerning.ly new file mode 100644 index 0000000000..4f67222a6b --- /dev/null +++ b/input/bugs/text-kerning.ly @@ -0,0 +1,16 @@ +\version "1.3.148" + + +\header { +texidoc = "LilyPond doesn't kern text, but TeX does, leading to skewed results: the VAVAVAVA takes less space than LilyPond thinks it does." } + +\score { + \notes \relative c'' < \context Voice { +% c16 c16 c16 c16 c4 + c4 c4 c4 + } +\context Lyrics \lyrics { foobar4 -- VAVAVAVAV4 -- foobar4 } > + + + \paper { linewidth = -10.0\cm } +} -- 2.39.5