* lily/beam.cc (set_stem_lengths): extend stems for gapped tremolo

[lilypond.git] / input / test / font-body.ly

diff --git a/input/test/font-body.ly b/input/test/font-body.ly
index 3ca03b6f8c3c7f3b24072dfc76772d008f09cce3..d11e5e3e337b599d801a4c4e48fc9a68600f69d4 100644 (file)
--- a/input/test/font-body.ly
+++ b/input/test/font-body.ly
@@ -1,53 +1,73 @@
-\version "0.1.14";
-FontBody=      \melodic{ 
-               \octave c';
-               \bar "|:";
-               \meter 4/4;
-               \multi 2  < { \stemup e'\longa a\breve | }
-               { \stemdown
-               c1 \clef "bass"; b,, \clef "violin"; c' a'
-               c2 \clef "alto"; g c' \clef "violin"; a'
+\version "1.5.68"
+
+% body for the font test. Does not work standalone
+
+
+FontBody=      \notes\transpose c''{ 
+               \bar "|:"
+               \time 4/4
+               \context Staff  < \context Voice = VB { \stemUp e'\longa a\breve | }
+               \context Voice = VA { \stemDown
+               c1 \clef "bass" b,, \clef "violin" c' a'
+               c2 \clef "alto" g c' \clef "violin" a'
                } >
-               \stemboth
-               c4 g c' a' \bar ":|";
+               \stemBoth
+               c4 g c' a' \bar ":|"
                a\ppp-\upbow a\pp-\downbow a\p^\turn a\mp^\fermata |
                a\mf_\fermata a\f-\stopped a\ff-\open a\fff^\trill|
-               a\fp-\reverseturn a4.\sf a4.\sfz | % a\fz a\rf
+               a\fp-\reverseturn a4.\sf a4.\sfz |  a4\fz % a\rf
                [c8-\prall c-\mordent] [a'-\prallmordent a'-\prallprall]
-               [c-\upprall a'-\downprall] [a' c] |
+               [c8-\upprall a'8-\downprall] [a'-\segno c-\coda] |
                [c \< d e f] [as' ges' f' e']
                [cis' dis' c' des'] [cisis' disis' \! ceses' deses'] |
-               \clef "bass";
+               \clef "bass"
+                 r\longa * 1/4 r\breve *1/2
                  r1 r2 r4 r8 r16 r32 r64 r128 r128 |
-               \multi 2 < { \stemup r2 r2} {\stemdown c c }>
-               \multi 2 < { \stemup c,,1 } {\stemdown r1}>             
-               \stemboth
-               \clef "violin";
+               \context Staff < \context Voice = VA { \stemUp r2 c'2 c,,,1 }
+                               \context Voice = VB {\stemDown r2 c2  r1 }>
+                       \stemBoth
+               \clef "violin"
                e8_. g'8-> e16^^ g'16_^ 
                e32 _| g'32^| g''32-\ltoe g''32-\lheel
                e64-\rtoe g'64-\rheel c4... |
+\context Voice = mensural \relative c'' {
+\property Voice . noteHeadStyle = #'mensural
+\property Voice. stemCentered = ##t
+c\maxima*1/8
+c\longa*1/4 c\breve*1/2 c1 c2 c4 c8 
+}
+                       \property Voice . noteHeadStyle = #'harmonic
+
+               \transpose c'{
+                       \time 4/4
+                       \property Voice . TextScript \override #'font-style =  #'Finger
+                       \property Voice . noteHeadStyle = #'diamond
+                       c1^"1" d2^"2" e4^"3"
+                       \property Voice . noteHeadStyle = #'cross
+                                                f4^"4"
+                                                 g4^"5"
+                       \property Voice . noteHeadStyle = ##f
+                       % Music to the Martians!
+                       < bes4^"6" e_"7" c_"8" >
+                       a^"0"_"9"
 
-               \octave c'';
-               \meter 4/4;
-               \textstyle "finger";
-               c4^"1" d^"2" e^"3" f^"4" g^"5"
-               
-               % Music to the Martians!
-               < bes4^"6" e_"7" c_"8" >
-               a^"0"_"9"
-               
-               a'^\flageolet
-               \textstyle "roman";
-               \meter 1/2; a2 |
-               \meter 3/2; < a1.
-               { s4 \ppp \< s4 \! s4 \fff  s4 \> s4 \! s4\ppp} >
-               |
-               \meter 2/4; a2 |
-               \meter 5/4; a1.. |
-               \meter 6/8; a2. |
-               \meter 7/8; a2.. |
-               \meter 9/8; a1... |
-               \meter 12/8; a1. |
-               \meter 12/4;
-               r1. r2. r4. r8. r16. r32. r64. r64. |
+                       a'^\flageolet
+                       \property Voice . TextScript \override #'font-style =  #'roman
+                       \time 1/2 a2 |
+                       \time 3/2 < a1.
+                       { s4 \ppp \< s4 \! s4 \fff  s4 \> s4 \! s4\ppp} >
+                       |
+                       \time 2/4 a2 |
+                       \time 5/4 a1.. |
+                       \time 6/8 a2. |
+                       \time 7/8 a2.. |
+                       \time 9/8 a1... |
+                       \time 12/8 a1. |
+                       \time 12/4
+                       r1. r2. r4. r8. r16. r32. r64. r64. |
+                       c2\sustainDown c\sustainUp |
                }
+}
+\score {
+       \FontBody
+}