lilypond-1.5.8

diff --git a/input/bugs/context-weirdness.ly b/input/bugs/context-weirdness.ly
new file mode 100644 (file)
index 0000000..b7f4a6e
--- /dev/null
+++ b/input/bugs/context-weirdness.ly
@@ -0,0 +1,52 @@
+\header {
+texidoc = "context level weirdness.  after some commands, explicit
+ \context Voice commands must be inserted; otherwise subsequent property
+ settings fail silently"
+}
+
+% from les-nereides.ly
+
+ #(define (make-text-checker text)
+  (lambda (elt) (equal? text (ly-get-grob-property elt 'text))))
+
+\score {
+  \context PianoStaff <
+    \context Staff=upper \notes\relative c' {
+        \property Score.timing = ##f
+
+        \outputproperty #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
+        c-"foe"
+       
+       \translator Staff=lower
+
+       % staff switch moves us
+       % implicitely to staff level: text-checker won't see "foe"
+        \outputproperty #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
+        c-"foe"
+
+       % get back to Voice level: it works again
+       \context Voice
+       \outputproperty #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
+        c-"foe"
+
+       \clef treble
+       
+       % clef change moves us
+       % implicitely to staff level: text-checker won't see "foe"
+        \outputproperty #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
+        c-"foe"
+
+       % get back to Voice level: it works again
+       \context Voice
+       \outputproperty #(make-text-checker "foe") #'extra-offset = #'(-2 . 4)
+        c-"foe"
+       
+    }
+    \context Staff=lower \notes\relative c' {
+      s
+    }
+  >
+  \paper {
+    linewidth = -1.0
+  }
+}
\ No newline at end of file

diff --git a/input/bugs/drarn.ly b/input/bugs/drarn.ly
new file mode 100644 (file)
index 0000000..5e0b385
--- /dev/null
+++ b/input/bugs/drarn.ly
@@ -0,0 +1,24 @@
+\version "1.3.148"
+%% oops, weird small ties
+
+\score {
+  \context Staff \notes <
+    \time 3/8
+    \context Voice=one \relative c'' {
+      \property Voice.Stem \set #'direction = #1
+      \property Voice.Tie \set #'direction = #1
+      \property Voice.Slur \set #'direction = #1
+      \property Voice.Slur \set #'attachment = #'(head . head)
+      c8 c()c  
+    }
+    \context Voice=two \relative c'' {
+      \property Voice.Stem \set #'direction = #-1
+      \property Voice.Tie \set #'direction = #-1
+      \property Voice.Slur \set #'direction = #-1
+      \property Voice.Slur \set #'attachment = #'(head . head)
+      a8()a~a  
+    }
+  >
+  \paper { linewidth = -1. } 
+%  \paper { linewidth = 40*\staffspace } 
+}

diff --git a/input/bugs/grace+section.ly b/input/bugs/grace+section.ly
new file mode 100644 (file)
index 0000000..c87c8be
--- /dev/null
+++ b/input/bugs/grace+section.ly
@@ -0,0 +1,10 @@
+\header{
+texidoc = "@section Grace notes"
+foollilypondbook = "
+\score
+"
+}
+
+\score {
+  \context Lyrics \lyrics { "." }
+}

diff --git a/input/bugs/grace-finger.ly b/input/bugs/grace-finger.ly
new file mode 100644 (file)
index 0000000..9fffe3a
--- /dev/null
+++ b/input/bugs/grace-finger.ly
@@ -0,0 +1,10 @@
+\version "1.3.148"
+
+
+ % ?
+ 
+\score {
+\notes \context Voice = VA \relative c'' {
+       \grace {[b8^1 c^2]} d4^3
+}
+\paper {linewidth = -1. }}

diff --git a/input/bugs/slur-steep-broken.ly b/input/bugs/slur-steep-broken.ly
new file mode 100644 (file)
index 0000000..20320aa
--- /dev/null
+++ b/input/bugs/slur-steep-broken.ly
@@ -0,0 +1,14 @@
+\version "1.3.148"
+
+\score{
+  \notes\relative c''{
+    \time 2/4
+    [f8 e d f, (] | \break
+    [) a'8. gis16 fis8. cis16] |
+  }
+  \paper{
+    linewidth = 3.0\cm
+    indent = .0
+  }
+}
+

diff --git a/input/bugs/steep.ly b/input/bugs/steep.ly
new file mode 100644 (file)
index 0000000..a52379c
--- /dev/null
+++ b/input/bugs/steep.ly
@@ -0,0 +1,17 @@
+\version "1.3.148"
+\header{
+texidoc="Ugly slur"
+}
+
+
+\score{
+       \notes\relative c''{
+               a'( a a [a8...] b,32\break
+               c4 \clef bass c,,, c )c
+       }
+       \paper{
+               indent=0.0\mm
+               linewidth=40.0\mm
+       }
+}
+

diff --git a/input/bugs/ties.ly b/input/bugs/ties.ly
new file mode 100644 (file)
index 0000000..cbd12e9
--- /dev/null
+++ b/input/bugs/ties.ly
@@ -0,0 +1,22 @@
+\version "1.3.148"
+
+\header {
+  texidoc="Positioning of last ties is incorrect ties between 2-1 and 1-1
+  durations differ."
+}
+
+\score {
+  \context Staff <
+    \context Voice = a \notes\relative c'' {
+      \voiceOne
+      r2 a2 a1~a
+    }
+    \context Voice = y \notes\relative c' {
+      \voiceTwo
+      r2 a2~a1~a
+    }
+  >
+  \paper {
+    linewidth = 100 * \staffspace
+  }
+}

diff --git a/input/bugs/triplets.ly b/input/bugs/triplets.ly
new file mode 100644 (file)
index 0000000..0d0e629
--- /dev/null
+++ b/input/bugs/triplets.ly
@@ -0,0 +1,32 @@
+\version "1.3.148"
+
+\header {
+texidoc = "Simple beams.  This broke somewhere < 1.3.110
+"
+  title = "Gammes Chromatiques"
+  composer = ""
+  filename = "gammes_chromatiques.ly"
+}
+
+%{
+           - At bar 3 of 2nd score, stems are too big (or the beams are
+          badly positionned)
+%}
+
+exI = \notes \relative c' {
+  \repeat "volta" 2 {
+    \times 2/3 {c8( cis d} \times 2/3 {dis e f} 
+    \times 2/3 {fis g gis} \times 2/3 {a bes b} |
+    \property Voice.TupletBracket \override #'tuplet-number-visibility = ##f
+    \property Voice.TupletBracket \override #'tuplet-bracket-visibility = ##f
+    \times 2/3 {c8 cis d} \times 2/3 {dis e f} 
+    \times 2/3 {fis g gis} \times 2/3 {a bes b} |
+    \times 2/3 {c b bes} \times 2/3 {a aes g}
+    \times 2/3 {fis f e} \times 2/3 {ees d des} |
+    \times 2/3 {c b bes} \times 2/3 {a aes g}
+    \times 2/3 {fis f e} \times 2/3 {ees d )des}
+  }
+  c1 || \break
+}
+
+\score { \context Staff { \notes { \exI } } }