]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/ancient-font.ly
release: 1.5.16
[lilypond.git] / input / test / ancient-font.ly
index 703d5b2f04d8361d1686f2e3dca864fea70ac2f0..33e234db23638257786b96a786e4776553660f3c 100644 (file)
@@ -26,44 +26,87 @@ upperVoice =  \context Staff = upperVoice <
        \property Staff.KeySignature \override #'style = #'vaticana
        \property Staff.Accidentals \override #'style = #'vaticana
        \property Staff.Custos \override #'style = #'vaticana
-       \property Voice.NoteHead \override #'style = #'mensural
+       \property Voice.NoteHead \override #'style = #'vaticana_punctum
+       \property Voice.Porrectus \override #'style = #'vaticana
+       \property Voice.Porrectus \override #'solid = ##t
+       \property Voice.Porrectus \override #'add-stem = ##t
+       \property Voice.Porrectus \override #'stem-direction = #-1
+       \property Voice.Porrectus \override #'line-thickness = #0.5
        \key es \major
        \clef "vaticana_fa2"
-       cis!2 des! e! fis! ges!
+       c!1 des! e! f! ges!
 
 %      \property Staff.clefGlyph = #"clefs-vaticana_do"
 %      \property Staff.clefPosition = #1
 %      \property Staff.clefOctavation = #0 
        \clef "vaticana_do2"
 
-       a b c'
-       b as gis fes
+       \property Voice.NoteHead \override #'style = #'vaticana_subbipunctum
+       a! b!
+       \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
+       \property Voice.NoteHead \override #'style = #'vaticana_virga
+       ces' b! des'! \~ ges! \~ fes!
+       \breathe
        \clef "vaticana_fa1"
-       es dis ces1 \bar "|"
+       \property Voice.NoteHead \override #'style = #'vaticana_quilisma
+       es d
+       \property Voice.NoteHead \override #'style = #'vaticana_rvirga
+       c d
+       \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
+       \property Voice.NoteHead \override #'style = #'vaticana_rvirga
+       es f
+       \property Voice.NoteHead \override #'style = #'vaticana_lpes
+       g as
+       \property Voice.NoteHead \override #'style = #'vaticana_upes
+       bes as
+       \property Voice.NoteHead \override #'style = #'vaticana_vupes
+       g f
+       \property Voice.NoteHead \override #'style = #'vaticana_plica
+       \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
+       es d
+       \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
+       c d
+       \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
+       es f
 
        \property Staff.KeySignature \override #'style = #'medicaea
        \property Staff.Accidentals \override #'style = #'medicaea
        \property Staff.Custos \override #'style = #'medicaea
-       \property Voice.NoteHead \override #'style = #'mensural
+       \property Voice.NoteHead \override #'style = #'medicaea_punctum
        \clef "medicaea_fa2"
-       ces2 des es fes ges
+       ces! des!
+       \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
+       e! f! ges!
        \clef "medicaea_do2"
-       as bes ces'
-       bes as ges fes
+       \property Voice.NoteHead \override #'style = #'medicaea_subbipunctum
+       a! b! ces'!
+       \property Voice.NoteHead \override #'style = #'medicaea_virga
+       b! a!
+       \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
+       ges! fes!
        \clef "medicaea_fa1"
-       es des ces1 \bar "|"
+       \property Voice.NoteHead \override #'style = #'medicaea_rvirga
+       e! des! ces!
 
        \property Staff.KeySignature \override #'style = #'hufnagel
        \property Staff.Accidentals \override #'style = #'hufnagel
        \property Staff.Custos \override #'style = #'hufnagel
-       \property Voice.NoteHead \override #'style = #'mensural
+       \property Voice.NoteHead \override #'style = #'hufnagel_punctum
        \clef "hufnagel_fa2"
-       ces!2 des! es! fes! ges!
+       ces! des! es!
+       \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
+       fes! ges!
        \clef "hufnagel_do2"
+       \property Voice.NoteHead \override #'style = #'hufnagel_lpes
        as! bes! ces'!
-       bes! as! ges! fes!
+       \property Voice.NoteHead \override #'style = #'hufnagel_virga
+       bes! as!
+       \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
+       ges! fes!
        \clef "hufnagel_do_fa"
-       es! des! ces!1 \bar "||"
+       \property Voice.NoteHead \override #'style = #'hufnagel_punctum
+       es! des! ces! des! es! fes!
+       \bar "||"
     }
 >
 
@@ -74,57 +117,90 @@ lowerVoice =  \context Staff = lowerNotes <
     % \property Staff.StaffSymbol \override #'line-count = #5
     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
       #'line-count = #5
-    
+
     \notes \transpose c' {
