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 \override #'style = #'old
  15 }
  16
  17 upperVoice =  \context Staff = upperVoice <
  18     \global
  19
  20     % this is broken until further notice -- see refman
  21     % \property Staff.StaffSymbol \override #'line-count = #4
  22     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  23       #'line-count = #4
  24
  25     \notes \transpose c' {
  26         \property Staff.KeySignature \override #'style = #'vaticana
  27         \property Staff.Accidentals \override #'style = #'vaticana
  28         \property Staff.Custos \override #'style = #'vaticana
  29         \property Voice.NoteHead \override #'style = #'mensural
  30         \key es \major
  31         \clef "vaticana_fa2"
  32         cis!2 des! e! fis! ges!
  33
  34 %       \property Staff.clefGlyph = #"clefs-vaticana_do"
  35 %       \property Staff.clefPosition = #1
  36 %       \property Staff.clefOctavation = #0
  37         \clef "vaticana_do2"
  38
  39         a b c'
  40         b as gis fes
  41         \clef "vaticana_fa1"
  42         es dis ces1 \bar "|"
  43
  44         \property Staff.KeySignature \override #'style = #'medicaea
  45         \property Staff.Accidentals \override #'style = #'medicaea
  46         \property Staff.Custos \override #'style = #'medicaea
  47         \property Voice.NoteHead \override #'style = #'mensural
  48         \clef "medicaea_fa2"
  49         ces2 des es fes ges
  50         \clef "medicaea_do2"
  51         as bes ces'
  52         bes as ges fes
  53         \clef "medicaea_fa1"
  54         es des ces1 \bar "|"
  55
  56         \property Staff.KeySignature \override #'style = #'hufnagel
  57         \property Staff.Accidentals \override #'style = #'hufnagel
  58         \property Staff.Custos \override #'style = #'hufnagel
  59         \property Voice.NoteHead \override #'style = #'mensural
  60         \clef "hufnagel_fa2"
  61         ces!2 des! es! fes! ges!
  62         \clef "hufnagel_do2"
  63         as! bes! ces'!
  64         bes! as! ges! fes!
  65         \clef "hufnagel_do_fa"
  66         es! des! ces!1 \bar "||"
  67     }
  68 >
  69
  70 lowerVoice =  \context Staff = lowerNotes <
  71     \global
  72
  73     % this is broken until further notice -- see refman
  74     % \property Staff.StaffSymbol \override #'line-count = #5
  75     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  76       #'line-count = #5
  77
  78     \notes \transpose c' {
  79         \property Staff.KeySignature \override #'style = #'mensural
  80         \property Staff.Accidentals \override #'style = #'mensural
  81         \property Staff.Custos \override #'style = #'mensural
  82         \property Voice.NoteHead \override #'style = #'mensural
  83         \key a \major
  84         \clef "neo_mensural_c2"
  85         c2 dis es fis ges
  86         \property Staff.forceClef = ##t
  87         \clef "neo_mensural_c2"
  88         ais bes cis'
  89         bis as gis fes
  90         \clef "petrucci_c2"
  91         e d c1 \bar "|"
  92
  93         \clef "petrucci_c2"
  94         c2 d e f g
  95         \property Staff.forceClef = ##t
  96         \clef "mensural_c2"
  97         a b c'
  98         b a g f
  99         \clef "mensural_g"
 100         e d c1 \bar "|"
 101
 102         \clef "petrucci_f"
 103         c2 d e f g
 104         \property Staff.forceClef = ##t
 105         \clef "petrucci_f"
 106         a b c'
 107         b a g f
 108         \clef "mensural_f"
 109         e d c1 \bar "|"
 110
 111         \property Staff.forceClef = ##t
 112         \clef "mensural_f"
 113         c2 d e f g
 114         \clef "mensural_g"
 115         as'! bes'! cis''!
 116         bes'! as'! gis'! fis'!
 117         \property Staff.forceClef = ##t
 118         \clef "mensural_g"
 119         e' d' c'1 \bar "|"
 120
 121         \property Staff.forceClef = ##t
 122         \clef "petrucci_g"
 123         c'2 d' e' f' g'
 124         \clef "petrucci_g"
 125         as'! bes'! cis''!
 126         bes'! as'! gis'! fis'!
 127         \property Staff.forceClef = ##t
 128         \clef "mensural_g"
 129         es'! des'! cis'!1 \bar "||"
 130     }
 131 >
 132
 133 \score {
 134     \context ChoirStaff <
 135         \upperVoice
 136         \lowerVoice
 137     >
 138     \paper {
 139 %       \paperTwentysix
 140         linewidth = 17.25\cm
 141         textheight = 26.0\cm
 142         stafflinethickness = \staffspace / 5.0
 143         indent = 0.0
 144         \translator {
 145             \StaffContext
 146             \consists Custos_engraver
 147 %           Custos \override #'style = #'mensural
 148             \remove Time_signature_engraver
 149 %           StaffSymbol \override #'line-count = #4
 150         }
 151     }
 152 }
 153