From 1ac0cda8625d348c27881099ce5b8d85bab3e3a7 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:00:14 +0000
Subject: [PATCH] lilypond-1.5.8

---
 input/bugs/context-weirdness.ly | 52 +++++++++++++++++++++++++++++++++
 input/bugs/drarn.ly             | 24 +++++++++++++++
 input/bugs/grace+section.ly     | 10 +++++++
 input/bugs/grace-finger.ly      | 10 +++++++
 input/bugs/slur-steep-broken.ly | 14 +++++++++
 input/bugs/steep.ly             | 17 +++++++++++
 input/bugs/ties.ly              | 22 ++++++++++++++
 input/bugs/triplets.ly          | 32 ++++++++++++++++++++
 8 files changed, 181 insertions(+)
 create mode 100644 input/bugs/context-weirdness.ly
 create mode 100644 input/bugs/drarn.ly
 create mode 100644 input/bugs/grace+section.ly
 create mode 100644 input/bugs/grace-finger.ly
 create mode 100644 input/bugs/slur-steep-broken.ly
 create mode 100644 input/bugs/steep.ly
 create mode 100644 input/bugs/ties.ly
 create mode 100644 input/bugs/triplets.ly

diff --git a/input/bugs/context-weirdness.ly b/input/bugs/context-weirdness.ly
new file mode 100644
index 0000000000..b7f4a6e8eb
--- /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
index 0000000000..5e0b385b47
--- /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
index 0000000000..c87c8bef02
--- /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
index 0000000000..9fffe3a84e
--- /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
index 0000000000..20320aaf05
--- /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
index 0000000000..a52379c765
--- /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
index 0000000000..cbd12e9913
--- /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
index 0000000000..0d0e62923a
--- /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 } } }
-- 
2.39.5