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
34 % declare divisiones shortcuts
37 \once \property Voice.BreathingSign \override #'text = #"scripts-rcomma"
38 \once \property Voice.BreathingSign \override #'font-relative-size = #-1
42 \once \property Voice.BreathingSign \override #'text = #"scripts-rvarcomma"
43 \once \property Voice.BreathingSign \override #'font-relative-size = #-1
47 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_minima
51 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maior
52 \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
56 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::divisio_maxima
57 \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
61 \once \property Voice.BreathingSign \override #'molecule-callback = #Breathing_sign::finalis
62 \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
66 episemInitium = #(make-span-event 'TextSpanEvent START)
68 episemFinis = #(make-span-event 'TextSpanEvent STOP)