-\version "1.7.10"
+%{
+ Shortcuts common for all styles of gregorian chant notation.
+ $Id$
+%}
+
+\version "2.10.0"
%
-% declare shortcuts for gregorian chant notation
+% Declare memorable shortcuts for special unicode characters
+% that are used in chant notation.
+%
+
+% unicode 0132 (latin capital ligature IJ)
+IJ = \lyricmode { IJ }
+IIJ = \lyricmode { IIJ }
+
+% unicode 0133 (latin small ligature ij)
+ij = \lyricmode { ij }
+iij = \lyricmode { iij }
+
%
+% Given some music that represents lyrics, add a prefix to the first
+% lyric event.
+%
+% TODO: Robustify this function. For example, this function works
+% correctly for "\versus { some lyrics }", but it barfs with a wrong type
+% argument error for e.g. "\versus some lyrics".
+%
+#(define (add-prefix-to-lyrics prefix music)
+ (make-music
+ 'SequentialMusic
+ 'elements (append
+ (cons
+ (let* ((elems (car (ly:music-property music 'elements)))
+ (props (ly:music-mutable-properties elems))
+ (events (filter (lambda (x)
+ (equal? (car x) 'elements))
+ props))
+ (first-evt (cadar events))
+ (first-syllable (ly:prob-property first-evt 'text))
+ (first-duration (ly:prob-property first-evt 'duration)))
+ (make-music
+ 'LyricEvent
+ 'duration first-duration
+ 'text (string-append prefix first-syllable)))
+ (cdr (ly:music-property music 'elements))))))
+
+% Add unicode 2123 (versicle) as prefix to lyrics.
+versus =
+#(define-music-function (parser location 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?)
+ (add-prefix-to-lyrics "℟" music))
+
+%
+% Declare head prefix shortcuts.
+%
virga =
- \once \property Voice.LigatureHead \override #'virga = ##t
+ \once \override NoteHead #'virga = ##t
stropha =
- \once \property Voice.LigatureHead \override #'stropha = ##t
+ \once \override NoteHead #'stropha = ##t
inclinatum =
- \once \property Voice.LigatureHead \override #'inclinatum = ##t
+ \once \override NoteHead #'inclinatum = ##t
auctum =
- \once \property Voice.LigatureHead \override #'auctum = ##t
-aucta =
- \once \property Voice.LigatureHead \override #'auctum = ##t
+ \once \override NoteHead #'auctum = ##t
descendens =
- \once \property Voice.LigatureHead \override #'descendens = ##t
+ \once \override NoteHead #'descendens = ##t
ascendens =
- \once \property Voice.LigatureHead \override #'ascendens = ##t
+ \once \override NoteHead #'ascendens = ##t
pes =
- \once \property Voice.LigatureHead \override #'pes-or-flexa = ##t
+ \once \override NoteHead #'pes-or-flexa = ##t
flexa =
- \once \property Voice.LigatureHead \override #'pes-or-flexa = ##t
-semivocalis =
- \once \property Voice.LigatureHead \override #'semivocalis = ##t
+ \once \override NoteHead #'pes-or-flexa = ##t
oriscus =
- \once \property Voice.LigatureHead \override #'oriscus = ##t
+ \once \override NoteHead #'oriscus = ##t
quilisma =
- \once \property Voice.LigatureHead \override #'quilisma = ##t
+ \once \override NoteHead #'quilisma = ##t
deminutum =
- \once \property Voice.LigatureHead \override #'deminutum = ##t
+ \once \override NoteHead #'deminutum = ##t
+linea =
+ \once \override NoteHead #'linea = ##t
+cavum =
+ \once \override NoteHead #'cavum = ##t
+
+%
+% Declare divisiones shortcuts.
+%
+virgula = {
+ \once \override BreathingSign #'text = #(make-musicglyph-markup "scripts.rcomma")
+ \once \override BreathingSign #'font-size = #-2
+
+ % Workaround: add padding. Correct fix would be spacing engine handle this.
+ \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+
+ \breathe
+}
+caesura = {
+ \once \override BreathingSign #'text = #(make-musicglyph-markup "scripts.rvarcomma")
+ \once \override BreathingSign #'font-size = #-2
+
+ % Workaround: add padding. Correct fix would be spacing engine handle this.
+ \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+
+ \breathe
+}
+divisioMinima = {
+ \once \override BreathingSign #'stencil = #ly:breathing-sign::divisio-minima
+
+ % Workaround: add padding. Correct fix would be spacing engine handle this.
+ \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+
+ \breathe
+}
+divisioMaior = {
+ \once \override BreathingSign #'stencil = #ly:breathing-sign::divisio-maior
+ \once \override BreathingSign #'Y-offset = #0
+
+ % Workaround: add padding. Correct fix would be spacing engine handle this.
+ \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+
+ \breathe
+}
+divisioMaxima = {
+ \once \override BreathingSign #'stencil = #ly:breathing-sign::divisio-maxima
+ \once \override BreathingSign #'Y-offset = #0
+
+ % Workaround: add padding. Correct fix would be spacing engine handle this.
+ \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+
+ \breathe
+}
+finalis = {
+ \once \override BreathingSign #'stencil = #ly:breathing-sign::finalis
+ \once \override BreathingSign #'Y-offset = #0
+
+ % Workaround: add padding. Correct fix would be spacing engine handle this.
+ \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+
+ \breathe
+}
+
+%
+% Declare articulation shortcuts.
+%
+accentus = #(make-articulation "accentus")
+ictus = #(make-articulation "ictus")
+semicirculus = #(make-articulation "semicirculus")
+circulus = #(make-articulation "circulus")
+episemInitium = \startTextSpan
+episemFinis = \stopTextSpan
+
+%
+% \augmentum increases the dot-count value of all note heads to which
+% it is applied by one.
+%
+augmentum =
+#(define-music-function (parser location expr) (ly:music?)
+ (shift-duration-log expr 0 1))
+
+%
+% Declare shortcut music functions for Liber Hymnarius neumes
+% table (experimental).
+%
+
+#(define (make-ligature music)
+ (make-music 'SequentialMusic
+ 'elements (append
+ (cons
+ (make-music 'EventChord
+ 'elements (list
+ (make-span-event 'LigatureEvent START)))
+ (ly:music-property music 'elements))
+ (list
+ (make-music 'EventChord
+ 'elements (list
+ (make-span-event 'LigatureEvent STOP)))))))
+
+ligature = #(define-music-function
+ (location music) (ly:music?)
+ (make-ligature music))
+
+%#(define (make-script x)
+% (make-music 'ArticulationEvent
+% 'articulation-type x))
+%
+%#(define (add-script m x)
+% (if
+% (equal? (ly:music-property m 'name) 'EventChord)
+% (set! (ly:music-property m 'elements)
+% (cons (make-script x)
+% (ly:music-property m 'elements))))
+% m)
+%
+%#(define (add-staccato m)
+% (add-script m "staccato"))
+%
+% % \applyMusic #(lambda (x) (music-map add-staccato x)) { c c }
+%
+% % \climacus { x y z ... }:
+% % \[ \virga x \inclinatum y \inclinatum z ... \]
+%
+%#(defmacro def-climacus-function (start stop)
+% `(define-music-function (location music) (ly:music?)
+% (make-music 'SequentialMusic
+% 'elements (list 'LigatureStartEvent
+% (ly:music-deep-copy ,start)
+% music
+% (ly:music-deep-copy ,stop)
+% 'LigatureStopEvent))))
+%climacus = #(def-climacus-function startSequentialMusic stopSequentialMusic)
+
+%
+% Declare default layout; here for Vaticana style. In case there will
+% be additional styles, we may want to create style-specific .ly files
+% for inclusion (e.g. vaticana-init.ly), move the style-dependent stuff
+% over there, leave the style-independent Gregorian stuff here, and let
+% the style-specific file (vaticana-init.ly) include this file. The
+% user then will have to include vaticana-init.ly instead of
+% gregorian-init.ly.
+%
+\layout {
+ indent = 0.0
+ packed = ##t
+
+ %%% TODO: should raggedright be the default?
+ %ragged-right = ##t
+ ragged-last = ##t
+
+ %%% FIXME: line-thickness should be set here to a slightly
+ %%% thicker value as the default; but we can not set it here,
+ %%% since neither \staff-space nor #staff-space is yet defined
+ %%% when lily comes across the following line.
+ %line-thickness = \staff-space / 7.0
+
+ \context {
+ \VaticanaStaff
+ \override StaffSymbol #'color = #red
+ \override LedgerLineSpanner #'color = #red
+ }
+ \context {
+ \Score
+ \remove "Bar_number_engraver"
+
+ %%%
+ %%% FIXME: Musicologically seen, timing should be set to #f.
+ %%% Unfortunately, setting it to #f will result in no
+ %%% line-breakable items being created, such that the whole
+ %%% music will end up in a single line. Therefore, we
+ %%% currently set it to #t, until the ligature code is fixed
+ %%% to automatically insert breakable items.
+ %%%
+ timing = ##t
+
+ %%%
+ %%% FIXME: Setting barAlways to #t would fix the above
+ %%% "timing = ##t" problem, but, surprisingly, it increases
+ %%% the space between ligatures. Hence, we set it to #f.
+ %%%
+ barAlways = ##f
+
+ \override SpacingSpanner #'packed-spacing = ##t
+
+ %%%
+ %%% TODO: Play around with the following SpacingSpanner
+ %%% settings to yield better spacing between ligatures.
+ %%%
+ %%% FIXME: setting #'spacing-increment to a small value
+ %%% causes tons of "programming error: adding reverse spring,
+ %%% setting to unit" messages.
+ %%%
+ %\override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 4)
+ %\override SpacingSpanner #'shortest-duration-space = #0
+ %\override SpacingSpanner #'average-spacing-wishes = ##f
+ %\override SpacingSpanner #'spacing-increment = #0.0
+ %\override SpacingSpanner #'uniform-stretching = ##t
+ }
+}
+
+%
+% neumeDemoLayout defines a layout block suitable for notating pure
+% Vaticana style neumes without any other notation symbols such as
+% staff lines or clefs. This layout is useful for engraving neumes
+% tables, such as that one in the lilypond manual section on
+% Gregorian ligatures, or for educational works.
+%
+neumeDemoLayout = \layout {
+ interscoreline = 1
+ \context {
+ \Score
+ \remove "Bar_number_engraver"
+ }
+ \context {
+ \Staff
+ \remove "Clef_engraver"
+ \remove "Key_engraver"
+ \override StaffSymbol #'transparent = ##t
+ \remove "Time_signature_engraver"
+ \remove "Bar_engraver"
+ \override VerticalAxisGroup #'minimum-Y-extent = ##f
+ }
+ \context {
+ \Voice
+ \remove Ligature_bracket_engraver
+ \consists Vaticana_ligature_engraver
+ \override NoteHead #'style = #'vaticana.punctum
+ \override Stem #'transparent = ##t
+ }
+}
+
+%%% Local Variables:
+%%% coding: utf-8
+%%% End:
projects / lilypond.git / blobdiff