-%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
-%% This file is in the public domain.
-\version "2.13.1"
+% Do not edit this file; it is automatically
+% generated from Documentation/snippets/new
+% This file is in the public domain.
+%% Note: this file works from version 2.13.4
+\version "2.13.16"
\header {
- lsrtags = "staff-notation, ancient-notation"
-
-%% Translation of GIT committish: aea975539ec44fd0f1a8fd25930b88b5ab64b53a
+%% Translation of GIT committish: 1d589aa04c20d7711bf662618adbdd6d445db29d
texidoces = "
Los «incipit» se pueden escribir utilizando el grob del nombre del
instruemento, pero manteniendo independientes las definiciones del
nombre del instrumento y del incipit."
-
+
doctitlees = "Incipit"
+ lsrtags = "staff-notation, ancient-notation"
texidoc = "
Incipits can be added using the instrument name grob, but keeping
separate the instrument name definition and the incipit definition.
-
"
doctitle = "Incipit"
} % begin verbatim
+
incipit =
#(define-music-function (parser location incipit-music) (ly:music?)
#{
\once \override Staff.InstrumentName #'self-alignment-X = #RIGHT
\once \override Staff.InstrumentName #'self-alignment-Y = #UP
- \once \override Staff.InstrumentName #'Y-offset = #4
+ \once \override Staff.InstrumentName #'Y-offset =
+ #(lambda (grob)
+ (+ 4 (system-start-text::calc-y-offset grob)))
\once \override Staff.InstrumentName #'padding = #0.3
\once \override Staff.InstrumentName #'stencil =
- #(lambda (grob)
- (let* ((instrument-name (ly:grob-property grob 'long-text))
- (layout (ly:output-def-clone (ly:grob-layout grob)))
- (music (make-music 'SequentialMusic
- 'elements (list (make-music 'ContextSpeccedMusic
- 'context-type 'MensuralStaff
- 'element (make-music 'PropertySet
- 'symbol 'instrumentName
- 'value instrument-name))
- $incipit-music)))
- (score (ly:make-score music))
- (mm (ly:output-def-lookup layout 'mm))
- (indent (ly:output-def-lookup layout 'indent))
- (width (ly:output-def-lookup layout 'incipit-width))
- (incipit-width (if (number? width)
- (* width mm)
- (* indent 0.5))))
- (ly:output-def-set-variable! layout 'indent (- indent incipit-width))
- (ly:output-def-set-variable! layout 'line-width indent)
- (ly:output-def-set-variable! layout 'ragged-right #f)
- (ly:output-def-set-variable! layout 'ragged-last #f)
- (ly:output-def-set-variable! layout 'system-count 1)
- (ly:score-add-output-def! score layout)
- (ly:grob-set-property! grob 'long-text
- (markup #:score score))
- (ly:system-start-text::print grob)))
+ #(lambda (grob)
+ (let* ((instrument-name (ly:grob-property grob 'long-text))
+ (layout (ly:output-def-clone (ly:grob-layout grob)))
+ (music (make-sequential-music
+ (list (context-spec-music
+ (make-sequential-music
+ (list (make-property-set
+ 'instrumentName instrument-name)
+ (make-grob-property-set
+ 'VerticalAxisGroup
+ 'Y-extent '(-4 . 4))))
+ 'MensuralStaff)
+ $incipit-music)))
+ (score (ly:make-score music))
+ (mm (ly:output-def-lookup layout 'mm))
+ (indent (ly:output-def-lookup layout 'indent))
+ (width (ly:output-def-lookup layout 'incipit-width))
+ (incipit-width (if (number? width)
+ (* width mm)
+ (* indent 0.5))))
+
+ (ly:output-def-set-variable! layout 'indent (- indent
+ incipit-width))
+ (ly:output-def-set-variable! layout 'line-width indent)
+ (ly:output-def-set-variable! layout 'ragged-right #f)
+ (ly:output-def-set-variable! layout 'ragged-last #f)
+ (ly:output-def-set-variable! layout 'system-count 1)
+ (ly:score-add-output-def! score layout)
+ (ly:grob-set-property! grob 'long-text
+ (markup #:score score))
+ (system-start-text::print grob)))
#})
%%%%%%%%%%%%%%%%%%%%%%%%%
tenorNotes = {
\transpose c' c' {
- \once \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-6 . 3)
\clef "treble_8"
R1 |
R1 |
% two measures
Ju -- bi -- la -- te |
"..." |
- -us.
+ -us.
}
bassusIncipit = <<