input/test/ancient-font.ly

   1 \version "1.5.68"
   2 \header {
   3     title       = "ancient font test"
   4     date        = "2000"
   5 }
   6
   7
   8
   9 \include "paper26.ly"
  10
  11 global =  \notes {
  12     \property Score.timing = ##f
  13 %   \property Score.forceAccidental = ##t
  14     \property Staff.TimeSignature \set #'font-family = #'ancient
  15 %   \property Staff.TimeSignature \override #'style = #'mensural
  16 }
  17
  18 upperVoice =  \context Staff = upperVoice <
  19     \global
  20
  21     % this is broken until further notice -- see refman
  22     % \property Staff.StaffSymbol \override #'line-count = #4
  23     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  24       #'line-count = #4
  25
  26     \notes \transpose c' {
  27         \property Staff.Clef \set #'font-family = #'ancient
  28         \property Staff.KeySignature \set #'font-family = #'ancient
  29         \property Staff.KeySignature \override #'style = #'vaticana
  30         \property Staff.Accidental \set #'font-family = #'ancient
  31         \property Staff.Accidental \override #'style = #'vaticana
  32         \property Staff.Custos \set #'font-family = #'ancient
  33         \property Staff.Custos \override #'style = #'vaticana
  34         \property Staff.Custos \override #'neutral-position = #4
  35         \property Staff.Custos \override #'neutral-direction = #-1
  36         \property Staff.Custos \override #'adjust-if-on-staffline = ##t
  37         \property Voice.NoteHead \set #'font-family = #'ancient
  38         \property Voice.NoteHead \override #'style = #'vaticana_punctum
  39         \property Voice.Porrectus \override #'style = #'vaticana
  40         \property Voice.Porrectus \override #'solid = ##t
  41         \property Voice.Porrectus \override #'add-stem = ##t
  42         \property Voice.Porrectus \override #'direction = #-1
  43         \property Voice.Porrectus \override #'thickness = #0.5
  44         \key es \major
  45         \clef "vaticana_fa2"
  46         c!1 des! e! f! ges!
  47
  48 %       \property Staff.clefGlyph = #"clefs-vaticana_do"
  49 %       \property Staff.clefPosition = #1
  50 %       \property Staff.clefOctavation = #0
  51         \clef "vaticana_do2"
  52
  53         \property Voice.NoteHead \override #'style = #'vaticana_inclinatum
  54         a! b!
  55         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  56         \property Voice.NoteHead \override #'style = #'vaticana_virga
  57         ces' b! des'! \~ ges! \~ fes!
  58         \breathe
  59         \clef "vaticana_fa1"
  60         \property Voice.NoteHead \override #'style = #'vaticana_quilisma
  61         es d
  62         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  63         c d
  64         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  65         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  66         es f
  67         \property Voice.NoteHead \override #'style = #'vaticana_lpes
  68         g as
  69         \property Voice.NoteHead \override #'style = #'vaticana_upes
  70         bes as
  71         \property Voice.NoteHead \override #'style = #'vaticana_vupes
  72         g f
  73         \property Voice.NoteHead \override #'style = #'vaticana_plica
  74         \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
  75         es d
  76         \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
  77         c d
  78         \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
  79         es f
  80
  81         \property Staff.KeySignature \override #'style = #'medicaea
  82         \property Staff.Accidental \override #'style = #'medicaea
  83         \property Staff.Custos \override #'style = #'medicaea
  84         \property Voice.NoteHead \override #'style = #'medicaea_punctum
  85         \clef "medicaea_fa2"
  86         ces! des!
  87         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  88         e! f! ges!
  89         \clef "medicaea_do2"
  90         \property Voice.NoteHead \override #'style = #'medicaea_subbipunctum
  91         a! b! ces'!
  92         \property Voice.NoteHead \override #'style = #'medicaea_virga
  93         b! a!
  94         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  95         ges! fes!
  96         \clef "medicaea_fa1"
  97         \property Voice.NoteHead \override #'style = #'medicaea_rvirga
  98         e! des! ces!
  99
 100         \property Staff.KeySignature \override #'style = #'hufnagel
 101         \property Staff.Accidental \override #'style = #'hufnagel
 102         \property Staff.Custos \override #'style = #'hufnagel
 103         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
 104         \clef "hufnagel_fa2"
 105         ces! des! es!
 106         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
 107         fes! ges!
 108         \clef "hufnagel_do2"
 109         \property Voice.NoteHead \override #'style = #'hufnagel_lpes
 110         as! bes! ces'!
 111         \property Voice.NoteHead \override #'style = #'hufnagel_virga
 112         bes! as!
 113         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
 114         ges! fes!
 115         \clef "hufnagel_do_fa"
 116         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
 117         es! des! ces! des! es! fes!
 118         \bar "||"
 119     }
 120 >
 121
 122 lowerVoice =  \context Staff = lowerNotes <
 123     \global
 124
 125     % this is broken until further notice -- see refman
 126     % \property Staff.StaffSymbol \override #'line-count = #5
 127     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
 128       #'line-count = #5
 129
 130     \notes \transpose c' {
 131         \property Voice.autoBeaming = ##f
 132         \property Staff.Clef \set #'font-family = #'ancient
 133         \property Staff.KeySignature \set #'font-family = #'ancient
 134         \property Staff.KeySignature \override #'style = #'mensural
 135         \property Staff.Accidental \set #'font-family = #'ancient
 136         \property Staff.Accidental \override #'style = #'mensural
 137         \property Staff.Custos \set #'font-family = #'ancient
 138         \property Staff.Custos \override #'style = #'mensural
 139         \property Staff.Custos \override #'neutral-position = #3
 140         \property Staff.Custos \override #'neutral-direction = #-1
 141         \property Staff.Custos \override #'adjust-if-on-staffline = ##t
 142         \property Voice.NoteHead \set #'font-family = #'ancient
 143         \property Voice.NoteHead \override #'style = #'neo_mensural
 144         \property Voice.Stem \set #'font-family = #'ancient % ancient flags
 145         \property Voice.Rest \set #'font-family = #'music
 146         \property Voice.Rest \override #'style = #'neo_mensural
 147         \property Voice.Porrectus \override #'style = #'mensural
 148         \property Voice.Porrectus \override #'solid = ##f
 149         \property Voice.Porrectus \override #'add-stem = ##t
 150         \property Voice.Porrectus \override #'thickness = #0.7
 151 %       \property Voice.Porrectus \override #'auto-properties = ##t
 152 %       \property Voice.Porrectus \override #'width = #3.0
 153         \key a \major
 154
 155         % IMPORTANT NOTE:
 156         %
 157         % The porrectus syntax is definitely subject to change.  For
 158         % proper use, it may eventually change into something like this:
 159         %
 160         % \startLigature e \~ c \endLigature
 161         %
 162         % The reason is that there needs to be some enclosing instance
 163         % for correct handling of line breaking, alignment with
 164         % adjacent note heads, and placement of accidentals.
 165
 166         \clef "neo_mensural_c2"
 167         cis' e' \~ d' gis' \~ e'
 168         \property Staff.forceClef = ##t
 169         \clef "neo_mensural_c2"
 170
 171         fis' \~ b cis''
 172         b \~ a a \~ fis
 173         \clef "petrucci_c2"
 174         cis \~ fis ces1 % \bar "|"
 175
 176         \clef "petrucci_c2"
 177         r\longa
 178         \property Staff.forceClef = ##t
 179         \clef "mensural_c2"
 180         r\breve r1 r2
 181         \clef "mensural_g"
 182         r4 r8 r16 r16 \bar "|"
 183
 184         \property Voice.NoteHead \override #'style = #'mensural
 185         \property Voice.Stem \override #'style = #'mensural
 186         \property Voice.Stem \override #'thickness = #1.0
 187         \property Voice.Rest \set #'font-family = #'ancient
 188         \property Voice.Rest \override #'style = #'mensural
 189         \clef "petrucci_f"
 190         c8 b, c16 b, c32 b, c64 b, c b,
 191         d8 e  d16 e  d32 e  d64 e  d e
 192         r\longa
 193         \property Staff.forceClef = ##t
 194         \clef "petrucci_f"
 195         r\breve r1 % \bar "|"
 196         \clef "mensural_f"
 197
 198         % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
 199         % segmentation fault on r8/r16/r32.  (Strange: what has
 200         % Voice.Stem style to do with mensural rests?)
 201         \property Voice.Stem \override #'style = #'neo_mensural
 202         r2 r4 r8 r16 r32 r32
 203         \property Voice.Stem \override #'style = #'mensural
 204
 205         \property Staff.forceClef = ##t
 206         \clef "mensural_f"
 207         e2 f g
 208         \clef "mensural_g"
 209
 210         bes'! \~ as'! \~ cis''!
 211         bes'! \~ fis'! as'! \~ ges'!
 212         \property Staff.forceClef = ##t
 213         \clef "mensural_g"
 214         e' d' c'1 \bar "|"
 215
 216         \property Staff.forceClef = ##t
 217         \clef "petrucci_g"
 218         c'2 d' e' f' g'
 219         \clef "petrucci_g"
 220         as'! bes'! cis''!
 221         bes'! as'! gis'! fis'!
 222         \property Staff.forceClef = ##t
 223         \clef "mensural_g"
 224         es'! des'! cis'!1 \bar "||"
 225     }
 226 >
 227
 228 \score {
 229     \context ChoirStaff <
 230         \upperVoice
 231         \lowerVoice
 232     >
 233     \paper {
 234 %       \paperTwentysix
 235         linewidth = 17.25\cm
 236         textheight = 26.0\cm
 237         stafflinethickness = \staffspace / 5.0
 238         indent = 0.0
 239         \translator {
 240             \StaffContext
 241             \consists Custos_engraver
 242 %           Custos \override #'style = #'mensural
 243             \remove Time_signature_engraver
 244 %           StaffSymbol \override #'thickness = #2.0
 245 %           StaffSymbol \override #'line-count = #4
 246         }
 247         \translator {
 248             \ScoreContext
 249 %           \remove System_start_delimiter_engraver
 250 %           systemStartDelimiter \override #'glyph = #'brace
 251         }
 252         \translator {
 253             \ChoirStaffContext
 254             \remove System_start_delimiter_engraver
 255 %           systemStartDelimiter \override #'glyph = #'empty
 256         }
 257     }
 258 }