* lily/ttf.cc (LY_DEFINE): new function ly:font-glyph-list.

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

diff --git a/ly/gregorian-init.ly b/ly/gregorian-init.ly
index e94b69e1e7c15afb21b73e0a80741ea165ec4309..307dc3f6b578a5371a775dd31089458e8820e316 100644 (file)
--- a/ly/gregorian-init.ly
+++ b/ly/gregorian-init.ly
@@ -1,4 +1,4 @@
-\version "2.1.22"
+\version "2.7.14"
 
 %%%%%%%%
 %%%%%%%% shortcuts common for all styles of gregorian chant notation
@@ -38,7 +38,7 @@ cavum =
 % declare divisiones shortcuts
 %
 virgula = {
-  \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts-rcomma")
+  \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.
@@ -47,7 +47,7 @@ virgula = {
   \breathe
 }
 caesura = {
-  \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts-rvarcomma")
+  \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.
@@ -56,7 +56,7 @@ caesura = {
   \breathe
 }
 divisioMinima = {
-  \once \override BreathingSign  #'print-function = #Breathing_sign::divisio_minima
+  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_minima
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
@@ -64,8 +64,8 @@ divisioMinima = {
   \breathe
 }
 divisioMaior = {
-  \once \override BreathingSign  #'print-function = #Breathing_sign::divisio_maior
-  \once \override BreathingSign  #'Y-offset-callbacks = #'()
+  \once \override BreathingSign  #'stencil = #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)
@@ -73,8 +73,8 @@ divisioMaior = {
   \breathe
 }
 divisioMaxima = {
-  \once \override BreathingSign  #'print-function = #Breathing_sign::divisio_maxima
-  \once \override BreathingSign  #'Y-offset-callbacks = #'()
+  \once \override BreathingSign  #'stencil = #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)
@@ -82,8 +82,8 @@ divisioMaxima = {
   \breathe
 }
 finalis = {
-  \once \override BreathingSign  #'print-function = #Breathing_sign::finalis
-  \once \override BreathingSign  #'Y-offset-callbacks = #'()
+  \once \override BreathingSign  #'stencil = #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)
@@ -100,3 +100,83 @@ semicirculus = #(make-articulation "semicirculus")
 circulus = #(make-articulation "circulus")
 episemInitium = #(make-span-event 'TextSpanEvent START)
 episemFinis = #(make-span-event 'TextSpanEvent STOP)
+
+%
+% 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 = #(def-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)
+%  `(def-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)
+
+%
+% example layout block for gregorian chant notation
+%
+
+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"
+       minimumVerticalExtent = ##f
+    }
+    \context {
+       \Voice
+       \remove Ligature_bracket_engraver
+       \consists Vaticana_ligature_engraver
+       \override NoteHead #'style = #'vaticana.punctum
+       \override Stem #'transparent = ##t
+    }
+}