+       \property Voice.noAutoBeaming = ##t
        \property Staff.KeySignature \override #'style = #'mensural
        \property Staff.Accidentals \override #'style = #'mensural
        \property Staff.Custos \override #'style = #'mensural
-        \property Voice.NoteHead \override #'style = #'mensural
+       \property Voice.NoteHead \override #'style = #'neo_mensural
+       \property Voice.Rest \override #'style = #'neo_mensural
+       \property Voice.Porrectus \override #'style = #'mensural
+       \property Voice.Porrectus \override #'solid = ##f
+       \property Voice.Porrectus \override #'add-stem = ##t
+       \property Voice.Porrectus \override #'stem-direction = #1
+       \property Voice.Porrectus \override #'line-thickness = #0.7
+%      \property Voice.Porrectus \override #'auto-properties = ##t
+%      \property Voice.Porrectus \override #'porrectus-width = #3.0
        \key a \major
+
+       % IMPORTANT NOTE:
+       %
+       % The porrectus syntax is definitely subject to change.  For
+       % proper use, it may eventually change into something like this:
+       %
+       % \startLigature e \~ c \endLigature
+       %
+       % The reason is that there needs to be some enclosing instance
+       % for correct handling of line breaking, alignment with
+       % adjacent note heads, and placement of accidentals.
+
        \clef "neo_mensural_c2"
-       c2 dis es fis ges
-        \property Staff.forceClef = ##t
+       cis' e' \~ d' gis' \~ e'
+       \property Staff.forceClef = ##t
        \clef "neo_mensural_c2"
-       ais bes cis'
-       bis as gis fes
+
+       fis' \~ b cis''
+       b \~ a a \~ fis
        \clef "petrucci_c2"
-       e d c1 \bar "|"
+       cis \~ fis ces1 % \bar "|"
 
        \clef "petrucci_c2"
-       c2 d e f g
-        \property Staff.forceClef = ##t
+       r\longa
+       \property Staff.forceClef = ##t
        \clef "mensural_c2"
-       a b c'
-       b a g f
+       r\breve r1 r2
        \clef "mensural_g"
-       e d c1 \bar "|"
+       r4 r8 r16 r32 r32 \bar "|"
 
+       \property Voice.NoteHead \override #'style = #'mensural
+       \property Voice.Stem \override #'style = #'mensural
+       \property Voice.Stem \override #'thickness = #1.0
+       \property Voice.Rest \override #'style = #'mensural
        \clef "petrucci_f"
-       c2 d e f g
-        \property Staff.forceClef = ##t
+       c8 b, c16 b, c32 b, c64 b, c b,
+       d8 e  d16 e  d32 e  d64 e  d e
+       r\longa
+       \property Staff.forceClef = ##t
        \clef "petrucci_f"
-       a b c'
-       b a g f
+       r\breve r1 % \bar "|"
        \clef "mensural_f"
-       e d c1 \bar "|"
 
-        \property Staff.forceClef = ##t
+       % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
+       % segmentation fault on r8/r16/r32.  (Strange: what has
+       % Voice.Stem style to do with mensural rests?)
+       \property Voice.Stem \override #'style = #'neo_mensural
+       r2 r4 r8 r16 r32 r32
+       \property Voice.Stem \override #'style = #'mensural
+
+       \property Staff.forceClef = ##t
        \clef "mensural_f"
-       c2 d e f g
+       e2 f g
        \clef "mensural_g"
-       as'! bes'! cis''!
-       bes'! as'! gis'! fis'!
-        \property Staff.forceClef = ##t
+
+       bes'! \~ as'! \~ cis''!
+       bes'! \~ fis'! as'! \~ ges'!
+       \property Staff.forceClef = ##t
        \clef "mensural_g"
        e' d' c'1 \bar "|"
 
-        \property Staff.forceClef = ##t
+       \property Staff.forceClef = ##t
        \clef "petrucci_g"
        c'2 d' e' f' g'
        \clef "petrucci_g"
        as'! bes'! cis''!
        bes'! as'! gis'! fis'!
-        \property Staff.forceClef = ##t
+       \property Staff.forceClef = ##t
        \clef "mensural_g"
        es'! des'! cis'!1 \bar "||"
     }
@@ -146,8 +222,18 @@ lowerVoice =  \context Staff = lowerNotes <
            \consists Custos_engraver
 %          Custos \override #'style = #'mensural
            \remove Time_signature_engraver
+%          StaffSymbol \override #'thickness = #2.0
 %          StaffSymbol \override #'line-count = #4
        }
+       \translator {
+           \ScoreContext
+%          \remove System_start_delimiter_engraver
+%          SystemStartDelimiter \override #'glyph = #'brace
+       }
+       \translator {
+           \ChoirStaffContext
+           \remove System_start_delimiter_engraver
+%          SystemStartDelimiter \override #'glyph = #'empty
+       }
     }
 }
-