\header {
lsrtags = "rhythms, editorial-annotations, chords, tweaks-and-overrides"
+ texidoces = "
+Las digitaciones y los números de cuerda aplicados a notas
+individuales evitan a las barras automáticamente, pero de forma
+predeterminada esto no es cierto para las digitaciones y números
+de cuerda que se aplican a notas concretas de acordes. El ejemplo
+siguiente muestra cómo se puede sobreescribir este comportamiento
+predeterminado:
+
+"
+ doctitlees = "Evitar colisiones entre digitaciones de acordes y barras de corchea"
+
texidoc = "
Fingerings and string numbers applied to individual notes will
automatically avoid beams, but this is not true by default for
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
\version "2.11.64"
\header {
- lsrtags = "expressive-marks, text"
-
texidoces = "
Este ejemplo proporciona una función para tipografiar un regulador
con texto por debajo, como \"molto\" o \"poco\". El ejemplo
"
doctitlees = "Centrar texto debajo de un regulador"
+ lsrtags = "expressive-marks, text"
+
texidoc = "
This example provides a function to typeset a hairpin (de)crescendo
with some additional text below it, such as \"molto\" or \"poco\". The
example also illustrates how to modify the way an object is normally
-printed, using some Scheme code.
-
+printed, using some Scheme code.
"
doctitle = "Center text below hairpin dynamics"
} % begin verbatim
-hairpinWithCenteredText = #(define-music-function (parser location text) (markup?)
+
+hairpinWithCenteredText =
+#(define-music-function (parser location text) (markup?)
#{
\override Voice.Hairpin #'stencil = #(lambda (grob)
- (ly:stencil-aligned-to
- (ly:stencil-combine-at-edge
- (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
- Y DOWN
- (ly:stencil-aligned-to (ly:text-interface::print grob) X CENTER))
- X LEFT))
- \override Voice.Hairpin #'text = $text
+ (ly:stencil-aligned-to
+ (ly:stencil-combine-at-edge
+ (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
+ Y DOWN
+ (ly:stencil-aligned-to (grob-interpret-markup grob $text) X CENTER))
+ X LEFT))
#})
hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
\version "2.11.64"
texidoc = "
The @code{\\applyOutput} command allows the tuning of any layout
-object, in any context. It requires a Scheme function with three
-arguments.
+object, in any context. It requires a Scheme function with three
+arguments."
-"
doctitle = "Changing properties for individual grobs"
} % begin verbatim
-\layout {
- ragged-right = ##t
-}
#(define (mc-squared grob grob-origin context)
(let*
- (
- (ifs (ly:grob-interfaces grob))
- (sp (ly:grob-property grob 'staff-position))
- )
- (if (memq 'note-head-interface ifs)
- (begin
- (ly:grob-set-property! grob 'stencil ly:text-interface::print)
- (ly:grob-set-property! grob 'font-family 'roman)
- (ly:grob-set-property! grob 'text
- (make-raise-markup -0.5
- (case sp
- ((-5) (make-simple-markup "m"))
- ((-3) (make-simple-markup "c "))
- ((-2) (make-smaller-markup (make-bold-markup "2")))
- (else (make-simple-markup "bla"))
- ))))
- )))
+ (
+ (ifs (ly:grob-interfaces grob))
+ (sp (ly:grob-property grob 'staff-position))
+ )
+ (if (memq 'note-head-interface ifs)
+ (begin
+ (ly:grob-set-property! grob 'stencil
+ (grob-interpret-markup grob
+ (make-lower-markup 0.5
+ (case sp
+ ((-5) "m")
+ ((-3) "c ")
+ ((-2) (make-smaller-markup (make-bold-markup "2")))
+ (else "bla")
+ ))))
+ ))))
\relative c' {
<d f g b>2
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
\version "2.11.64"
\header {
- lsrtags = "rhythms"
-
doctitlees = "Indicaciones de compases compuestos"
texidoces = "
Las indicaciones de compás poco frecuentes como \"5/8\" se pueden
"
doctitlede = "Zusammengesetzte Taktarten"
+ lsrtags = "rhythms"
texidoc = "
Odd 20th century time signatures (such as \"5/8\") can often be played
as compound time signatures (e.g. \"3/8 + 2/8\"), which combine two or
doctitle = "Compound time signatures"
} % begin verbatim
-#(define (compound-time one two num)
- (markup #:override '(baseline-skip . 0) #:number
- (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))))
- ))
-\relative {
- \override Staff.TimeSignature #'stencil = #ly:text-interface::print
- \override Staff.TimeSignature #'text = #(compound-time "2" "3" "8")
+#(define ((compound-time one two num) grob)
+ (grob-interpret-markup grob
+ (markup #:override '(baseline-skip . 0) #:number
+ (#:line (
+ (#:column (one num))
+ #:vcenter "+"
+ (#:column (two num))))
+ )))
+
+\relative c' {
+ \override Staff.TimeSignature #'stencil = #(compound-time "2" "3" "8")
\time 5/8
#(override-auto-beam-setting '(end 1 8 5 8) 1 4)
c8 d e fis gis
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
\version "2.11.64"
doctitle = "Flute slap notation"
} % begin verbatim
+
slap =
#(define-music-function (parser location music) (ly:music?)
-#{\override NoteHead #'stencil = #ly:text-interface::print
- \override NoteHead #'text = \markup \musicglyph #"scripts.sforzato"
- \override NoteHead #'extra-offset = #'(0.1 . 0.0 )
+#{
+ \override NoteHead #'stencil = #(lambda (grob)
+ (grob-interpret-markup grob
+ (markup #:musicglyph "scripts.sforzato")))
+ \override NoteHead #'extra-offset = #'(0.1 . 0.0)
$music
\revert NoteHead #'stencil
- \revert NoteHead #'text
- \revert NoteHead #'extra-offset #})
+ \revert NoteHead #'extra-offset
+#})
\relative c' {
- c \slap c d r \slap { g a } b r
+ c4 \slap c d r \slap { g a } b r
}
-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
\version "2.11.64"
doctitle = "Heavily customized polymetric time signatures"
} % begin verbatim
-#(define (set-time-signature one two three four five six seven eight nine ten
- eleven num)
- (markup #:override '(baseline-skip . 0) #:number
- (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))
- #:vcenter "+" (#:column (three num)) #:vcenter "+" (#:column (four num))
- #:vcenter "+" (#:column (five num)) #:vcenter "+" (#:column (six num))
- #:vcenter "+" (#:column (seven num)) #:vcenter "+" (#:column (eight num))
- #:vcenter "+" (#:column (nine num)) #:vcenter "+" (#:column (ten num))
- #:vcenter "+" (#:column (eleven num))))
- ))
+#(define plus (markup #:vcenter "+"))
+#(define ((custom-time-signature one two three four five six
+ seven eight nine ten eleven num) grob)
+ (grob-interpret-markup grob
+ (markup #:override '(baseline-skip . 0) #:number
+ (#:line (
+ (#:column (one num)) plus
+ (#:column (two num)) plus
+ (#:column (three num)) plus
+ (#:column (four num)) plus
+ (#:column (five num)) plus
+ (#:column (six num)) plus
+ (#:column (seven num)) plus
+ (#:column (eight num)) plus
+ (#:column (nine num)) plus
+ (#:column (ten num)) plus
+ (#:column (eleven num))))
+ )))
melody = \relative c'' {
\set Staff.instrumentName = #"Bb Sop."
\key g \major
- \time 25/8
- \override Staff.TimeSignature #'stencil = #ly:text-interface::print
- \override Staff.TimeSignature #'text = #(set-time-signature "3" "2" "2" "3"
- "2" "2" "2" "2" "3" "2" "2" "8" )
- \set Staff.beatGrouping = #'(3 2 2 3 2 2 2 2 3 2 2)
- #(override-auto-beam-setting '(end * * 25 8) 3 8)
- #(override-auto-beam-setting '(end * * 25 8) 5 8)
- #(override-auto-beam-setting '(end * * 25 8) 7 8)
- #(override-auto-beam-setting '(end * * 25 8) 10 8)
- #(override-auto-beam-setting '(end * * 25 8) 12 8)
- #(override-auto-beam-setting '(end * * 25 8) 14 8)
- #(override-auto-beam-setting '(end * * 25 8) 16 8)
- #(override-auto-beam-setting '(end * * 25 8) 18 8)
- #(override-auto-beam-setting '(end * * 25 8) 21 8)
- #(override-auto-beam-setting '(end * * 25 8) 23 8)
-
+ #(set-time-signature 25 8 '(3 2 2 3 2 2 2 2 3 2 2))
+ \override Staff.TimeSignature #'stencil =
+ #(custom-time-signature "3" "2" "2" "3" "2" "2"
+ "2" "2" "3" "2" "2" "8")
c8 c c d4 c8 c b c b a4 g fis8 e d c b' c d e4-^ fis8 g \break
c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4
c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
@code{octave} specifies the octave (0 being the octave from middle C to
the B above), @code{step} specifies the note within the octave (0 means
C and 6 means B), and @code{alter} is @code{,SHARP ,FLAT ,DOUBLE-SHARP}
-etc. (Note the leading comma.)
+etc. (Note the leading comma.) The accidentals in the key signature
+will appear in the reverse order to that in which they are specified.
Alternatively, for each item in the list, using the more concise format
}
}
-\relative c {
- \set Score.timing = ##f
+\new Staff \relative c {
+ \cadenzaOn
\override Staff.Rest #'style = #'mensural
r\maxima^\markup \typewriter { mensural }
- r\longa r\breve r1 r2 r4 r8 r16 r32 r64 s128 s128
+ r\longa r\breve r1 r2 r4 r8 r16 s32 s64 s128 s128
\bar ""
\override Staff.Rest #'style = #'neomensural
r\maxima^\markup \typewriter { neomensural }
- r\longa r\breve r1 r2 r4 r8 r16 r32 r64 s128 s128
+ r\longa r\breve r1 r2 r4 r8 r16 s32 s64 s128 s128
\bar ""
\override Staff.Rest #'style = #'classical
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
+%% This file is in the public domain.
+\version "2.11.64"
+
+\header {
+ lsrtags = "text"
+
+ texidoc = "
+Stand-alone text may be arranged in several columns using
+@code{\\markup} commands:
+
+"
+ doctitle = "Stand-alone two-column markup"
+} % begin verbatim
+
+\markup {
+ \fill-line {
+ \hspace #1.0
+ \column {
+ \line {"O sacrum convivium" }
+ \line {"in quo Christus sumitur," }
+ \line {"recolitur memoria passionis ejus," }
+ \line {"mens impletur gratia," }
+ \line {"futurae gloriae nobis pignus datur." }
+ \line {"Amen."}
+ }
+ \hspace #2
+ \column {
+ \line { \italic {"O sacred feast"} }
+ \line { \italic {"in which Christ is received,"} }
+ \line { \italic {"the memory of His Passion is renewed,"} }
+ \line { \italic {"the mind is filled with grace," } }
+ \line { \italic {"and a pledge of future glory is given to us." }}
+ \line { \italic {"Amen."}}
+ }
+ \hspace #1.0
+ }
+}
+
piano-template-with-centered-lyrics.ly
printing-marks-at-the-end-of-a-line-or-a-score.ly
printing-marks-on-every-staff.ly
+stand-alone-two-column-markup.ly
three-sided-box.ly
utf-8.ly
vocal-ensemble-template-with-lyrics-aligned-below-and-above-the-staves.ly
--- /dev/null
+\version "2.11.64"
+
+\header {
+ lsrtags = "expressive-marks, text"
+
+ texidoc = "
+This example provides a function to typeset a hairpin (de)crescendo
+with some additional text below it, such as \"molto\" or \"poco\". The
+example also illustrates how to modify the way an object is normally
+printed, using some Scheme code.
+"
+ doctitle = "Center text below hairpin dynamics"
+}
+
+hairpinWithCenteredText =
+#(define-music-function (parser location text) (markup?)
+#{
+ \override Voice.Hairpin #'stencil = #(lambda (grob)
+ (ly:stencil-aligned-to
+ (ly:stencil-combine-at-edge
+ (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
+ Y DOWN
+ (ly:stencil-aligned-to (grob-interpret-markup grob $text) X CENTER))
+ X LEFT))
+#})
+
+hairpinMolto = \hairpinWithCenteredText \markup { \italic molto }
+hairpinMore = \hairpinWithCenteredText \markup { \larger moltissimo }
+
+\layout { ragged-right = ##f }
+
+{
+ \hairpinMolto c'2\< c'\f
+ \hairpinMore c'2\< c'\f
+}
--- /dev/null
+\version "2.11.64"
+
+\header {
+ lsrtags = "tweaks-and-overrides"
+
+ texidoc = "
+The @code{\\applyOutput} command allows the tuning of any layout
+object, in any context. It requires a Scheme function with three
+arguments."
+
+ doctitle = "Changing properties for individual grobs"
+}
+
+#(define (mc-squared grob grob-origin context)
+ (let*
+ (
+ (ifs (ly:grob-interfaces grob))
+ (sp (ly:grob-property grob 'staff-position))
+ )
+ (if (memq 'note-head-interface ifs)
+ (begin
+ (ly:grob-set-property! grob 'stencil
+ (grob-interpret-markup grob
+ (make-lower-markup 0.5
+ (case sp
+ ((-5) "m")
+ ((-3) "c ")
+ ((-2) (make-smaller-markup (make-bold-markup "2")))
+ (else "bla")
+ ))))
+ ))))
+
+\relative c' {
+ <d f g b>2
+ \applyOutput #'Voice #mc-squared
+ <d f g b>2
+}
--- /dev/null
+\version "2.11.64"
+
+\header {
+ lsrtags = "rhythms"
+ texidoc = "
+Odd 20th century time signatures (such as \"5/8\") can often be played
+as compound time signatures (e.g. \"3/8 + 2/8\"), which combine two or
+more inequal metrics. LilyPond can make such music quite easy to read
+and play, by explicitly printing the compound time signatures and
+adapting the automatic beaming behavior. (Graphic measure grouping
+indications can also be added; see the appropriate snippet in this
+database.)
+
+"
+ doctitle = "Compound time signatures"
+}
+
+#(define ((compound-time one two num) grob)
+ (grob-interpret-markup grob
+ (markup #:override '(baseline-skip . 0) #:number
+ (#:line (
+ (#:column (one num))
+ #:vcenter "+"
+ (#:column (two num))))
+ )))
+
+\relative c' {
+ \override Staff.TimeSignature #'stencil = #(compound-time "2" "3" "8")
+ \time 5/8
+ #(override-auto-beam-setting '(end 1 8 5 8) 1 4)
+ c8 d e fis gis
+ c8 fis, gis e d
+ c8 d e4 gis8
+}
--- /dev/null
+\version "2.11.64"
+
+\header {
+ lsrtags = "winds"
+
+ texidoc = "
+It is possible to indicate special articulation techniques such as
+flute's \"tongue slap\", by replacing the note head with the
+appropriate glyph.
+
+"
+ doctitle = "Flute slap notation"
+}
+
+slap =
+#(define-music-function (parser location music) (ly:music?)
+#{
+ \override NoteHead #'stencil = #(lambda (grob)
+ (grob-interpret-markup grob
+ (markup #:musicglyph "scripts.sforzato")))
+ \override NoteHead #'extra-offset = #'(0.1 . 0.0)
+ $music
+ \revert NoteHead #'stencil
+ \revert NoteHead #'extra-offset
+#})
+
+\relative c' {
+ c4 \slap c d r \slap { g a } b r
+}
--- /dev/null
+\version "2.11.64"
+
+\header {
+ lsrtags = "rhythms, percussion"
+
+ texidoc = "
+Though the polymetric time signature shown was not the most essential
+item here, it has been included to show the beat of this piece (which
+is the template of a real Balkan song!).
+
+"
+ doctitle = "Heavily customized polymetric time signatures"
+}
+
+#(define plus (markup #:vcenter "+"))
+#(define ((custom-time-signature one two three four five six
+ seven eight nine ten eleven num) grob)
+ (grob-interpret-markup grob
+ (markup #:override '(baseline-skip . 0) #:number
+ (#:line (
+ (#:column (one num)) plus
+ (#:column (two num)) plus
+ (#:column (three num)) plus
+ (#:column (four num)) plus
+ (#:column (five num)) plus
+ (#:column (six num)) plus
+ (#:column (seven num)) plus
+ (#:column (eight num)) plus
+ (#:column (nine num)) plus
+ (#:column (ten num)) plus
+ (#:column (eleven num))))
+ )))
+
+melody = \relative c'' {
+ \set Staff.instrumentName = #"Bb Sop."
+ \key g \major
+ #(set-time-signature 25 8 '(3 2 2 3 2 2 2 2 3 2 2))
+ \override Staff.TimeSignature #'stencil =
+ #(custom-time-signature "3" "2" "2" "3" "2" "2"
+ "2" "2" "3" "2" "2" "8")
+ c8 c c d4 c8 c b c b a4 g fis8 e d c b' c d e4-^ fis8 g \break
+ c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4
+ c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
+ c4. d4 c4 d4. c4 d c2 d4. e4-^ d4
+ c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 \break
+}
+
+drum = \new DrumStaff \drummode {
+ \bar "|:" bd4.^\markup { "Drums" } sn4 bd \bar ":" sn4.
+ bd4 sn \bar ":" bd sn bd4. sn4 bd \bar ":|"
+}
+
+{
+ \melody
+ \drum
+}
projects / lilypond.git / commitdiff