input/test/gregorian-scripts.ly

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