ly/gregorian.ly

   1 %{
   2   Shortcuts common for all styles of gregorian chant notation.
   3   $Id$
   4 %}
   5
   6 \version "2.12.0"
   7
   8 %
   9 % Declare memorable shortcuts for special unicode characters
  10 % that are used in chant notation.
  11 %
  12
  13 % unicode 0132 (latin capital ligature IJ)
  14 IJ = \lyricmode { Ĳ }
  15 IIJ = \lyricmode { IĲ }
  16
  17 % unicode 0133 (latin small ligature ij)
  18 ij = \lyricmode { ĳ }
  19 iij = \lyricmode { iĳ }
  20
  21 %
  22 % Given some music that represents lyrics, add a prefix to the first
  23 % lyric event.
  24 %
  25 % TODO: Robustify this function.  For example, this function works
  26 % correctly for "\versus { some lyrics }", but it barfs with a wrong type
  27 % argument error for e.g. "\versus some lyrics".
  28 %
  29 #(define (add-prefix-to-lyrics prefix music)
  30    (make-music
  31     'SequentialMusic
  32     'elements (append
  33                (cons
  34                 (let* ((elems (car (ly:music-property music 'elements)))
  35                        (props (ly:music-mutable-properties elems))
  36                        (events (filter (lambda (x)
  37                                          (equal? (car x) 'elements))
  38                                        props))
  39                        (first-evt (cadar events))
  40                        (first-syllable (ly:prob-property first-evt 'text))
  41                        (first-duration (ly:prob-property first-evt 'duration)))
  42                   (make-music
  43                    'LyricEvent
  44                    'duration first-duration
  45                    'text (string-append prefix first-syllable)))
  46                 (cdr (ly:music-property music 'elements))))))
  47
  48 % Add unicode 2123 (versicle) as prefix to lyrics.
  49 versus =
  50 #(define-music-function (parser location music) (ly:music?)
  51    (add-prefix-to-lyrics "℣" music))
  52
  53 % Add unicode 211F (response) as prefix to lyrics.
  54 responsum =
  55 #(define-music-function (parser location music) (ly:music?)
  56    (add-prefix-to-lyrics "℟" music))
  57
  58 %
  59 % Declare head prefix shortcuts.
  60 %
  61 virga =
  62   \once \override NoteHead  #'virga = ##t
  63 stropha =
  64   \once \override NoteHead  #'stropha = ##t
  65 inclinatum =
  66   \once \override NoteHead  #'inclinatum = ##t
  67 auctum =
  68   \once \override NoteHead  #'auctum = ##t
  69 descendens =
  70   \once \override NoteHead  #'descendens = ##t
  71 ascendens =
  72   \once \override NoteHead  #'ascendens = ##t
  73 pes =
  74   \once \override NoteHead  #'pes-or-flexa = ##t
  75 flexa =
  76   \once \override NoteHead  #'pes-or-flexa = ##t
  77 oriscus =
  78   \once \override NoteHead  #'oriscus = ##t
  79 quilisma =
  80   \once \override NoteHead  #'quilisma = ##t
  81 deminutum =
  82   \once \override NoteHead  #'deminutum = ##t
  83 linea =
  84   \once \override NoteHead  #'linea = ##t
  85 cavum =
  86   \once \override NoteHead  #'cavum = ##t
  87
  88 %
  89 % Declare divisiones shortcuts.
  90 %
  91 virgula = {
  92   \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts.rcomma")
  93   \once \override BreathingSign  #'font-size = #-2
  94
  95   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  96   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
  97
  98   \breathe
  99 }
 100 caesura = {
 101   \once \override BreathingSign  #'text = #(make-musicglyph-markup "scripts.rvarcomma")
 102   \once \override BreathingSign  #'font-size = #-2
 103
 104   % Workaround: add padding.  Correct fix would be spacing engine handle this.
 105   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
 106
 107   \breathe
 108 }
 109 divisioMinima = {
 110   \once \override BreathingSign  #'stencil = #ly:breathing-sign::divisio-minima
 111
 112   % Workaround: add padding.  Correct fix would be spacing engine handle this.
 113   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
 114
 115   \breathe
 116 }
 117 divisioMaior = {
 118   \once \override BreathingSign  #'stencil = #ly:breathing-sign::divisio-maior
 119   \once \override BreathingSign  #'Y-offset = #0
 120
 121   % Workaround: add padding.  Correct fix would be spacing engine handle this.
 122   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
 123
 124   \breathe
 125 }
 126 divisioMaxima = {
 127   \once \override BreathingSign  #'stencil = #ly:breathing-sign::divisio-maxima
 128   \once \override BreathingSign  #'Y-offset = #0
 129
 130   % Workaround: add padding.  Correct fix would be spacing engine handle this.
 131   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
 132
 133   \breathe
 134 }
 135 finalis = {
 136   \once \override BreathingSign  #'stencil = #ly:breathing-sign::finalis
 137   \once \override BreathingSign  #'Y-offset = #0
 138
 139   % Workaround: add padding.  Correct fix would be spacing engine handle this.
 140   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
 141
 142   \breathe
 143 }
 144
 145 %
 146 % Declare articulation shortcuts.
 147 %
 148 accentus = #(make-articulation "accentus")
 149 ictus = #(make-articulation "ictus")
 150 semicirculus = #(make-articulation "semicirculus")
 151 circulus = #(make-articulation "circulus")
 152
 153 %
 154 % \augmentum increases the dot-count value of all note heads to which
 155 % it is applied by one.
 156 %
 157 augmentum =
 158 #(define-music-function (parser location expr) (ly:music?)
 159    (shift-duration-log expr 0 1))
 160
 161 %
 162 % Declare shortcut music functions for Liber Hymnarius neumes
 163 % table (experimental).
 164 %
 165
 166 #(define (make-ligature music)
 167    (make-music 'SequentialMusic
 168                'elements (append
 169                           (cons
 170                            (make-music 'EventChord
 171                                        'elements (list
 172                                                   (make-span-event 'LigatureEvent START)))
 173                            (ly:music-property music 'elements))
 174                           (list
 175                            (make-music 'EventChord
 176                                        'elements (list
 177                                                   (make-span-event 'LigatureEvent STOP)))))))
 178
 179 ligature = #(define-music-function
 180               (location music) (ly:music?)
 181               (make-ligature music))
 182
 183 %#(define (make-script x)
 184 %   (make-music 'ArticulationEvent
 185 %               'articulation-type x))
 186 %
 187 %#(define (add-script m x)
 188 %   (if
 189 %     (equal? (ly:music-property m 'name) 'EventChord)
 190 %     (set! (ly:music-property m 'elements)
 191 %           (cons (make-script x)
 192 %                 (ly:music-property m 'elements))))
 193 %   m)
 194 %
 195 %#(define (add-staccato m)
 196 %   (add-script m "staccato"))
 197 %
 198 % % \applyMusic #(lambda (x) (music-map add-staccato x)) { c c }
 199 %
 200 % % \climacus { x y z ... }:
 201 % % \[ \virga x \inclinatum y \inclinatum z ... \]
 202 %
 203 %#(defmacro def-climacus-function (start stop)
 204 %  `(define-music-function (location music) (ly:music?)
 205 %     (make-music 'SequentialMusic
 206 %        'elements (list 'LigatureStartEvent
 207 %                       (ly:music-deep-copy ,start)
 208 %                        music
 209 %                        (ly:music-deep-copy ,stop)
 210 %                       'LigatureStopEvent))))
 211 %climacus = #(def-climacus-function startSequentialMusic stopSequentialMusic)
 212
 213 %
 214 % Declare default layout; here for Vaticana style.  In case there will
 215 % be additional styles, we may want to create style-specific .ly files
 216 % for inclusion (e.g. vaticana-init.ly), move the style-dependent stuff
 217 % over there, leave the style-independent Gregorian stuff here, and let
 218 % the style-specific file (vaticana-init.ly) include this file.  The
 219 % user then will have to include vaticana-init.ly instead of
 220 % gregorian.ly.
 221 %
 222 \layout {
 223     indent = 0.0
 224
 225     %%% TODO: should ragged-right be the default?
 226     %ragged-right = ##t
 227     ragged-last = ##t
 228
 229     line-thickness = #(/ (ly:output-def-lookup $defaultpaper 'staff-space) 7.0)
 230
 231     \context {
 232         \VaticanaStaff
 233          \override StaffSymbol #'color = #red
 234          \override LedgerLineSpanner #'color = #red
 235     }
 236     \context {
 237         \Score
 238         \remove "Bar_number_engraver"
 239
 240         %%%
 241         %%% FIXME: Musicologically seen, timing should be set to #f.
 242         %%% Unfortunately, setting it to #f will result in no
 243         %%% line-breakable items being created, such that the whole
 244         %%% music will end up in a single line.  Therefore, we
 245         %%% currently set it to #t, until the ligature code is fixed
 246         %%% to automatically insert breakable items.
 247         %%%
 248         timing = ##t
 249
 250         %%%
 251         %%% FIXME: Setting barAlways to #t would fix the above
 252         %%% "timing = ##t" problem, but, surprisingly, it increases
 253         %%% the space between ligatures.  Hence, we set it to #f.
 254         %%%
 255         barAlways = ##f
 256
 257         \override SpacingSpanner #'packed-spacing = ##t
 258
 259         %%%
 260         %%% TODO: Play around with the following SpacingSpanner
 261         %%% settings to yield better spacing between ligatures.
 262         %%%
 263         %%% FIXME: setting #'spacing-increment to a small value
 264         %%% causes tons of "programming error: adding reverse spring,
 265         %%% setting to unit" messages.
 266         %%%
 267         %\override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 4)
 268         %\override SpacingSpanner #'shortest-duration-space = #0
 269         %\override SpacingSpanner #'average-spacing-wishes = ##f
 270         %\override SpacingSpanner #'spacing-increment = #0.0
 271         %\override SpacingSpanner #'uniform-stretching = ##t
 272     }
 273 }
 274
 275 %
 276 % neumeDemoLayout defines a layout block suitable for notating pure
 277 % Vaticana style neumes without any other notation symbols such as
 278 % staff lines or clefs.  This layout is useful for engraving neumes
 279 % tables, such as that one in the lilypond manual section on
 280 % Gregorian ligatures, or for educational works.
 281 %
 282 neumeDemoLayout = \layout {
 283     interscoreline = 1
 284     \context {
 285         \Score
 286         \remove "Bar_number_engraver"
 287     }
 288     \context {
 289         \Staff
 290         \remove "Clef_engraver"
 291         \remove "Key_engraver"
 292         \override StaffSymbol #'transparent = ##t
 293         \remove "Time_signature_engraver"
 294         \remove "Bar_engraver"
 295         \override VerticalAxisGroup #'minimum-Y-extent = ##f
 296     }
 297     \context {
 298         \Voice
 299         \remove Ligature_bracket_engraver
 300         \consists Vaticana_ligature_engraver
 301         \override NoteHead #'style = #'vaticana.punctum
 302         \override Stem #'transparent = ##t
 303     }
 304 }
 305
 306 %%% Local Variables:
 307 %%% coding: utf-8
 308 %%% End: