From: Jan Nieuwenhuizen Date: Fri, 17 Aug 2001 07:57:58 +0000 (+0200) Subject: patch::: 1.5.7.jcn1 X-Git-Tag: release/1.5.8~2 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f946b07d4fff20ede501adb2a41af46e964a01e1;p=lilypond.git patch::: 1.5.7.jcn1 --- diff --git a/Documentation/user/invoking.itexi b/Documentation/user/invoking.itexi index 0839266056..025e7e2c88 100644 --- a/Documentation/user/invoking.itexi +++ b/Documentation/user/invoking.itexi @@ -25,7 +25,7 @@ sequentially. @item -f,--format=@var{format} Output format for sheet music. Choices are @code{tex} (for @TeX{} -output), @code{pdftex} for PDF@TeX input, @code{ps} (for PostScript), @code{scm} (for a Scheme +output), @code{pdftex} for PDF@TeX{} input, @code{ps} (for PostScript), @code{scm} (for a Scheme dump), and @code{as} (for ASCII-art). @c TODO: TFMFONTS diff --git a/VERSION b/VERSION index 7a3efe2e82..9df8ca014d 100644 --- a/VERSION +++ b/VERSION @@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond MAJOR_VERSION=1 MINOR_VERSION=5 PATCH_LEVEL=7 -MY_PATCH_LEVEL= +MY_PATCH_LEVEL=jcn1 # use the above to send patches: MY_PATCH_LEVEL is always empty for a # released version. diff --git a/input/bugs/+.ly b/input/bugs/+.ly new file mode 100644 index 0000000000..a7b9a9c88b --- /dev/null +++ b/input/bugs/+.ly @@ -0,0 +1,20 @@ +\header{ +texidoc = " +@section Introduction + +This document presents brief overview of all simple bugs known to +exist in LilyPond. Things that don't look like bugs, have hopefully +been fixed. Note that this page only shows notational bugs, input +that does not result in any notation (ie, crashes lilypond) should go +in @file{input/no-notation/}. + +" + +foollilypondbook = " +\score +" +} + +\score { + \context Lyrics \lyrics { "." } +} diff --git a/input/bugs/1st-note-spacing.ly b/input/bugs/1st-note-spacing.ly new file mode 100644 index 0000000000..56803b1071 --- /dev/null +++ b/input/bugs/1st-note-spacing.ly @@ -0,0 +1,12 @@ +\header { +texidoc="apparently added in 1.5.2 -- what about it?" +} +\version "1.3.148" + +\score {\notes \relative c'' < +\context Staff = SA { \times 6/7 { [c8 c c c c c c] } } +\context Staff = SB { \times 6/6 { [c c c c c c] } } +> + +\paper { linewidth = -1. } +} 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/accid.ly b/input/bugs/accid.ly new file mode 100644 index 0000000000..c04b3dddaa --- /dev/null +++ b/input/bugs/accid.ly @@ -0,0 +1,11 @@ +\header { +texidoc="The sharp is printed too far to the left." +} + +\version "1.4.0" +\score { +\notes \context Staff < + \context Voice = up {\stemUp gis''4} + \context Voice = dwn {\stemDown } +> +} diff --git a/input/bugs/accidental-collision.ly b/input/bugs/accidental-collision.ly new file mode 100644 index 0000000000..38440668d7 --- /dev/null +++ b/input/bugs/accidental-collision.ly @@ -0,0 +1,16 @@ +\header { +texidoc="The two sharps overstrike, the flat and sharp overstrike" +} +\version "1.3.148" + +\include "paper16.ly" +\score { + \notes { + \relative c'' \context Voice \sequential { + + } + } + \paper{ + linewidth = 5.0\cm + } +} 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/auto-beam.ly b/input/bugs/auto-beam.ly new file mode 100644 index 0000000000..3a7687cdc4 --- /dev/null +++ b/input/bugs/auto-beam.ly @@ -0,0 +1,18 @@ +\version "1.3.148" + +\header { +texidoc="The Automatic beamer does not put @strong{unfinished} beams +on the last notes of a score." +} + +\score { + < + \context Staff=a\notes\relative c'' { + a8 a8 a2. a8 a8 + } + \notes\relative c'' { + a8 a a a a2 + a8 a a a + } + > +} 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/beaming.ly b/input/bugs/beaming.ly new file mode 100644 index 0000000000..54d1d38f9b --- /dev/null +++ b/input/bugs/beaming.ly @@ -0,0 +1,9 @@ +\header { +texidoc="Automatic beamer behaves differently in different measuere locations." +} +\version "1.3.148" + +\score { \notes { + + [\times 2/3 {c16 c c} c8] + [\times 2/3 {c16 c c} c8]}} diff --git a/input/bugs/braces.ly b/input/bugs/braces.ly new file mode 100644 index 0000000000..94ee08db13 --- /dev/null +++ b/input/bugs/braces.ly @@ -0,0 +1,83 @@ +\version "1.3.148" + + +\header { +texidoc = "Braces at different sizes don't attach exactly to the staffs. +Previously, some braces were too small, while others were too big; this was +apparently caused by dvips + mf rounding. Now, braces are just a bit +too big." +} + +\include "paper11.ly" +\paper { linewidth = -1.0 } + +\score { + \context GrandStaff < + \context Staff = a \notes c''1 + \context Staff = b \notes c''1 + > +} + + +\include "paper13.ly" +\paper { linewidth = -1.0 } + +\score { + \context GrandStaff < + \context Staff = a \notes c''1 + \context Staff = b \notes c''1 + > + \paper { + \translator { + \GrandStaffContext + SystemStartDelimiter \override #'weird = #-5 + } + } +} + + +\include "paper16.ly" +\paper { linewidth = -1.0 } + +\score { + \context GrandStaff < + \context Staff = a \notes c''1 + \context Staff = b \notes c''1 + > + \paper { + \translator { + \GrandStaffContext + SystemStartDelimiter \override #'weird = #5 + } + } +} + + +\include "paper20.ly" +\paper { linewidth = -1.0 } + +\score { + \context GrandStaff < + \context Staff = a \notes c''1 + \context Staff = b \notes c''1 + > + \paper { + \translator { + \GrandStaffContext + SystemStartDelimiter \override #'weird = #-7 + } + } +} + + +\include "paper26.ly" +\paper { linewidth = -1.0 } + +\score { + \context GrandStaff < + \context Staff = a \notes c''1 + \context Staff = b \notes c''1 + \context Staff = c \notes c''1 + \context Staff = d \notes c''1 + > +} 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/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/crescendo-short.ly b/input/bugs/crescendo-short.ly new file mode 100644 index 0000000000..f7a7cf507a --- /dev/null +++ b/input/bugs/crescendo-short.ly @@ -0,0 +1,20 @@ +\include "paper23.ly" + +\score { + \notes \relative c'' { + \clef "treble" + \time 4/4 + \partial 4 + \property Voice.Slur \override + #'attachment-offset = #'((-0.5 . 0.75) . (0 . 0.75)) + \property Voice.DynamicText \override #'padding = #-2 + \property Voice.DynamicLineSpanner \override #'padding = #2 + [e,8-"."-\pp-\cr-\upbow ( )f-"."-\rc] | + ges4-\decr ( ) f8-\rced r8 r2 \bar "||" + + + } + \paper { + linewidth=9.0\cm + } +} 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/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/dynamic-switch.ly b/input/bugs/dynamic-switch.ly new file mode 100644 index 0000000000..1445400265 --- /dev/null +++ b/input/bugs/dynamic-switch.ly @@ -0,0 +1,30 @@ +\header{ +% what's the problem? +% well, that's elementary my dear watson +texidoc="The decrescendo disappears when the part combiner decides that +the a2 and c2 should be a chord in one voice. Using the commented +version, with a c2 instead of a2, the decrescendo reappears." +} +\version "1.3.148" + +\score{ + \context Staff < + \context Voice=one \skip 1 + \context Voice=two \skip 1 + \context Voice=one \partcombine Voice + \context Thread=one \notes\relative c'' { + c2 \clef bass c2 + c2 c2 + } + \context Thread=two \notes\relative c'' { + b2 \< a4 () \! a + %c2 \> a4 () \! a + a2 \> a4 () \! a + } + > + \paper{ + linewidth=140.\mm + } +} + + 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/lyrics-bar.ly b/input/bugs/lyrics-bar.ly new file mode 100644 index 0000000000..97239ab950 --- /dev/null +++ b/input/bugs/lyrics-bar.ly @@ -0,0 +1,47 @@ +\version "1.3.148" + +% +% + +\header{ +texidoc = " +Adding a @code{Bar_engraver} to the LyricsVoice context makes sure that +lyrics don't collide with barlines. + +Lyrics with barline colliding is fine now, BUT +There's an horizontal gap between staff and end bar . +" +} + +\score { + \context StaffGroup < + \notes \context Staff { + b1 \bar "|:" b1 \bar ":|" + } + \lyrics\context Lyrics < + \context LyricsVoiceWithBars { +% thisContextHasBarEngraver1 added + ThisContextCertainlyHasBarEngraverAddedButThereHasBeenSomethingFunnyBefore1. Here. + } + \context LyricsVoice { + this4 one has no BarEngraverAddedToContext1 + } + > + \notes \context Staff = SB { b1 b1 } + > + \paper { + linewidth = -1.0\cm + \translator { + \LyricsContext + \accepts "LyricsVoiceWithBars" + } + \translator { + \LyricsVoiceContext + \consists "Bar_engraver" + \name "LyricsVoiceWithBars" + } + \translator { + \LyricsVoiceContext + } + } +} 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/markup-definition.ly b/input/bugs/markup-definition.ly new file mode 100644 index 0000000000..6703aed5f9 --- /dev/null +++ b/input/bugs/markup-definition.ly @@ -0,0 +1,26 @@ +\version "1.3.148" +\header { + +texidoc=" +The definition of markup is incomplete. + +Ideally, either the input is valid, and all information therein is +used, or it is invalid, and an error message is produced." + +} + + +\score { \notes \relative c' { + f_#'(lines "one" ( "tow")) + + % FIXED:three ignored + f_#'(lines "one" ( "two" "three" )) + + % right way of using multiple markups + f_#'(lines "one" ((bold italic) "towo")) + + % italic ignored. + % possibly explicit relaxed code for chords stuff, must check + f_#'(lines "one" (bold italic "towo")) + + }} diff --git a/input/bugs/mmrest-collide.ly b/input/bugs/mmrest-collide.ly new file mode 100644 index 0000000000..d78913c9f2 --- /dev/null +++ b/input/bugs/mmrest-collide.ly @@ -0,0 +1,18 @@ +\version "1.3.148" +\header { +texidoc="multi-measure-rests (bar 2) should `collide' (ie, not clash) + with notes, just as normal rests (bar 1)." +} + +\score { + \notes\context Staff < + \context Voice=one \relative c''{ + d d d d + d d d d + } + \context Voice=two { + r1 + R + } + > +} \ No newline at end of file diff --git a/input/bugs/partial-beam.ly b/input/bugs/partial-beam.ly new file mode 100644 index 0000000000..44898ea28b --- /dev/null +++ b/input/bugs/partial-beam.ly @@ -0,0 +1,28 @@ +\version "1.3.148" +%docme -- geen id, lijkt ok? + +\include "paper20.ly" +Sopnotes = \notes { + \time 4/4 + \key g \major + \clef treble + \partial 8 * 3 + e'8 f'8 g'8 | + d'8 d'16 d'16 e'8. e'16 g'8 g'8 f'8 f'8 +} + +\score { + \notes + < + \context Staff="sop" + < + \Sopnotes + > + > + \paper { + \translator { + \StaffContext + autoBeamSettings \override #'(end * * * * ) = #(make-moment 1 8) + } + } +} 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/repeat.ly b/input/bugs/repeat.ly new file mode 100644 index 0000000000..6be2e60f9d --- /dev/null +++ b/input/bugs/repeat.ly @@ -0,0 +1,6 @@ +\version "1.3.148" +\header{ +texidoc=" should start with |:" +} + +\score { \context Staff \notes \repeat volta 3 c1 \alternative { d1 e1 }} 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/slur-dx.ly b/input/bugs/slur-dx.ly new file mode 100644 index 0000000000..146202fabc --- /dev/null +++ b/input/bugs/slur-dx.ly @@ -0,0 +1,19 @@ +\version "1.3.148" + +\header{ +texidoc = " + Wouldbe-steep-starting slurs look ugly. +" } + +\score { + \notes \relative c'' { + \property Voice.Stem \set #'direction = #1 + \property Voice.Slur \set #'direction = #1 + d,32( d'4 )d8.. + \property Voice.Slur \set #'attachment = #'(stem . stem) + d,32( d'4 )d8.. + } + \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/spacing-clefs.ly b/input/bugs/spacing-clefs.ly new file mode 100644 index 0000000000..67c31e743f --- /dev/null +++ b/input/bugs/spacing-clefs.ly @@ -0,0 +1,21 @@ + +\header { +texidoc = "If possible clef changes and the like +should be folded under notes of the different staff +" +} + +\score { \notes \relative c'' < \context Staff = SA { +c4 c16 c c c cis4 cis4 +c4 c4 c4 c + + + } + { \key d \major c2 + \clef bass + c,2 c cis2 } > + + \paper { linewidth = -1. } + } + + diff --git a/input/bugs/staff-size.ly b/input/bugs/staff-size.ly new file mode 100644 index 0000000000..e87807b7ca --- /dev/null +++ b/input/bugs/staff-size.ly @@ -0,0 +1,23 @@ +\version "1.3.148" +\header{ +texidoc="separate staff-size is clumsy with \override. +Also, it doesn't seem to work anymore." +} + +\score { + \notes \relative c' < \context Voice { + \property Staff.staffSpace = #10 + \property Staff.fontSize = #-1 + \property Voice.fontSize = #-1 + + \property Voice . dynamicDirection = \up \stemDown +%\key gis \major + c8 d [e f g a] b c \ff + } + +\context Staff = VB { \property Voice . dynamicDirection = \down c,,4 \ff c c c } + +> +\paper { linewidth = -1. } +} + diff --git a/input/bugs/standchen-space.ly b/input/bugs/standchen-space.ly new file mode 100644 index 0000000000..275b0555c3 --- /dev/null +++ b/input/bugs/standchen-space.ly @@ -0,0 +1,12 @@ +\version "1.3.148" +\header{ +texidoc="what about this. -> regression?" +} +\score { +\notes \relative c' < +\context Staff = SA { c4. c8 \times 2/3 { [c8 c c] } } +\context Staff = SB { c8 c c c c c } +> + +\paper { linewidth = -1. } +} 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/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/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 } +} 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/time.ly b/input/bugs/time.ly new file mode 100644 index 0000000000..3ffea816de --- /dev/null +++ b/input/bugs/time.ly @@ -0,0 +1,11 @@ +\version "1.3.148" +\header { +texidoc="Should use old style." +} + +\score { + \notes { + \property Staff.TimeSignature \override #'style = #'oldC4/4 + s1 + } +} 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 } } } diff --git a/make/lysdoc-vars.make b/make/lysdoc-vars.make index b3143833f9..765b796074 100644 --- a/make/lysdoc-vars.make +++ b/make/lysdoc-vars.make @@ -1,4 +1,7 @@ TITLE=LYs Doc LY_FILES = $(wildcard *.ly) + +EXTRA_DIST_FILES += $(LY_FILES) + NAME=$(notdir $(pwd)) diff --git a/scm/grob-description.scm b/scm/grob-description.scm index c24f369723..dc0fbd7a07 100644 --- a/scm/grob-description.scm +++ b/scm/grob-description.scm @@ -500,7 +500,7 @@ )) (SpacingSpanner . ( - (spacing-procedure . ,Spacing_spanner::set_springs) + (spacing-procedure . ,New_spacing_spanner::set_springs) (stem-spacing-correction . 0.5) (grace-space-factor . 0.8)