ly/gregorian-init.ly

   1 \version "1.7.10"
   2
   3 %%%%%%%%
   4 %%%%%%%% shortcuts common for all styles of gregorian chant notation
   5 %%%%%%%%
   6
   7 %
   8 % declare head prefix shortcuts
   9 %
  10 virga =
  11   \once \property Voice.LigatureHead \override #'virga = ##t
  12 stropha =
  13   \once \property Voice.LigatureHead \override #'stropha = ##t
  14 inclinatum =
  15   \once \property Voice.LigatureHead \override #'inclinatum = ##t
  16 auctum =
  17   \once \property Voice.LigatureHead \override #'auctum = ##t
  18 aucta =
  19   \once \property Voice.LigatureHead \override #'auctum = ##t
  20 descendens =
  21   \once \property Voice.LigatureHead \override #'descendens = ##t
  22 ascendens =
  23   \once \property Voice.LigatureHead \override #'ascendens = ##t
  24 pes =
  25   \once \property Voice.LigatureHead \override #'pes-or-flexa = ##t
  26 flexa =
  27   \once \property Voice.LigatureHead \override #'pes-or-flexa = ##t
  28 semivocalis =
  29   \once \property Voice.LigatureHead \override #'semivocalis = ##t
  30 oriscus =
  31   \once \property Voice.LigatureHead \override #'oriscus = ##t
  32 quilisma =
  33   \once \property Voice.LigatureHead \override #'quilisma = ##t
  34 deminutum =
  35   \once \property Voice.LigatureHead \override #'deminutum = ##t
  36
  37 %
  38 % declare divisiones shortcuts
  39 %
  40 virgula = {
  41   \once \property Voice.BreathingSign \override #'text = #"scripts-rcomma"
  42   \once \property Voice.BreathingSign \override #'font-relative-size = #-1
  43   \breathe
  44 }
  45 caesura = {
  46   \once \property Voice.BreathingSign \override #'text = #"scripts-rvarcomma"
  47   \once \property Voice.BreathingSign \override #'font-relative-size = #-1
  48   \breathe
  49 }
  50 divisiominima = {
  51   \once \property Voice.BreathingSign \override #'type = #'minima
  52   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_minima
  53   \breathe
  54 }
  55 divisiomaior = {
  56   \once \property Voice.BreathingSign \override #'type = #'maior
  57   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maior
  58   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
  59   \breathe
  60 }
  61 divisiomaxima = {
  62   \once \property Voice.BreathingSign \override #'type = #'maxima
  63   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maxima
  64   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
  65   \breathe
  66 }
  67 finalis = {
  68   \once \property Voice.BreathingSign \override #'type = #'finalis
  69   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::finalis
  70   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
  71   \breathe
  72 }