input/test/gregorian-scripts.ly

   1 \version "1.7.19"
   2 \header {
   3     title       = "Gregorian Scripts"
   4     texidoc     = "@cindex Gregorian Scripts
   5
   6 Gregorian Scripts:
   7
   8 ictus, circulus, semicirculus, accentus, episem.
   9
  10 TODO: augmentum.
  11
  12 FIXME: when applying an episem within a ligature, the TextSpanner's width
  13 collapses to 0.0.
  14
  15 FIXME: clef does not show on each line
  16
  17 FIXME: horizontal spacing (ragged right mode)
  18
  19 FIXME: padding/minimum-distance is fragile.
  20
  21 "}
  22
  23 \include "gregorian-init.ly"
  24
  25 cantus = \notes \relative c' {
  26   \clef "vaticana_do2"
  27
  28   a-\ictus
  29   a-\circulus
  30   a-\semicirculus
  31   a-\accentus
  32
  33   %{ %% TODO: augmentum:
  34      a-\augmentum
  35      \[ \augmentumInitium b \flexa a \augmentumFinis \]
  36   %}
  37
  38   a \episemInitium b \flexa a \episemFinis
  39
  40   \[ a \episemInitium b \flexa a \episemFinis \]
  41 }
  42
  43 \score {
  44   \context VaticanaStaff <
  45     \context VaticanaVoice <
  46       \cantus
  47     >
  48   >
  49   \paper {
  50     stafflinethickness = \staffspace / 5.0
  51     linewidth = 70.0
  52     width = 60.0
  53     indent = 0.0
  54     raggedright = ##t
  55
  56 %   width = 15.0 \cm %%% no effect?
  57 %   gourlay_maxmeasures = 1. %%% no effect?
  58
  59     \translator {
  60       \VoiceContext
  61       \name VaticanaVoice
  62       \alias Voice
  63       \remove "Stem_engraver"
  64       \remove Ligature_bracket_engraver
  65       \consists Vaticana_ligature_engraver
  66       NoteHead \set #'style = #'vaticana_punctum
  67       Script \set #'padding = #0.0
  68
  69       % prepare TextSpanner for \episem{Initium|Finis} use
  70       TextSpanner \set #'style = #'line
  71       TextSpanner \set #'edge-height = #'(0 . 0)
  72       TextSpanner \set #'padding = #0.5
  73       TextSpanner \set #'edge-text = #'("" . "")
  74     }
  75     \translator {
  76       \StaffContext
  77       \name VaticanaStaff
  78       \alias Staff
  79       \accepts VaticanaVoice
  80       \remove Bar_engraver
  81       \consists Custos_engraver
  82       StaffSymbol \set #'line-count = #4
  83 %      StaffSymbol \set #'width = #60.0 % FIXME: should be \linewidth
  84       TimeSignature \set #'transparent = ##t
  85       KeySignature \set #'style = #'vaticana
  86       Accidental \set #'style = #'vaticana
  87       Custos \set #'style = #'vaticana
  88       Custos \set #'neutral-position = #3
  89       Custos \set #'neutral-direction = #-1
  90       Custos \set #'adjust-if-on-staffline = ##t
  91     }
  92     \translator {
  93       \RemoveEmptyStaffContext
  94       \accepts VaticanaVoice
  95     }
  96     \translator {
  97       \ScoreContext
  98       \accepts VaticanaStaff
  99       \remove Bar_number_engraver
 100     }
 101   }
 102 }