ly/gregorian-init.ly

   1 \version "1.9.1"
   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.NoteHead \override #'virga = ##t
  12 stropha =
  13   \once \property Voice.NoteHead \override #'stropha = ##t
  14 inclinatum =
  15   \once \property Voice.NoteHead \override #'inclinatum = ##t
  16 auctum =
  17   \once \property Voice.NoteHead \override #'auctum = ##t
  18 descendens =
  19   \once \property Voice.NoteHead \override #'descendens = ##t
  20 ascendens =
  21   \once \property Voice.NoteHead \override #'ascendens = ##t
  22 pes =
  23   \once \property Voice.NoteHead \override #'pes-or-flexa = ##t
  24 flexa =
  25   \once \property Voice.NoteHead \override #'pes-or-flexa = ##t
  26 oriscus =
  27   \once \property Voice.NoteHead \override #'oriscus = ##t
  28 quilisma =
  29   \once \property Voice.NoteHead \override #'quilisma = ##t
  30 deminutum =
  31   \once \property Voice.NoteHead \override #'deminutum = ##t
  32
  33 %
  34 % declare divisiones shortcuts
  35 %
  36 virgula = {
  37   \once \property Voice.BreathingSign \override #'text = #(make-musicglyph-markup "scripts-rcomma")
  38   \once \property Voice.BreathingSign \override #'font-relative-size = #-1
  39
  40   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  41   \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
  42
  43   \breathe
  44 }
  45 caesura = {
  46   \once \property Voice.BreathingSign \override #'text = #(make-musicglyph-markup "scripts-rvarcomma")
  47   \once \property Voice.BreathingSign \override #'font-relative-size = #-1
  48
  49   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  50   \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
  51
  52   \breathe
  53 }
  54 divisioMinima = {
  55   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_minima
  56
  57   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  58   \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
  59
  60   \breathe
  61 }
  62 divisioMaior = {
  63   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maior
  64   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
  65
  66   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  67   \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
  68
  69   \breathe
  70 }
  71 divisioMaxima = {
  72   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maxima
  73   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
  74
  75   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  76   \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
  77
  78   \breathe
  79 }
  80 finalis = {
  81   \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::finalis
  82   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
  83
  84   % Workaround: add padding.  Correct fix would be spacing engine handle this.
  85   \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
  86
  87   \breathe
  88 }
  89
  90 %
  91 % declare articulation shortcuts
  92 %
  93 accentus = #(make-articulation "accentus")
  94 ictus = #(make-articulation "ictus")
  95 semicirculus = #(make-articulation "semicirculus")
  96 circulus = #(make-articulation "circulus")
  97 episemInitium = #(make-span-event 'TextSpanEvent START)
  98 episemFinis = #(make-span-event 'TextSpanEvent STOP)