input/test/ancient-font.ly

   1 \version "1.3.146"
   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.Accidentals \set #'font-family = #'ancient
  31         \property Staff.Accidentals \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 #'stem-direction = #-1
  43         \property Voice.Porrectus \override #'line-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.Accidentals \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.Accidentals \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.noAutoBeaming = ##t
 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.Accidentals \set #'font-family = #'ancient
 136         \property Staff.Accidentals \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 #'stem-direction = #1
 151         \property Voice.Porrectus \override #'line-thickness = #0.7
 152 %       \property Voice.Porrectus \override #'auto-properties = ##t
 153 %       \property Voice.Porrectus \override #'porrectus-width = #3.0
 154         \key a \major
 155
 156         % IMPORTANT NOTE:
 157         %
 158         % The porrectus syntax is definitely subject to change.  For
 159         % proper use, it may eventually change into something like this:
 160         %
 161         % \startLigature e \~ c \endLigature
 162         %
 163         % The reason is that there needs to be some enclosing instance
 164         % for correct handling of line breaking, alignment with
 165         % adjacent note heads, and placement of accidentals.
 166
 167         \clef "neo_mensural_c2"
 168         cis' e' \~ d' gis' \~ e'
 169         \property Staff.forceClef = ##t
 170         \clef "neo_mensural_c2"
 171
 172         fis' \~ b cis''
 173         b \~ a a \~ fis
 174         \clef "petrucci_c2"
 175         cis \~ fis ces1 % \bar "|"
 176
 177         \clef "petrucci_c2"
 178         r\longa
 179         \property Staff.forceClef = ##t
 180         \clef "mensural_c2"
 181         r\breve r1 r2
 182         \clef "mensural_g"
 183         r4 r8 r16 r16 \bar "|"
 184
 185         \property Voice.NoteHead \override #'style = #'mensural
 186         \property Voice.Stem \override #'style = #'mensural
 187         \property Voice.Stem \override #'thickness = #1.0
 188         \property Voice.Rest \set #'font-family = #'ancient
 189         \property Voice.Rest \override #'style = #'mensural
 190         \clef "petrucci_f"
 191         c8 b, c16 b, c32 b, c64 b, c b,
 192         d8 e  d16 e  d32 e  d64 e  d e
 193         r\longa
 194         \property Staff.forceClef = ##t
 195         \clef "petrucci_f"
 196         r\breve r1 % \bar "|"
 197         \clef "mensural_f"
 198
 199         % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
 200         % segmentation fault on r8/r16/r32.  (Strange: what has
 201         % Voice.Stem style to do with mensural rests?)
 202         \property Voice.Stem \override #'style = #'neo_mensural
 203         r2 r4 r8 r16 r32 r32
 204         \property Voice.Stem \override #'style = #'mensural
 205
 206         \property Staff.forceClef = ##t
 207         \clef "mensural_f"
 208         e2 f g
 209         \clef "mensural_g"
 210
 211         bes'! \~ as'! \~ cis''!
 212         bes'! \~ fis'! as'! \~ ges'!
 213         \property Staff.forceClef = ##t
 214         \clef "mensural_g"
 215         e' d' c'1 \bar "|"
 216
 217         \property Staff.forceClef = ##t
 218         \clef "petrucci_g"
 219         c'2 d' e' f' g'
 220         \clef "petrucci_g"
 221         as'! bes'! cis''!
 222         bes'! as'! gis'! fis'!
 223         \property Staff.forceClef = ##t
 224         \clef "mensural_g"
 225         es'! des'! cis'!1 \bar "||"
 226     }
 227 >
 228
 229 \score {
 230     \context ChoirStaff <
 231         \upperVoice
 232         \lowerVoice
 233     >
 234     \paper {
 235 %       \paperTwentysix
 236         linewidth = 17.25\cm
 237         textheight = 26.0\cm
 238         stafflinethickness = \staffspace / 5.0
 239         indent = 0.0
 240         \translator {
 241             \StaffContext
 242             \consists Custos_engraver
 243 %           Custos \override #'style = #'mensural
 244             \remove Time_signature_engraver
 245 %           StaffSymbol \override #'thickness = #2.0
 246 %           StaffSymbol \override #'line-count = #4
 247         }
 248         \translator {
 249             \ScoreContext
 250 %           \remove System_start_delimiter_engraver
 251 %           SystemStartDelimiter \override #'glyph = #'brace
 252         }
 253         \translator {
 254             \ChoirStaffContext
 255             \remove System_start_delimiter_engraver
 256 %           SystemStartDelimiter \override #'glyph = #'empty
 257         }
 258     }
 259 }