From a69148eb87584a6f9c9b5c1a7fc7c5b176f826ea Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 12 Mar 2002 13:36:25 +0000
Subject: [PATCH] lilypond-1.5.39

---
 input/bugs/sammartini.ly | 65 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 input/bugs/sammartini.ly

diff --git a/input/bugs/sammartini.ly b/input/bugs/sammartini.ly
new file mode 100644
index 0000000000..e77ad1fe17
--- /dev/null
+++ b/input/bugs/sammartini.ly
@@ -0,0 +1,65 @@
+
+%
+% bug: 1st tuplet spacing weird.
+
+\include "paper16.ly"
+
+stemDown = \property Voice.Stem \override #'direction = #-1
+stemUp = \property Voice.Stem \override #'direction = #1
+stemBoth = \property Voice.Stem \revert #'direction  
+
+viola = \notes \relative c' \context Voice = viola {
+    <c4-\f-\arpeggio g' c>
+    \stemDown g'8. b,16
+    s1 s2. r4
+    g
+}
+
+oboes = \notes \relative c'' \context Voice = oboe {
+    \stemUp s4  g8. b,16 c8 r <e'8.^\p g> <f16 a>
+    \grace <e8( g> <d4 f> <c2 e>
+    \times 2/3 { <d8 \< f> <e g> <f a> }
+    <
+        { \times 2/3 { a8 g c } \! c2 }
+        \context Voice = oboeTwo {
+            \stemDown
+            \grace {
+                \stemDown
+                [f,16 g] }
+                f8 e e2
+            }
+    >
+    \stemBoth
+    \grace <c,8( e> <)b8. d8.-\trill> <c16 e> | 
+    [<d ( f> < )f8. a>] <)b,8 d> r [<d16( f> <f8. )a>] <b,8 d> r  |
+    [<c16( e>  < )e8. g>] <c8 e,>
+}
+
+hoomPah = \repeat unfold 8 \notes
+    \transpose c' { c8 \stemDown c'8 \stemUp }
+
+bassvoices = \notes \relative c' {
+    c4 g8. b,16
+    \autochange Staff \hoomPah
+    \translator Staff = down
+    \stemDown [c8 c'8] r4
+    <g d'> r4
+    < {\stemUp r2 <e4 c'> <c8 g'> }
+        \context Voice = reallyLow  {\stemDown g2 ~ | g4 c8 } >
+}
+
+\score {
+    \context PianoStaff \notes <
+        \context Staff = up < \time 2/2
+             \viola
+             \oboes
+         >
+         \context Staff = down < \time 2/2 \clef bass
+             \bassvoices
+         >
+    >
+    \midi { }
+    \paper {
+        indent = 0.0
+        linewidth = 15.0 \cm }
+}
-- 
2.39.5