-\version "2.7.39"
+%{
+ Shortcuts common for all styles of gregorian chant notation.
+ $Id$
+%}
-%%%%%%%%
-%%%%%%%% shortcuts common for all styles of gregorian chant notation
-%%%%%%%%
+\version "2.10.0"
%
% Declare memorable shortcuts for special unicode characters
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
ictus = #(make-articulation "ictus")
semicirculus = #(make-articulation "semicirculus")
circulus = #(make-articulation "circulus")
-episemInitium = #(make-span-event 'TextSpanEvent START)
-episemFinis = #(make-span-event 'TextSpanEvent STOP)
-augmentum = {
- %%% TODO: A ligature head postfix that indicates that an
- %%% augmentum dot should be appended to the right end of
- %%% the surrounding ligature. [Not yet implemented.]
-}
+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
%%% 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 StaffSymbol #'transparent = ##t
\remove "Time_signature_engraver"
\remove "Bar_engraver"
- minimumVerticalExtent = ##f
+ \override VerticalAxisGroup #'minimum-Y-extent = ##f
}
\context {
\Voice