* lily/grob.cc (pure_relative_y_coordinate)

[lilypond.git] / ly / gregorian-init.ly

diff --git a/ly/gregorian-init.ly b/ly/gregorian-init.ly
index 008cb6e1182e2a1bf1740ac4ed3229e04ee604f9..163116b4f5b659b192eefcbe59cdb03b5d2b2afc 100644 (file)
--- a/ly/gregorian-init.ly
+++ b/ly/gregorian-init.ly
@@ -1,8 +1,9 @@
-\version "2.7.39"
+%{
+  Shortcuts common for all styles of gregorian chant notation.
+  $Id: gregorian-init.ly,v 1.48 2006/10/22 20:19:31 reuter Exp $
+%}
 
-%%%%%%%%
-%%%%%%%% shortcuts common for all styles of gregorian chant notation
-%%%%%%%%
+\version "2.7.39"
 
 %
 % Declare memorable shortcuts for special unicode characters
@@ -17,8 +18,14 @@ IIJ = \lyricmode { IIJ }
 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
@@ -142,14 +149,16 @@ accentus = #(make-articulation "accentus")
 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
@@ -262,6 +271,7 @@ ligature = #(define-music-function
        %%% 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