style beams too.
* input/regression/lyrics-melisma-beam.ly: new file.
* lily/lyric-engraver.cc (process_music): change from
process_acknowledged_grobs()
* scm/auto-beam.scm (override-auto-beam-setting): write Scheme
functions to set and revert auto-beam settings.
+2003-04-27 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+
+ * input/{regression,test}/: use postfix for slur endings and beam
+ begins.
+
+ * lily/beam-engraver.cc (acknowledge_grob): set melismata for new
+ style beams too.
+
+ * input/regression/lyrics-melisma-beam.ly: new file.
+
+ * lily/lyric-engraver.cc (process_music): change from
+ process_acknowledged_grobs()
+
+ * scm/auto-beam.scm (override-auto-beam-setting): write Scheme
+ functions to set and revert auto-beam settings.
+
+2003-04-26 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+
+ * lily/*.cc (number_accidentals): gh_assoc -> scm_assoc.
+
2003-04-24 Juergen Reuter <reuter@ipd.uka.de>
* ChangeLog, Documentation/topdocs/AUTHORS.texi,
2003-04-21 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ * VERSION: 1.7.17 released
+
* Documentation/user/GNUmakefile
($(outdir)/lilypond-internals/lilypond-internals.html): copy ly
files too.
title={The G. Schirmer Manual of Style and Usage},
address={New York},
publisher={The G. Schirmer Publications Department},
- year={1990}
+ year={2001}
+note={(This book can be ordered from the rental department.)
+
+This is the style guide for Schirmer publications. This manual
+specifically focuses on preparing print for publication by
+Schirmer. As such it gives an idea of what is necessary to bring
+printouts to publication quality.
+
+}
}
applied to do useful things. In this section, we show a few small
examples of what is possible.
-[TODO: show examples]
+The simplest application, is printing just notes.
-The following example combines some more exotic uses of notation
+@lilypond[relative=1]
+ \time 2/4 c4 c g'4 g a4 a g2
+@end lilypond
+
+To these notes, chord names and lyrics may be added
+
+@lilypond[raggedright]
+\score { <
+ \context ChordNames \chords { c2 c f2 c }
+ \notes \relative c' { \time 2/4 c4 c g'4 g a4 a g2 }
+ \context Lyrics \lyrics { twin kle twin kle lit tle star } > }
+@end lilypond
+
+
+[TODO: need piano and tab example]
+
+The following example combines some more exotic uses of notation
@lilypondfile{screech-boink.ly}
One Big Page,
@end ifhtml
@ifnothtml
-@uref{One Big Page,../lilypond.html}
+@uref{../lilypond.html,One Big Page}
@end ifnothtml
which is is available for text search using your browser's search
facility.
the glossary as well. This documents explains many terms, and includes
translations to various languages. It is a
@ifhtml
-@uref{separate document,../glossary.html}
+@uref{../glossary.html,separate document}
@end ifhtml
@ifnothtml
separate document, and can be printed as well.
@item
Generated internal documentation.
@ifhtml
-available @uref{here,../lilypond-internals/lilypond-internals.html}
+available @uref{../lilypond-internals/lilypond-internals.html,here}
@end ifhtml
Almost all formatting functionality that is used internally, is
@item
Templates
@ifhtml
-available @uref{here,../../../input/templates/out-www/collated-files.html}
+available @uref{../../../input/templates/out-www/collated-files.html,here}
@end ifhtml
When you have gone through the tutorial, you theoretically should be
@item
Various input examples
@ifhtml
-available @uref{here,../../../input/test/out-www/collated-files.html}
+available @uref{../../../input/test/out-www/collated-files.html,here}
@end ifhtml
@cindex snippets
@item
The regression test
@ifhtml
-available @uref{here,../../../input/regression/out-www/collated-files.html}
+available @uref{../../../input/regression/out-www/collated-files.html,here}
@end ifhtml
We strive to test each feature in a collection of input snippets. This
@omfcreator Han-Wen Nienhuys and Jan Nieuwenhuizen
@omfdescription User manual of the LilyPond music engraving system
@omftype user manual
-@omfcategory Music
+@omfcategory Applications|Publishing
@omflanguage English
@end ignore
@menu
* Preface:: Preface.
* Introduction:: What, Why, How.
-* Tutorial:: A tutorial introduction to LilyPond.
-* Reference Manual:: Reference Manual.
+* Tutorial:: A tutorial introduction.
+* Notation manual:: All notation supported, and how to
+ produce it
* Advanced Topics:: How it all works.
* Invoking LilyPond:: Operation.
* Converting from other formats:: Converting to lilypond source format.
conventions. The sections on reproduction technicalities, and history
are also interesting.
+@item Schirmer 2001
+The G.Schirmer/AMP Manual of Style and Usage. G.Schirmer/AMP, NY, 2001.
+(This book can be ordered from the rental department.)
+
+This is the style guide for Schirmer publications. This manual
+specifically focuses on preparing print for publication by
+Schirmer. As such it gives an idea of what is necessary to bring
+printouts to publication quality.
+
@item Stone 1980
@omfcreator Christian Mondrup
@omfdescription Glossary of musical terms with translations
@omftype user's guide
-@omfcategory Music
+@omfcategory Applications|Publishing
@omflanguage English
@end ignore
@c FIXME: singular vs. plural: Beams/Beam
-@node Reference Manual
-@chapter Reference Manual
+@node Notation manual
+@chapter Notation manual
@html
<!--- @@WEB-TITLE@@=Reference Manual --->
@end html
-This document describes GNU LilyPond and its input format. The last
-revision of this document was made for LilyPond 1.7.11. It assumes
-that you already know a little bit about LilyPond input (how to make
-an input file, how to create sheet music from that input file, etc).
-New users are encouraged to study the tutorial before reading this
-manual.
-
@menu
* Note entry::
* Easier music entry::
@subsection Rests
@cindex Rests
+
+
+
Rests are entered like notes, with the note name @code{r}.
@lilypond[singleline,verbatim]
a'4\rest d'4\rest
@end lilypond
+@seealso
+
@internalsref{RestEvent}, @internalsref{Rest}
os.rename (a + '.NEW', a)
else:
print str
+
+
+##
+## regexes for postfix slur & beam:
+##
+## ([^-])\[ *([a-z]+[,']*[0-9:]+\.*) -> " \1 \2-["
+## ([^-])\( *([a-z]+[,']*[0-9:]+\.*) -> "\1 \2-("
+##
TextScript \override #'font-relative-size = #1
TextScript \override #'font-shape = #'italic
- \consists "Skip_req_swallow_translator"
+ \consists "Skip_event_swallow_translator"
\consistsend "Axis_group_engraver"
}
\property Voice.tupletSpannerDuration = #(ly:make-moment 1 4)
\property Voice.TupletBracket \override #'bracket-visibility = #'if-no-beam
\times 2/3 {
- [f8 f f ][f8 f f ] f f f f f f
+ f8-[ f f ] f8-[ f f ] f f f f f f
}
}}
%% new-chords-done %%
\ No newline at end of file
>
}
-%% new-chords-done %%
\ No newline at end of file
+%% new-chords-done %%
\score {
\context Staff \notes\relative c''{
- [c'8 c,,] [c8 e']
- [c,16 e g c e g c c,,]
+ c'8-[ c,,] c8-[ e']
+ c,16-[ e g c e g c c,,]
}
\paper{
linewidth = 40*\staffspace
\score{
\notes\relative c'{
%%\property Staff.Stem \set #'beamed-lengths = #'(3.50)
- %% [c8 d]
- %% [d c]
+ %% c8-[ d]
+ %% d-[ c]
%% r2
%% \property Staff.Stem \set #'beamed-lengths = #'(3.26)
- [a8^"small slope" b]
- [b a]
+ a8-[^"small slope" b]
+ b-[ a]
- [c'' b]
- [b c]
+ c''-[ b]
+ b-[ c]
- [c,, d]
- [d c]
+ c,,-[ d]
+ d-[ c]
- [a'' g]
- [g a]
+ a''-[ g]
+ g-[ a]
- [c,,^"bigger slope" e]
- [e c]
+ c,,-[^"bigger slope" e]
+ e-[ c]
- [a'' f]
- [f a]
+ a''-[ f]
+ f-[ a]
}
\paper{
linewidth = 0.0
%% sloped
%% concaveness: 0.00
\stemUp
- [d,16 a' b cis]
+ d,16-[ a' b cis]
%% Sarabande: m25
%% horizontal
%% concaveness:a: 0.12
- [a'16^"horiz." b c b]
+ a'16-[^"horiz." b c b]
% Hmm. Concaveness of both: 1.75
% %% SCS-VI Prelude, m81
% %% slope = 0.0
% \stemBoth
% \key d\major
-% [e,8 cis a']
+% e,8-[ cis a']
% %% SCS-VI Prelude, m82
% %% slope = 0.1ss (possibly b.o. context?)
-% [g, e' cis]
+% g,-[ e' cis]
%%% Han-Wen: this should be concave
- [a,16^"horiz." a' a a]
+ a,16-[^"horiz." a' a a]
\clef treble
f16( \> d \! b \translator Staff = down \stemUp
\clef treble g ~ << g e>>8-)
- [e \translator Staff = up
+ e-[ \translator Staff = up
\stemDown
e e]
\translator Staff = down
\score{
\context PianoStaff <
\context Staff=one \notes\relative c'{
- \stemUp [c8 c \translator Staff=two \stemUp c c]
- [c c c c]
+ \stemUp c8-[ c \translator Staff=two \stemUp c c]
+ c-[ c c c]
\translator Staff=one
- \stemDown [c8 c \translator Staff=two \stemUp c c]
+ \stemDown c8-[ c \translator Staff=two \stemUp c c]
r2
- \stemDown [c8 c \translator Staff=one \stemDown c c]
+ \stemDown c8-[ c \translator Staff=one \stemDown c c]
r2
\translator Staff=two
- \stemUp [c8 c \translator Staff=one \stemDown c c]
+ \stemUp c8-[ c \translator Staff=one \stemDown c c]
r2
}
\context Staff=two \notes\relative c'{
,Beam::check_concave
,Beam::slope_damping)
- f4 [f8 f] [f16 f] [f32 f] [f64 f] [f128 f]
+ f4 f8-[ f] f16-[ f] f32-[ f] f64-[ f] f128-[ f]
}
\paper{ raggedright = ##t}
} %% new-chords-done %%
\ No newline at end of file
extreme = \notes\relative c'' {
\stemBoth
- [g8 c c,]
- [c16 c'' a f]
+ g8-[ c c,]
+ c16-[ c'' a f]
\stemUp
- [c,,32 c'' a f]
+ c,,32-[ c'' a f]
%%%%%%%
\stemBoth
- \times 2/3{[d16 fis' d,]} \times 2/3{[cis g'' cis,,]}
+ \times 2/3{ d16-[ fis' d,]} \times 2/3{ cis-[ g'' cis,,]}
a'16 cis a, g''' % Used to give a nice beam directed upwards.
\stemBoth
\transpose c c {
- \stemDown [e'8 e e']
+ \stemDown e'8-[ e e']
}
}
\relative c'
{
\property Voice.Beam \override #'french-beaming = ##t
- [c16 c c c]
- [c8 c16 c16 c8]
- [c8 c16 e16 g8]
+ c16-[ c c c]
+ c8-[ c16 c16 c8]
+ c8-[ c16 e16 g8]
}}
%% new-chords-done %%
\ No newline at end of file
\property Voice.Beam \set #'auto-knee-gap = #7
\property Voice.subdivideBeams = ##t
\time 8/8
- [c,16 g'''16
+ c,16-[ g'''16
c,,,16 g'''16
c,,,16 g'''16
c,,,16 g'''16 ]
- [c,,,16 c c c
+ c,,,16-[ c c c
b''' b b b]
- \transpose c' a, { \relative b'' { [g,16 g'''16
+ \transpose c' a, { \relative b'' { g,16-[ g'''16
g,,,16 g'''16
g,,,16 g'''16
g,,,16 g'''16
\score {
\context Voice \notes\relative c {
- [d''8 d d] [d g d]
+ d''8-[ d d] d-[ g d]
c c
}
}
}
\score {
\notes \relative c'' {
- [c32 c
+ c32-[ c
%% WARNING: #'beaming is written, so this
\property Voice.Beam \override #'auto-knee-gap = ##f
\property Voice.Beam \override #'positions = #'(-10 . 10)
\stemUp
- [c16 c'' a f]
+ c16-[ c'' a f]
}
}
\context PianoStaff \relative c' <
\context Staff = SA {
\stemDown
- [c8 c16 \translator Staff = SB \stemUp c16 ]
+ c8-[ c16 \translator Staff = SB \stemUp c16 ]
\stemBoth
- [f g \translator Staff = SA a c]
+ f-[ g \translator Staff = SA a c]
}
\context Staff = SB \relative c' {
\clef bass
- [b8 b16 \stemUp b,,16 ]
+ b8-[ b16 \stemUp b,,16 ]
g'4\rest
- [b,8 b16 \stemDown b''16 b ]
+ b,8-[ b16 \stemDown b''16 b ]
}
>
texidoc = "explicit beams may cross barlines. "
}
\score {
-\notes \context Voice { c2. [c8 c8 c8 c8] }
+\notes \context Voice { c2. c8-[ c8 c8 c8] }
}
%% new-chords-done %%
\ No newline at end of file
\score {
\context Voice \notes\relative c {
- [f8 f] [f64 f]
+ f8-[ f] f64-[ f]
\grace {
- [f8 e8]
+ f8-[ e8]
\property Voice.Stem \override #'no-stem-extend = ##f
- [f8 e8]
+ f8-[ e8]
\property Voice.Stem \revert #'no-stem-extend
}
- [f8 f]
+ f8-[ f]
}
\paper {
}
\score {\notes \relative c'' {
- [c8 c4 c8] % should warn here!
+ c8-[ c4 c8] % should warn here!
}
\paper { raggedright = ##t}
}
\score { \notes \relative c, {
\clef bass
- [e8 r16 f d'8 e16 e16] [c8 c16 r16 bes8 r16 c16-] |
+ e8-[ r16 f d'8 e16 e16] c8-[ c16 r16 bes8 r16 c16-] |
}
\paper { raggedright = ##t}
}
,Beam::check_concave
,Beam::slope_damping)
\stemUp
- f'4 [f8 f] [f16 f] [f32 f] [f64 f] [f128 f]
+ f'4 f8-[ f] f16-[ f] f32-[ f] f64-[ f] f128-[ f]
}
\paper{ raggedright = ##t}
}
}
\score { \context Staff \notes \relative c'' {
- [c8. c16]
- [c8. c16 c8. c16]
- [c16 c8.] |
- [c8. c16 c16 c8.]
- [c8. c32 c32]
- [c8 c8] |
- [c16 c16]
- [c32 c32]
- [c64 c64]
+ c8.-[ c16]
+ c8.-[ c16 c8. c16]
+ c16-[ c8.] |
+ c8.-[ c16 c16 c8.]
+ c8.-[ c32 c32]
+ c8-[ c8] |
+ c16-[ c16]
+ c32-[ c32]
+ c64-[ c64]
c32
c2
- [c8 c c] c8 % over barline
- [c16 c8 c16]
- [c32 c16 c16 c16 c32]
- [c32 c16 c8 c32] % hmm ?
+ c8-[ c c] c8 % over barline
+ c16-[ c8 c16]
+ c32-[ c16 c16 c16 c32]
+ c32-[ c16 c8 c32] % hmm ?
}}
\score { \notes
\relative c'
{
- [c16 c8.]
- [c8. c16]
- [c8 c16 c16 c8]
- [c8 c16 e16 g8]
+ c16-[ c8.]
+ c8.-[ c16]
+ c8-[ c16 c16 c8]
+ c8-[ c16 e16 g8]
}}
%% new-chords-done %%
\ No newline at end of file
% caesura
\property Voice.BreathingSign \set #'text = #"scripts-caesura"
- [es8 d] \breathe [es f g f] |
+ es8-[ d] \breathe es-[ f g f] |
es2 r4 \bar "||" \break
%
texidoc = " Chord names are generated from a list pitches. The
functions constructing the names are customisable. This file shows
-Jazz chords, following [Ignatzek1995], page 17 and 18."
+Jazz chords, following Ignatzek (1995), page 17 and 18."
}
\score {\notes \relative c' \context Staff {
- f1 \grace { [a'16 f] } g1 }
+ f1 \grace { a'16-[ f] } g1 }
\paper { raggedright = ##t}
}
%% new-chords-done %%
}
\version "1.7.16"
-\score { \notes\relative c'' { c4 [d8 \grace { [e32 d c d] } e8] [e e \grace { f16 } e8 e] }}
+\score { \notes\relative c'' { c4 d8-[ \grace { e32-[ d c d] } e8] e-[ e \grace { f16 } e8 e] }}
%% new-chords-done %%
texidoc = "Pieces may begin with grace notes."
}
\score {\notes \relative c' \context Staff {
- \grace { [a'16 f] } g1
+ \grace { a'16-[ f] } g1
\bar "||" % test if | and || are synced.
- \grace { [a16 bes] } c1
+ \grace { a16-[ bes] } c1
\bar "||" % test if | and || are synced.
}
\paper { raggedright = ##t}
\score {
\context Voice \notes\relative c {
\grace {
- [f8 e8]
+ f8-[ e8]
\property Voice.Stem \override #'no-stem-extend = ##t
- [f8 e8]
+ f8-[ e8]
\property Voice.Stem \revert #'no-stem-extend
}
a4
\grace c8
c4 c4 }
\context Staff = SB { c2 \clef bass
- \grace { [dis8 ( d8] \key es\major }
+ \grace { dis8-[ ( d8] \key es\major }
- ) c4 c4 }
+ c4-) c4 }
\context Staff = SC { c2 c4 c4 \bar "|." }
>
\paper { raggedright = ##t}
\score{
\notes\relative c'''{\key a \minor \time 2/4
\repeat "volta" 2 {
- \grace { [a16( c] } c,4 c4 |
- \grace { [e'16( gis] } c,4 c4 |
+ \grace { a16-[( c] } c,4 c4 |
+ \grace { e'16-[( gis] } c,4 c4 |
}
}
\score {\notes \context Voice = VA \relative c'' {
\grace b8 c4-\fermata
- \grace { [c32 cis32] } gis4
- \grace { [cis32 dis32] } e4
- \grace { [c32 d] }\times 2/3 { [c8 c c] }
- \grace { [b32 ( c32] } ) c4
- \grace <<c d>>16 [c8 c8]
-% \grace c16 [c8 c8]
+ \grace { c32-[ cis32] } gis4
+ \grace { cis32-[ dis32] } e4
+ \grace { c32-[ d] }\times 2/3 { c8-[ c c] }
+ \grace { b32-[ ( c32] } c4-)
+ \grace <<c d>>16 c8-[ c8]
+% \grace c16 c8-[ c8]
%% broken?
%%\grace { \property Grace.graceAlignPosition = \right c16} c4
c4 \grace { c16 } c4
m = \notes \relative c'' {
\property Staff.automaticMelismata = ##t
\autoBeamOff
- g8 () a r8 \times 2/3 { g'8( f )e } r8 \grace { [d16 c b] } e4
+ g8-( a-) r8 \times 2/3 { g'8-( f e-) } r8 \grace { d16-[ c b] } e4
\emptyText
d8.^"melisma" \melisma c16
\melismaEnd
\context Voice = "v" \notes \relative c'' {
\property Staff.automaticMelismata = ##t
\autoBeamOff
- a a a8()a a4
+ a a a8 ( a-) a4
}
\context Lyrics <
\context LyricsVoice = "v-1" \lyrics {
--- /dev/null
+
+\version "1.7.17"
+\header
+{
+ texidoc = "melismata are triggered by manual beams."
+}
+
+
+\score {
+ \simultaneous {
+ \addlyrics
+ \context Staff = mel
+ \notes \relative c'' {
+ \property Staff.autoBeaming = ##f
+ c8 c8-[ c8 c8-] c8 }
+
+ \context Lyrics \lyrics { bla bla bla }
+ }
+ \paper { raggedright = ##t }
+}
\property Staff.NoteCollision \override #'merge-differently-dotted = ##t
g'8 g'8
}
- \context Voice = VB { \voiceTwo [g'8. f16] [g'8. f'16] }
+ \context Voice = VB { \voiceTwo g'8.-[ f16] g'8.-[ f'16] }
>
}}
%% new-chords-done %%
f4 \!e-.-\f r2|
R1|
- f2-\p()es|
+ f2-\p-(es -)|
\property Voice.crescendoText = #'(lines " " "cresc." " ")
\property Voice.crescendoSpanner = #'dashed-line
d1\<|
\context Voice=two\skip 1
\context Voice=one \partcombine Voice
\context Thread=one \notes\relative c'' {
- c4( c b )a
- a( b c )d
+ c4( c b a-)
+ a( b c d-)
}
\context Thread=two \notes\relative c'' {
- a4( c b )a
- a( b c )a
+ a4( c b a-)
+ a( b c a-)
}
>
c4 d e f g
-\sustainDown b c c, |
- [d16 c c c] [e e -\sustainUp -\sustainDown e e ] f4 -\sustainUp
+ d16-[ c c c] e-[ e -\sustainUp -\sustainDown e e ] f4 -\sustainUp
g-\sustainDown |
b -\sustainUp c
\property Staff.pedalSustainStrings = #'("-" "-P" "P")
\property Staff.SustainPedal \override #'pedal-type = #'bracket
-c4 d e -\sustainDown b c c, -\sustainUp -\sustainDown [d8 c] [e8 e -\sustainUp -\sustainDown] f4 d
+c4 d e -\sustainDown b c c, -\sustainUp -\sustainDown d8-[ c] e8-[ e -\sustainUp -\sustainDown] f4 d
-\sustainUp g -\sustainDown b b, -\sustainUp c'
c4
\score {
\notes\relative c'' {
- \time 6/4 c\((d)e f(e)\)d
+ \time 6/4 c\((d e-) f(e d-)-\)
}
\paper {
raggedright = ##t
\context Staff < {\stemUp r} { \stemDown r} >
\context Staff < {\stemUp r} r { \stemDown r} >
\stemUp
- \transpose c c' { [c''8 r8 c''8 c''8]
- [c8 r8 c8 c8]
- [c8 r8 r8 c'''8]
+ \transpose c c' { c''8-[ r8 c''8 c''8]
+ c8-[ r8 c8 c8]
+ c8-[ r8 r8 c'''8]
\stemDown
- [c8 r8 c8 c8]
- [c''8 r8 c''8 c''8]
- [c'8 r8 r8 c'''8]
+ c8-[ r8 c8 c8]
+ c''8-[ r8 c''8 c''8]
+ c'8-[ r8 r8 c'''8]
\different
}
}
\score{
\notes \relative c''{
\property Voice.Slur \set #'direction = #1
- a8( a )a4
- a4( a8 )a
- a8 a()a4
- a4() a8 a
+ a8-( a a4-)
+ a4-( a8 a-)
+ a8 a(a4-)
+ a4-( a8-) a
}
\paper{
indent = 0.0
}
\score{
\notes \relative c''{
- e1( \break) a,
+ e1( \break a,-)
\time 2/4
- e'2( \break) a,(\break
+ e'2( \break a,-)(\break
a2\break
- )e'2
+ e'2-)
}
\paper {
linewidth=40.\mm
\context PianoStaff <
\context Staff=one \notes\relative c'{
\stemUp \slurUp
- c4( c \translator Staff=two c )c |
+ c4( c \translator Staff=two c c-) |
\translator Staff=one
\stemUp \slurUp
- c4( c \translator Staff=two c )c |
+ c4( c \translator Staff=two c c-) |
\stemUp \slurUp
- c4( c \translator Staff=one c )c |
+ c4( c \translator Staff=one c c-) |
\translator Staff=two
\stemUp \slurUp
- c4( c \translator Staff=one c )c |
+ c4( c \translator Staff=one c c-) |
\translator Staff=two
\stemUp \slurUp
- c4( \translator Staff=one c c )c |
+ c4( \translator Staff=one c c c-) |
r2
\translator Staff=two
\stemUp \slurUp
c4( \translator Staff=one c
\break
- c )c
+ c c-)
r2
% \stemDown \slurDown
-% c4( \translator Staff=two c c \translator Staff=one )c
+% c4( \translator Staff=two c c \translator Staff=one c-)
\stemDown \slurDown
- d4( \translator Staff=two c c \translator Staff=one )d
+ d4( \translator Staff=two c c \translator Staff=one d-)
\translator Staff=two
\stemUp \slurUp
- c4( \translator Staff=one c c \translator Staff=two )c
+ c4( \translator Staff=one c c \translator Staff=two c-)
r1
}
\context Staff=two \notes\relative c'{
}
\score {
\notes\relative c'' {
- c4.............()c
+ c4.............-( c-)
}
\paper {
raggedright = ##t
}
-}
+}
+
%% new-chords-done %%
\notes\relative c''{
\time 3/4
\slurUp
- \stemBoth a ( \stemDown a \stemBoth ) a a( c )a a( e' )a, a( g' )a,
- \stemUp a( e' )a,
+ \stemBoth a ( \stemDown a \stemBoth a-) a( c a-) a( e' a,-) a( g' a,-)
+ \stemUp a( e' a,-)
\break
\slurDown
- \stemBoth c ( \stemUp c \stemBoth ) c c ( a ) c c( d, )c' c( f, )c'
- \stemDown c( f, )c'
+ \stemBoth c ( \stemUp c \stemBoth c-) c ( a c-) c( d, c'-) c( f, c'-)
+ \stemDown c( f, c'-)
}
\paper{
linewidth = 120.\mm
"
}
-\score{ \notes { \stemDown c'4 ( r4 ) c'2
+\score{ \notes { \stemDown c'4 ( r4 c'2-)
\relative c'' {
% Finish with F if played separately
- c8-.( r c,-. r ) c4 r4| }
+ c8-.( r c,-. r c4-) r4| }
}
\context Staff \notes\relative c'' {
\property Voice.Slur \override
#'attachment-offset = #'((0 . 1) . (0 . 1))
- a-.( g-. )a-.
+ a-.( g-. a-)-.
\property Voice.Slur \override
#'attachment-offset = #'((0 . 1.5) . (0 . 1.5))
- b-.( a-. )b-.
+ b-.( a-. b-)-.
}
} %% new-chords-done %%
\notes\relative c' {
\property Voice.Slur \override #'attachment = #'(stem . stem)
f( c' c c \break
- c c c \stemUp ) c
+ c c c \stemUp c-)
}
\paper {
linewidth=40*\staffspace
\notes\relative c''<
\time 4/4
\context Staff{
- f8(f f)f f(g g)f f(a a)f f(b b)f
+ f8(f f f-) f(g g f-) f(a a f-) f(b b f-)
}
\context Staff=x{
- e,(e e)e e(d d)e e(c c)e e(b b)e
+ e,(e e e-) e(d d e-) e(c c e-) e(b b e-)
}
>
\paper{
\notes\relative c'<
\time 6/8
\context Staff{
- e8(e)e e(d)e e(c)e e(b)e
+ e8(e e-) e(d e-) e(c e-) e(b e-)
}
\context Staff=x{
- f'8(f)f f(g)f f(a)f f(b)f
+ f'8(f f-) f(g f-) f(a f-) f(b f-)
}
>
\paper{
}
\score { \notes \relative c'' <
-\context Staff = SA { c4 [c16 c c c] c4 c4 }
+\context Staff = SA { c4 c16-[ c c c] c4 c4 }
\context Staff = SB { \clef bass c,2 \clef treble c'2 }
>
\score { \notes \relative c''
\context Voice
{
- [c8 c8]
+ c8-[ c8]
\grace { b16 }
- [c8 c8] [c8 c8]
+ c8-[ c8] c8-[ c8]
}
}
\score {
- \notes \context Voice \relative c'' { \grace { [c16 d] } c4 }
+ \notes \context Voice \relative c'' { \grace { c16-[ d] } c4 }
\paper { raggedright = ##t}
}
\score { \notes \relative c'' \context Staff {
\property Voice.autoBeaming = ##f
- [a8 a8 a8 a8] a8 a8 a8 a8
+ a8-[ a8 a8 a8] a8 a8 a8 a8
}
\paper {
%stafflinethickness = 0.0
\score { \notes \relative c'' {
\stemDown
\time 12/4
-[f8 e f e] [f d f d] [f c f c] [f b, f' b,] [f' a, f' a,]
+[f8 e f e] f-[ d f d] f-[ c f c] f-[ b, f' b,] f'-[ a, f' a,]
}
\paper { raggedright = ##t}
}
\notes\relative c{
\property Voice.Stem \override #'neutral-direction = #-1
- b''4 ~ b8()b8 e4 e,
+ b''4 ~ b8-(b8-) e4 e,
}
\paper{
\score {
\context Voice \notes\relative c {
- b''4 ~ b8()b8 e4 e,
+ b''4 ~ b8-(b8-) e4 e,
}
\paper {
\score { \notes
\context Voice
{ \property Staff.minimumVerticalExtent \unset
- \slurDown c4 ( g4 ) c''4
+ \slurDown c4 ( g4 c''4-)
}
g2 gis ~ |
gis g4 gis |
g2 gis( |
- )g! gis4 gis |
+ g-)! gis4 gis |
\break
\key a \major
gis2 gis ~ |
% should get an accidental but it looks a bit silly and redundant.
% See last g.
- )g! gis4 gis ~ | \break
+ g-)! gis4 gis ~ | \break
gis2 gis ~ | gis g ~\break
g2 g
}
\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}
+ \times 2/3 {fis f e} \times 2/3 {ees d des-)}
}
c1
}
\score{
\notes \context Voice \relative c'' {
\times 2/3 { \times 2/3 { a8 b c} c }
- \times 2/3 { r8 [b f] }
+ \times 2/3 { r8 b-[ f] }
\times 2/3 { r8 b r8 }
c4 |
}
\score { \notes \context Voice\relative c'' {
-\times 2/3 { r [c8 c8] }
-\times 2/3 { [c8 c c] }
-\times 2/3 { [c16 c16] [c8 c8] }
+\times 2/3 { r c8-[ c8] }
+\times 2/3 { c8-[ c c] }
+\times 2/3 { c16-[ c16] c8-[ c8] }
}}
%% new-chords-done %%
\times 2/3 { c'8 c'' c,, }
- \times 2/3 { [c8^"NB" c c] }
+ \times 2/3 { c8-[^"NB" c c] }
- \times 2/3 { c8^"B" [c c] }
- \times 2/4 { r8_"B" [c, c'] r8 }
+ \times 2/3 { c8^"B" c-[ c] }
+ \times 2/4 { r8_"B" c,-[ c'] r8 }
\property Voice.TupletBracket \override #'bracket-visibility = #'if-no-beam
- \times 2/3 { [c8 c c] }
+ \times 2/3 { c8-[ c c] }
\property Voice.TupletBracket \override #'direction = #1
\property Voice.TupletBracket \override #'number-visibility = ##f
- \times 2/3 { c8^""^""^"up, no digit" [c c] }
+ \times 2/3 { c8^""^""^"up, no digit" c-[ c] }
\property Voice.TupletBracket \revert #'number-visibility
\property Voice.TupletBracket \override #'bracket-visibility = ##t
\property Staff.instr = "B"
\key f \minor
\time 4/4
- f,2 ( ) f,8 r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
\repeat volta 2
{
d8. d16 e8. f16 f8 c8 c16 c8. \break
\alternative
{
{
- f,2 ( ) f,8 r8 f8 e8
- f,2 ( ) f,8 r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
g1 \break
- f,2 ( ) f,8 r8 f8 e8
- f,2 ( ) f,8 r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
g1 \break
}
{
}
\alternative
{
- { a2 ( ) a8 r8 a8 bes8 }
+ { a2 ( a8-) r8 a8 bes8 }
{ a2. r8 g16 f16 |
d'8. c'16 c'8. d'16 c'8 c'8 c'16 c'8. |
}
DynamicText \override #'extra-offset = #'(0 . 2.5)
Hairpin \override #'extra-offset = #'(0 . 2.5)
- \consists "Skip_req_swallow_translator"
+ \consists "Skip_event_swallow_translator"
\consistsend "Axis_group_engraver"
}
}
basloopje = \notes\relative c{
- d,8( a' d f a d f d a f d )a
+ d,8( a' d f a d f d a f d a-)
}
accompany = \notes \relative c{
\version "1.7.16"
+\header {
-%{
- Currently (1.1.27.jcn3), the auto-beam engraver will only engrave
- sensible beams, which means that it will end a beam when:
- * a rest is encountered
- * another beam (entered manually) is encountered
- * there's a 'gap' in the beam note's durations
+ texidoc = "
+Show how auto-beaming settings can be overridden.
+
+ The auto-beamer will only engrave beams that end when:
+@itemize @bullet
+@item a rest is encountered
+@item
+ another beam (entered manually) is encountered
+@item
+ there's a 'gap' in the beam note's durations
+@end itemize
+
+The beam will be ended also when now % beamAutoEnd = 0
+
+"
+
+}
- The beam will be ended also when
- now / beamAutoEnd = 0
-%}
-
\score{
\notes \relative c''{
\time 2/4
c8 c c c
c16 c c c c c c c
% from here on consider ending beam every 1/4 note
- \property Voice.autoBeamSettings \override #'(end * * * *) = #(ly:make-moment 1 4)
+ #(override-auto-beam-setting '(end * * * *) 1 4)
+
c8 c c c
% manually override autobeam with weird beaming
- c8 [c c] c
+ c8 c-[ c] c
c8 c c r
c8 c c4
r8 c c c
\paper{
\translator{
\VoiceContext
- % consider ending beam at every 1/2 note
autoBeamSettings \override #'(end * * * *) = #(ly:make-moment 1 2)
}
}
}
+
%% new-chords-done %%
-taor = \notes{ \grace { [g32 d g e]}}
-grip = \notes{ \grace { [g32 b g ]}}
-thrd = \notes{ \grace { [g32 d c] }}
-birl = \notes{ \grace { [g32 a g] }}
-gstd = \notes{ \grace { [g'32 d g] }}
+taor = \notes{ \grace { g32-[ d g e]}}
+grip = \notes{ \grace { g32-[ b g ]}}
+thrd = \notes{ \grace { g32-[ d c] }}
+birl = \notes{ \grace { g32-[ a g] }}
+gstd = \notes{ \grace { g'32-[ d g] }}
lgg = \notes{ \grace { g32 }}
lag = \notes{ \grace { a32 }}
- fgg = \notes{ \grace { [f32 g'32] }}
-dblb = \notes{ \grace { [g'32 b d] }}
-dblc = \notes{ \grace { [g'32 c d] }}
-dble = \notes{ \grace { [g'32 e f] }}
-dblf = \notes{ \grace { [g'32 f g'] }}
-dblg = \notes{ \grace { [g'32 f] }}
-dbla = \notes{ \grace { [a'32 g'] }}
+ fgg = \notes{ \grace { f32-[ g'32] }}
+dblb = \notes{ \grace { g'32-[ b d] }}
+dblc = \notes{ \grace { g'32-[ c d] }}
+dble = \notes{ \grace { g'32-[ e f] }}
+dblf = \notes{ \grace { g'32-[ f g'] }}
+dblg = \notes{ \grace { g'32-[ f] }}
+dbla = \notes{ \grace { a'32-[ g'] }}
cg = \notes{ \grace { c32 }}
eg = \notes{ \grace { e32 }}
gg = \notes{ \grace { g'32 }}
dg = \notes{ \grace { d32 }}
hag = \notes{ \grace { a'32 }}
-gefg = \notes{ \grace { [g'32 e f] }}
-efg = \notes{ \grace { [e32 f] }}
-gdcg = \notes{ \grace { [g'32 d c]}}
-gcdg = \notes{ \grace { [g'32 c d]}}
+gefg = \notes{ \grace { g'32-[ e f] }}
+efg = \notes{ \grace { e32-[ f] }}
+gdcg = \notes{ \grace { g'32-[ d c]}}
+gcdg = \notes{ \grace { g'32-[ c d]}}
\slurUp
f4 |
\gg f4 e8 \thrd d4. |
-\eg a4.()a4 d8 |
+\eg a4.(a4-) d8 |
\gg d4 f8 \dble e4. ( | \noBreak
-)e8 d4 \gg d4 e8 |
+e8-) d4 \gg d4 e8 |
\break
\time 9/8
-\dblf f2.( )f4 d8 |
+\dblf f2.( f4-) d8 |
\time 6/8
\dblg g'4 a'8 \gg a'4. |
-\thrd d4.( )d4 \eg a8 |
+\thrd d4.( d4-) \eg a8 |
\time 9/8
-\dble e4 \lag e8 \gg [e16 d8. e8] \gg f4 g'8 |
+\dble e4 \lag e8 \gg e16-[ d8. e8] \gg f4 g'8 |
\break
\time 6/8
\gg f4 e8 \thrd d4. |
-\eg a4.( )a4 d8 |
+\eg a4.( a4-) d8 |
\dblg g'4 a'8 \gg a'4. |
-\thrd d4.( )d4 f8 |
+\thrd d4.( d4-) f8 |
\break
-\dblg g'4 e4 \dblf [f8. e16] |
-\thrd d4.( )d4 \cg d8 |
+\dblg g'4 e4 \dblf f8.-[ e16] |
+\thrd d4.( d4-) \cg d8 |
\gg c4 e8 \thrd d4.( |
-)d4. \gdcg d4.
+d4.-) \gdcg d4.
}
}
%% new-chords-done %%
\context Voice \notes\relative c {
c'1:16
\stemUp
- c4:8 c4:16 [c8:16 c:] [c,8:16 c'':]
+ c4:8 c4:16 c8:16-[ c:] c,8:16-[ c'':]
\stemBoth
- [c,,8:16 c'':]
+ c,,8:16-[ c'':]
}
\paper { }
,Beam::shift_region_to_valid
)
- [c <<c e,>>]
- [c <<c e,>>]
- [c <<c e,>>]
+ c-[ <<c e,>>]
+ c-[ <<c e,>>]
+ c-[ <<c e,>>]
}
\paper{
\context Voice \notes\relative c {
%% from upper staffline (position 4) to centre (position 0)
\property Voice.Beam \override #'positions = #'(2 . 0)
- [c'8 c]
+ c'8-[ c]
%% from center to one above centre (position 2)
\property Voice.Beam \override #'positions = #'(0 . 1)
- [c c]
+ c-[ c]
%% normal beam-algorithm
\property Voice.Beam \revert #'positions
\property Voice.Beam \revert #'positions
- [c e] [e c]
+ c-[ e] e-[ c]
}
}
%% new-chords-done %%
\score{
\notes\relative c''{
% \stemUp
-% [a16 b b c]
-% [c b b a]
+% a16-[ b b c]
+% c-[ b b a]
% \stemDown
-% [c b b a]
-% [a b b c]
+% c-[ b b a]
+% a-[ b b c]
\stemUp
- [g16 a b c]
- [c b a g]
+ g16-[ a b c]
+ c-[ b a g]
\stemDown
- [d' c b a]
- [a b c d]
+ d'-[ c b a]
+ a-[ b c d]
}
\paper{
raggedright = ##t
+++ /dev/null
-\version "1.7.16"
-
-\header{
- texidoc="
-
-There are several ways to calculate the direction of a beam
-
-@table @samp
-@item majority
-number count of up or down notes
-@item mean
-mean centre distance of all notes
-@item median
-mean centre distance weighted per note
-@end table
-
-These beam direction functions are defined in @file{scm/beam.scm}. If
-your favourite algorithm isn't one of these, you can hook up your own.
-
-Of course, this depends on the neutral-direction for the middle line,
-down by default. We set that to 1 (up) in the lower staff." }
-
-\score {
- \context PianoStaff <
- \context Staff \notes \relative c'' {
- \property Voice.Beam \set #'dir-function = #beam-dir-majority
- [c8^"down" g]
- \property Voice.Beam \set #'dir-function = #beam-dir-mean
- [c^"up" g]
- \property Voice.Beam \set #'dir-function = #beam-dir-median
- [c^"up" g]
-
- \time 3/8
- \property Voice.Beam \set #'dir-function = #beam-dir-majority
- [c8^"down" c g]
- \property Voice.Beam \set #'dir-function = #beam-dir-mean
- [c^"down" c g]
- \property Voice.Beam \set #'dir-function = #beam-dir-median
- [c^"up" c g]
- }
- \context Staff=lower \notes \relative c'' {
- \property Voice.Beam \set #'neutral-direction = #1
- \property Voice.Beam \set #'dir-function = #beam-dir-majority
- [d8_"up" a]
- \property Voice.Beam \set #'dir-function = #beam-dir-mean
- [d_"down" a]
- \property Voice.Beam \set #'dir-function = #beam-dir-median
- [d_"down" a]
-
- \property Voice.Beam \set #'dir-function = #beam-dir-majority
- \time 3/8
- [d8_"up" a a]
- \property Voice.Beam \set #'dir-function = #beam-dir-mean
- [d_"up" a a]
- \property Voice.Beam \set #'dir-function = #beam-dir-median
- [d_"down" a a]
-
- }
- >
-}
-
-%% Local variables:
-%% LilyPond-indent-level:2
-%% End:
-%% new-chords-done %%
\score {
\context Voice \notes\relative c {
- [b''16 a]
+ b''16-[ a]
}
\paper { }
\context Staff=two \notes\relative c'{
\clef bass
% no knee
- \stemUp [c8 \translator Staff=one \stemDown g'16 f]
+ \stemUp c8-[ \translator Staff=one \stemDown g'16 f]
s8
s2
}
fragment = \notes {
- [b''8 b]
+ b''8-[ b]
\property Voice.Beam \set #'neutral-direction = #-1
- [b b]
+ b-[ b]
}
\paper { raggedright = ##t}
\score{
\notes\relative c' {
- [c8 c] [a'' a]
- [a, a] [c c]
- [d,8 d] [g' g]
- [g, g] [d' d]
- [c,16 c c c] [a'' a a a]
- [a, a a a] [c c c c]
+ c8-[ c] a''-[ a]
+ a,-[ a] c-[ c]
+ d,8-[ d] g'-[ g]
+ g,-[ g] d'-[ d]
+ c,16-[ c c c] a''-[ a a a]
+ a,-[ a a a] c-[ c c c]
\break
- [c,32 c c c c c c c] [a'' a a a a a a a]
- [f, f f f f f f f] [e' e e e e e e e]
+ c,32-[ c c c c c c c] a''-[ a a a a a a a]
+ f,-[ f f f f f f f] e'-[ e e e e e e e]
\break
- [c,8 d] [a'' g]
- [g, f] [d' e]
+ c,8-[ d] a''-[ g]
+ g,-[ f] d'-[ e]
\break
}
\paper{
fragment = \notes {
\property Voice.Beam \set #'positions = #'(4 . 0)
- [c'8 c]
+ c'8-[ c]
}
\paper { raggedright = ##t}
\score{
\context Staff=one \notes\relative c''{
- r4 [r8 g a]
- [bes8 r16 f g a]
- [bes8 r16 \property Voice.stemLeftBeamCount = #1 f g a]
+ r4 r8-[ g a]
+ bes8-[ r16 f g a]
+ bes8-[ r16 \property Voice.stemLeftBeamCount = #1 f g a]
}
\paper{
\version "1.7.16"
\header{
- texidoc=""
+ texidoc="
+
+TODO: what's this for?
+
+"
}
\score{
\notes\relative c''{
\stemUp
- [b8 c]
- [b16 c]
- [a' b]
+ b8-[ c]
+ b16-[ c]
+ a'-[ b]
}
\paper{
- linewidth = 0.0
+ raggedright = ##t
}
}%% new-chords-done %%
\score {
\context RhythmicStaff \notes {
- \stemUp [c8 c]
- \stemDown [c8 c]
- \stemUp [c8. c16]
+ \stemUp c8-[ c]
+ \stemDown c8-[ c]
+ \stemUp c8.-[ c16]
}
\paper {
raggedright = ##t
\score{
\notes\relative c'{
\stemUp
- [f8 a' g f]
- [c8 g'16 f]
- [c8 e16 d]
- [a16 b c d]
- [d16 c b a]
+ f8-[ a' g f]
+ c8-[ g'16 f]
+ c8-[ e16 d]
+ a16-[ b c d]
+ d16-[ c b a]
\stemDown
- [c16 b a g]
- [g16 a b c]
+ c16-[ b a g]
+ g16-[ a b c]
}
\paper{
raggedright = ##t
\context Staff = SA \notes\transpose c c {
\time 8/4
- \stemUp [c8 c'' a' f']
- \stemUp [c16 c'' a' f']
- \stemUp [c32 c'' a' f']
- \stemUp [c64 c'' a' f']
- \stemUp [c128 c'' a' f']
+ \stemUp c8-[ c'' a' f']
+ \stemUp c16-[ c'' a' f']
+ \stemUp c32-[ c'' a' f']
+ \stemUp c64-[ c'' a' f']
+ \stemUp c128-[ c'' a' f']
r32
- \stemUp [g8 g g g]
- \stemUp [g16 g g g]
- \stemUp [g32 g g g]
- \stemUp [g64 g g g]
- \stemUp [g128 g g g]
+ \stemUp g8-[ g g g]
+ \stemUp g16-[ g g g]
+ \stemUp g32-[ g g g]
+ \stemUp g64-[ g g g]
+ \stemUp g128-[ g g g]
r32
\transpose c' c{
\stemBoth
- [c'8 c'] [b b] [a a] [g g] [f f] [e e]
- [c'16 c'] [b b] [a a] [g g] [f f] [e e]
- [c'32 c'] [b b] [a a] [g g] [f f] [e e]
- [c'64 c'] [e e]}
+ c'8-[ c'] b-[ b] a-[ a] g-[ g] f-[ f] e-[ e]
+ c'16-[ c'] b-[ b] a-[ a] g-[ g] f-[ f] e-[ e]
+ c'32-[ c'] b-[ b] a-[ a] g-[ g] f-[ f] e-[ e]
+ c'64-[ c'] e-[ e]}
}
>
<
\context Staff = SB \notes {
\transpose c c {
\time 8/4
- \stemDown [a'8 a, c e]
- \stemDown [a'16 a, c e]
- \stemDown [a'32 a, c e]
- \stemDown [a'64 a, c e]
- \stemDown [a'128 a, c e]
+ \stemDown a'8-[ a, c e]
+ \stemDown a'16-[ a, c e]
+ \stemDown a'32-[ a, c e]
+ \stemDown a'64-[ a, c e]
+ \stemDown a'128-[ a, c e]
r32}
\transpose c' c{
- \stemDown [d''8 d'' d'' d'']
- \stemDown [d''16 d'' d'' d'']
- \stemDown [d''32 d'' d'' d'']
- \stemDown [d''64 d'' d'' d'']
- \stemDown [d''128 d'' d'' d'']
+ \stemDown d''8-[ d'' d'' d'']
+ \stemDown d''16-[ d'' d'' d'']
+ \stemDown d''32-[ d'' d'' d'']
+ \stemDown d''64-[ d'' d'' d'']
+ \stemDown d''128-[ d'' d'' d'']
r32}
\transpose c c'{
\stemBoth
- [a8 a] [b b] [c' c'] [d' d'] [e' e'] [f' f']
- [a16 a] [b b] [c' c'] [d' d'] [e' e'] [f' f']
- [a32 a] [b b] [c' c'] [d' d'] [e' e'] [f' f']
- [a64 a] [f' f']}
+ a8-[ a] b-[ b] c'-[ c'] d'-[ d'] e'-[ e'] f'-[ f']
+ a16-[ a] b-[ b] c'-[ c'] d'-[ d'] e'-[ e'] f'-[ f']
+ a32-[ a] b-[ b] c'-[ c'] d'-[ d'] e'-[ e'] f'-[ f']
+ a64-[ a] f'-[ f']}
}
>
>
shortlong = \notes{
- c4()c( c c |
+ c4(c-)( c c |
c c c c |
c c c c |
\break
- c c c )c |
+ c c c c-) |
}
broken = \notes\transpose c c'{
- c c c c()
c c c c(
- c )c c c(
- c c )c c(
- )a' a' a' a'()
+ c-) c c c(
+ c c-) c c(
+ c c c-) c(
+ a'-) a' a' a'()
a' a' a' a'()
- c( c c )c
- c( c c )f,
- f,( c c )c
- f,( c c )f,
+ c( c c c-)
+ c( c c f,-)
+ f,( c c c-)
+ f,( c c f,-)
}
\score{
\property Voice.Beam \override #'space-function =
#(lambda (beam mult) (* 0.8 (Beam::space_function beam mult)))
- r8^"Bsn." c'8 [f'8 f'8]
+ r8^"Bsn." c'8 f'8-[ f'8]
\property Staff.fontSize\unset
\property Staff . Clef = \turnOff
\clef treble
\paper { raggedright = ##t}
\score {\notes \relative c {
- [b''8 b]
+ b''8-[ b]
\property Voice.Beam \set #'neutral-direction = #-1
- [b b]
+ b-[ b]
}}
%% new-chords-done %%
\relative c'{
g'8. c16 es8. d16 c8. bes32 as g8. c,16
es4 r8 es |
- [d es f g as c ]
+ d-[ es f g as c ]
b4 g r
}
\property Voice.TextScript \set #'padding = #3
\property Staff.BarLine \override #'transparent = ##t
\property Voice.Stem \override #'transparent = ##t
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
^\markup { "divisio minima" }
\divisioMinima
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
^\markup { "divisio maior" }
\divisioMaior
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
^\markup { "divisio maxima" }
\divisioMaxima
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
^\markup { "finalis" }
\finalis
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
^\markup { "virgula" }
\virgula
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
^\markup { "caesura" }
\caesura
- g4( )a g e( )f e
+ g4( a-) g e( f-) e
}
\context Lyrics = lyrics \lyrics {
Blah blub, blah blam.
fragment = \notes {
\property Voice.Slur \set #'direction = #1
\property Voice.Slur \set #'attachment = #'(head . head)
- g''16()g()g()g()d'()d()d()d
+ g''16(g-)(g-)(g-)(d'-)(d-)(d-)(d-)
}
\paper { raggedright = ##t}
\property Voice.Tie \set #'direction = #1
\property Voice.Slur \set #'direction = #1
\property Voice.Slur \set #'attachment = #'(head . head)
- c8~c()c
+ 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
+ a8(a-)-~a
}
>
\paper { linewidth = 40*\staffspace }
\score {
\context Voice \notes\relative c {
- c4 \grace { [d16 d16] }
+ c4 \grace { d16-[ d16] }
}
\paper { }
\time 4/4
\context Voice=one \partcombine Voice
\context Thread=one \notes\relative c'' {
- a4 c4.()g8 a4 |
- g4 e' g()f |
+ a4 c4.(g8-) a4 |
+ g4 e' g(f-) |
b, a c2
}
\context Thread=two \notes\relative c'' {
- g4 e4.()d8 c4 |
- g'4 c, e()f |
+ g4 e4.(d8-) c4 |
+ g'4 c, e(f-) |
d2 a
}
>
\context Staff \notes <
\context SquashVoice = impro { \global }
\context Voice = melo \transpose c c' {
- e8 e g a a16()bes()a8 g \improOn e8
+ e8 e g a a16(bes-)(a8-) g \improOn e8
~e2~e8 f4 fis8
- ~fis2 \improOff a16()bes a8 g e
+ ~fis2 \improOff a16(bes-) a8 g e
}
>
>
\clef treble
a4. b8 c4 fis |
- gis~ gis8 fis16^\trill ()e b8 c \context Staff<{\voiceOne a d}{\voiceTwo es,4}>|
+ gis~ gis8 fis16^\trill (e-) b8 c \context Staff<{\voiceOne a d}{\voiceTwo es,4}>|
}
BC = \notes\relative c{
\context Staff=two \notes\relative c'{
\clef bass
% no knee
- \stemUp [c8 \translator Staff=one \stemDown g'16 f]
+ \stemUp c8-[ \translator Staff=one \stemDown g'16 f]
s8
s2
}
\version "1.7.16"
\score{
\notes\relative c'{
- [a8 b'' a,, b'']
- [b8 a,, b'' a,,]
+ a8-[ b'' a,, b'']
+ b8-[ a,, b'' a,,]
\stemUp [ b8 \stemDown b'']
}
\paper{
\score{
\notes\relative c'{
\property Voice.Beam \override #'auto-knee-gap = ##f
- [c16 \stemDown c'' \stemBoth c,, d]
- \stemDown [d'' a \stemBoth c,, g,]
- \stemUp [g c' \stemBoth a'' d']
+ c16-[ \stemDown c'' \stemBoth c,, d]
+ \stemDown d''-[ a \stemBoth c,, g,]
+ \stemUp g-[ c' \stemBoth a'' d']
}
}
%% new-chords-done %%
\version "1.7.16"
\score{
<
- \context Staff \notes { c () c () c c }
+ \context Staff \notes { c (c-) (c-) c }
\context Lyrics \lyrics { bla __ alb xxx __ yyy }
>
}
\version "1.7.16"
\score{
<
- \context Staff \notes { c' () c' () c' c' }
+ \context Staff \notes { c' (c'-) (c'-) c' }
\context Lyrics \context LyricsVoice \lyrics { bla -- alb xxx -- yyy }
>
}
m = \notes \relative c'' {
\property Staff.automaticMelismata = ##t
\autoBeamOff
- g4 r8 \times 2/3 { g'8( f )e } r8 \grace { [d16 c b] } e4
+ g4 r8 \times 2/3 { g'8( f e-) } r8 \grace { d16-[ c b] } e4
\emptyText
d8.^"melisma" \melisma c16
\melismaEnd
\score {
\context Voice \notes\relative c {
- [c8 c16 c16]
+ c8-[ c16 c16]
}
\paper { }
- \midi { }
}
%% new-chords-done %%
c4 d e f g
-\sustainDown b c
- c, [d16 c c c] [e e -\sustainUp -\sustainDown e e ] f4 -\sustainUp
+ c, d16-[ c c c] e-[ e -\sustainUp -\sustainDown e e ] f4 -\sustainUp
g-\sustainDown b -\sustainUp c
\property Staff.pedalSustainStrings = #'("-" "-P" "P")
\property Staff.SustainPedal \override #'padding = #-2
\property Staff.SustainPedal \override #'pedal-type = #'bracket
- c4 d e -\sustainDown b c c, -\sustainUp -\sustainDown [d8 c] [e8 e -\sustainUp -\sustainDown] f4 d
+ c4 d e -\sustainDown b c c, -\sustainUp -\sustainDown d8-[ c] e8-[ e -\sustainUp -\sustainDown] f4 d
-\sustainUp g -\sustainDown b b, -\sustainUp c'
\property Staff.UnaCordaPedal \override #'pedal-type = #'mixed
\score {
\context Staff = melody \notes\relative c''{
\property Staff.PhrasingSlur \override #'height-limit = #8.0
- c8 \( (d e ) f g ( a b ) c
- | c ( b a ) g f ( e d )\) c
+ c8 \( (d e f-) g ( a b c-)
+ | c ( b a g-) f ( e d c-)-\)
}
\paper {
}
b,---. c---. d---. e---. f---. g---. a---. b---. c'---.
\stemBoth
\time 4/4
- [c8 \< d e \! f][d' \> e' f' \! g']
- [c-> \< d-> e-> \! f->][d'-> \> e'-> f'-> \! g'->]
- [c-^ \< d-^ e-^ \! f-^][d'-^ \> e'-^ f'-^ \! g'-^]
- [c-. \< d-. e-. \! f-.][d'-. \> e'-. f'-. \! g'-.]
- [c-- \< d-- e-- \! f--][d'-- \> e'-- f'-- \! g'--]
- [c-\tenuto \< d-\tenuto e-\tenuto \! f-\tenuto]
- [d'-\tenuto \> e'-\tenuto f'-\tenuto \! g'-\tenuto]
- [c-\upbow \< d-\upbow e-\upbow \! f-\upbow]
- [d'-\upbow \> e'-\upbow f'-\upbow \! g'-\upbow]
- [c-| \< d-| e-| \! f-|][d'-| \> e'-| f'-| \! g'-|]
- [c-\fermata \< d-\fermata e-\fermata \! f-\fermata]
- [d'-\fermata \> e'-\fermata f'-\fermata \! g'-\fermata]
- [c-\lheel \< d-\lheel e-\lheel \! f-\lheel]
- [d'-\lheel \> e'-\lheel f'-\lheel \! g'-\lheel]
+ c8-[ \< d e \! f] d'-[ \> e' f' \! g']
+ c-[-> \< d-> e-> \! f->] d'-[-> \> e'-> f'-> \! g'->]
+ c-[-^ \< d-^ e-^ \! f-^] d'-[-^ \> e'-^ f'-^ \! g'-^]
+ c-[-. \< d-. e-. \! f-.] d'-[-. \> e'-. f'-. \! g'-.]
+ c-[-- \< d-- e-- \! f--] d'-[-- \> e'-- f'-- \! g'--]
+ c-[-\tenuto \< d-\tenuto e-\tenuto \! f-\tenuto]
+ d'-[-\tenuto \> e'-\tenuto f'-\tenuto \! g'-\tenuto]
+ c-[-\upbow \< d-\upbow e-\upbow \! f-\upbow]
+ d'-[-\upbow \> e'-\upbow f'-\upbow \! g'-\upbow]
+ c-[-| \< d-| e-| \! f-|] d'-[-| \> e'-| f'-| \! g'-|]
+ c-[-\fermata \< d-\fermata e-\fermata \! f-\fermata]
+ d'-[-\fermata \> e'-\fermata f'-\fermata \! g'-\fermata]
+ c-[-\lheel \< d-\lheel e-\lheel \! f-\lheel]
+ d'-[-\lheel \> e'-\lheel f'-\lheel \! g'-\lheel]
}}
\score{
\notes \relative c''{
- \slurUp c()a d()g,\break
- \slurDown c()a d()g,\break
- \slurUp a()c d()g,\break
- \slurDown a()c d()g,\break
- \slurDown a()c d()g,\break
+ \slurUp c(a-) d(g,-)\break
+ \slurDown c(a-) d(g,-)\break
+ \slurUp a(c-) d(g,-)\break
+ \slurDown a(c-) d(g,-)\break
+ \slurDown a(c-) d(g,-)\break
}
\paper{
indent = 0.0
\notes\relative c''' {
% doesn't work yet
% \time 3/4
- a4( a a a )a
+ a4( a a a a-)
\stemDown
- a,8( b c )d
+ a,8( b c d-)
\stemUp
- \slurDown d16( c b )a
+ \slurDown d16( c b a-)
}
}
%% new-chords-done %%
shortlong = \notes{
- c4()c( c c |
+ c4(c-)( c c |
c c c c |
c c c c |
\break
- c c c )c |
+ c c c c-) |
}
dirs = \notes\transpose c c {
- c'1() g' () c () g () c |
+ c'1(g'-) (c-) (g-) (c-) |
}
over = \notes\transpose c c{
- e( g' g' )e
- e( a' a' )e
- e( b' b' )e
- e( c'' c'' )e
+ e( g' g' e-)
+ e( a' a' e-)
+ e( b' b' e-)
+ e( c'' c'' e-)
\stemUp
- e( c' c' )e
- e( d' d' )e
- e( e' e' )e
- e( c'' c'' )e
+ e( c' c' e-)
+ e( d' d' e-)
+ e( e' e' e-)
+ e( c'' c'' e-)
\stemBoth
- e( f' b' )e
- e( b' f' )e
- e( e'' g' )e
- e( g' e'' )e
+ e( f' b' e-)
+ e( b' f' e-)
+ e( e'' g' e-)
+ e( g' e'' e-)
\stemUp
- e( d' b )e
- e( b d' )e
- e( f' c'' )e
- e( c'' f )e
+ e( d' b e-)
+ e( b d' e-)
+ e( f' c'' e-)
+ e( c'' f e-)
}
under = \notes\transpose c c{
\stemDown
- f'( \stemBoth d d \stemDown )f'
- f'( \stemBoth c c \stemDown )f'
- f'( \stemBoth b, b, \stemDown )f'
- f'( \stemBoth a, a, \stemDown )f'
+ f'( \stemBoth d d \stemDown f'-)
+ f'( \stemBoth c c \stemDown f'-)
+ f'( \stemBoth b, b, \stemDown f'-)
+ f'( \stemBoth a, a, \stemDown f'-)
\stemDown
- f'( a a )f'
- f'( g g )f'
- f'( f f )f'
- f'( a, a, )f'
+ f'( a a f'-)
+ f'( g g f'-)
+ f'( f f f'-)
+ f'( a, a, f'-)
\stemDown
- f'( \stemBoth d b, \stemDown )f'
- f'( \stemBoth b, d \stemDown )f'
- f'( \stemBoth d, b, \stemDown )f'
- f'( \stemBoth b, d, \stemDown )f'
+ f'( \stemBoth d b, \stemDown f'-)
+ f'( \stemBoth b, d \stemDown f'-)
+ f'( \stemBoth d, b, \stemDown f'-)
+ f'( \stemBoth b, d, \stemDown f'-)
\stemDown
- f'( f a )f'
- f'( a f )f'
- f'( f e, )f'
- f'( e, f )f'
+ f'( f a f'-)
+ f'( a f f'-)
+ f'( f e, f'-)
+ f'( e, f f'-)
}
eccentric = \notes\transpose c c{
\stemUp
- \times 4/7 { f( a' f f f f )f } |
- \times 4/7 { f( f f f f a' )f } |
+ \times 4/7 { f( a' f f f f f-) } |
+ \times 4/7 { f( f f f f a' f-) } |
\stemDown
- \times 4/7 { e'( c e' e' e' e' )e' } |
- \times 4/7 { e'( e' e' e' e' c )e' } |
+ \times 4/7 { e'( c e' e' e' e' e'-) } |
+ \times 4/7 { e'( e' e' e' e' c e'-) } |
}
tiltup = \notes\transpose c c{
- e( c'' c'' )e'
+ e( c'' c'' e'-)
\stemUp
- e( c'' c'' )e'
+ e( c'' c'' e'-)
\stemBoth
- e( g' e'' )e'
+ e( g' e'' e'-)
\stemUp
- e( c'' f )e'
+ e( c'' f e'-)
\stemDown
- f'( \stemBoth a, a, \stemDown )f''
+ f'( \stemBoth a, a, \stemDown f''-)
\stemDown
- f'( a, a, )f''
+ f'( a, a, f''-)
}
tiltdown = \notes\transpose c c{
- e'( c'' c'' )e
+ e'( c'' c'' e-)
\stemUp
- e'( c'' c'' )e
+ e'( c'' c'' e-)
\stemBoth
- e'( g' e'' )e
+ e'( g' e'' e-)
\stemUp
- e'( c'' f )e
+ e'( c'' f e-)
\stemDown
- f''( \stemBoth a, a, \stemDown )f'
+ f''( \stemBoth a, a, \stemDown f'-)
\stemDown
- f''( a, a, )f'
+ f''( a, a, f'-)
}
broken = \notes\transpose c c'{
c c c c()
c c c c(
- c )c c c(
- c c )c c(
- )a' a' a' a'()
+ c c-) c c(
+ c c c-) c(
+ a'-) a' a' a'()
a' a' a' a'()
- c( c c )c
- c( c c )f,
- f,( c c )c
- f,( c c )f,
+ c( c c c-)
+ c( c c f,-)
+ f,( c c c-)
+ f,( c c f,-)
}
blend = \notes\transpose c c{
- e( c'' c'' )e
+ e( c'' c'' e-)
\stemUp
- f'( c'' c'' )f'
- e( c'' c'' )e
+ f'( c'' c'' f'-)
+ e( c'' c'' e-)
\stemDown
- f'( \stemBoth a, a, \stemDown )f'
- f'( a, a, )f'
+ f'( \stemBoth a, a, \stemDown f'-)
+ f'( a, a, f'-)
\stemBoth
- e( c'' c'' )e'
- e'( c'' c'' )e
- d( d d )d
+ e( c'' c'' e'-)
+ e'( c'' c'' e-)
+ d( d d d-)
\stemDown
- e( c'' c'' )e'
- e'( c'' c'' )e
- d( d d )d
+ e( c'' c'' e'-)
+ e'( c'' c'' e-)
+ d( d d d-)
}
bug = \notes\transpose c c{
- a()g( f )e
- b'()a'( g' )f'
- g( f' e' )d'
- f f( g )a
- c' () b () c' c'
+ a(g-)( f e-)
+ b'(a'-)( g' f'-)
+ g( f' e' d'-)
+ f f( g a-)
+ c' (b-) (c'-) c'
}
clipping = \notes\transpose c c{
\stemBoth
- c( c''' c''')c
- c( c''' c )c''
- c''( c c''' )c
+ c( c''' c'''c-)
+ c( c''' c c''-)
+ c''( c c''' c-)
\stemDown
- c( \stemUp c,,, c,,, \stemDown )c
- c( \stemUp c,,, c \stemDown )c,,
- c,,( \stemUp c c,,, \stemDown )c
+ c( \stemUp c,,, c,,, \stemDown c-)
+ c( \stemUp c,,, c \stemDown c,,-)
+ c,,( \stemUp c c,,, \stemDown c-)
}
\score{
\slurUp
\stemDown
-a(a' a,)a
-a(a a')a,
-a(d a)a
-a(a d)a
+a(a' a, a-)
+a(a a' a,-)
+a(d a a-)
+a(a d a-)
-e'8(e e e e e e)e
-a,8(d a a a a a)a
-a(a a a a a d)a
+e'8(e e e e e e e-)
+a,8(d a a a a a a-)
+a(a a a a a d a-)
-c,(g' c e f d b)g
-c,(g' c e f d b)g
+c,(g' c e f d b g-)
+c,(g' c e f d b g-)
\property Voice.autoBeaming = ##f
\stemUp
-a8(a a a a a a)a
+a8(a a a a a a a-)
}
\paper{
\property Voice.autoBeaming = ##f
\property Voice.Stem \set #'direction = #1
\property Voice.Slur \set #'direction = #1
- d'32( f'4 )d8..
+ d'32( f'4 d8..-)
\property Voice.Slur \set #'attachment = #'(stem . stem)
- d,32( f'4 )d8.
+ d,32( f'4 d8.-)
}
\paper { raggedright = ##t}
fragment = \notes {
\property Voice.Slur \set #'direction = #1
\property Voice.Stem \set #'length = #5.5
- g''8(g)g4
- g4(g8)g
+ g''8(g g4-)
+ g4(g8 g-)
\property Voice.Slur \set #'attachment = #'(stem . stem)
- g8(g)g4
- g4(g8)g
+ g8(g g4-)
+ g4(g8 g-)
}
\paper { raggedright = ##t}
\context Staff=one \notes\relative c'{
%{
\stemUp \slurUp
- c4( c \translator Staff=two c )c |
+ c4( c \translator Staff=two c c-) |
\translator Staff=one
\stemUp \slurUp
- c4( c \translator Staff=two c )c |
+ c4( c \translator Staff=two c c-) |
\stemUp \slurUp
- c4( c \translator Staff=one c )c |
+ c4( c \translator Staff=one c c-) |
\translator Staff=two
\stemUp \slurUp
- c4( c \translator Staff=one c )c |
+ c4( c \translator Staff=one c c-) |
\translator Staff=two
\stemUp \slurUp
- c4( \translator Staff=one c c )c |
+ c4( \translator Staff=one c c c-) |
%}
r2
\translator Staff=two
\stemUp \slurUp
c4( \translator Staff=one c
\break
- c )c
+ c c-)
r2
%{
\stemDown \slurDown
- d4( \translator Staff=two c c \translator Staff=one )d
+ d4( \translator Staff=two c c \translator Staff=one d-)
\translator Staff=two
\stemUp \slurUp
- c4( \translator Staff=one c c \translator Staff=two )c
+ c4( \translator Staff=one c c \translator Staff=two c-)
r1
%}
}
\time 2/4
e2(
\break
- )e4 f,(\break
- )f4 f(\break
+ e4-) f,(\break
+ f4-) f(\break
a2\break
- )e'2
+ e'2-)
}
\paper{
linewidth = 60.\mm
\score{
\notes\relative c'{
- c'()b' ~ b, c
+ c'(b'-)-~ b, c
c c c c
c c c c
c c c c
\score{
\notes{
- c( d e )c |
+ c( d e c-) |
\slurDotted
- c( d e )c |
+ c( d e c-) |
\slurSolid
- c( d e )c |
+ c( d e c-) |
\property Voice. Slur \set #'dashed = #0.0
- c( d e )c |
+ c( d e c-) |
\slurSolid
- c( d e )c |
+ c( d e c-) |
}
\paper{
indent = 0.0\pt
\score {
\context Voice \notes\relative c {
% CASE 3
- d''4 ( ) b a ( ) e' \break
- g,( \stemDown ) b \stemBoth c ( ) f, \break
+ d''4 ( b-) a ( e'-) \break
+ g,( \stemDown b-) \stemBoth c ( f,-) \break
% no adjusting...
- \stemUp [d'8 ( b a] \stemBoth ) e' \break
- \stemUp [g,8 ( b d] \stemBoth ) c \break
+ \stemUp d'8-[ ( b a] \stemBoth e'-) \break
+ \stemUp g,8-[ ( b d] \stemBoth c-) \break
% still ugly
- g4 ( b d ) c \break
+ g4 ( b d c-) \break
%TIES
d ~ b a ~ e' \break
\notes\relative c''{
\time 2/4
\property Voice.Slur \set #'minimum-length = #40
- c()c
+ c(c-)
c~c\break
}
}
\score{
\notes\relative c''{
\slurUp
- a2 () a\break
+ a2 (a-)\break
\slurDown
- a2 () a\break
+ a2 (a-)\break
\slurUp
- c2 () c\break
+ c2 (c-)\break
\slurDown
- c2 () c\break
+ c2 (c-)\break
}
\paper{
\score {
\context Staff \notes\relative c <
- \context Voice=va { \x f()f }
- \context Voice=vb { \x g(s4)g }
- \context Voice=vc { \x a(s4*2)a }
- \context Voice=vd { \x b(s4*3)b }
- \context Voice=ve { \x c(s4*4)c }
- \context Voice=vf { \x d(s4*5)d }
- \context Voice=vg { \x e(s4*6)e }
- \context Voice=vh { \x f(s4*7)f }
- \context Voice=vi { \x g(s4*8)g }
- \context Voice=vj { \x a(s4*9)a }
- \context Voice=vk { \x b(s4*10)b }
- \context Voice=vl { \x c(s4*11)c }
- \context Voice=vm { \x d(s4*12)d }
- \context Voice=vn { \x e(s4*13)e }
- \context Voice=vo { \x f(s4*14)f }
- \context Voice=vp { \x g(s4*15)g }
- \context Voice=vq { \x a(s4*16)a }
- \context Voice=vr { \x b(s4*17)b }
- \context Voice=vs { \x c(s4*18)c }
- \context Voice=vt { \x d(s4*19)d }
- \context Voice=vu { \x e(s4*20)e }
- \context Voice=vv { \x f(s4*21)f }
- \context Voice=vw { \x g(s4*22)g }
- \context Voice=vx { \x a(s4*23)a }
- \context Voice=vy { \x b(s4*24)b }
- \context Voice=vz { \x c(s4*25)c }
- \context Voice=wa { \x d(s4*26)d }
+ \context Voice=va { \x f(f-) }
+ \context Voice=vb { \x g(s4g-) }
+ \context Voice=vc { \x a(s4*2a-) }
+ \context Voice=vd { \x b(s4*3b-) }
+ \context Voice=ve { \x c(s4*4c-) }
+ \context Voice=vf { \x d(s4*5d-) }
+ \context Voice=vg { \x e(s4*6e-) }
+ \context Voice=vh { \x f(s4*7f-) }
+ \context Voice=vi { \x g(s4*8g-) }
+ \context Voice=vj { \x a(s4*9a-) }
+ \context Voice=vk { \x b(s4*10b-) }
+ \context Voice=vl { \x c(s4*11c-) }
+ \context Voice=vm { \x d(s4*12d-) }
+ \context Voice=vn { \x e(s4*13e-) }
+ \context Voice=vo { \x f(s4*14f-) }
+ \context Voice=vp { \x g(s4*15g-) }
+ \context Voice=vq { \x a(s4*16a-) }
+ \context Voice=vr { \x b(s4*17b-) }
+ \context Voice=vs { \x c(s4*18c-) }
+ \context Voice=vt { \x d(s4*19d-) }
+ \context Voice=vu { \x e(s4*20e-) }
+ \context Voice=vv { \x f(s4*21f-) }
+ \context Voice=vw { \x g(s4*22g-) }
+ \context Voice=vx { \x a(s4*23a-) }
+ \context Voice=vy { \x b(s4*24b-) }
+ \context Voice=vz { \x c(s4*25c-) }
+ \context Voice=wa { \x d(s4*26d-) }
>
\paper {
indent=0.0\mm
}
\score{
\notes\relative c'{
- [g'8( e )c' g,]
- [d'( f' )a, a]
- [d( f )a, d']
- [g,( e, )c' c]
+ g'8-[( e c'-) g,]
+ d'-[( f' a,-) a]
+ d-[( f a,-) d']
+ g,-[( e, c'-) c]
}
\paper{
\version "1.7.16"
\header{
-% should look the same
-title="symmetry"
+title="symmetry.
+
+Both slurs should look the same.
+
+"
}
+
\score{
\notes\relative c'{
- [g'8( e )c' g,] r2
+ [g'8( e c'-) g,] r2
\break
- [d''8( f )a, d'] r2
+ [d''8( f a,-) d'] r2
}
\paper{
-
- linewidth = 50.0\mm
+ raggedright = ##t
}
}
%% new-chords-done %%
}
baseWalk = \notes \relative c {
- d,8( a' d f a d f d a f d )a
+ d,8( a' d f a d f d a f d a-)
}
\score {
\context Voice = VA { \stemUp\slurUp\tieUp
e4 dis4 e2 }
\context Voice = VB { \stemDown\slurDown\tieDown
- [cis8 a] [fis b] gis2 }
+ cis8-[ a] fis-[ b] gis2 }
{\key e \major }
>
\context Staff = SB { \clef "bass" \key e \major
- [a,,16 e dis e] [b'8 b,] [e16 e, gis b] e4
+ a,,16-[ e dis e] b'8-[ b,] e16-[ e, gis b] e4
}
>
c c
}
\context Staff = two \context Voice {
- [c8 c]
- [c c]
- [c c] [c c]
+ c8-[ c]
+ c-[ c]
+ c-[ c] c-[ c]
}
\context Staff = three \context Voice {
- \times 2/3 { [c8 c c] }
- \times 2/3 { [c c c] }
- \times 2/3 { [c c c] }
- \times 2/3 { [c c c] }
+ \times 2/3 { c8-[ c c] }
+ \times 2/3 { c-[ c c] }
+ \times 2/3 { c-[ c c] }
+ \times 2/3 { c-[ c c] }
}
\context Staff = four \context Voice {
- \times 2/4 { [c8 c c c] }
- \times 2/4 { [c c c c] }
- \times 2/4 { [c c c c] } \times 2/4 { [c c c c] }
+ \times 2/4 { c8-[ c c c] }
+ \times 2/4 { c-[ c c c] }
+ \times 2/4 { c-[ c c c] } \times 2/4 { c-[ c c c] }
}
\context Staff = five \context Voice {
- \times 2/5 { [c8 c c c c] }
- \times 2/5 { [c c c c c] }
- \times 2/5 { [c c c c c] } \times 2/5 { [c c c c c] }
+ \times 2/5 { c8-[ c c c c] }
+ \times 2/5 { c-[ c c c c] }
+ \times 2/5 { c-[ c c c c] } \times 2/5 { c-[ c c c c] }
}
\context Staff = six \context Voice {
- \times 2/6 { [c8 c c c c c] }
- \times 2/6 { [c c c c c c] }
- \times 2/6 { [c c c c c c] } \times 2/6 { [c c c c c c] }
+ \times 2/6 { c8-[ c c c c c] }
+ \times 2/6 { c-[ c c c c c] }
+ \times 2/6 { c-[ c c c c c] } \times 2/6 { c-[ c c c c c] }
}
\context Staff = seven \context Voice {
- \times 2/7 { [c8 c c c c c c] }
- \times 2/7 { [c c c c c c c] }
- \times 2/7 { [c c c c c c c] }
- \times 2/7 { [c c c c c c c] }
+ \times 2/7 { c8-[ c c c c c c] }
+ \times 2/7 { c-[ c c c c c c] }
+ \times 2/7 { c-[ c c c c c c] }
+ \times 2/7 { c-[ c c c c c c] }
}
\context Staff = eight \context Voice {
- \times 2/8 { [c8 c c c c c c c] }
- \times 2/8 { [c c c c c c c c] }
- \times 2/8 { [c c c c c c c c] }
- \times 2/8 { [c c c c c c c c] }
+ \times 2/8 { c8-[ c c c c c c c] }
+ \times 2/8 { c-[ c c c c c c c] }
+ \times 2/8 { c-[ c c c c c c c] }
+ \times 2/8 { c-[ c c c c c c c] }
}
\context Staff = nine \context Voice {
- \times 2/9 { [c8 c c c c c c c c] }
- \times 2/9 { [c c c c c c c c c] }
- \times 2/9 { [c c c c c c c c c] }
- \times 2/9 { [c c c c c c c c c] }
+ \times 2/9 { c8-[ c c c c c c c c] }
+ \times 2/9 { c-[ c c c c c c c c] }
+ \times 2/9 { c-[ c c c c c c c c] }
+ \times 2/9 { c-[ c c c c c c c c] }
}
\context Staff = ten \context Voice {
- \times 2/10 { [c8 c c c c c c c c c] }
- \times 2/10 { [c c c c c c c c c c] }
- \times 2/10 { [c c c c c c c c c c] }
- \times 2/10 { [c c c c c c c c c c] }
+ \times 2/10 { c8-[ c c c c c c c c c] }
+ \times 2/10 { c-[ c c c c c c c c c] }
+ \times 2/10 { c-[ c c c c c c c c c] }
+ \times 2/10 { c-[ c c c c c c c c c] }
}
\context Staff = eleven \context Voice {
- \times 2/11 { [c8 c c c c c c c c c c] }
- \times 2/11 { [c c c c c c c c c c c] }
- \times 2/11 { [c c c c c c c c c c c] }
- \times 2/11 { [c c c c c c c c c c c] }
+ \times 2/11 { c8-[ c c c c c c c c c c] }
+ \times 2/11 { c-[ c c c c c c c c c c] }
+ \times 2/11 { c-[ c c c c c c c c c c] }
+ \times 2/11 { c-[ c c c c c c c c c c] }
}
>
}
singlepart = \notes{
c4 d e f
- c4 d e [f8 f]
- c4 d e f8 [f16 f]
- c4 d e f8 f16 [f32 f]
- c4 d e f8 f16 f32 [f64 f]
+ c4 d e f8-[ f]
+ c4 d e f8 f16-[ f]
+ c4 d e f8 f16 f32-[ f]
+ c4 d e f8 f16 f32 f64-[ f]
c4 c4 c4 c4
}
\score {
\notes \relative c'' \context GrandStaff <
\context Staff = up { c4 c4 }
- \context Staff = down { c4
- [<<c d f g>>8
+ \context Staff = down {
+ c4
+
+ <<c d f g>>8-[
e]
- [f c']
+ f-[ c']
}
>
\paper { \translator {
\dynamicUp\stemDown
%\key gis \major
- c8 d [e f g a] b c -\ff
+ c8 d e-[ f g a] b c -\ff
}
\context Staff = SB { \dynamicDown c,,4 -\ff c c c }
\score {\notes \relative c \context Voice {
\grace a'8 a4
\property Voice.Stem \set #'no-stem-extend = ##t
- \grace g8 g4 [g8 g]
+ \grace g8 g4 g8-[ g]
}}
%% new-chords-done %%
\score{
\context TabStaff <
\notes\relative c''{
- c()d
- d()d
- d()c
+ c(d-)
+ d(d-)
+ d(c-)
}
>
}
% \property Score. measurePosition = #(ly:make-moment -1 4)
\partial 4
c''4 c4 c4 c2 c1
- \cadenzaOn [c8 d e f] [g a b c b c b c]
+ \cadenzaOn c8-[ d e f] g-[ a b c b c b c]
\cadenzaOff
c4 c4 c4 c4
\property Score. measureLength = #(ly:make-moment 5 4)
%}
\endHorizScript
\time 2/2 \slurDown
- <{c2}{s4 \invisible d1*1/4 ( \visible }> ) e2
- <{a,2}{s4 \invisible b1*1/4 ( \visible }> ) d2
- <{a2}{s4 \invisible b1*1/4 ( \visible }> ) d2
+ <{c2}{s4 \invisible d1*1/4 ( \visible }> e2-)
+ <{a,2}{s4 \invisible b1*1/4 ( \visible }> d2-)
+ <{a2}{s4 \invisible b1*1/4 ( \visible }> d2-)
\time 3/4
d2^\prallup e4
}
d8~[\repeat unfold 4 { d32 c }]
d32 c b c \repeat unfold 4 { d32 c }
b32 c d c \repeat unfold 4 { d32 c }
- [c32( b a16 b )c] [b32 c d c \repeat unfold 4 { d32 c }]
+ c32-[( b a16 b c-)] b32-[ c d c \repeat unfold 4 { d32 c }]
}
>
>
\context Staff <
\context Voice=v \notes\relative c''{
\stemUp
- a4 c4.()g8 a4
+ a4 c4.(g8-) a4
}
\context Voice=u \notes\relative c''{
\stemDown
- g4 e4.()d8 c4
+ g4 e4.(d8-) c4
}
>
\paper{
\score{
<
\context Staff = o \notes\relative c,,, {
- \stemDown [c8 c c c] c4 c4 \break [c8 c c c] c4 c4
+ \stemDown c8-[ c c c] c4 c4 \break c8-[ c c c] c4 c4
}
\context Lyrics \lyrics{
BLA gag _2 < { BLA gag } { BLA gag la } > _2
}
\context Staff = t \notes\relative c''''' {
- \stemUp [c8 c c c] c4 c [c8 c c c] c4 c
+ \stemUp c8-[ c c c] c4 c c8-[ c c c] c4 c
}
>
\paper{
c2 c2
}
\context Thread=two \notes\relative c'' {
- b2 a4 () a
- a2 a4 () a
+ b2 a4 (a-)
+ a2 a4 (a-)
}
>
+++ /dev/null
-\version "1.7.16"
-
-#(define (voicify-list lst number)
- "Make a list of Musics.
-
- voicify-list :: [ [Music ] ] -> number -> [Music]
- LST is a list music-lists.
-"
-
- (if (null? lst) '()
- (cons (context-spec-music
- (make-sequential-music
- (list
- (make-voice-props-set number)
- (make-simultaneous-music (car lst))))
-
- "Voice" (number->string number))
- (voicify-list (cdr lst) (+ number 1))
- ))
- )
-
-#(define (voicify-chord ch)
- "Split the parts of a chord into different Voices using separator"
- (let* ((es (ly:get-mus-property ch 'elements)))
-
-
- (ly:set-mus-property! ch 'elements
- (voicify-list (split-list es music-separator?) 0))
- ch
- ))
-
-#(define (voicify-music m)
- "Recursively split chords that are separated with \\ "
-
- (if (not (ly:music? m))
- (begin (display m)
- (error "not music!"))
- )
- (let*
- ((es (ly:get-mus-property m 'elements))
- (e (ly:get-mus-property m 'element))
- )
-
- (if
- (and (equal? (ly:music-name m) "Simultaneous_music")
- (reduce (lambda (x y ) (or x y)) (map music-separator? es)))
- (voicify-chord m)
- (begin
- (if (pair? es)
- (ly:set-mus-property! m 'elements (map voicify-music es)))
- (if (ly:music? e)
- (ly:set-mus-property! m 'element (voicify-music e)))
-
- m)
-
- )
- ))
-
-\score { \notes \context Staff \relative c''
-\apply #voicify-music {
- c4 <g' \\ c, \\ f \\ d > f g < c \\ d> a
-}
-}
-
-
-%% new-chords-done %%
\property Staff.instr = "B"
\key f \minor
\time 4/4
- f,2 ( ) f,8 r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
\repeat volta 2
{
d8. d16 e8. f16 f8 c8 c16 c8. \break
\alternative
{
{
- f,2 ( ) f,8 r8 f8 e8
- f,2 ( ) f,8 r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
g1 \break
- f,2 ( ) f,8 r8 f8 e8
- f,2 ( ) f,8 r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
+ f,2 ( f,8-) r8 f8 e8
g1 \break
}
{
}
\alternative
{
- { a2 ( ) a8 r8 a8 bes8 }
+ { a2 ( a8-) r8 a8 bes8 }
{ a2. r8 g16 f16 |
d'8. c'16 c'8. d'16 c'8 c'8 c'16 c'8. |
}
\property Staff.instr = "B"
% \property Staff.VoltaBracket = \turnOff
- \time 4/4 f,2 ( ) f,8 r8 f8 e8
+ \time 4/4 f,2 ( f,8-) r8 f8 e8
\repeat volta 2
{
d8. d16 e8. f16 f8 c8 c16 c8.
}
\alternative
{
- { f,2 ( ) f,8 r8 f8 e8 ( \break }
- { ) f,2. r8 c16 c16 |
+ { f,2 ( f,8-) r8 f8 e8 ( \break }
+ { f,2.-) r8 c16 c16 |
}
}
}
melody = \notes \relative c' {
\partial 8
g8 |
- c4 c8 d es-[ ( d-]-) c4 | f4 f8 g es-(-[ d-)-] c g |
- c4 c8 d es-[ ( d-]-) c4 | d4 es8 d c4.
+ c4 c8 d es-[-( d-]-) c4 | f4 f8 g es-(-[ d-)-] c g |
+ c4 c8 d es-[-( d-]-) c4 | d4 es8 d c4.
\bar "|."
}
accompaniment =\chords {
r8
- c2:3- f:3-.7 d:m es4 c8:m r8
- c2:m f:m7 g:7^3.5 c:m }
+ c2:m f:m7 d:m es4 c8:m r8
+ c2:m f:m7 g:7 c:m }
\score {
\simultaneous {
\addlyrics
\context Staff = mel
{ \property Staff.autoBeaming = ##f
- \property Staff.automaticMelismata = ##t
\melody }
\context Lyrics \text
}
if (ignore_octave_b)
prev = ly_assoc_cdr (scm_int2num (n), sig);
else
- prev = gh_assoc (gh_cons (scm_int2num (o), scm_int2num (n)), sig);
+ prev = scm_assoc (gh_cons (scm_int2num (o), scm_int2num (n)), sig);
/* should really be true unless prev == SCM_BOOL_F */
if (gh_pair_p (prev) && gh_pair_p (ly_cdr (prev)))
/* If an accidental was not found or the accidental was too old */
if (prev == SCM_BOOL_F ||
(gh_number_p (lazyness) && curbarnum_i > accbarnum_i + gh_scm2int (lazyness)))
- prev = gh_assoc (scm_int2num (n), sig);
+ prev = scm_assoc (scm_int2num (n), sig);
SCM prev_acc = (prev == SCM_BOOL_F) ? scm_int2num (0) : ly_cdr (prev);
if (ignore_octave_b)
prev = ly_assoc_cdr (scm_int2num (notename), key_signature);
else
- prev = gh_assoc (gh_cons (scm_int2num (octave), scm_int2num (notename)),
+ prev = scm_assoc (gh_cons (scm_int2num (octave), scm_int2num (notename)),
key_signature);
/* should really be true unless prev == SCM_BOOL_F */
/* If an accidental was not found */
if (prev == SCM_BOOL_F)
- prev = gh_assoc (scm_int2num (notename), key_signature);
+ prev = scm_assoc (scm_int2num (notename), key_signature);
SCM prev_acc = (prev == SCM_BOOL_F) ? scm_int2num (0) : ly_cdr (prev);
int sig_alteration = gh_number_p (prev_acc) ? gh_scm2int (prev_acc) : 0;
}
/* second guess: property generic time exception */
- SCM m = gh_assoc (gh_append3 (function, wild, time), settings);
+ SCM m = scm_assoc (gh_append3 (function, wild, time), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
/* third guess: property time exception, specific for duration type */
- m = gh_assoc (gh_append3 (function, type, time), settings);
+ m = scm_assoc (gh_append3 (function, type, time), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
/* fourth guess [user override]: property plain generic */
- m = gh_assoc (gh_append3 (function, wild, wild), settings);
+ m = scm_assoc (gh_append3 (function, wild, wild), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
/* fifth guess [user override]: property plain, specific for duration type */
- m = gh_assoc (gh_append3 (function, type, wild), settings);
+ m = scm_assoc (gh_append3 (function, type, wild), settings);
if (m != SCM_BOOL_F && unsmob_moment (ly_cdr (m)))
moment = * unsmob_moment (ly_cdr (m));
if (d == START)
evs_drul_[d] = m;
else if (d==STOP)
- now_stop_ev_ = m;
-
+ {
+ now_stop_ev_ = m;
+ }
return true;
}
return false;
beam_ = 0;
beam_info_ = 0;
typeset_beam();
+
+ if (to_boolean (get_property ("automaticMelismata"))
+ && !to_boolean (get_property ("autoBeaming")))
+ {
+ set_melisma (false);
+ }
}
}
if (val == SCM_EOL || val == SCM_BOOL_F)
return ok;
-
- SCM type = SCM_EOL;
+ if (!gh_symbol_p (sym))
+#if 0
+ return false;
+#else
+ /*
+ This is used for autoBeamSettings.
- if (gh_symbol_p (sym))
- type = scm_object_property (sym, type_symbol);
+ TODO: deprecate the use of \override and \revert for
+ autoBeamSettings?
+ */
+ return true;
+#endif
+
+ SCM type = scm_object_property (sym, type_symbol);
if (type != SCM_EOL && !gh_procedure_p (type))
{
music_iter_->report_to() might not be the context that sets the
melisma properties, but rather a parent context.
*/
- return music_iter_->try_music (melisma_playing_req);
+ return music_iter_->try_music (melisma_playing_req);
#endif
}
protected:
virtual void stop_translation_timestep ();
virtual bool try_music (Music *);
- virtual void process_acknowledged_grobs ();
+ virtual void process_music ();
virtual void start_translation_timestep ();
public:
}
void
-Lyric_engraver::process_acknowledged_grobs ()
+Lyric_engraver::process_music ()
{
if (req_)
{
We can't reach the notehead where we're centered from here. So
we kludge.
- (UGH UGH, pulled amount of space out of thin air)
+ (UGH UGH, pulled amount of space out of thin air)
*/
text_->translate_axis (0.66, X_AXIS);
- announce_grob(text_, req_->self_scm());
- req_ = 0;
+ announce_grob (text_, req_->self_scm());
}
}
if (ignore_octave_b)
prev = ly_assoc_cdr (gh_int2scm (n), sig);
else
- prev = gh_assoc (gh_cons (gh_int2scm (o), gh_int2scm (n)), sig);
+ prev = scm_assoc (gh_cons (gh_int2scm (o), gh_int2scm (n)), sig);
/* should really be true unless prev == SCM_BOOL_F */
if (gh_pair_p (prev) && gh_pair_p (ly_cdr (prev)))
/* If an accidental was not found or the accidental was too old */
if (prev == SCM_BOOL_F ||
(gh_number_p (lazyness) && curbarnum_i > accbarnum_i + gh_scm2int (lazyness)))
- prev = gh_assoc (gh_int2scm (n), sig);
+ prev = scm_assoc (gh_int2scm (n), sig);
SCM prev_acc = (prev == SCM_BOOL_F) ? gh_int2scm (0) : ly_cdr (prev);
SCM list_p = 0;
+/*
+ This is a rather crude check: we merely check if the translator
+ property is a list.
+ */
bool
check_grob(Music *mus, SCM sym)
{
this->property_ops_);
}
+
+
/*
Do it. SYM is single symbol. VAL is SCM_UNDEFINED in case of a pop
*/
systemStartDelimiter =#'SystemStartBar
- %% name, glyph id, clef position
- %% where is c0 in this clef?
clefGlyph = #"clefs-G"
clefPosition = #-2
centralCPosition = #-6
explicitClefVisibility = #all-visible
explicitKeySignatureVisibility = #all-visible
- autoBeamSettings = #auto-beam-settings
+ autoBeamSettings = #default-auto-beam-settings
autoBeaming = ##t
scriptDefinitions = #default-script-alist
%% One may change the strings tuning as following :
%% The lenght of the list must be equal to the number of string
-
- stringTunings = #guitar-tunings
+ stringTunings = #guitar-tunings
tablatureFormat = #fret-number-tablature-format
%%
/sbin/install-info %{_infodir}/lilypond.info.gz %{_infodir}/dir
%endif
-chkfontpath --add=%{_datadir}/lilypond/@TOPLEVEL_VERSION@/fonts/type1/
+# chkfontpath --add=%{_datadir}/lilypond/@TOPLEVEL_VERSION@/fonts/type1/
echo 'Please logout first before using LilyPond.'
fi
%endif
-chkfontpath --remove=%{_datadir}/share/lilypond/@TOPLEVEL_VERSION@/fonts/type1/
+# chkfontpath --remove=%{_datadir}/share/lilypond/@TOPLEVEL_VERSION@/fonts/type1/
%post documentation
;;; end beams with 16th notes each 1 4 note
;;; end beams with 32th notes each 1 8 note
-(define-public auto-beam-settings
+(define-public default-auto-beam-settings
`(
((end * * 3 2) . ,(ly:make-moment 1 2))
((end 1 16 3 2) . ,(ly:make-moment 1 4))
((end 1 16 12 8) . ,(ly:make-moment 3 8))
((end 1 32 12 8) . ,(ly:make-moment 1 8))
))
+
+
+(define (override-property-setting context context-prop setting value)
+ "Like the C++ code that executes \override, but without type
+checking. "
+
+ (ly:set-context-property context context-prop
+ (cons (cons setting value)
+ (ly:get-context-property context context-prop)
+ )
+ )
+ )
+
+(define (revert-property-setting context setting)
+ "Like the C++ code that executes \revert, but without type
+checking. "
+
+ (define (revert-assoc alist key)
+ "Return ALIST, with KEY removed. ALIST is not modified, instead
+a fresh copy of the list-head is made."
+ (cond
+ ((null? alist) '())
+ ((equal? (caar alist) key) (cdr alist))
+ (else (cons (car alist) (revert-assoc alist key)))
+ ))
+
+
+
+ (ly:set-context-property
+ context context-prop
+ (revert-assoc (ly:get-context-property context context-prop)
+ setting))
+ )
+
+(define-public (override-auto-beam-setting setting num den)
+ (ly:export
+ (context-spec-music
+ (make-apply-context (lambda (c)
+ (override-property-setting
+ c 'autoBeamSettings
+ setting (ly:make-moment num den))
+ ))
+ "Voice")
+ ))
+
+(define-public (revert-auto-beam-setting setting)
+ (ly:export
+ (context-spec-music
+ (make-apply-context (lambda (c)
+ (revert-property-setting
+ c 'autoBeamSettings
+ setting)))
+
+ "Voice")))
+
+
+
@omfdescription Programmer's reference of the LilyPond music engraving system
@omftype user's guide
@omflanguage English
-@omfcategory Music
+@omfcategory Applications|Publishing
@end ignore
cm
))
+(define-public (make-apply-context func)
+ (let*
+ (
+ (m (make-music-by-name 'ApplyContext))
+ )
+
+ (ly:set-mus-property! m 'procedure func)
+ m
+ ))
+
(define-public (make-sequential-music elts)
(let* ((m (make-music-by-name 'SequentialMusic)))
(ly:set-mus-property! m 'elements elts)
if is_fragment and not 'multiline' in opts:
opts.append ('singleline')
- if 'singleline' in opts:
+ if 'raggedright' in opts or 'singleline' in opts:
if not linewidth:
linewidth = 'raggedright = ##t'
if not indent:
projects / lilypond.git / commitdiff