Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Conceptes fonamentals
@chapter Conceptes fonamentals
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Ajustament de la sortida
@chapter Ajustament de la sortida
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Pavel Fric
@node Základní pojmy
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = $padding
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Ladění výstupu
@chapter Ladění výstupu
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Till Paala
@example
function =
#(define-scheme-function
- (parser location @var{Arg1} @var{Arg2} @dots{})
+ (@var{Arg1} @var{Arg2} @dots{})
(@var{Typ1?} @var{Typ2?} @dots{})
@var{body})
@end example
@example
noPointAndClick =
#(define-void-function
- (parser location)
+ ()
()
(ly:set-option 'point-and-click #f))
...
@example
function =
#(define-music-function
- (parser location @var{Arg1} @var{Arg2} @dots{})
+ (@var{Arg1} @var{Arg2} @dots{})
(@var{Typ1?} @var{Typ2?} @dots{})
@var{body})
@end example
@example
manualBeam =
#(define-music-function
- (parser location beg-end)
+ (beg-end)
(pair?)
#@{
\once \override Beam.positions = #beg-end
@lilypond[quote,verbatim,ragged-right]
manualBeam =
#(define-music-function
- (parser location beg end)
+ (beg end)
(number? number?)
#{
\once \override Beam.positions = #(cons beg end)
@lilypond[quote,verbatim,ragged-right]
AltOn =
#(define-music-function
- (parser location mag)
+ (mag)
(number?)
#{
\override Stem.length = #(* 7.0 mag)
@lilypond[quote,verbatim,ragged-right]
withAlt =
#(define-music-function
- (parser location mag music)
+ (mag music)
(number? ly:music?)
#{
\override Stem.length = #(* 7.0 mag)
@example
displayBarNum =
#(define-music-function
- (parser location)
+ ()
()
(if (eq? #t (ly:get-option 'display-bar-numbers))
#@{ \once \override Score.BarNumber.break-visibility = ##f #@}
Dynamikbefehle zu schreiben:
@lilypond[quote,verbatim,ragged-right]
-dyn=#(define-event-function (parser location arg) (markup?)
+dyn=#(define-event-function (arg) (markup?)
(make-dynamic-script arg))
\relative { c'\dyn pfsss }
@end lilypond
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Scheme-Übung
@chapter Scheme-Übung
Element vor die @code{articulations}-Eigenschaft gesetzt wird.
@example
-doubleSlur = #(define-music-function (parser location note) (ly:music?)
+doubleSlur = #(define-music-function (note) (ly:music?)
"Return: @{ note ( note ) @}.
`note' is supposed to be a single note."
(let ((note2 (ly:music-deep-copy note)))
eine Deklaration des Typs ihres einzigen @qq{wirklichen} Arguments:
@example
-addAccent = #(define-music-function (parser location note-event)
+addAccent = #(define-music-function (note-event)
(ly:music?)
"Add an accent ArticulationEvent to the articulations of `note-event',
which is supposed to be a NoteEvent expression."
@lilypond[quote,verbatim,ragged-right]
-padText = #(define-music-function (parser location padding) (number?)
+padText = #(define-music-function (padding) (number?)
#{
\once \override TextScript.padding = #padding
#})
@c It is - 'padding still works
@lilypond[quote,verbatim,ragged-right]
-tempoPadded = #(define-music-function (parser location padding tempotext)
+tempoPadded = #(define-music-function (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Sogar ganze Musikausdrücke können eingefügt werden:
@lilypond[quote,verbatim,ragged-right]
-pattern = #(define-music-function (parser location x y) (ly:music? ly:music?)
+pattern = #(define-music-function (x y) (ly:music? ly:music?)
#{
#x e8 a b $y b a e
#})
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Till Paala, Reinhold Kainhofer
@node Grundbegriffe
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Die Ausgabe verändern
@chapter Die Ausgabe verändern
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Till Paala
@example
Funktion =
#(define-music-function
- (parser location @var{Arg1} @var{Arg2} @dots{})
+ (@var{Arg1} @var{Arg2} @dots{})
(@var{Typ1?} @var{Typ2?} @dots{})
#@{
@var{@dots{}Noten@dots{}}
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
@lilypond[quote,verbatim,ragged-right]
custosNote =
#(define-music-function
- (parser location note)
+ (note)
(ly:music?)
#{
\tweak NoteHead.stencil #ly:text-interface::print
@lilypond[quote,verbatim,ragged-right]
tempoPadded =
#(define-music-function
- (parser location padding tempotext)
+ (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Till Paala
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
@end verbatim
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
\book {
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Till Paala
die den Versetzungszeichenstil kurzzeitig auf @code{forget} umschaltet:
@lilypond[verbatim,quote]
-forget = #(define-music-function (parser location music) (ly:music?) #{
+forget = #(define-music-function (music) (ly:music?) #{
\accidentalStyle forget
#music
\accidentalStyle modern
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Till Paala
}
labelContext =
#(define-music-function
- (parser location context)
+ (context)
(string?)
#{ s1*0^\markup { \typewriter #context } #})
version that you are working on. See TRANSLATION for details.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Interfaces para programadores
@chapter Interfaces para programadores
He aquí un ejemplo trivial:
@lilypond[verbatim,quote]
-ritpp = #(define-event-function (parser location) ()
+ritpp = #(define-event-function () ()
#{ ^"rit." \pp #}
)
@example
funcion =
#(define-scheme-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{tipo1?} @var{tipo2?} @dots{})
@var{cuerpo})
@end example
@example
noApuntarYPulsar =
#(define-void-function
- (parser location)
+ ()
()
(ly:set-option 'point-and-click #f))
@dots{}
@example
funcion =
#(define-music-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{tipo1?} @var{tipo2?} @dots{})
@var{cuerpo})
@end example
@example
barraManual =
#(define-music-function
- (parser location principio-final)
+ (principio-final)
(pair?)
#@{
\once \override Beam.positions = #principio-final
@lilypond[quote,verbatim,ragged-right]
manualBeam =
#(define-music-function
- (parser location beg end)
+ (beg end)
(number? number?)
#{
\once \override Beam.positions = #(cons beg end)
@example
crossStaff =
-#(define-music-function (parser location notes) (ly:music?)
+#(define-music-function (notes) (ly:music?)
(_i "Create cross-staff stems")
#@{
\temporary \override Stem.cross-staff = #cross-staff-connect
@lilypond[quote,verbatim,ragged-right]
AltOn =
#(define-music-function
- (parser location mag)
+ (mag)
(number?)
#{
\override Stem.length = #(* 7.0 mag)
@lilypond[quote,verbatim,ragged-right]
withAlt =
#(define-music-function
- (parser location mag music)
+ (mag music)
(number? ly:music?)
#{
\override Stem.length = #(* 7.0 mag)
@example
mostrarNumeroDeCompas =
#(define-music-function
- (parser location)
+ ()
()
(if (eq? #t (ly:get-option 'display-bar-numbers))
#@{ \once \override Score.BarNumber.break-visibility = ##f #@}
una forma de escribir indicaciones dinámicas arbitrarias:
@lilypond[quote,verbatim,ragged-right]
-dyn=#(define-event-function (parser location arg) (markup?)
+dyn=#(define-event-function (arg) (markup?)
(make-dynamic-script arg))
\relative { c'\dyn pfsss }
@end lilypond
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Tutorial de Scheme
@appendix Tutorial de Scheme
@example
-doubleSlur = #(define-music-function (parser location note) (ly:music?)
+doubleSlur = #(define-music-function (note) (ly:music?)
"Return: @{ note ( note ) @}.
`note' is supposed to be a single note."
(let ((note2 (ly:music-deep-copy note)))
declaración del tipo de su único argumento @q{real}).
@example
-addAccent = #(define-music-function (parser location note-event)
+addAccent = #(define-music-function (note-event)
(ly:music?)
"Add an accent ArticulationEvent to the articulations of `note-event',
which is supposed to be a NoteEvent expression."
@ignore
@lilypond[quote,verbatim,ragged-right]
-padText = #(define-music-function (parser location padding) (number?)
+padText = #(define-music-function (padding) (number?)
#{
\once \override TextScript.padding = #padding
#})
@lilypond[quote,verbatim,ragged-right]
-tempoPadded = #(define-music-function (parser location padding tempotext)
+tempoPadded = #(define-music-function (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Incluso se le pueden pasar expresiones musicales:
@lilypond[quote,verbatim,ragged-right]
-pattern = #(define-music-function (parser location x y) (ly:music? ly:music?)
+pattern = #(define-music-function (x y) (ly:music? ly:music?)
#{
#x e8 a b #y b a e
#})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Conceptos fundamentales
@chapter Conceptos fundamentales
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Trucar la salida
@chapter Trucar la salida
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Cambiar los valores por omisión
@chapter Cambiar los valores por omisión
@example
funcion =
#(define-music-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{type1?} @var{type2?} @dots{})
#@{
@var{@dots{}música@dots{}}
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
@lilypond[quote,verbatim,ragged-right]
custosNote =
#(define-music-function
- (parser location note)
+ (note)
(ly:music?)
#{
\tweak NoteHead.stencil #ly:text-interface::print
@lilypond[quote,verbatim,ragged-right]
tempoPadded =
#(define-music-function
- (parser location padding tempotext)
+ (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Entrada y salida generales
@chapter Entrada y salida generales
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
@end verbatim
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
\book {
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Alturas
cambie localmente el estilo de alteraciones a @code{forget}:
@lilypond[verbatim,quote]
-forget = #(define-music-function (parser location music) (ly:music?) #{
+forget = #(define-music-function (music) (ly:music?) #{
\accidentalStyle forget
#music
\accidentalStyle modern
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@ignore
GDP TODO list
}
labelContext =
#(define-music-function
- (parser location context)
+ (context)
(string?)
#{ s1*0^\markup { \upright {\typewriter #context } } #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Interfaces for programmers
@chapter Interfaces for programmers
Here is a trivial example:
@lilypond[verbatim,quote]
-ritpp = #(define-event-function (parser location) ()
+ritpp = #(define-event-function () ()
#{ ^"rit." \pp #}
)
@example
function =
#(define-scheme-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{type1?} @var{type2?} @dots{})
@var{body})
@end example
@example
noPointAndClick =
#(define-void-function
- (parser location)
+ ()
()
(ly:set-option 'point-and-click #f))
@dots{}
@example
function =
#(define-music-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{type1?} @var{type2?} @dots{})
@var{body})
@end example
@example
manualBeam =
#(define-music-function
- (parser location beg-end)
+ (beg-end)
(pair?)
#@{
\once \override Beam.positions = #beg-end
@lilypond[quote,verbatim,ragged-right]
manualBeam =
#(define-music-function
- (parser location beg end)
+ (beg end)
(number? number?)
#{
\once \override Beam.positions = #(cons beg end)
@example
crossStaff =
-#(define-music-function (parser location notes) (ly:music?)
+#(define-music-function (notes) (ly:music?)
(_i "Create cross-staff stems")
#@{
\temporary \override Stem.cross-staff = #cross-staff-connect
@lilypond[quote,verbatim,ragged-right]
AltOn =
#(define-music-function
- (parser location mag)
+ (mag)
(number?)
#{
\override Stem.length = #(* 7.0 mag)
@lilypond[quote,verbatim,ragged-right]
withAlt =
#(define-music-function
- (parser location mag music)
+ (mag music)
(number? ly:music?)
#{
\override Stem.length = #(* 7.0 mag)
@example
displayBarNum =
#(define-music-function
- (parser location)
+ ()
()
(if (eq? #t (ly:get-option 'display-bar-numbers))
#@{ \once \override Score.BarNumber.break-visibility = ##f #@}
indicator, like @code{c'\pp}. Here is a way to write arbitrary
dynamics:
@lilypond[quote,verbatim,ragged-right]
-dyn=#(define-event-function (parser location arg) (markup?)
+dyn=#(define-event-function (arg) (markup?)
(make-dynamic-script arg))
\relative { c'\dyn pfsss }
@end lilypond
@lilypond[quote,verbatim]
desaturate =
#(define-music-function
- (parser location music) (ly:music?)
+ (music) (ly:music?)
#{
\applyContext
#(lambda (context)
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Scheme tutorial
@chapter Scheme tutorial
put another element at the front of the @code{articulations} property.
@example
-doubleSlur = #(define-music-function (parser location note) (ly:music?)
+doubleSlur = #(define-music-function (note) (ly:music?)
"Return: @{ note ( note ) @}.
`note' is supposed to be a single note."
(let ((note2 (ly:music-deep-copy note)))
of its sole @q{real} argument).
@example
-addAccent = #(define-music-function (parser location note-event)
+addAccent = #(define-music-function (note-event)
(ly:music?)
"Add an accent ArticulationEvent to the articulations of `note-event',
which is supposed to be a NoteEvent expression."
@ignore
@lilypond[quote,verbatim,ragged-right]
-padText = #(define-music-function (parser location padding) (number?)
+padText = #(define-music-function (padding) (number?)
#{
\once \override TextScript.padding = #padding
#})
@lilypond[quote,verbatim,ragged-right]
-tempoPadded = #(define-music-function (parser location padding tempotext)
+tempoPadded = #(define-music-function (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Even music expressions can be passed in:
@lilypond[quote,verbatim,ragged-right]
-pattern = #(define-music-function (parser location x y) (ly:music? ly:music?)
+pattern = #(define-music-function (x y) (ly:music? ly:music?)
#{
#x e8 a b #y b a e
#})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Valentin Villenave, Jean-Charles Malahieude
@c Translation checkers: Gilles Thibault
En voici un exemple basique :
@lilypond[verbatim,quote]
-ritpp = #(define-event-function (parser location) ()
+ritpp = #(define-event-function () ()
#{ ^"rit." \pp #}
)
@example
fonction =
#(define-scheme-function
- (parser location @var{arg1} @var{arg2}@dots{})
+ (@var{arg1} @var{arg2}@dots{})
(@var{type1?} @var{type2?}@dots{})
@var{corps})
@end example
@example
noPointAndClick =
#(define-void-function
- (parser location)
+ ()
()
(ly:set-option 'point-and-click #f))
@dots{}
@example
fonction =
#(define-music-function
- (parser location @var{arg1} @var{arg2}@dots{})
+ (@var{arg1} @var{arg2}@dots{})
(@var{type1?} @var{type2?}@dots{})
@var{corps})
@end example
@example
manualBeam =
#(define-music-function
- (parser location beg-end)
+ (beg-end)
(pair?)
#@{
\once \override Beam.positions = #beg-end
@lilypond[quote,verbatim,ragged-right]
manualBeam =
#(define-music-function
- (parser location beg end)
+ (beg end)
(number? number?)
#{
\once \override Beam.positions = #(cons beg end)
@example
crossStaff =
-#(define-music-function (parser location notes) (ly:music?)
+#(define-music-function (notes) (ly:music?)
(_i "Create cross-staff stems")
#@{
\temporary \override Stem.cross-staff = #cross-staff-connect
@lilypond[quote,verbatim,ragged-right]
AltOn =
#(define-music-function
- (parser location mag)
+ (mag)
(number?)
#{
\override Stem.length = #(* 7.0 mag)
@lilypond[quote,verbatim,ragged-right]
withAlt =
#(define-music-function
- (parser location mag music)
+ (mag music)
(number? ly:music?)
#{
\override Stem.length = #(* 7.0 mag)
@example
displayBarNum =
#(define-music-function
- (parser location)
+ ()
()
(if (eq? #t (ly:get-option 'display-bar-numbers))
#@{ \once \override Score.BarNumber.break-visibility = ##f #@}
quelle nuance :
@lilypond[quote,verbatim,ragged-right]
-dyn=#(define-event-function (parser location arg) (markup?)
+dyn=#(define-event-function (arg) (markup?)
(make-dynamic-script arg))
\relative { c'\dyn pfsss }
@end lilypond
@lilypond[quote,verbatim]
desaturate =
#(define-music-function
- (parser location music) (ly:music?)
+ (music) (ly:music?)
#{
\applyContext
#(lambda (context)
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Jean-Charles Malahieude
élément en tête de la propriété @code{articulations}.
@example
-doubleSlur = #(define-music-function (parser location note) (ly:music?)
+doubleSlur = #(define-music-function (note) (ly:music?)
"Renvoie : @{ note ( note ) @}.
`note' est censé être une note unique."
(let ((note2 (ly:music-deep-copy note)))
type de son unique argument « réel ».
@example
-ajouteAccent = #(define-music-function (parser location note-event)
+ajouteAccent = #(define-music-function (note-event)
(ly:music?)
"Ajoute un accent (ArticulationEvent) aux articulations de `note-event',
qui est censé être une expression NoteEvent."
@ignore
@lilypond[quote,verbatim,ragged-right]
-padText = #(define-music-function (parser location padding) (number?)
+padText = #(define-music-function (padding) (number?)
#{
\once \override TextScript.padding = #padding
#})
@lilypond[quote,verbatim,ragged-right]
-tempoPadded = #(define-music-function (parser location padding tempotext)
+tempoPadded = #(define-music-function (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Even music expressions can be passed in:
@lilypond[quote,verbatim,ragged-right]
-pattern = #(define-music-function (parser location x y) (ly:music? ly:music?)
+pattern = #(define-music-function (x y) (ly:music? ly:music?)
#{
#x e8 a b $y b a e
#})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Valentin Villenave, Jean-Charles Malahieude
@c Translation checkers: John Mandereau
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Valentin Villenave, Nicolas Klutchnikoff, Damien Heurtebise
@c Translation checkers: Jean-Charles Malahieude, John Mandereau
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Valentin Villenave, Jean-Charles Malahieude
@c Translation checkers: Gilles Thibault
@example
fonction =
#(define-music-function
- (parser location @var{arg1} @var{arg2}@dots{})
+ (@var{arg1} @var{arg2}@dots{})
(@var{type1?} @var{type2?}@dots{})
#@{
@var{@dots{}musique@dots{}}
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
@lilypond[quote,verbatim,ragged-right]
custosNote =
#(define-music-function
- (parser location note)
+ (note)
(ly:music?)
#{
\tweak NoteHead.stencil #ly:text-interface::print
@lilypond[quote,verbatim,ragged-right]
tempoPadded =
#(define-music-function
- (parser location padding tempotext)
+ (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Jean-Charles Malahieude, Valentin Villenave
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
@end verbatim
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
\book {
Guide, node Updating translation committishes.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Frédéric Chiasson
@c Translation checkers: Valentin Villenave, Jean-Charles Malahieude
@code{forget}, permet d'obtenir quelque chose de présentable.
@lilypond[verbatim,quote]
-forget = #(define-music-function (parser location music) (ly:music?) #{
+forget = #(define-music-function (music) (ly:music?) #{
\accidentalStyle forget
#music
\accidentalStyle modern
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Frédéric Chiasson, Jean-Charles Malahieude
}
labelContext =
#(define-music-function
- (parser location context)
+ (context)
(string?)
#{ s1*0^\markup { \upright {\typewriter #context } } #})
@c Translators: Griechisch Erika, Harmath Dénes
@c -*- coding: utf-8; mode: texinfo; -*-
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Alapfogalmak
@chapter Alapfogalmak
@translationof Fundamental concepts
@lilypond[quote,verbatim,ragged-right]
padText =
-#(define-music-function (parser location padding) (number?)
+#(define-music-function (padding) (number?)
#{
\once \override TextScript.padding = #padding
#})
-\version "2.17.11"
+\version "2.19.22"
#(define (filter-instrument instrument-name tuning-alist)
(filter (lambda (entry)
pitches)))))
displayInstrumentDefaultTunings =
-#(define-music-function (parser location instrument) (string?)
+#(define-music-function (instrument) (string?)
(let* ((filtered-instruments (filter-instrument instrument defaultStringTunings))
(display-elements (map chord-display filtered-instruments)))
(make-music 'SequentialMusic 'elements display-elements)))
-\version "2.17.30"
+\version "2.19.22"
\header {
texidoc ="@cindex Feta scripts
scriptStaff =
-#(define-music-function (parser location scripts) (list?)
+#(define-music-function (scripts) (list?)
(make-scripts-staff scripts))
scriptStaffAncient =
-#(define-music-function (parser location scripts) (list?)
+#(define-music-function (scripts) (list?)
(make-scripts-staff-ancient scripts))
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Concetti fondamentali
@chapter Concetti fondamentali
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Modifica dell'output
@chapter Modifica dell'output
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Federico Bruni
@c Translation checkers: Luca Rossetto Casel
imposti localmente lo stile delle alterazioni su @code{forget}:
@lilypond[verbatim,quote]
-forget = #(define-music-function (parser location music) (ly:music?) #{
+forget = #(define-music-function (music) (ly:music?) #{
\accidentalStyle forget
#music
\accidentalStyle modern
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Yoshiki Sawada
@c Translation status: post-GDP
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Yoshiki Sawada
@c Translation status: post-GDP
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Yoshiki Sawada
@c Translation status: post-GDP
@example
function =
#(define-music-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{type1?} @var{type2?} @dots{})
#@{
@var{@dots{}music@dots{}}
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = $padding
@lilypond[quote,verbatim,ragged-right]
custosNote =
#(define-music-function
- (parser location note)
+ (note)
(ly:music?)
#{
\tweak NoteHead.stencil #ly:text-interface::print
@lilypond[quote,verbatim,ragged-right]
tempoPadded =
#(define-music-function
- (parser location padding tempotext)
+ (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = $padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Yoshiki Sawada
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
@end verbatim
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
\book {
version that you are working on. See TRANSLATION for details.
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Yoshiki Sawada
@c Translation status: post-GDP
局部的に臨時記号スタイルを @code{forget} に変更する関数を定義します:
@lilypond[verbatim,quote]
-forget = #(define-music-function (parser location music) (ly:music?) #{
+forget = #(define-music-function (music) (ly:music?) #{
\accidentalStyle forget
#music
\accidentalStyle modern
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@c Translators: Yoshiki Sawada
}
labelContext =
#(define-music-function
- (parser location context)
+ (context)
(string?)
#{ s1*0^\markup { \typewriter #context } #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Fundamental concepts
@chapter Fundamental concepts
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Tweaking output
@chapter Tweaking output
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
-\version "2.19.21"
+\version "2.19.22"
\include "example-header.ily"
\paper {
}
%%%%%%%%% MACRO FOR MAKING SLASHES THROUGH STEMS %%%%%%%%%%
-MakeSlash = #(define-music-function (parser location angle len-left len-right
+MakeSlash = #(define-music-function (angle len-left len-right
thick y-factor offset)
(number? number? number? number? number?
pair?)
-\version "2.19.12"
+\version "2.19.22"
\layout {
indent = #0
sffp = #(make-dynamic-script "sffp")
sffpp = #(make-dynamic-script "sffpp")
-beam = #(define-music-function (parser location left right) (number? number?)
+beam = #(define-music-function (left right) (number? number?)
(cond ((and (= left 0) (> right 0))
#{
\set stemRightBeamCount = #right
)
)
-fraction = #(define-music-function (parser location music) (ly:music?)
+fraction = #(define-music-function (music) (ly:music?)
#{ \tweak text #tuplet-number::calc-fraction-text #music #})
-triangle = #(define-music-function (parser location music) (ly:music?)
+triangle = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(do do do do do do do) #music #})
-semicircle = #(define-music-function (parser location music) (ly:music?)
+semicircle = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(re re re re re re re) #music #})
-blackdiamond = #(define-music-function (parser location music) (ly:music?)
+blackdiamond = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(mi mi mi mi mi mi mi) #music #})
-tiltedtriangle = #(define-music-function (parser location music) (ly:music?)
+tiltedtriangle = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(fa fa fa fa fa fa fa) #music #})
-square = #(define-music-function (parser location music) (ly:music?)
+square = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(la la la la la la la) #music #})
-wedge = #(define-music-function (parser location music) (ly:music?)
+wedge = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(ti ti ti ti ti ti ti) #music #})
-harmonic = #(define-music-function (parser location music) (ly:music?)
+harmonic = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) #music #})
-cross = #(define-music-function (parser location music) (ly:music?)
+cross = #(define-music-function (music) (ly:music?)
#{ \once \set shapeNoteStyles = ##(cross cross cross cross cross cross cross) #music #})
-white = #(define-music-function (parser location music) (ly:music?)
+white = #(define-music-function (music) (ly:music?)
#{ \once \override NoteHead.duration-log = #1 #music #})
@c Translation checker:
@c Translation checker committish:
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Fundamentele concepten
@translationof Fundamental concepts
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Tweaking output
@chapter Tweaking output
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
@end example
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#@{ <>^\markup \bold \box #string #@})
inst =
#(define-music-function
- (parser location string)
+ (string)
(string?)
#{ <>^\markup \bold \box #string #})
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Changing defaults
@chapter Changing defaults
@example
function =
#(define-music-function
- (parser location @var{arg1} @var{arg2} @dots{})
+ (@var{arg1} @var{arg2} @dots{})
(@var{type1?} @var{type2?} @dots{})
#@{
@var{@dots{}music@dots{}}
@lilypond[quote,verbatim,ragged-right]
padText =
#(define-music-function
- (parser location padding)
+ (padding)
(number?)
#{
\once \override TextScript.padding = #padding
@lilypond[quote,verbatim,ragged-right]
custosNote =
#(define-music-function
- (parser location note)
+ (note)
(ly:music?)
#{
\tweak NoteHead.stencil #ly:text-interface::print
@lilypond[quote,verbatim,ragged-right]
tempoPadded =
#(define-music-function
- (parser location padding tempotext)
+ (padding tempotext)
(number? markup?)
#{
\once \override Score.MetronomeMark.padding = #padding
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node General input and output
@chapter General input and output
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
@end verbatim
}
tocAct =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
(add-toc-item! 'tocActMarkup text))
\book {
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@node Pitches
the accidental style to @code{forget}:
@lilypond[verbatim,quote]
-forget = #(define-music-function (parser location music) (ly:music?) #{
+forget = #(define-music-function (music) (ly:music?) #{
\accidentalStyle forget
#music
\accidentalStyle modern
Guide, node Updating translation committishes..
@end ignore
-@c \version "2.19.21"
+@c \version "2.19.22"
@ignore
GDP TODO list
}
labelContext =
#(define-music-function
- (parser location context)
+ (context)
(string?)
#{ s1*0^\markup { \upright {\typewriter #context } } #})
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "scheme-language"
} % begin verbatim
addScript =
-#(define-music-function (parser location script music)
+#(define-music-function (script music)
(ly:event? ly:music?)
(map-some-music
(lambda (mus)
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "staff-notation, vocal-music"
cueWhile =
#(define-music-function
- (parser location instrument name dir music)
+ (instrument name dir music)
(string? string? ly:dir? ly:music?)
#{
\cueDuring $instrument #dir {
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "expressive-marks, really-cool, scheme-language, text"
} % begin verbatim
hairpinWithCenteredText =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
#{
\once \override Voice.Hairpin.after-line-breaking =
#(lambda (grob)
%
% This file is in the public domain.
%% Note: this file works from version 2.19.0
-\version "2.19.0"
+\version "2.19.22"
\header {
lsrtags = "pitches, real-music, really-cool, scheme-language"
rhythm =
-#(define-music-function (parser location p) (ly:pitch?)
+#(define-music-function (p) (ly:pitch?)
"Make the rhythm in Mars (the Planets) at the given pitch"
#{ \tuplet 3/2 { $p 8 8 8 } 4 4 8 8 4 #})
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "expressive-marks, text, workaround"
} % begin verbatim
paren =
-#(define-event-function (parser location dyn) (ly:event?)
+#(define-event-function (dyn) (ly:event?)
(make-dynamic-script
#{ \markup \concat {
\normal-text \italic \fontsize #2 (
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "expressive-marks, tweaks-and-overrides"
% Two functions for (de)crescendo spanners where you can explicitly give the
% spanner text.
mycresc =
-#(define-music-function (parser location mymarkup) (markup?)
+#(define-music-function (mymarkup) (markup?)
(make-music 'CrescendoEvent
'span-direction START
'span-type 'text
'span-text mymarkup))
mydecresc =
-#(define-music-function (parser location mymarkup) (markup?)
+#(define-music-function (mymarkup) (markup?)
(make-music 'DecrescendoEvent
'span-direction START
'span-type 'text
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "staff-notation, tweaks-and-overrides"
doctitle = "Extending glissandi across repeats"
} % begin verbatim
-repeatGliss = #(define-music-function (parser location grace)
+repeatGliss = #(define-music-function (grace)
(ly:pitch?)
#{
% the next two lines ensure the glissando is long enough
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "contemporary-notation, winds"
} % begin verbatim
slap =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
#{
\override NoteHead.stencil =
#(lambda (grob)
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "headword"
ssnor = \set stringNumberOrientations = #'(right)
% define fingering offset
-FO = #(define-music-function (parser location offsetX offsetY) (number? number?)
+FO = #(define-music-function (offsetX offsetY) (number? number?)
#{
\once \override Voice.Fingering.extra-offset = #(cons offsetX offsetY)
#})
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "automatic-notation, really-cool, scheme-language"
(set! pitch (modulo (1+ pitch) 7)))))
oneNoteScore =
-#(define-music-function (parser location) ()
- (add-one-note-score parser)
+#(define-music-function () ()
+ (add-one-note-score (*parser*))
(make-music 'Music 'void #t))
%%%
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "repeats"
} % begin verbatim
makePercent =
-#(define-music-function (parser location note) (ly:music?)
+#(define-music-function (note) (ly:music?)
"Make a percent repeat the same length as NOTE."
(make-music 'PercentEvent
'length (ly:music-length note)))
-\version "2.19.0"
+\version "2.19.22"
\header {
lsrtags = "pitches, real-music, really-cool, scheme-language"
}
rhythm =
-#(define-music-function (parser location p) (ly:pitch?)
+#(define-music-function (p) (ly:pitch?)
"Make the rhythm in Mars (the Planets) at the given pitch"
#{ \tuplet 3/2 { $p 8 8 8 } 4 4 8 8 4 #})
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "scheme-language, tweaks-and-overrides"
tweaks)))))
customScripts =
-#(define-music-function (parser location settings)(list?)
+#(define-music-function (settings)(list?)
#{
\override Script.before-line-breaking =
#(custom-script-tweaks settings)
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "rhythms, tweaks-and-overrides"
}
% Function to print a specified number of slashes
-comp = #(define-music-function (parser location count) (integer?)
+comp = #(define-music-function (count) (integer?)
#{
\override Rest.stencil = #ly:percent-repeat-item-interface::beat-slash
\override Rest.thickness = #0.48
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "real-music, specific-notation, template"
}
AltOn =
-#(define-music-function (parser location mag) (number?)
+#(define-music-function (mag) (number?)
#{ \override Stem.length = #(* 7.0 mag)
\override NoteHead.font-size =
#(inexact->exact (* (/ 6.0 (log 2.0)) (log mag))) #})
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "editorial-annotations, fretted-strings, scheme-language, text, tweaks-and-overrides"
} % begin verbatim
stringNumberSpanner =
- #(define-music-function (parser location StringNumber) (string?)
+ #(define-music-function (StringNumber) (string?)
#{
\override TextSpanner.style = #'solid
\override TextSpanner.font-size = #-5
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "pitches, scheme-language, workaround"
music))
naturalizeMusic =
-#(define-music-function (parser location m)
+#(define-music-function (m)
(ly:music?)
(naturalize m))
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "ancient-notation, vocal-music"
doctitle = "Using tags to produce mensural and modern music from the same source"
} % begin verbatim
-menrest = #(define-music-function (parser location note)
+menrest = #(define-music-function (note)
(ly:music?)
#{
\tag #'mens $(make-music 'RestEvent note)
-\version "2.16.0"
+\version "2.19.22"
\header {
texidoc = "The bottom-level contexts in polyphony shorthand are
}
assertContextId =
-#(define-music-function (parser location id) (string?)
+#(define-music-function (id) (string?)
(let ((music (make-music 'ApplyContext
'procedure
(lambda (ctx)
-\version "2.19.21"
+\version "2.19.22"
\header {
texidoc = "Bar numbers can automatically reset at volta repeats.
}
musicWithBarNumberCheck =
-#(define-music-function (parser location n)
+#(define-music-function (n)
(integer?)
#{
\relative {
-\version "2.18.0"
+\version "2.19.22"
\header {
#(set-global-staff-size 35)
clefVariations =
-#(define-music-function (parser location type)(string?)
+#(define-music-function (type)(string?)
#{
\once \omit Staff.Clef s4
\override Staff.Clef.full-size-change = ##t
-\version "2.19.21"
+\version "2.19.22"
\header{
\layout { ragged-right = ##t }
dynScript =
-#(define-event-function (parser location text) (markup?)
+#(define-event-function (text) (markup?)
(make-dynamic-script text))
\relative {
-\version "2.19.21"
+\version "2.19.22"
#(use-modules (srfi srfi-13)
(ice-9 format))
(make-column-markup (string-split str #\NewLine)))
test =
-#(define-void-function (parser location harmless strings)
+#(define-void-function (harmless strings)
((string?) pair?)
(let ((input (car strings))
(output (cdr strings))
(if harmless
(ly:progress "Test unequal: ~a.\nin = ~a\nout = ~a\n"
harmless input output)
- (ly:input-warning location "Test unequal: BUG.\nin = ~a\nout = ~a\n"
+ (ly:input-warning (*location*) "Test unequal: BUG.\nin = ~a\nout = ~a\n"
input output)))))
%%%
-\version "2.19.21"
+\version "2.19.22"
\header {
texidoc = "Postfix functions for custom crescendo text spanners. The spanners
% Two functions for (de)crescendo spanners where you can explicitly give the
% spanner text.
-mycresc = #(define-music-function (parser location mymarkup) (string?)
+mycresc = #(define-music-function (mymarkup) (string?)
(make-music 'CrescendoEvent 'span-direction START
'span-type 'text 'span-text mymarkup))
-mydecresc = #(define-music-function (parser location mymarkup) (string?)
+mydecresc = #(define-music-function (mymarkup) (string?)
(make-music 'DecrescendoEvent 'span-direction START
'span-type 'text 'span-text mymarkup))
-\version "2.19.21"
+\version "2.19.22"
\header {
texidoc = "Music events can be extracted from a score with event
st =
#(define-music-function
- (parser location text)
+ (text)
(string?)
#{
\override TextSpanner.bound-details.left.text = $text
-\version "2.16.0"
+\version "2.19.22"
\header {
texidoc = "Figured bass supports numbers with slashes through
#(define (adjust-slash-stencil-default num forward stencil mag)
stencil)
-unsetExceptions = #(define-void-function (parser location) ()
+unsetExceptions = #(define-void-function () ()
; (set! horizontal-slash-interval horizontal-slash-interval-default)
; (set! adjust-slash-stencil adjust-slash-stencil-default)
)
-\version "2.17.6"
+\version "2.19.22"
\header {
texidoc = "Flags can be drawn straight in the style used by
}
-stemLength = #(define-music-function (parser location length) (number?)
+stemLength = #(define-music-function (length) (number?)
"Set the length of the next stem explicitly."
#{
\once \override Stem.length-fraction = #length
}
-\version "2.19.21"
+\version "2.19.22"
myDisplayMusic =
-#(define-void-function (parser location music)
+#(define-void-function (music)
(ly:music?)
(display-scheme-music music (current-error-port)))
}
-\version "2.17.6"
+\version "2.19.22"
\layout { ragged-right = ##t }
-withPaddingA = #(define-music-function (parser location padding music) (number? ly:music?)
+withPaddingA = #(define-music-function (padding music) (number? ly:music?)
#{ \override TextScript.padding = #padding
$music
\revert TextScript.padding #})
-withPaddingB = #(define-music-function (parser location padding music) (number? ly:music?)
+withPaddingB = #(define-music-function (padding music) (number? ly:music?)
#{ \override TextScript.padding = #(* padding 2)
$music
\revert TextScript.padding #})
-withPaddingC = #(define-music-function (parser location padding music) (number? ly:music?)
+withPaddingC = #(define-music-function (padding music) (number? ly:music?)
#{ \override TextScript.padding = #(+ 1 (* padding 2))
$music
\revert TextScript.padding #})
-\version "2.16.0"
+\version "2.19.22"
#(ly:set-option 'warning-as-error #f)
#(ly:expect-warning (_ "Test warning\n"))
%%%% message functions of the Input class:
#(display "\nMessage functions of the Input class:\n" (current-error-port))
-messageTest = #(define-music-function (parser location) ()
- (ly:input-message location "Test ly:input-message" )
+messageTest = #(define-music-function () ()
+ (ly:input-message (*location*) "Test ly:input-message" )
(make-music 'Music))
{
-\version "2.19.11"
+\version "2.19.22"
\header {
texidoc = "Bar line thickness and spacing should be scaled along
}
example =
-#(define-music-function (parser location mag) (positive?)
+#(define-music-function (mag) (positive?)
#{
\new Staff \with {
\magnifyStaff #mag
-\version "2.19.11"
+\version "2.19.22"
\header {
texidoc = "@code{space-alist} values should be scaled along
}
example =
-#(define-music-function (parser location mag) (positive?)
+#(define-music-function (mag) (positive?)
#{
\new Staff \with {
\magnifyStaff #mag
-\version "2.18.0"
+\version "2.19.22"
\header {
texidoc = "@code{make-relative} has to copy its argument expressions
}
reltranspose =
-#(define-music-function (parser location from to music)
+#(define-music-function (from to music)
(ly:pitch? ly:pitch? ly:music?)
(make-relative (music) music
#{ \transpose #from #to $music #}))
-\version "2.19.0"
+\version "2.19.22"
\header {
texidoc = "@code{make-relative} can make relativization on music
}
withOctave =
-#(define-music-function (parser location music)
+#(define-music-function (music)
(ly:music?)
(make-relative
(music) music
-\version "2.19.20"
+\version "2.19.22"
\header {
texidoc = "@code{make-relative} is a Scheme utility macro mainly
\layout { ragged-right= ##t }
ph =
-#(define-music-function (parser location p1 p2 p3 p4 p5)
+#(define-music-function (p1 p2 p3 p4 p5)
(ly:pitch? ly:pitch? ly:pitch? ly:pitch? ly:pitch?)
(make-relative (p1 p2 p3 p4 p5) (make-event-chord (list p1 p2 p3 p4 p5))
#{
-\version "2.17.10"
+\version "2.19.22"
\header {
texidoc = "The markup-commands @code{\\draw-dashed-line} and
}
test =
-#(define-scheme-function (parser location x-nmbr y-nmbr)(number? number?)
+#(define-scheme-function (x-nmbr y-nmbr)(number? number?)
(let* ((lst (map
(lambda (x)
(let* ((x-lngth (if (positive? x-nmbr)
-\version "2.17.9"
+\version "2.19.22"
\header {
texidoc = "@code{\\rest-by-number} and @code{\\rest} support
}
showRestStyles =
-#(define-scheme-function (parser location)()
+#(define-scheme-function ()()
(make-override-markup
(cons 'baseline-skip 7)
(make-column-markup
-\version "2.17.19"
+\version "2.19.22"
\header {
texidoc = "The rest markup function works for a variety of style, dot and
}
showSimpleRest =
-#(define-scheme-function (parser location dots) (string?)
+#(define-scheme-function (dots) (string?)
(make-override-markup
(cons 'baseline-skip 7)
(make-column-markup
kievan)))))
showMultiMeasureRests =
-#(define-scheme-function (parser location)()
+#(define-scheme-function ()()
(make-override-markup
(cons 'baseline-skip 7)
(make-column-markup
-\version "2.19.21"
+\version "2.19.22"
\header
{
}
dynScript =
-#(define-music-function (parser location text) (string?)
+#(define-music-function (text) (string?)
(make-dynamic-script text))
\relative {
-\version "2.16.0"
+\version "2.19.22"
\header {
texidoc = "Music functions accept strings as markup arguments
}
testFunc =
-#(define-music-function (parser location text music) (markup? ly:music?)
+#(define-music-function (text music) (markup? ly:music?)
;; dummy function, does nothing
music)
@code{\\bar}, but is implemented completely in Scheme."
}
-\version "2.17.5"
+\version "2.19.22"
-myBar = #(define-music-function (parser location bar-type) (string?)
+myBar = #(define-music-function (bar-type) (string?)
(context-spec-music
(context-spec-music (make-property-set 'whichBar bar-type) 'Timing)
'Score))
-\version "2.17.6"
+\version "2.19.22"
\header{
texidoc="
Note head shapes may be set from several choices.
}
pattern =
-#(define-music-function (parser location name style) (markup? ly:context-mod?)
+#(define-music-function (name style) (markup? ly:context-mod?)
#{ <<
s1^#name
\new Voice \with #style {
>> #})
patternStyle =
-#(define-music-function (parser location style) (symbol?)
+#(define-music-function (style) (symbol?)
#{
\pattern #(symbol->string style) \with {
\override NoteHead.style = #style
-\version "2.16.0"
+\version "2.19.22"
\header{
texidoc= "Test backup of predicate-based optional music function arguments.
\layout { ragged-right = ##t }
-test=#(define-void-function (parser location expect . rest)
+test=#(define-void-function (expect . rest)
(list? (string? "def1") (integer? "def2") (fraction? "def3") integer?)
(if (not (equal? expect rest))
- (ly:parser-error parser
+ (ly:parser-error (*parser*)
(format #f "Expected ~s, got ~s.\n" expect rest)
- location)))
+ (*location*))))
twice=2
-\version "2.16.0"
+\version "2.19.22"
\header{
texidoc= "Test predicate-based optional music function argument skipping."
\layout { ragged-right = ##t }
-test=#(define-scheme-function (parser location str int frac exp)
+test=#(define-scheme-function (str int frac exp)
((string? "def1") (integer? "def2") (number-pair? "def3") list?)
(if (not (equal? (list str int frac) exp))
- (ly:parser-error parser
+ (ly:parser-error (*parser*)
(format #f "Expected ~a, got ~a.\n" exp
(list str int frac))
- location)))
+ (*location*))))
\test "a" #3 #'(3 . 4) #'("a" 3 (3 . 4))
\test "a" #3 #'("a" 3 "def3")
-\version "2.19.21"
+\version "2.19.22"
\header{
texidoc= "Test optional music function arguments.
% Just like \relative, but defaulting to f as reference, making the
% first note of the music the same as if written as absolute pitch
ablative =
-#(define-music-function (parser location ref music)
+#(define-music-function (ref music)
((ly:pitch? #{ f #}) ly:music?)
#{ \relative $ref $music #})
% Let's take a duration and four pitches, defaulting to 2 c' d' e'
zap =
-#(define-music-function (parser location dur a b c d)
+#(define-music-function (dur a b c d)
((ly:duration? #{ 2 #}) (ly:pitch? #{ c' #})
(ly:pitch? #{ d' #}) (ly:pitch? #{ e' #})
ly:music?) #{ $a $dur $b $c ^\markup{!} $d #})
-\version "2.19.21"
+\version "2.19.22"
#(ly:set-option 'warning-as-error #f)
#(ly:expect-warning (_ "already have phrasing slur"))
a different spanner-id."
}
-sp=#(define-event-function (parser location n e) (index? ly:event?)
+sp=#(define-event-function (n e) (index? ly:event?)
(set! (ly:music-property e 'spanner-id) (format "sp~a" n))
e)
-\version "2.17.6"
+\version "2.19.22"
\header {
texidoc = "Breve, whole and half rests moving outside the staff should get
ledger lines."
\paper { ragged-right = ##t }
rPos =
-#(define-music-function (parser location y) (number?)
+#(define-music-function (y) (number?)
#{ \override Rest.staff-position = #y #})
{
-\version "2.17.11"
+\version "2.19.22"
\header {
(set! pitch (modulo (1+ pitch) 7)))))
oneNoteScore =
-#(define-void-function (parser location) ()
- (add-one-note-score parser))
+#(define-void-function () ()
+ (add-one-note-score (*parser*)))
%%%
-\version "2.19.21"
+\version "2.19.22"
#(ly:set-option 'warning-as-error #f)
#(ly:expect-warning (_ "already have slur"))
a different spanner-id."
}
-sp=#(define-event-function (parser location n e) (index? ly:event?)
+sp=#(define-event-function (n e) (index? ly:event?)
(set! (ly:music-property e 'spanner-id) (format "sp~a" n))
e)
-\version "2.19.14"
+\version "2.19.22"
\header {
texidoc = "The operation of @code{\\keepWithTag} can be made more
>>
demo =
-#(define-music-function (parser location syms m)
+#(define-music-function (syms m)
(symbol-list? ly:music?)
#{
\new Score <<
#(set-global-staff-size 16)
demoline =
-#(define-scheme-function (parser location m1 m2) (ly:music? ly:music?)
+#(define-scheme-function (m1 m2) (ly:music? ly:music?)
#{
\markup \column { \fill-line { \null \score { #m1 } \score { #m2 } \null }
\vspace #1 }
-\version "2.19.2"
+\version "2.19.22"
\header {
texidoc = "The @code{\\removeWithTag} and @code{\\keepWithTag}
>>
demo =
-#(define-music-function (parser location fun syms m)
+#(define-music-function (fun syms m)
(ly:music-function? symbol-list? ly:music?)
#{
\new Staff
}
-\version "2.19.21"
+\version "2.19.22"
\paper {
indent = #0.0
generateTiePattern
-= #(define-music-function (parser location is-long chords) (boolean? ly:music?)
+= #(define-music-function (is-long chords) (boolean? ly:music?)
"
% * Add Mordents (reported by Patrick Karl)
%
-\version "2.17.11"
+\version "2.19.22"
#(use-modules (srfi srfi-1))
#(use-modules (srfi srfi-11))
% At last ... here's the music function that applies all the above to a
% score.
-articulate = #(define-music-function (parser location music)
+articulate = #(define-music-function (music)
(ly:music?)
"Adjust times of note to add tenuto, staccato and
normal articulations.
(lambda ()
(music-map
ac:articulate-chord
- (ac:unfoldMusic (event-chord-wrap! music parser))))
+ (ac:unfoldMusic (event-chord-wrap! music (*parser*)))))
(lambda ()
(or (= ac:stealForward 0)
(begin
% Special handling for a gruppetto after a trill.
afterGrace =
#(define-music-function
- (parser location main grace)
+ (main grace)
(ly:music? ly:music?)
- (set! main (event-chord-wrap! main parser))
- (set! grace (event-chord-wrap! grace parser))
+ (set! main (event-chord-wrap! main (*parser*)))
+ (set! grace (event-chord-wrap! grace (*parser*)))
(let*
((main-length (ly:music-length main))
(grace-orig-length (ly:music-length grace))
% Somewhere around the end of the 19th, start of 20th century the rules
% changed, but my main interest is early music.
appoggiatura =
-#(define-music-function (parser location grace main)
+#(define-music-function (grace main)
(ly:music? ly:music?)
- (set! grace (event-chord-wrap! grace parser))
- (set! main (event-chord-wrap! main parser))
+ (set! grace (event-chord-wrap! grace (*parser*)))
+ (set! main (event-chord-wrap! main (*parser*)))
(let* ((maindur (ly:music-length main))
(grace-orig-len (ly:music-length grace))
(main-orig-len (ly:music-length main))
$Id: bagpipe.ly,v 1.12 2006/03/16 14:39:46 hanwen Exp $
%}
-\version "2.19.16"
+\version "2.19.22"
% Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
% Flat notes used mainly in some modern music.
}
% Add appropriate tweaks needed for piping grace notes to look great.
-stemspace = #(define-music-function (parser location extent) (pair?) #{
+stemspace = #(define-music-function (extent) (pair?) #{
\once \override Staff.Stem.X-extent = #extent
#})
-pgrace = #(define-music-function (parser location notes) (ly:music?) #{
+pgrace = #(define-music-function (notes) (ly:music?) #{
\override Score.GraceSpacing.spacing-increment = #0
\override Score.Stem.beamlet-max-length-proportion = #'(0.5 . 0.5)
\small \grace $notes \normalsize
%%% -*- Mode: Scheme -*-
-\version "2.16.0"
+\version "2.19.22"
%{
Chord repetition behavior is not customizable in the parser. That
is due to it usually being done by the toplevel music handler
%}
chordRepeats =
-#(define-music-function (parser location event-types music)
+#(define-music-function (event-types music)
((list? '()) ly:music?)
"Walk through @var{music} putting the notes of the previous chord
into repeat chords, as well as an optional list of @var{event-types}
(expand-repeat-chords! (cons 'rhythmic-event event-types) music))
tabChordRepeats =
-#(define-music-function (parser location event-types music)
+#(define-music-function (event-types music)
((list? '()) ly:music?)
"Walk through @var{music} putting the notes, fingerings and string
numbers of the previous chord into repeat chords, as well as an
#})
tabChordRepetition =
-#(define-void-function (parser location) ()
+#(define-void-function () ()
(_i "Include the string and fingering information in a chord repetition.
This function is deprecated; try using @code{\\tabChordRepeats} instead.")
- (ly:parser-define! parser '$chord-repeat-events
+ (ly:parser-define! (*parser*) '$chord-repeat-events
'(string-number-event fingering-event)))
%%%% You should have received a copy of the GNU General Public License
%%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
-\version "2.16.0"
+\version "2.19.22"
#(use-modules (scm song))
#(use-modules (srfi srfi-39))
% \festival #"filename" { \tempo N = X } { music }
festival =
-#(define-music-function (parser location filename tempo music)
+#(define-music-function (filename tempo music)
(string? ly:music? ly:music?)
(output-file music tempo filename)
music)
% \festivalsyl #"filename" { \tempo N = X } { music }
festivalsyl =
-#(define-music-function (parser location filename tempo music)
+#(define-music-function (filename tempo music)
(string? ly:music? ly:music?)
(parameterize ((*syllabify* #t))
(output-file music tempo filename))
$Id$
%}
-\version "2.17.30"
+\version "2.19.22"
%
% Declare memorable shortcuts for special unicode characters
% Add unicode 2123 (versicle) as prefix to lyrics.
versus =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(add-prefix-to-lyrics "℣" music))
% Add unicode 211F (response) as prefix to lyrics.
responsum =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(add-prefix-to-lyrics "℟" music))
%
% it is applied by one.
%
augmentum =
-#(define-music-function (parser location expr) (ly:music?)
+#(define-music-function (expr) (ly:music?)
(shift-duration-log expr 0 1))
%
-%\version "2.19.19"
+%\version "2.19.22"
%%% The function used by the built-in templates to
% build a lyrics context and associate it with a voice.
make-one-stanza =
#(define-music-function
- (parser location pos staffPrefix voicePrefix altVoicePrefix lyrics)
+ (pos staffPrefix voicePrefix altVoicePrefix lyrics)
((above-or-below? #f)
voice-prefix?
voice-prefix?
%%%% You should have received a copy of the GNU General Public License
%%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
-\version "2.17.11"
+\version "2.19.22"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% TODO: using define-music-function in a .scm causes crash.
absolute =
-#(define-music-function (parser location music)
+#(define-music-function (music)
(ly:music?)
(_i "Make @var{music} absolute. This does not actually change the
music itself but rather hides it from surrounding @code{\\relative}
instrument-definitions = #'()
addInstrumentDefinition =
#(define-void-function
- (parser location name lst) (string? list?)
+ (name lst) (string? list?)
(_i "Create instrument @var{name} with properties @var{list}.")
(set! instrument-definitions (acons name lst instrument-definitions)))
addQuote =
-#(define-void-function (parser location name music) (string? ly:music?)
+#(define-void-function (name music) (string? ly:music?)
(_i "Define @var{music} as a quotable music expression named
@var{name}")
- (add-quotable parser name music))
+ (add-quotable (*parser*) name music))
%% keep these two together
afterGraceFraction = #(cons 6 8)
afterGrace =
-#(define-music-function (parser location main grace) (ly:music? ly:music?)
+#(define-music-function (main grace) (ly:music? ly:music?)
(_i "Create @var{grace} note(s) after a @var{main} music expression.")
(let ((main-length (ly:music-length main))
- (fraction (ly:parser-lookup parser 'afterGraceFraction)))
+ (fraction (ly:parser-lookup (*parser*) 'afterGraceFraction)))
(make-simultaneous-music
(list
main
%% music identifiers not allowed at top-level,
%% so this is a music-function instead.
allowPageTurn =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Allow a page turn. May be used at toplevel (ie between scores or
markups), or inside a score.")
(make-music 'EventChord
'break-permission 'allow))))
alterBroken =
-#(define-music-function (parser location property arg item)
+#(define-music-function (property arg item)
(symbol-list-or-symbol? list? symbol-list-or-music?)
(_i "Override @var{property} for pieces of broken spanner @var{item}
with values @var{arg}. @var{item} may either be music in the form of
(begin
(ly:music-warning item (_ "not a spanner"))
item))
- (let* ((p (check-grob-path item parser location
+ (let* ((p (check-grob-path item (*parser*) (*location*)
#:default 'Bottom
#:min 2
#:max 2))
#(value-for-spanner-piece arg)
#}
(begin
- (ly:input-warning location (_ "not a spanner name, `~a'") name)
+ (ly:input-warning (*location*) (_ "not a spanner name, `~a'") name)
(make-music 'Music))))))
appendToTag =
-#(define-music-function (parser location tag more music)
+#(define-music-function (tag more music)
(symbol? ly:music? ly:music?)
(_i "Append @var{more} to the @code{elements} of all music
expressions in @var{music} that are tagged with @var{tag}.")
music))
applyContext =
-#(define-music-function (parser location proc) (procedure?)
+#(define-music-function (proc) (procedure?)
(_i "Modify context properties with Scheme procedure @var{proc}.")
(make-music 'ApplyContext
'procedure proc))
applyMusic =
-#(define-music-function (parser location func music) (procedure? ly:music?)
+#(define-music-function (func music) (procedure? ly:music?)
(_i"Apply procedure @var{func} to @var{music}.")
(func music))
applyOutput =
-#(define-music-function (parser location ctx proc) (symbol? procedure?)
+#(define-music-function (ctx proc) (symbol? procedure?)
(_i "Apply function @code{proc} to every layout object in context @code{ctx}")
(make-music 'ApplyOutputEvent
'procedure proc
% for regression testing purposes.
assertBeamQuant =
-#(define-music-function (parser location l r) (pair? pair?)
+#(define-music-function (l r) (pair? pair?)
(_i "Testing function: check whether the beam quants @var{l} and @var{r} are correct")
(make-grob-property-override 'Beam 'positions (check-quant-callbacks l r)))
% for regression testing purposes.
assertBeamSlope =
-#(define-music-function (parser location comp) (procedure?)
+#(define-music-function (comp) (procedure?)
(_i "Testing function: check whether the slope of the beam is the same as @code{comp}")
(make-grob-property-override 'Beam 'positions (check-slope-callbacks comp)))
autochange =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Make voices that switch between staves automatically")
- (make-autochange-music parser music))
+ (make-autochange-music (*parser*) music))
balloonGrobText =
-#(define-music-function (parser location grob-name offset text)
+#(define-music-function (grob-name offset text)
(symbol? number-pair? markup?)
(_i "Attach @var{text} to @var{grob-name} at offset @var{offset}
(use like @code{\\once})")
'text text))))
balloonText =
-#(define-event-function (parser location offset text) (number-pair? markup?)
+#(define-event-function (offset text) (number-pair? markup?)
(_i "Attach @var{text} at @var{offset} (use like @code{\\tweak})")
(make-music 'AnnotateOutputEvent
'X-offset (car offset)
'text text))
bar =
-#(define-music-function (parser location type) (string?)
+#(define-music-function (type) (string?)
(_i "Insert a bar line of type @var{type}")
(context-spec-music
(make-property-set 'whichBar type)
'Timing))
barNumberCheck =
-#(define-music-function (parser location n) (integer?)
+#(define-music-function (n) (integer?)
(_i "Print a warning if the current bar number is not @var{n}.")
(make-music 'ApplyContext
'procedure
(lambda (c)
(let ((cbn (ly:context-property c 'currentBarNumber)))
(if (and (number? cbn) (not (= cbn n)))
- (ly:input-warning location
+ (ly:input-warning (*location*)
"Barcheck failed got ~a expect ~a"
cbn n))))))
beamExceptions =
-#(define-scheme-function (parser location music) (ly:music?)
+#(define-scheme-function (music) (ly:music?)
(_i "Extract a value suitable for setting
@code{Timing.beamExceptions} from the given pattern with explicit
beams in @var{music}. A bar check @code{|} has to be used between
(extract-beam-exceptions music))
bendAfter =
-#(define-event-function (parser location delta) (real?)
+#(define-event-function (delta) (real?)
(_i "Create a fall or doit of pitch interval @var{delta}.")
(make-music 'BendAfterEvent
'delta-step delta))
bookOutputName =
-#(define-void-function (parser location newfilename) (string?)
+#(define-void-function (newfilename) (string?)
(_i "Direct output for the current book block to @var{newfilename}.")
- (set! (paper-variable parser #f 'output-filename) newfilename))
+ (set! (paper-variable (*parser*) #f 'output-filename) newfilename))
bookOutputSuffix =
-#(define-void-function (parser location newsuffix) (string?)
+#(define-void-function (newsuffix) (string?)
(_i "Set the output filename suffix for the current book block to
@var{newsuffix}.")
- (set! (paper-variable parser #f 'output-suffix) newsuffix))
+ (set! (paper-variable (*parser*) #f 'output-suffix) newsuffix))
%% \breathe is defined as a music function rather than an event identifier to
%% ensure it gets useful input location information: as an event identifier,
%% it would have to be wrapped in an EventChord to prevent it from being
%% treated as a post_event by the parser
breathe =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Insert a breath mark.")
(make-music 'BreathingEvent))
clef =
-#(define-music-function (parser location type) (string?)
+#(define-music-function (type) (string?)
(_i "Set the current clef to @var{type}.")
(make-clef-set type))
compoundMeter =
-#(define-music-function (parser location args) (pair?)
+#(define-music-function (args) (pair?)
(_i "Create compound time signatures. The argument is a Scheme list of
lists. Each list describes one fraction, with the last entry being the
denominator, while the first entries describe the summands in the
#} ))
compressMMRests =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Remove the empty bars created by multi-measure rests,
leaving just the first bar containing the MM rest itself.")
(music-map
music))
crossStaff =
-#(define-music-function (parser location notes) (ly:music?)
+#(define-music-function (notes) (ly:music?)
(_i "Create cross-staff stems")
#{
\temporary \override Stem.cross-staff = #cross-staff-connect
#})
cueClef =
-#(define-music-function (parser location type) (string?)
+#(define-music-function (type) (string?)
(_i "Set the current cue clef to @var{type}.")
(make-cue-clef-set type))
cueClefUnset =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Unset the current cue clef.")
(make-cue-clef-unset))
cueDuring =
#(define-music-function
- (parser location what dir main-music) (string? ly:dir? ly:music?)
+ (what dir main-music) (string? ly:dir? ly:music?)
(_i "Insert contents of quote @var{what} corresponding to @var{main-music},
in a CueVoice oriented by @var{dir}.")
(make-music 'QuoteMusic
cueDuringWithClef =
#(define-music-function
- (parser location what dir clef main-music) (string? ly:dir? string? ly:music?)
+ (what dir clef main-music) (string? ly:dir? string? ly:music?)
(_i "Insert contents of quote @var{what} corresponding to @var{main-music},
in a CueVoice oriented by @var{dir}.")
(make-music 'QuoteMusic
displayLilyMusic =
-#(define-music-function (parser location port music) ((output-port?) ly:music?)
+#(define-music-function (port music) ((output-port?) ly:music?)
(_i "Display the LilyPond input representation of @var{music}
to @var{port}, defaulting to the console.")
(let ((port (or port (current-output-port))))
(newline port)
- (display-lily-music music parser port))
+ (display-lily-music music (*parser*) port))
music)
displayMusic =
-#(define-music-function (parser location port music) ((output-port?) ly:music?)
+#(define-music-function (port music) ((output-port?) ly:music?)
(_i "Display the internal representation of @var{music} to
@var{port}, default to the console.")
(let ((port (or port (current-output-port))))
music)
displayScheme =
-#(define-scheme-function (parser location port expr) ((output-port?) scheme?)
+#(define-scheme-function (port expr) ((output-port?) scheme?)
(_i "Display the internal representation of @var{expr} to
@var{port}, default to the console.")
(let ((port (or port (current-output-port))))
endSpanners =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Terminate the next spanner prematurely after exactly one note
without the need of a specific end spanner.")
(let* ((start-span-evs (filter (lambda (ev)
total))
eventChords =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Compatibility function wrapping @code{EventChord} around
isolated rhythmic events occuring since version 2.15.28, after
expanding repeat chords @samp{q}.")
- (event-chord-wrap! music parser))
+ (event-chord-wrap! music (*parser*)))
featherDurations=
-#(define-music-function (parser location factor argument) (ly:moment? ly:music?)
+#(define-music-function (factor argument) (ly:moment? ly:music?)
(_i "Adjust durations of music in @var{argument} by rational @var{factor}.")
(let ((orig-duration (ly:music-length argument))
(multiplier (ly:make-moment 1 1)))
argument))
finger =
-#(define-event-function (parser location finger) (number-or-markup?)
+#(define-event-function (finger) (number-or-markup?)
(_i "Apply @var{finger} as a fingering indication.")
(make-music
finger))
fixed =
-#(define-music-function (parser location pitch music)
+#(define-music-function (pitch music)
(ly:pitch? ly:music?)
(_i "Use the octave of @var{pitch} as the default octave for @var{music}.")
(let ((octave-marks (1+ (ly:pitch-octave pitch))))
(make-music 'RelativeOctaveMusic 'element music))
footnote =
-#(define-music-function (parser location mark offset footnote item)
+#(define-music-function (mark offset footnote item)
((markup?) number-pair? markup? symbol-list-or-music?)
(_i "Make the markup @var{footnote} a footnote on @var{item}. The
footnote is marked with a markup @var{mark} moved by @var{offset} with
(_i "Insert @var{music} as grace notes."))
grobdescriptions =
-#(define-scheme-function (parser location descriptions) (list?)
+#(define-scheme-function (descriptions) (list?)
(_i "Create a context modification from @var{descriptions}, a list
in the format of @code{all-grob-descriptions}.")
(ly:make-context-mod
(list 'assign (car p) (ly:make-grob-properties (cdr p))))
descriptions)))
-harmonicByFret = #(define-music-function (parser location fret music) (number? ly:music?)
+harmonicByFret = #(define-music-function (fret music) (number? ly:music?)
(_i "Convert @var{music} into mixed harmonics; the resulting notes resemble
harmonics played on a fretted instrument by touching the strings at @var{fret}.")
#{
\revert NoteHead.stencil
#})
-harmonicByRatio = #(define-music-function (parser location ratio music) (number? ly:music?)
+harmonicByRatio = #(define-music-function (ratio music) (number? ly:music?)
(_i "Convert @var{music} into mixed harmonics; the resulting notes resemble
harmonics played on a fretted instrument by touching the strings at the point
given through @var{ratio}.")
#})
hide =
-#(define-music-function (parser location item) (symbol-list-or-music?)
+#(define-music-function (item) (symbol-list-or-music?)
(_i "Set @var{item}'s @samp{transparent} property to @code{#t},
making it invisible while still retaining its dimensions.
#{ \tweak transparent ##t #item #})
inStaffSegno =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Put the segno variant 'varsegno' at this position into the staff,
compatible with the repeat command.")
(make-music 'ApplyContext
instrumentSwitch =
#(define-music-function
- (parser location name) (string?)
+ (name) (string?)
(_i "Switch instrument to @var{name}, which must be predefined with
@code{\\addInstrumentDefinition}.")
(let* ((handle (assoc name instrument-definitions))
(instrument-def (if handle (cdr handle) '())))
(if (not handle)
- (ly:input-warning location "No such instrument: ~a" name))
+ (ly:input-warning (*location*) "No such instrument: ~a" name))
(context-spec-music
(make-music 'SimultaneousMusic
'elements
keepWithTag =
-#(define-music-function (parser location tags music)
+#(define-music-function (tags music)
(symbol-list-or-symbol? ly:music?)
(_i "Include only elements of @var{music} that are tagged with one
of the tags in @var{tags}. @var{tags} may be either a single symbol
music))
key =
-#(define-music-function (parser location tonic pitch-alist)
+#(define-music-function (tonic pitch-alist)
((ly:pitch? '()) (list? '()))
(_i "Set key to @var{tonic} and scale @var{pitch-alist}.
If both are null, just generate @code{KeyChangeEvent}.")
(cond ((null? tonic) (make-music 'KeyChangeEvent))
((null? pitch-alist)
- (ly:parser-error parser (_ "second argument must be pitch list")
- location)
+ (ly:parser-error (*parser*) (_ "second argument must be pitch list")
+ (*location*))
(make-music 'SequentialMusic 'void #t))
(else
(ly:music-transpose
tonic))))
killCues =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Remove cue notes from @var{music}.")
(music-map
(lambda (mus)
label =
-#(define-music-function (parser location label) (symbol?)
+#(define-music-function (label) (symbol?)
(_i "Create @var{label} as a bookmarking label.")
(make-music 'EventChord
'page-marker #t
language =
-#(define-void-function (parser location language) (string?)
+#(define-void-function (language) (string?)
(_i "Set note names for language @var{language}.")
- (note-names-language parser language))
+ (note-names-language (*parser*) language))
languageSaveAndChange =
-#(define-void-function (parser location language) (string?)
+#(define-void-function (language) (string?)
(_i "Store the previous pitchnames alist, and set a new one.")
(set! previous-pitchnames pitchnames)
- (note-names-language parser language))
+ (note-names-language (*parser*) language))
languageRestore =
-#(define-void-function (parser location) ()
+#(define-void-function () ()
(_i "Restore a previously-saved pitchnames alist.")
(if previous-pitchnames
(begin
(set! pitchnames previous-pitchnames)
- (ly:parser-set-note-names parser pitchnames))
- (ly:input-warning location (_ "No other language was defined previously. Ignoring."))))
+ (ly:parser-set-note-names (*parser*) pitchnames))
+ (ly:input-warning (*location*) (_ "No other language was defined previously. Ignoring."))))
magnifyMusic =
-#(define-music-function (parser location mag music) (positive? ly:music?)
+#(define-music-function (mag music) (positive? ly:music?)
(_i "Magnify the notation of @var{music} without changing the
staff-size, using @var{mag} as a size factor. Stems, beams,
slurs, ties, and horizontal spacing are adjusted automatically.")
#})
magnifyStaff =
-#(define-music-function (parser location mag) (positive?)
+#(define-music-function (mag) (positive?)
(_i "Change the size of the staff, adjusting notation size and
horizontal spacing automatically, using @var{mag} as a size factor.")
#})
makeClusters =
-#(define-music-function (parser location arg) (ly:music?)
+#(define-music-function (arg) (ly:music?)
(_i "Display chords in @var{arg} as clusters.")
(music-map note-to-cluster arg))
modalInversion =
-#(define-music-function (parser location around to scale music)
+#(define-music-function (around to scale music)
(ly:pitch? ly:pitch? ly:music? ly:music?)
(_i "Invert @var{music} about @var{around} using @var{scale} and
transpose from @var{around} to @var{to}.")
music))
modalTranspose =
-#(define-music-function (parser location from to scale music)
+#(define-music-function (from to scale music)
(ly:pitch? ly:pitch? ly:music? ly:music?)
(_i "Transpose @var{music} from pitch @var{from} to pitch @var{to}
using @var{scale}.")
inversion =
#(define-music-function
- (parser location around to music) (ly:pitch? ly:pitch? ly:music?)
+ (around to music) (ly:pitch? ly:pitch? ly:music?)
(_i "Invert @var{music} about @var{around} and
transpose from @var{around} to @var{to}.")
(music-invert around to music))
mark =
#(define-music-function
- (parser location label) ((scheme? '()))
+ (label) ((scheme? '()))
"Make the music for the \\mark command."
(let* ((set (and (integer? label)
(context-spec-music (make-property-set 'rehearsalMark label)
'Score)))
(ev (make-music 'MarkEvent
- 'origin location)))
+ 'origin (*location*))))
(if set
(make-sequential-music (list set ev))
ev))))
musicMap =
-#(define-music-function (parser location proc mus) (procedure? ly:music?)
+#(define-music-function (proc mus) (procedure? ly:music?)
(_i "Apply @var{proc} to @var{mus} and all of the music it contains.")
(music-map proc mus))
%% noPageBreak and noPageTurn are music functions (not music indentifiers),
%% because music identifiers are not allowed at top-level.
noPageBreak =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Forbid a page break. May be used at toplevel (i.e., between scores or
markups), or inside a score.")
(make-music 'EventChord
'break-permission '()))))
noPageTurn =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Forbid a page turn. May be used at toplevel (i.e., between scores or
markups), or inside a score.")
(make-music 'EventChord
octaveCheck =
-#(define-music-function (parser location pitch) (ly:pitch?)
+#(define-music-function (pitch) (ly:pitch?)
(_i "Octave check.")
(make-music 'RelativeOctaveCheck
'pitch pitch))
offset =
-#(define-music-function (parser location property offsets item)
+#(define-music-function (property offsets item)
(symbol-list-or-symbol? scheme? symbol-list-or-music?)
(_i "Offset the default value of @var{property} of @var{item} by
@var{offsets}. If @var{item} is a string, the result is
(if (symbol? property)
(list property)
property)
- parser location
+ (*parser*) (*location*)
#:start 1 #:default #t #:min 2 #:max 2)))
(if prop-path
; If the head of the grob property path is a symbol--i.e.,
(if (symbol? property)
(list property)
property))
- parser location
+ (*parser*) (*location*)
#:default 'Bottom #:min 3 #:max 3)))
(if prop-path
#{
(make-music 'Music)))))
omit =
-#(define-music-function (parser location item) (symbol-list-or-music?)
+#(define-music-function (item) (symbol-list-or-music?)
(_i "Set @var{item}'s @samp{stencil} property to @code{#f},
effectively omitting it without taking up space.
#{ \tweak stencil ##f #item #})
once =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Set @code{once} to @code{#t} on all layout instruction events
in @var{music}. This will complain about music with an actual
duration. As a special exception, if @var{music} contains
music)
ottava =
-#(define-music-function (parser location octave) (integer?)
+#(define-music-function (octave) (integer?)
(_i "Set the octavation.")
(make-music 'OttavaMusic
'ottava-number octave))
overrideTimeSignatureSettings =
#(define-music-function
- (parser location time-signature base-moment beat-structure beam-exceptions)
+ (time-signature base-moment beat-structure beam-exceptions)
(fraction? fraction? list? list?)
(_i "Override @code{timeSignatureSettings}
(override-time-signature-setting time-signature setting)))
overrideProperty =
-#(define-music-function (parser location grob-property-path value)
+#(define-music-function (grob-property-path value)
(symbol-list? scheme?)
(_i "Set the grob property specified by @var{grob-property-path} to
@var{value}. @var{grob-property-path} is a symbol list of the form
@code{Context.GrobName.property} or @code{GrobName.property}, possibly
with subproperties given as well.")
- (let ((p (check-grob-path grob-property-path parser location
+ (let ((p (check-grob-path grob-property-path (*parser*) (*location*)
#:default 'Bottom
#:min 3)))
(if p
%% pageBreak and pageTurn are music functions (iso music indentifiers),
%% because music identifiers are not allowed at top-level.
pageBreak =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Force a page break. May be used at toplevel (i.e., between scores or
markups), or inside a score.")
(make-music 'EventChord
'break-permission 'force))))
pageTurn =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Force a page turn between two scores or top-level markups.")
(make-music 'EventChord
'page-marker #t
'break-permission 'force))))
parallelMusic =
-#(define-void-function (parser location voice-ids music) (list? ly:music?)
+#(define-void-function (voice-ids music) (list? ly:music?)
(_i "Define parallel music sequences, separated by '|' (bar check signs),
and assign them to the identifiers provided in @var{voice-ids}.
;;
;; bind voice identifiers to the voices
(for-each (lambda (voice-id voice)
- (ly:parser-define! parser voice-id voice))
+ (ly:parser-define! (*parser*) voice-id voice))
voice-ids voices)
(ly:music-warning music
(_ "ignoring parallel music without barchecks")))))
parenthesize =
-#(define-music-function (parser loc arg) (ly:music?)
+#(define-music-function (arg) (ly:music?)
(_i "Tag @var{arg} to be parenthesized.")
(if (memq 'event-chord (ly:music-property arg 'types))
>> #} ))
partcombine =
-#(define-music-function (parser location chord-range part1 part2)
+#(define-music-function (chord-range part1 part2)
((number-pair? '(0 . 8)) ly:music? ly:music?)
(_i "Take the music in @var{part1} and @var{part2} and return
a music expression containing simultaneous voices, where @var{part1}
and @var{part2} are combined into one voice where appropriate.
Optional @var{chord-range} sets the distance in steps between notes
that may be combined into a chord or unison.")
- (make-directed-part-combine-music parser #f chord-range part1 part2
+ (make-directed-part-combine-music (*parser*) #f chord-range part1 part2
#{ \with { \voiceOne \override DynamicLineSpanner.direction = #UP } #}
#{ \with { \voiceTwo \override DynamicLineSpanner.direction = #DOWN } #}
#{ #} ))
partcombineUp =
-#(define-music-function (parser location chord-range part1 part2)
+#(define-music-function (chord-range part1 part2)
((number-pair? '(0 . 8)) ly:music? ly:music?)
(_i "Take the music in @var{part1} and @var{part2} and typeset so
that they share a staff with stems directed upward.")
- (make-directed-part-combine-music parser UP chord-range part1 part2
+ (make-directed-part-combine-music (*parser*) UP chord-range part1 part2
#{ \with { \voiceOne \override DynamicLineSpanner.direction = #UP } #}
#{ \with { \voiceThree \override DynamicLineSpanner.direction = #UP } #}
#{ \with { \voiceOne \override DynamicLineSpanner.direction = #UP } #} ))
partcombineDown =
-#(define-music-function (parser location chord-range part1 part2)
+#(define-music-function (chord-range part1 part2)
((number-pair? '(0 . 8)) ly:music? ly:music?)
(_i "Take the music in @var{part1} and @var{part2} and typeset so
that they share a staff with stems directed downward.")
- (make-directed-part-combine-music parser DOWN chord-range part1 part2
+ (make-directed-part-combine-music (*parser*) DOWN chord-range part1 part2
#{ \with { \voiceFour \override DynamicLineSpanner.direction = #DOWN } #}
#{ \with { \voiceTwo \override DynamicLineSpanner.direction = #DOWN } #}
#{ \with { \voiceTwo \override DynamicLineSpanner.direction = #DOWN } #} ))
partcombineForce =
-#(define-music-function (parser location type once) (boolean-or-symbol? boolean?)
+#(define-music-function (type once) (boolean-or-symbol? boolean?)
(_i "Override the part-combiner.")
(make-music 'EventChord
'elements (list (make-music 'PartCombineForceEvent
partcombineAutomaticOnce = \partcombineForce ##f ##t
partial =
-#(define-music-function (parser location dur) (ly:duration?)
+#(define-music-function (dur) (ly:duration?)
(_i "Make a partial measure.")
;; We use `descend-to-context' here instead of `context-spec-music' to
;; ensure \partial still works if the Timing_translator is moved
(descend-to-context
(context-spec-music (make-music 'PartialSet
- 'origin location
+ 'origin (*location*)
'duration dur)
'Timing)
'Score))
pitchedTrill =
#(define-music-function
- (parser location main-note secondary-note)
+ (main-note secondary-note)
(ly:music? ly:music?)
(_i "Print a trill with @var{main-note} as the main note of the trill and
print @var{secondary-note} as a stemless note head in parentheses.")
(for-each (lambda (m)
(ly:music-set-property! m 'pitch trill-pitch)) trill-events)
(begin
- (ly:input-warning location (_ "Second argument of \\pitchedTrill should be single note: "))
+ (ly:input-warning (*location*) (_ "Second argument of \\pitchedTrill should be single note: "))
(display sec-note-events)))
(if (eq? forced #t)
main-note))
pushToTag =
-#(define-music-function (parser location tag more music)
+#(define-music-function (tag more music)
(symbol? ly:music? ly:music?)
(_i "Add @var{more} to the front of @code{elements} of all music
expressions in @var{music} that are tagged with @var{tag}.")
music))
quoteDuring =
-#(define-music-function (parser location what main-music) (string? ly:music?)
+#(define-music-function (what main-music) (string? ly:music?)
(_i "Indicate a section of music to be quoted. @var{what} indicates the name
of the quoted voice, as specified in an @code{\\addQuote} command.
@var{main-music} is used to indicate the length of music to be quoted;
'quoted-music-name what))
relative =
-#(define-music-function (parser location pitch music)
+#(define-music-function (pitch music)
((ly:pitch?) ly:music?)
(_i "Make @var{music} relative to @var{pitch}. If @var{pitch} is
omitted, the first note in @var{music} is given in absolute pitch.")
'element music))
removeWithTag =
-#(define-music-function (parser location tags music)
+#(define-music-function (tags music)
(symbol-list-or-symbol? ly:music?)
(_i "Remove elements of @var{music} that are tagged with one of the
tags in @var{tags}. @var{tags} may be either a single symbol or a list
music))
resetRelativeOctave =
-#(define-music-function (parser location pitch) (ly:pitch?)
+#(define-music-function (pitch) (ly:pitch?)
(_i "Set the octave inside a \\relative section.")
(make-music 'SequentialMusic
(lambda (music last-pitch) pitch)))
retrograde =
-#(define-music-function (parser location music)
+#(define-music-function (music)
(ly:music?)
(_i "Return @var{music} in reverse order.")
(retrograde-music music))
revertTimeSignatureSettings =
#(define-music-function
- (parser location time-signature)
+ (time-signature)
(pair?)
(_i "Revert @code{timeSignatureSettings}
(revert-time-signature-setting time-signature))
rightHandFinger =
-#(define-event-function (parser location finger) (number-or-markup?)
+#(define-event-function (finger) (number-or-markup?)
(_i "Apply @var{finger} as a fingering indication.")
(make-music
finger))
scaleDurations =
-#(define-music-function (parser location fraction music)
+#(define-music-function (fraction music)
(fraction? ly:music?)
(_i "Multiply the duration of events in @var{music} by @var{fraction}.")
(ly:music-compress music
(ly:make-moment (car fraction) (cdr fraction))))
settingsFrom =
-#(define-scheme-function (parser location ctx music)
+#(define-scheme-function (ctx music)
((symbol?) ly:music?)
(_i "Take the layout instruction events from @var{music}, optionally
restricted to those applying to context type @var{ctx}, and return
mods))
shape =
-#(define-music-function (parser location offsets item)
+#(define-music-function (offsets item)
(list? symbol-list-or-music?)
(_i "Offset control-points of @var{item} by @var{offsets}. The
argument is a list of number pairs or list of such lists. Each
#{ \once \tweak control-points #shape-curve #item #})
shiftDurations =
-#(define-music-function (parser location dur dots arg)
+#(define-music-function (dur dots arg)
(integer? integer? ly:music?)
(_i "Change the duration of @var{arg} by adding @var{dur} to the
@code{durlog} of @var{arg} and @var{dots} to the @code{dots} of @var{arg}.")
(shift-duration-log arg dur dots))
single =
-#(define-music-function (parser location overrides music)
+#(define-music-function (overrides music)
(ly:music? ly:music?)
(_i "Convert @var{overrides} to tweaks and apply them to @var{music}.
This does not convert @code{\\revert}, @code{\\set} or @code{\\unset}.")
music)
skip =
-#(define-music-function (parser location dur) (ly:duration?)
+#(define-music-function (dur) (ly:duration?)
(_i "Skip forward by @var{dur}.")
(make-music 'SkipMusic
'duration dur))
the following music expression"))
spacingTweaks =
-#(define-music-function (parser location parameters) (list?)
+#(define-music-function (parameters) (list?)
(_i "Set the system stretch, by reading the 'system-stretch property of
the `parameters' assoc list.")
#{
#})
styledNoteHeads =
-#(define-music-function (parser location style heads music)
+#(define-music-function (style heads music)
(symbol? symbol-list-or-symbol? ly:music?)
(_i "Set @var{heads} in @var{music} to @var{style}.")
(style-note-heads heads style music))
tag =
-#(define-music-function (parser location tags music) (symbol-list-or-symbol? ly:music?)
+#(define-music-function (tags music) (symbol-list-or-symbol? ly:music?)
(_i "Tag the following @var{music} with @var{tags} and return the
result, by adding the single symbol or symbol list @var{tags} to the
@code{tags} property of @var{music}.")
music)
tagGroup =
-#(define-void-function (parser location tags) (symbol-list?)
+#(define-void-function (tags) (symbol-list?)
(_i "Define a tag group comprising the symbols in the symbol list
@var{tags}. Tag groups must not overlap.")
(let ((err (define-tag-group tags)))
- (if err (ly:parser-error parser err location))))
+ (if err (ly:parser-error (*parser*) err (*location*)))))
temporary =
-#(define-music-function (parser location music)
+#(define-music-function (music)
(ly:music?)
(_i "Make any @code{\\override} in @var{music} replace an existing
grob property value only temporarily, restoring the old value when a
(else
(if (not warned)
(begin
- (ly:input-warning location (_ "Cannot make ~a revertible")
+ (ly:input-warning (*location*) (_ "Cannot make ~a revertible")
(ly:music-property m 'name))
(set! warned #t)))
#t))))
music)
time =
-#(define-music-function (parser location beat-structure fraction)
+#(define-music-function (beat-structure fraction)
((number-list? '()) fraction?)
(_i "Set @var{fraction} as time signature, with optional
number list @var{beat-structure} before it.")
'beat-structure beat-structure))
times =
-#(define-music-function (parser location fraction music)
+#(define-music-function (fraction music)
(fraction? ly:music?)
(_i "Scale @var{music} in time by @var{fraction}.")
(make-music 'TimeScaledMusic
transpose =
#(define-music-function
- (parser location from to music)
+ (from to music)
(ly:pitch? ly:pitch? ly:music?)
(_i "Transpose @var{music} from pitch @var{from} to pitch @var{to}.")
transposedCueDuring =
#(define-music-function
- (parser location what dir pitch main-music)
+ (what dir pitch main-music)
(string? ly:dir? ly:pitch? ly:music?)
(_i "Insert notes from the part @var{what} into a voice called @code{cue},
'quoted-transposition pitch))
transposition =
-#(define-music-function (parser location pitch) (ly:pitch?)
+#(define-music-function (pitch) (ly:pitch?)
(_i "Set instrument transposition")
(context-spec-music
'Staff))
tuplet =
-#(define-music-function (parser location ratio tuplet-span music)
+#(define-music-function (ratio tuplet-span music)
(fraction? (ly:duration? '()) ly:music?)
(_i "Scale the given @var{music} to tuplets. @var{ratio} is a
fraction that specifies how many notes are played in place of the
'duration tuplet-span))
tupletSpan =
-#(define-music-function (parser location tuplet-span)
+#(define-music-function (tuplet-span)
((ly:duration?))
(_i "Set @code{tupletSpannerDuration}, the length into which
@code{\\tuplet} without an explicit @samp{tuplet-span} argument of its
#{ \unset tupletSpannerDuration #}))
tweak =
-#(define-music-function (parser location prop value item)
+#(define-music-function (prop value item)
(symbol-list-or-symbol? scheme? symbol-list-or-music?)
(_i "Add a tweak to the following @var{item}, usually music.
Layout objects created by @var{item} get their property @var{prop}
@var{prop} can contain additional elements in which case a nested
property (inside of an alist) is tweaked.")
(if (ly:music? item)
- (let ((p (check-grob-path prop parser location
+ (let ((p (check-grob-path prop (*parser*) (*location*)
#:start 1
#:default #t
#:min 2)))
;; diagnostics.
(let ((p (check-grob-path
(append item (if (symbol? prop) (list prop) prop))
- parser location
+ (*parser*) (*location*)
#:default 'Bottom #:min 3)))
(if p
#{ \override #p = #value #}
(make-music 'Music)))))
undo =
-#(define-music-function (parser location music)
+#(define-music-function (music)
(ly:music?)
(_i "Convert @code{\\override} and @code{\\set} in @var{music} to
@code{\\revert} and @code{\\unset}, respectively. Any reverts and
(else
(if (not warned)
(begin
- (ly:input-warning location (_ "Cannot revert ~a")
+ (ly:input-warning (*location*) (_ "Cannot revert ~a")
(ly:music-property m 'name))
(set! warned #t)))
overrides)))
(else (make-sequential-music lst))))))
unfoldRepeats =
-#(define-music-function (parser location music) (ly:music?)
+#(define-music-function (music) (ly:music?)
(_i "Force any @code{\\repeat volta}, @code{\\repeat tremolo} or
@code{\\repeat percent} commands in @var{music} to be interpreted
as @code{\\repeat unfold}.")
(unfold-repeats music))
void =
-#(define-void-function (parser location arg) (scheme?)
+#(define-void-function (arg) (scheme?)
(_i "Accept a scheme argument, return a void expression.
Use this if you want to have a scheme expression evaluated
because of its side-effects, but its value ignored."))
withMusicProperty =
-#(define-music-function (parser location sym val music)
+#(define-music-function (sym val music)
(symbol? scheme? ly:music?)
(_i "Set @var{sym} to @var{val} in @var{music}.")
-%\version "2.19.19"
+%\version "2.19.22"
\include "staff-tkit.ly"
make-pianostaff =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(if (not PianoRHMidiInstrument)
(set! PianoRHMidiInstrument
%%%% You should have received a copy of the GNU General Public License
%%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
-\version "2.16.0"
+\version "2.19.22"
% chord-shape-table is a hash-table of chord shapes
% in the form of diagram-descriptions that can be
% chord-shape-table
addChordShape =
-#(define-void-function (parser location key-symbol tuning shape-definition)
+#(define-void-function (key-symbol tuning shape-definition)
(symbol? pair? string-or-pair?)
(_i "Add chord shape @var{shape-definition} to the @var{chord-shape-table}
hash with the key @code{(cons @var{key-symbol} @var{tuning})}.")
storePredefinedDiagram =
#(define-void-function
- (parser location fretboard-table chord tuning diagram-definition)
+ (fretboard-table chord tuning diagram-definition)
(hash-table? ly:music? pair? string-or-pair?)
(_i "Add predefined fret diagram defined by @var{diagram-definition}
for the chord pitches @var{chord} and the stringTuning @var{tuning}.")
% property-init.ly
-\version "2.17.24"
+\version "2.19.22"
%% for dashed slurs, phrasing slurs, and ties
#(define (make-simple-dash-definition dash-fraction dash-period)
%% common definition for all note head styles reverting
%% (palm mute, harmonics, dead notes, ...)
defaultNoteHeads =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Revert to the default note head style.")
(context-spec-music
(revert-head-style '(NoteHead TabNoteHead)) 'Bottom))
accidentalStyle =
#(define-music-function
- (parser location style) (symbol-list?)
+ (style) (symbol-list?)
(_i "Set accidental style to symbol list @var{style} in the form
@samp{piano-cautionary}. If @var{style} has a form like
@samp{Staff.piano-cautionary}, the settings are applied to that
((1) (set-accidental-style (car style)))
((2) (set-accidental-style (cadr style) (car style)))
(else
- (ly:parser-error parser (_ "not an accidental style")
- location)
+ (ly:parser-error (*parser*) (_ "not an accidental style")
+ (*location*))
(make-music 'Music))))
%% arpeggios
defineBarLine =
#(define-void-function
- (parser location bar glyph-list) (string? list?)
+ (bar glyph-list) (string? list?)
(_i "Define bar line settings for bar line @var{bar}.
The list @var{glyph-list} must have three entries which define
the appearance at the end of line, at the beginning of the next line,
%% harmonics
harmonicsOn =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Set the default note head style to a diamond-shaped style.")
(context-spec-music
(override-head-style '(NoteHead TabNoteHead) 'harmonic) 'Bottom))
harmonicsOff = \defaultNoteHeads
harmonicNote =
-#(define-music-function (parser location note) (ly:music?)
+#(define-music-function (note) (ly:music?)
(_i "Print @var{note} with a diamond-shaped note head.")
(style-note-heads 'NoteHead 'harmonic note))
%% incipit
incipit =
-#(define-music-function (parser location incipit-music) (ly:music?)
+#(define-music-function (incipit-music) (ly:music?)
(_i "Output @var{incipit-music} before the main staff as an indication of
its appearance in the original music.")
#{
%% palm mutes
palmMuteOn =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Set the default note head style to a triangle-shaped style.")
(context-spec-music
(override-head-style 'NoteHead 'do) 'Bottom))
palmMuteOff = \defaultNoteHeads
palmMute =
-#(define-music-function (parser location note) (ly:music?)
+#(define-music-function (note) (ly:music?)
(_i "Print @var{note} with a triangle-shaped note head.")
(style-note-heads 'NoteHead 'do note))
% dash-patterns (make-simple-dash-definition defined at top of file)
phrasingSlurDashPattern =
-#(define-music-function (parser location dash-fraction dash-period)
+#(define-music-function (dash-fraction dash-period)
(number? number?)
(_i "Set up a custom style of dash pattern for @var{dash-fraction} ratio of
line to space repeated at @var{dash-period} interval for phrasing slurs.")
%% point and click
pointAndClickOn =
-#(define-void-function (parser location) ()
+#(define-void-function () ()
(_i "Enable generation of code in final-format (e.g. pdf) files to reference the
originating lilypond source statement;
this is helpful when developing a score but generates bigger final-format files.")
(ly:set-option 'point-and-click #t))
pointAndClickOff =
-#(define-void-function (parser location) ()
+#(define-void-function () ()
(_i "Suppress generating extra code in final-format (e.g. pdf) files to point
back to the lilypond source statement.")
(ly:set-option 'point-and-click #f))
pointAndClickTypes =
-#(define-void-function (parser location types) (symbol-list-or-symbol?)
+#(define-void-function (types) (symbol-list-or-symbol?)
(_i "Set a type or list of types (such as @code{#'note-event}) for which point-and-click info is generated.")
(ly:set-option 'point-and-click types))
% dash-patterns (make-simple-dash-definition defined at top of file)
slurDashPattern =
-#(define-music-function (parser location dash-fraction dash-period)
+#(define-music-function (dash-fraction dash-period)
(number? number?)
(_i "Set up a custom style of dash pattern for @var{dash-fraction}
ratio of line to space repeated at @var{dash-period} interval for slurs.")
% dash-patterns (make-simple-dash-definition defined at top of file)
tieDashPattern =
-#(define-music-function (parser location dash-fraction dash-period)
+#(define-music-function (dash-fraction dash-period)
(number? number?)
(_i "Set up a custom style of dash pattern for @var{dash-fraction}
ratio of line to space repeated at @var{dash-period} interval for ties.")
%% volta brackets
allowVoltaHook =
-#(define-void-function (parser location bar) (string?)
+#(define-void-function (bar) (string?)
(allow-volta-hook bar))
%% x notes
xNotesOn =
-#(define-music-function (parser location) ()
+#(define-music-function () ()
(_i "Set the default note head style to a cross-shaped style.")
(context-spec-music
(override-head-style '(TabNoteHead NoteHead) 'cross) 'Bottom))
xNotesOff = \defaultNoteHeads
xNote =
-#(define-music-function (parser location note) (ly:music?)
+#(define-music-function (note) (ly:music?)
(_i "Print @var{note} with a cross-shaped note head.")
(style-note-heads '(TabNoteHead NoteHead) 'cross note))
-%\version "2.19.19"
+%\version "2.19.22"
\include "voice-tkit.ly"
make-one-voice-staff =
-#(define-music-function (parser location show-instrName name clef dynamic-direction)
+#(define-music-function (show-instrName name clef dynamic-direction)
((boolean? #t) voice-prefix? string? (up-or-down? ""))
"Make a staff with one voice (no lyrics)
make-two-voice-staff =
-#(define-music-function (parser location name clef v1name v2name)
+#(define-music-function (name clef v1name v2name)
(voice-prefix? string? voice-prefix? voice-prefix?)
"Make a vocal staff with two voices
%%%% You should have received a copy of the GNU General Public License
%%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
-\version "2.16.0"
+\version "2.19.22"
%% A stringTuning is a list of pitches ordered by string number
%% from 1 to N.
%% lowest string number
stringTuning =
-#(define-scheme-function (parser location chord)
+#(define-scheme-function (chord)
(ly:music?)
(_i "Convert @var{chord} to a string tuning.
@var{chord} must be in absolute pitches and should have the highest
defaultStringTunings = #'()
makeDefaultStringTuning =
-#(define-void-function (parser location symbol pitches) (symbol? list?)
+#(define-void-function (symbol pitches) (symbol? list?)
(_i "This defines a string tuning @var{symbol} via a list of @var{pitches}.
The @var{symbol} also gets registered in @code{defaultStringTunings}
for documentation purposes.")
- (ly:parser-define! parser symbol pitches)
+ (ly:parser-define! (*parser*) symbol pitches)
(set! defaultStringTunings (acons symbol pitches defaultStringTunings)))
%% guitar tunings
-\version "2.16.0"
+\version "2.19.22"
%% defined later, in a closure
#(define-public (add-toc-item! markup-symbol text)
(toc-items)))))
tocItem =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
"Add a line to the table of content, using the @code{tocItemMarkup} paper
variable markup"
(add-toc-item! 'tocItemMarkup text))
-%\version "2.19.19"
+%\version "2.19.22"
\include "lyrics-tkit.ly"
\include "staff-tkit.ly"
make-one-voice-vocal-staff =
-#(define-music-function (parser location name clef)
+#(define-music-function (name clef)
(voice-prefix? string?)
"Make a staff with one voice and lyrics beneath
(make-music 'SequentialMusic 'void #t)))
make-two-voice-vocal-staff =
-#(define-music-function (parser location name clef v1name v2name)
+#(define-music-function (name clef v1name v2name)
(voice-prefix? string? voice-prefix? voice-prefix?)
"Make a vocal staff with two voices and lyrics above and below
make-two-vocal-staves-with-stanzas =
#(define-music-function
- (parser location
- upperName upperClef lowerName lowerClef
+ (upperName upperClef lowerName lowerClef
v1name v2name v3name v4name verses)
(voice-prefix? string? voice-prefix? string?
voice-prefix? voice-prefix? voice-prefix? voice-prefix? list?)
-%\version "2.19.19"
+%\version "2.19.22"
\include "base-tkit.ly"
make-voice =
-#(define-music-function (parser location name) (voice-prefix?)
+#(define-music-function (name) (voice-prefix?)
(define music (make-id name "Music"))
(if music
#{