input/test/ancient-font.ly

   1 \version "1.5.68"
   2 \header {
   3     title       = "ancient font test"
   4     date        = "2002"
   5 }
   6
   7 \include "paper26.ly"
   8
   9 upperStaff =  \context GregorianStaff = upperStaff <
  10   \context GregorianVoice <
  11     \property Score.timing = ##f
  12 %   \property Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
  13
  14     % this is broken until further notice -- see refman
  15     % \property Staff.StaffSymbol \override #'line-count = #4
  16     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  17       #'line-count = #4
  18
  19     \notes \transpose c' {
  20         \property Staff.KeySignature \override #'style = #'vaticana
  21         \property Staff.Accidental \override #'style = #'vaticana
  22         \property Voice.NoteHead \override #'style = #'vaticana_punctum
  23         \key es \major
  24         \clef "vaticana_fa2"
  25         c!1 des! e! f! ges!
  26
  27         \property Voice.NoteHead \override #'style = #'vaticana_inclinatum
  28         a! b! ces'
  29         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  30 %       \break % 1 (8*1)
  31
  32         \property Voice.NoteHead \override #'style = #'vaticana_virga
  33         b! des'! ges! fes!
  34         \breathe
  35         \clef "vaticana_fa1"
  36         \property Voice.NoteHead \override #'style = #'vaticana_quilisma
  37         es d
  38         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  39         c d
  40         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  41 %       \break %2 (8*1)
  42
  43         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  44         es f
  45         \property Voice.NoteHead \override #'style = #'vaticana_lpes
  46         g as
  47         \property Voice.NoteHead \override #'style = #'vaticana_upes
  48         bes as
  49         \property Voice.NoteHead \override #'style = #'vaticana_vupes
  50         g f
  51         \property Voice.NoteHead \override #'style = #'vaticana_plica
  52         \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
  53 %       \break % 3 (8*1)
  54
  55         es d
  56         \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
  57         c d
  58         \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
  59         es f
  60
  61         \property Staff.KeySignature \override #'style = #'medicaea
  62         \property Staff.Accidental \override #'style = #'medicaea
  63         \property Staff.Custos \override #'style = #'medicaea
  64         \property Voice.NoteHead \override #'style = #'medicaea_punctum
  65         \clef "medicaea_fa2"
  66         ces! des!
  67         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  68 %       \break % 4 (8*1)
  69
  70         e! f! ges!
  71         \clef "medicaea_do2"
  72         \property Voice.NoteHead \override #'style = #'medicaea_inclinatum
  73         a! b! ces'!
  74         \property Voice.NoteHead \override #'style = #'medicaea_virga
  75         b! a!
  76         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  77 %       \break % 5 (8*1)
  78
  79         ges! fes!
  80         \clef "medicaea_fa1"
  81         \property Voice.NoteHead \override #'style = #'medicaea_rvirga
  82         e! des! ces!
  83
  84         \property Staff.KeySignature \override #'style = #'hufnagel
  85         \property Staff.Accidental \override #'style = #'hufnagel
  86         \property Staff.Custos \override #'style = #'hufnagel
  87         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
  88         \clef "hufnagel_fa2"
  89         ces! des! es!
  90         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  91 %       \break % 6 (8*1)
  92
  93         fes! ges!
  94         \clef "hufnagel_do2"
  95         \property Voice.NoteHead \override #'style = #'hufnagel_lpes
  96         as! bes! ces'!
  97         \property Voice.NoteHead \override #'style = #'hufnagel_virga
  98         bes! as!
  99         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
 100 %       \break % 7 (8*1)
 101
 102         ges! fes!
 103         \clef "hufnagel_do_fa"
 104         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
 105         es! des! ces! des! es! fes!
 106         \bar "||"
 107 %       \break % 8 (8*1)
 108
 109         s32*1
 110 %       \break % 12 (32*1)
 111     }
 112   >
 113 >
 114
 115 lowerStaff =  \context MensuralStaff = lowerStaff <
 116   \context MensuralVoice <
 117
 118     % this is broken until further notice -- see refman
 119     % \property Staff.StaffSymbol \override #'line-count = #5
 120     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
 121       #'line-count = #5
 122
 123     \notes \transpose c' {
 124         \property Voice.autoBeaming = ##f
 125         \property Voice.NoteHead \override #'style = #'neo_mensural
 126         \property Voice.Rest \override #'style = #'neo_mensural
 127         \key a \major
 128
 129 % FIXME: lily crashes on some (invalid?) ligatures with:
 130 %   ERROR: In procedure gh_scm2int:
 131 %   ERROR: Wrong type argument in position 1: ()
 132
 133 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
 134 % on many ligatures such as BB.
 135
 136         cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
 137         \property Staff.forceClef = ##t
 138         \clef "neo_mensural_c2"
 139         cis1
 140         \bar "|"
 141 %       \break % 2 (16*1)
 142
 143         \[ g\breve dis''\longa \]
 144         b\breve \[ a\longa d\longa \]
 145         \clef "petrucci_c2"
 146 %       \break % 4 (16*1)
 147
 148         fis1 ces1
 149         \clef "petrucci_c2"
 150         r\longa
 151         \property Staff.forceClef = ##t
 152         \clef "mensural_c2"
 153         r\breve
 154         \bar "|"
 155 %       \break % 5 (8*1)
 156
 157         r2
 158         \clef "mensural_g"
 159         r4 r8 r16 r16
 160         \property Voice.NoteHead \override #'style = #'mensural
 161         \property Voice.Stem \override #'style = #'mensural
 162         \property Voice.Stem \override #'thickness = #1.0
 163         \property Voice.Rest \override #'style = #'mensural
 164         \clef "petrucci_f"
 165         c8 b, c16 b, c32 b, c64 b, c64 b,
 166         d8 e  d16 e  d32 e  d64 e  d64 e
 167         r\longa
 168         \property Staff.forceClef = ##t
 169         \clef "petrucci_f"
 170         r\breve
 171         \bar "|"
 172 %       \break % 6 (8*1)
 173
 174         r\breve
 175         \clef "mensural_f"
 176         % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
 177         % segmentation fault on r8/r16/r32.  (Strange: what has
 178         % Voice.Stem style to do with mensural rests?)
 179         \property Voice.Stem \override #'style = #'neo_mensural
 180         r2 r4 r8 r16 r16
 181         \property Voice.Stem \override #'style = #'mensural
 182         \property Staff.forceClef = ##t
 183         \clef "mensural_f"
 184         e\breve f g a1
 185         \clef "mensural_g"
 186 %       \break % 7 (8*1)
 187
 188         \[ bes'!\longa a'!\longa c''!\longa \]
 189         e'1 d' c' d' \bar "|"
 190         \bar "|"
 191 %       \break % 9 (16*1)
 192
 193         bes'!\longa fis'!1 as'!1 ges'!\longa % lig
 194         \property Staff.forceClef = ##t
 195         \clef "mensural_g"
 196         e'2 d' c' \bar "|"
 197 %       \break % 11 (16*1)
 198
 199         \property Staff.forceClef = ##t
 200         \clef "petrucci_g"
 201         c'2 d' e' f'
 202         \clef "petrucci_g"
 203         g' as'! bes'! cis''!
 204         bes'! as'! gis'! fis'!
 205         \property Staff.forceClef = ##t
 206         \clef "mensural_g"
 207         es'! des'! cis'!1 \bar "||"
 208 %       \break % 12 (8*1)
 209     }
 210   >
 211 >
 212
 213 \score {
 214     \context Score <
 215         \upperStaff
 216         \lowerStaff
 217     >
 218     \paper {
 219         linewidth = 17.25\cm
 220         textheight = 26.0\cm
 221         stafflinethickness = \staffspace / 5.0
 222         indent = 0.0
 223         \translator {
 224             \ScoreContext
 225             \accepts MensuralStaff
 226             \accepts GregorianStaff
 227 %           timing = ##f %%%%%%%% FIXME: this has no effect
 228         }
 229         \translator {
 230             \VoiceContext
 231             \name MensuralVoice
 232             \alias Voice
 233             \remove Ligature_bracket_engraver
 234             \consists Mensural_ligature_engraver
 235             NoteHead \set #'style = #'mensural
 236 %           Stem \set #'style = #'mensural %%%%%%%% FIXME: this core dumps
 237             Stem \set #'thickness = #1.0
 238             Rest \set #'style = #'mensural
 239             autoBeaming = ##f
 240         }
 241         \translator {
 242             \VoiceContext
 243             \name GregorianVoice
 244             \alias Voice
 245             \remove Ligature_bracket_engraver
 246 %           \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
 247             NoteHead \set #'style = #'vaticana_punctum
 248             autoBeaming = ##f
 249         }
 250         \translator {
 251             \StaffContext
 252             \name MensuralStaff
 253             \alias Staff
 254             \accepts MensuralVoice
 255             \consists Custos_engraver
 256             TimeSignature \set #'style = #'mensural
 257             KeySignature \set #'style = #'mensural
 258             Accidental \set #'style = #'mensural
 259             Custos \set #'style = #'mensural
 260             Custos \set #'neutral-position = #3
 261             Custos \set #'neutral-direction = #-1
 262             Custos \set #'adjust-if-on-staffline = ##t
 263             clefGlyph = #"clefs-petrucci_c2"
 264             clefPosition = #-2
 265             clefOctavation = #0
 266         }
 267         \translator {
 268             \StaffContext
 269             \name GregorianStaff
 270             \alias Staff
 271             \accepts GregorianVoice
 272             \consists Custos_engraver
 273             \remove Time_signature_engraver
 274             StaffSymbol \set #'thickness = #2.0
 275             StaffSymbol \set #'line-count = #4
 276             KeySignature \set #'style = #'vaticana
 277             Accidental \set #'style = #'vaticana
 278             Custos \set #'style = #'vaticana
 279             Custos \set #'neutral-position = #4
 280             Custos \set #'neutral-direction = #-1
 281             Custos \set #'adjust-if-on-staffline = ##t
 282             clefGlyph = #"clefs-vaticana_do"
 283             clefPosition = #1
 284             clefOctavation = #0
 285         }
 286         \translator {
 287             \HaraKiriStaffContext
 288             \accepts MensuralVoice
 289             \accepts GregorianVoice
 290         }
 291     }
 292 }