4 %%%%%%%% shortcuts common for all styles of gregorian chant notation
8 % declare head prefix shortcuts
11 \once \property Voice.NoteHead \override #'virga = ##t
13 \once \property Voice.NoteHead \override #'stropha = ##t
15 \once \property Voice.NoteHead \override #'inclinatum = ##t
17 \once \property Voice.NoteHead \override #'auctum = ##t
19 \once \property Voice.NoteHead \override #'descendens = ##t
21 \once \property Voice.NoteHead \override #'ascendens = ##t
23 \once \property Voice.NoteHead \override #'pes-or-flexa = ##t
25 \once \property Voice.NoteHead \override #'pes-or-flexa = ##t
27 \once \property Voice.NoteHead \override #'oriscus = ##t
29 \once \property Voice.NoteHead \override #'quilisma = ##t
31 \once \property Voice.NoteHead \override #'deminutum = ##t
33 \once \property Voice.NoteHead \override #'linea = ##t
35 \once \property Voice.NoteHead \override #'cavum = ##t
38 % declare divisiones shortcuts
41 \once \property Voice.BreathingSign \override #'text = #(make-musicglyph-markup "scripts-rcomma")
42 \once \property Voice.BreathingSign \override #'font-relative-size = #-1
44 % Workaround: add padding. Correct fix would be spacing engine handle this.
45 \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
50 \once \property Voice.BreathingSign \override #'text = #(make-musicglyph-markup "scripts-rvarcomma")
51 \once \property Voice.BreathingSign \override #'font-relative-size = #-1
53 % Workaround: add padding. Correct fix would be spacing engine handle this.
54 \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
59 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_minima
61 % Workaround: add padding. Correct fix would be spacing engine handle this.
62 \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
67 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maior
68 \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
70 % Workaround: add padding. Correct fix would be spacing engine handle this.
71 \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
76 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maxima
77 \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
79 % Workaround: add padding. Correct fix would be spacing engine handle this.
80 \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
85 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::finalis
86 \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
88 % Workaround: add padding. Correct fix would be spacing engine handle this.
89 \once \property Voice.BreathingSign \override #'extra-X-extent = #'(-1.0 . 0)
95 % declare articulation shortcuts
97 accentus = #(make-articulation "accentus")
98 ictus = #(make-articulation "ictus")
99 semicirculus = #(make-articulation "semicirculus")
100 circulus = #(make-articulation "circulus")
101 episemInitium = #(make-span-event 'TextSpanEvent START)
102 episemFinis = #(make-span-event 'TextSpanEvent STOP)