]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.5.8
authorfred <fred>
Wed, 27 Mar 2002 02:00:02 +0000 (02:00 +0000)
committerfred <fred>
Wed, 27 Mar 2002 02:00:02 +0000 (02:00 +0000)
12 files changed:
input/bugs/accents.ly [new file with mode: 0644]
input/bugs/ancient-font.ly [new file with mode: 0644]
input/bugs/barline.ly [new file with mode: 0644]
input/bugs/broken-tuplet.ly [new file with mode: 0644]
input/bugs/different-time.ly [new file with mode: 0644]
input/bugs/dots.ly [new file with mode: 0644]
input/bugs/lyrics-spacing.ly [new file with mode: 0644]
input/bugs/prefatory-spacing.ly [new file with mode: 0644]
input/bugs/rest-melisma.ly [new file with mode: 0644]
input/bugs/slur-attachment.ly [new file with mode: 0644]
input/bugs/steep-beam.ly [new file with mode: 0644]
input/bugs/text-kerning.ly [new file with mode: 0644]

diff --git a/input/bugs/accents.ly b/input/bugs/accents.ly
new file mode 100644 (file)
index 0000000..6d26098
--- /dev/null
@@ -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 (file)
index 0000000..6aef817
--- /dev/null
@@ -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 (file)
index 0000000..73fb363
--- /dev/null
@@ -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 (file)
index 0000000..5008c4a
--- /dev/null
@@ -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 (file)
index 0000000..2db2460
--- /dev/null
@@ -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 (file)
index 0000000..b279b4c
--- /dev/null
@@ -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 { <f,4. c'' d e f> }
+}
diff --git a/input/bugs/lyrics-spacing.ly b/input/bugs/lyrics-spacing.ly
new file mode 100644 (file)
index 0000000..623016d
--- /dev/null
@@ -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 (file)
index 0000000..06e718b
--- /dev/null
@@ -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 (file)
index 0000000..b8ef6e7
--- /dev/null
@@ -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 (file)
index 0000000..2353bba
--- /dev/null
@@ -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 (file)
index 0000000..f07d339
--- /dev/null
@@ -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 (file)
index 0000000..4f67222
--- /dev/null
@@ -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 }
+}