]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/los-toros-oboe.ly
release: 1.0.8
[lilypond.git] / mutopia / los-toros-oboe.ly
index 6032b7c74ac1124f8b17326c47dd5185c4cc91eb..2381e61ca28a86088a1a2280e201f0ec7aec57c2 100644 (file)
 \header{
 filename =      "los-toros-oboe.ly";
-title =                 "La Feria"
+title =                 "La Feria";
 subtitle = "Los Toros";
 opus =          "";
-composer =      "Paul Lac\\^ome d'Estalenx (1838-1920)";
+composer =      "Paul Lac\\^ome dEstalenx (1838-1920)";
 enteredby =     "jcn";
 copyright =     "public domain";
+latexheaders=    "headers";
 } 
+\version "1.0.2";
 
 %{
 Silly latex file dropped; use ly2dvi
+
+Converted to relative octave from los-toros-oboe.ly:
+    :s/[^\\]'/'x/g
+    :s/'x//g
+    (511 substitutions on 155 lines)
+
+    lilypond -f los-toros-oboe 2> bla
+    wc -l bla
+    138
+    138 / 3 =  46 octave quotes of 511 remain!
+
 %}
 
-\include "paper20.ly"
+\include "paper16.ly"
 
-hoboonestart = \melodic{
-% ugh: can't copy: allegro/primo tempo
-       \octave c';
-       \textstyle "large";
-       [es'16-.^"Allegro" es'-. es'-. es'-.] [es'8-. d'-.] |
-       \textstyle "italic";
+hoboonestart = \melodic
+  \relative c'{
+% ugh: cant copy: allegro/primo tempo
+       \property Voice . textstyle =  "large"
+       [es''16-.^"Allegro" es-. es-. es-.] [es8-. d-.] |
+       \property Voice . textstyle =  "italic"
 }
 
-hobooneintro = \melodic{
-       \octave c';
-%      \textstyle "roman";
-%      [es'16-.-"Allegro" es'-. es'-. es'-.] [es'8-. d'-.] |
-%      \textstyle "italic";
-       [f'8.-> es'16(] [)d'8 c'-.] |
-       [bes16( c' d' es'] [)d'8 c'-.] |
+hobooneintro = \melodic  \relative c'{
+
+%      \property Voice . textstyle =  "roman"
+%      [es''16-.-"Allegro" es-. es-. es-.] [es8-. d-.] |
+%      \property Voice . textstyle =  "italic"
+       [f''8.-> es16(] [)d8 c-.] |
+       [bes16( c d es] [)d8 c-.] |
        [bes-. as->~] [as16( g f g] |
-       [as bes c' d'] [)es'8 c'-.] |
-       [d'8-. c'16( bes] )as4 ~ |
-       [as16 g( f g] [as c' bes as] |
+       [as bes c d] [)es8 c-.] |
+       [d8-. c16( bes] )as4 ~ |
+       [as16 g( f g] [as c bes as] |
 %      [)g8 as16 g(] [)f8 g16( f] |
        [)g8 as16 g(] [)f8 g16( f] |
-       [)es8 f16-. g-.] [as-. bes-. c'-. d'-.] |
-       [es'-. es'-. es'-. es'-.] [es'8-. d'-.] |
-       [f'8.-> es'16(] [)d'8 c'-.] |
-       [bes16( c' d' es'] [)d'8 c'-.] |
+       [)es8 f16-. g-.] [as-. bes-. c-. d-.] |
+       [es-. es-. es-. es-.] [es8-. d-.] |
+       [f8.-> es16(] [)d8 c-.] |
+       [bes16( c d es] [)d8 c-.] |
        [bes8 a->~] [a16 g( fis g] |
-       [a bes c' d'] [)es'8 d'16()c'] |
-       [bes-. g-. bes-. d'-.] g'4-> ~ |
-       [g'16 f'( es' d'] [c' es'  d' c'] |
-       [)bes8 c'16( bes] [)a8 bes16( a] |
+       [a bes c d] [)es8 d16()c] |
+       [bes-. g-. bes-. d-.] g4-> ~ |
+       [g16 f( es d] [c es  d c] |
+       [)bes8 c16( bes] [)a8 bes16( a] |
        [)g8  r d'] r |
 }
 
-hoboonemid = \melodic{
-       \octave c';
-       [g16-. g-. g-. g-.] [g8-. f-.] |
+hoboonemid = \melodic  \relative c'{
+
+       [g'16-. g-. g-. g-.] [g8-. f-.] |
        as2-> |
        [as16-. as-. as-. as-.] [as8-. g-.] |
        bes2-> |
-       [bes16-. bes-. bes-. bes-.] [bes8-. c'] |
+       [bes16-. bes-. bes-. bes-.] [bes8-. c] |
 
-       r-"cresc." [d'8-. r c'-.] |
-       r\f [d'-. es'-. f'-.] |
-       [g'8.-> es'16] [bes8 g] |
+       r-"cresc." [d8-. r c-.] |
+       r\f [d-. es-. f-.] |
+       [g8.-> es16] [bes8 g] |
 
        % four measures copied from 8 measures back...
        [g16-.\p g-. g-. g-.] [g8-. f-.] |
        as2-> |
        [as16-. as-. as-. as-.] [as8-. g-.] |
        bes2-> |
-       [b16-. b-. b-. b-.] [b8-. c'-.] |
+       [b16-. b-. b-. b-.] [b8-. c-.] |
 
        % same measure
-       [b16-. b-. b-. b-.] [b8-. c'-.] |
+       [b16-. b-. b-. b-.] [b8-. c-.] |
 
-       [b8-.-"cresc." c'-. b-. c'-.] |
-       [d'-. es'-. d'-. es'-.] |
-       [f'\f-. g'-. f'-. g'-.] |
-       [as'-.\< g'-. as'-. bes'-.] |
-       [\!g'16\ff-. g'-. g'-. g'-.] [g'8-. g'-.] |
-       [g'8.-> g'16] [g'8 g'] |
-       [g'8.-> g'16] [g'8 g'] |
-       [f'8.-> f'16] [f'8 f'] |
-       [f'8.-> f'16] [f'8 f'] |
-       [bes'8-. as'16( g'] )f'4 ~ |
-       [f'16 es'( d' es'] [f' as' g' )f'] |
-       [es'( g' f' es'] [d' f' es' d'] |
-       [c' es' d' c'] [b d' c' b] |
-       [a c' bes a] [g bes a g] |
+       [b8-.-"cresc." c-. b-. c-.] |
+       [d-. es-. d-. es-.] |
+       [f\f-. g-. f-. g-.] |
+       [as-.\< g-. as-. bes-.] |
+       [\!g16\ff-. g-. g-. g-.] [g8-. g-.] |
+       [g8.-> g16] [g8 g] |
+       [g8.-> g16] [g8 g] |
+       [f8.-> f16] [f8 f] |
+       [f8.-> f16] [f8 f] |
+       [bes8-. as16( g] )f4 ~ |
+       [f16 es( d es] [f as g )f] |
+       [es( g f es] [d f es d] |
+       [c es d c] [b d c b] |
+       [a c bes a] [g bes a g] |
        [fis a g fis] [e g fis )e] |
        % `a deux
-       [d8 d'] [es'8.-> c'16] |
+       [d8 d'] [es8.-> c16] |
        [a8 bes g es] |
-       [c' d' es'8. bes16] |
-       [g8 es bes c] |
+       [c' d es8. bes16] |
+       [g8 es bes' c,] |
+       [d16-. d-. d-. d-.] [d8.-. es16->] |
+       [d'16-.-"cresc." d-. d-. d-.] [d8.-. es16->] |
        [d16-. d-. d-. d-.] [d8.-. es16->] |
-       [d'16-.-"cresc." d'-. d'-. d'-.] [d'8.-. es'16->] |
-       [d'16-. d'-. d'-. d'-.] [d'8.-. es'16->] |
-       [d'16 d' d' d'] [d'8 es'16-.] r16-\fermata^"court"^"tr\\`es" |
+       [d16 d d d] [d8 es16-.] r16-\fermata^"court"^"tr\\`es" |
        % Un peu plus lent.
-       \textstyle "bold";
+       \property Voice . textstyle =  "bold"
 
 % ugh
-%      d'4(\<^"Un peu plus lent" \textstyle "italic; _"tr\\`es \\'el\\'egant"
-%      d'4(\^"Un peu plus lent et \\'el\\'egant"<
-       \textstyle "italic"; 
-       d'4(\<
-       [e'8 \!f'8] |
-%      [)b'-. a'-.] [g16( fis' e' )d'] |
-       \textstyle "bold";
-       [)b'-.^"Un peu plus lent et \\'el\\'egant" a'-.] [g16( fis' e' )d'] |
-       \textstyle "italic"; 
-       [d'( c' b\< c'] [)\!f'8-. e'-.] |
-       d4-> ~ [d16 e( fis g] |
-       [a b\< d' fis] [)\!a'8-. g'-.] |
-       [fis'16( e' a )c'] e'4 ~ |
-       [e'16 d'( e c'] [)b8-. a-.] |
+%      d4(\<^"Un peu plus lent" \property Voice . textstyle =  "italic _"tr\\`es \\'el\\'egant"
+%      d4(\^"Un peu plus lent et \\'el\\'egant"<
+       \property Voice . textstyle =  "italic" 
+       d4(\<
+       [e8 \!fis8] |
+%      [)b-. a-.] [g16( fis e )d] |
+       \property Voice . textstyle =  "bold"
+       [)b-.^"Un peu plus lent et \\'el\\'egant" a-.] [g,,16( fis' e )d] |
+       \property Voice . textstyle =  "italic" 
+       [d( c b\< c] [)\!fis'8-. e-.] |
+       d,,4-> ~ [d16 e( fis g] |
+       [a b\< d fis] [)\!a8-. g-.] |
+       [fis16( e a, )c] e4 ~ |
+       [e16 d( e, c'] [)b8-. a-.] |
        g2 ~ |
        [g8 \[/3 d16( e fis ]1/1 [)g8 d'-.] |
        b2-> ~ |
-       [b8 \[/3 d16( e fis ]1/1 [)g8-"cresc. poco" e'-.] |
-       e'2-> ~ |
-       [e'8 \[/3 d16( e fis ]1/1 [)g8\f d'-.] |
-       [d'8.-> b'16-.] [g'16-. d'-. b-. c'-.] |
-       [d'-. e'-. fis'-. a'-.] [g'8-. e'-.] |
-       fis'2-> ~ |
-       [fis'16 g'-.\< a'-. b'-.] [\!c''8-. c'-.] |
-       [es'8.->(-"espress.") d'16] d'4 ~ |
-       [d'16 e'( fis a'] [)g'8 b-.] |
-       [b8.->( )c'16] c4 ~ |
-       [c'16\< cis'( d' \!dis'] [)e'8-.-"dim." fis-.] |
+       [b8 \[/3 d,16( e fis ]1/1 [)g8-"cresc. poco" e'-.] |
+       e2-> ~ |
+       [e8 \[/3 d,,16( e fis ]1/1 [)g8\f d'-.] |
+       [d8.-> b'16-.] [g16-. d-. b-. c-.] |
+       [d-. e-. fis-. a-.] [g8-. e-.] |
+       fis2-> ~ |
+       [fis16 g-.\< a-. b-.] [\!c8-. c,-.] |
+       [es8.->(-"espress.") d16] d4 ~ |
+       [d16 e( fis a] [)g8 b,-.] |
+       [b8.->( )c16] c4 ~ |
+       [c16\< cis( d \!dis] [)e8-.-"dim." fis,-.] |
        [fis8.->( g16] )g4 ~ |
 
        % (only notes! of) five measures copied from 14 measures above
        [g8 \[/3 d16( e fis ]1/1 [)g8 d'-.] |
        b2->-"cresc." ~ |
-       [b8 \[/3 d16( e fis ]1/1 [)g8 e'-.] |
-       e'2-> ~ |
-       [e'8 \[/3 d16(_"h\\^atez" e fis ]1/1 [)g8\f d'-.] |
-       [d'8.-> b16-.] [g16-.-"cresc." d'-. b-. c'-.] |
-       [d'16\f\< e'-. fis'-. g'-.] [a'-. b-. c'-. \!d'-.] 
+       [b8 \[/3 d,16( e fis ]1/1 [)g8 e'-.] |
+       e2-> ~ |
+       [e8 \[/3 d,,16(_"h\\^atez" e fis ]1/1 [)g8\f d'-.] |
+       [d8.-> b16-.] [g16-.-"cresc." d'-. b-. c-.] |
+       [d16\f\< e-. fis-. g-.] [a-. b,-. c-. \!d-.] 
 }
 
 
-hoboonesecondstart = \melodic{
-       \octave c';
-% ugh: can't copy: allegro/primo tempo
-       \textstyle "large";
-       [es'16-.\ff^"Tempo 1$^o$" es'-. es'-. es'-.] [es'8-. d'-.] |
-       \textstyle "italic";
+hoboonesecondstart = \melodic   \relative c'{
+
+% ugh: cant copy: allegro/primo tempo
+       \property Voice . textstyle =  "large"
+       [es''16-.\ff^"Tempo 1$^o$" es-. es-. es-.] [es8-. d-.] |
+       \property Voice . textstyle =  "italic"
        
 }
        
-hoboonelast = \melodic{
-       \octave c';
+hoboonelast = \melodic   \relative c'{
        % could transpose/copy from measure 19...
-       [d'16-.\p  d'-. d'-. d'-.] [d'8-. c'-.] |
-       es'2-> |
-       [es'16-. es'-. es'-. es'-.] [es'8-. d'-.] |
-       f'2-> |
-       [f'16-. f'-. f'-. f'-.] [f'8-. g'-.] |
-       r8 [a'-.-"cresc." r g'-.] |
-       r [a'-.\f bes'-.\< \!c''-.] |
-       [d''8.->\> \!bes'16] [f'8 d'] |
+       [d''16-.\p  d-. d-. d-.] [d8-. c-.] |
+       es2-> |
+       [es16-. es-. es-. es-.] [es8-. d-.] |
+       f2-> |
+       [f16-. f-. f-. f-.] [f8-. g-.] |
+       r8 [a-.-"cresc." r g-.] |
+       r [a-.\f bes-.\< \!c-.] |
+       [d8.->\> \!bes16] [f8 d] |
 
        % four measures copied from 8 measures back...
-       [d'16-.\p  d'-. d'-. d'-.] [d'8-. c'-.] |
-       es'2-> |
-       [es'16-. es'-. es'-. es'-.] [es'8-. d'-.-"cresc."] |
-       f'2-> |
-       [fis'16-.\p  fis'-. fis'-. fis'-.] [fis'8-. g'-.] |
+       [d16-.\p  d-. d-. d-.] [d8-. c-.] |
+       es2-> |
+       [es16-. es-. es-. es-.] [es8-. d-.-"cresc."] |
+       f2-> |
+       [fis16-.\p  fis-. fis-. fis-.] [fis8-. g-.] |
        % same measure
-       [fis'16-.\p  fis'-. fis'-. fis'-.] [fis'8-. g'-.] |
-       [fis'8-. g-. fis-. g-.] |
-       [a'-. bes'-. a'-. bes'-. ] |
-       [a'-.\f bes'-. a'-. bes'-. ] |
-       [c''-.-"cresc." f'-. g'-. a'-.] |
-       [bes'-. bes'-. ces''8.-> as'16] |
-       [f'8-. ges'-. es'-. ces'-.] |
+       [fis16-.\p  fis-. fis-. fis-.] [fis8-. g-.] |
+       [fis8-. g-. fis-. g-.] |
+       [a-. bes-. a-. bes-. ] |
+       [a-.\f bes-. a-. bes-. ] |
+       [c-.-"cresc." f,-. g-. a-.] |
+       [bes-. bes-. ces8.-> as16] |
+       [f8-. ges-. es-. ces-.] |
        % `a deux
-       [as-. bes-. ces'8.-> ges16] |
+       [as-. bes-. ces8.-> ges16] |
        [es8-. ces'-. ges-. as-.] |
        bes\p r r4 |
-       [bes16-.-"cresc." bes-. bes-. bes-.] [bes8-. ces'->] |
+       [bes16-.-"cresc." bes-. bes-. bes-.] [bes8-. ces->] |
        % same measure
-       [bes16-. bes-. bes-. bes-.] [bes8-. ces'->] |
-       [bes'16-.\ff bes'-. bes'-. bes'-.] [bes'8-. ces''16->] r16^"court"-\fermata |
+       [bes16-. bes-. bes-. bes-.] [bes8-. ces->] |
+       [bes'16-.\ff bes-. bes-. bes-.] [bes8-. ces16->] r16^"court"-\fermata |
        % ugh: eight measures rest (ugh: r1 -> four beats...)
        % eiht measures rest..
-       \textstyle "bold";
+       \property Voice . textstyle =  "bold"
 %      r2^"Un peu plus lent et \\'el\\'egant"
-%      r2^"\\fetanummer8"
-       r2*8
-       r4 r8\p bes |
-       g2->^"Un peu plus lent et \\'el\\'egant" ~ |
-       \textstyle "italic";
-       g8 r r c' |
-       c'2-> ~ |
-       c'8 r r bes'\f |
-       [bes'8.->\f g'16-.] [es'16-. bes-. g-. as-.] |
-       [bes-.-"dim." c'-. d'-. f'-.] [es'8-. c'-.] |
-       d'2-> ~ |
-       [d'16-"dim."( es' f' g'] [)as'8 as-.] |
-       [ces'8.->\p( )bes16-.] bes4 ~ |
-       [bes16( c' d' f] [)es'8 g-.] |
+       R2*8
+%      r4 r8\p bes |
+       r4^"Un peu plus lent et \\'el\\'egant"
+       r8\p bes,, |
+%      g2->^"Un peu plus lent et \\'el\\'egant" ~ |
+       g2-> ~ |
+       \property Voice . textstyle =  "italic"
+       g8 r r c |
+       c2-> ~ |
+       c8 r r bes'\f |
+       [bes8.->\f g16-.] [es16-. bes-. g-. as-.] |
+       [bes-.-"dim." c-. d-. f-.] [es8-. c-.] |
+       d2-> ~ |
+       [d16-"dim."( es f g] [)as,8 as-.] |
+       [ces8.->\p( )bes16-.] bes4 ~ |
+       [bes16( c! d f] [)es8 g,-.] |
        [g8.->( )as16] as4 ~ |
-       [as16( a bes b] [)c'8-. d-.] |
+       [as16( a bes b] [)c8-. d,-.] |
        % a deux
        [d8.->( ) es16] es4 ~ |
-       es4 r8 bes-. |
+       es4 r8 bes'-. |
        g2-> ~ |
-       g8 r r c' |
-       c'2 ~ |
-       c'8  r r bes' |
-       [bes'8.-> g'16-.] [es'16-. bes-. g-. as-.] |
-       [bes-. c'-. d'-. es'-.] [f'-. g'-. as'-. bes'-.] |
-       d''8-. r c''4-> ~ |
-       [c''16 f-. g'-. a-.] [bes'-. c'-. d'-. es'-.] |
-       g'8-. r f'4-> ~ |
-       [f'16 bes-. c'-. d-.] [es'-. f'-. g-. as-.] |
-       c''8 r bes'4 ~ |
-       [bes'8 as'-. g'8.-. e'16-.] |
-       g'8-. r f4-> ~ |
-       [f'8 es'-. ces'8.-. as16-.] |
+       g8 r r c |
+       c2 ~ |
+       c8  r r bes' |
+       [bes8.-> g16-.] [es16-. bes-. g-. as-.] |
+       [bes-. c-. d-. es-.] [f-. g-. as-. bes-.] |
+       d8-. r c4-> ~ |
+       [c16 f,-. g-. a-.] [bes-. c,-. d-. es-.] |
+       g8-. r f4-> ~ |
+       [f16 bes,-. c-. d-.] [es-. f-. g-. as-.] |
+       c8 r bes4 ~ |
+       [bes8 as-. g8.-. e16-.] |
+       g8-. r f4-> ~ |
+       [f8 es-. ces8.-. as16-.] |
        % `a deux
-       \textstyle "large";
-       [ces'8.->^"Plus vite" bes16-.(] [a bes es' d'] |
-       \textstyle "italic";
-       [)c!8.-> bes16] [a( bes es' )d'] |
-       [c'->( bes es' )d'] [c'->( bes es' )d'] |
+       \property Voice . textstyle =  "large"
+       [ces8.->^"Plus vite" bes16-.(] [a bes es d] |
+       \property Voice . textstyle =  "italic"
+       [)c!8.-> bes16] [a( bes es )d] |
+       [c->( bes es )d] [c->( bes es )d] |
        % same measure
-       [c'->( bes es' )d'] [c'->( bes es' )d'] |
-       [c'( bes a bes] [c' d es' e] |
-       [g' )f' d'( es'] [f' g' as' a'] |
-       [c'' )bes' bes( c'] [d' es' f' g'] |
-       [as' g' f' g'] [as' bes' c'' d''] |
-       \textstyle "large";
-       [)es''-.^"Tempo 1$^o$" g'-. g'-. g-.] [g'8-. g'-.] |
-       \textstyle "italic";
-       bes'4.-> g'8-. |
-       gis'2->( |
-       )as'! |
-       [g'16-. g'-. g'-. g-.] [g'8-. g'-.] |
-       bes'4.-> g'8-. |
-       gis'2->( |
-%      )as'! |
-       )as' |
-       [bes'16-. bes'-. bes'-. bes-.] [bes'8-. bes'-.] |
-       bes'4.-> g'8-. |
-       [g'16-._"h\\^atez" g'-. g'-. g-.] [g'8-. g'-.] |
-       g'4.-> g'8-. |
-       es'4.-> es'8-. |
+       [c->( bes es )d] [c->( bes es )d] |
+       [c( bes a bes] [c d es e] |
+       [g )f d( es] [f g as a] |
+       [c )bes bes,( c] [d es f g] |
+       [as g f g] [as bes c d] |
+       \property Voice . textstyle =  "large"
+       [)es-.^"Tempo 1$^o$" g,-. g-. g-.] [g8-. g-.] |
+       \property Voice . textstyle =  "italic"
+       bes4.-> g8-. |
+       gis2->( |
+       )as! |
+       [g16-. g-. g-. g-.] [g8-. g-.] |
+       bes4.-> g8-. |
+       gis2->( |
+%      )as! |
+       )as |
+       [bes16-. bes-. bes-. bes-.] [bes8-. bes-.] |
+       bes4.-> g8-. |
+       [g16-._"h\\^atez" g-. g-. g-.] [g8-. g-.] |
+       g4.-> g8-. |
+       es4.-> es8-. |
        bes4.-> bes8-. |
-       \textstyle "large";
-       g'4.->^"Presto" g'8-. |
-       \textstyle "italic";
-       es'4.-> es'8-. |
-       [bes-. bes-. es'-. g-.] |
-       [bes'-. bes-. es'-. g'-.] |
-       bes'-. r r4 |
-       g'8-. r r4 |
-       g'8-. r r4 |
+       \property Voice . textstyle =  "large"
+       g'4.->^"Presto" g8-. |
+       \property Voice . textstyle =  "italic"
+       es4.-> es8-. |
+       [bes-. bes-. es-. g-.] |
+       [bes-. bes,-. es-. g-.] |
+       bes-. r r4 |
+       g8-. r r4 |
+       g8-. r r4 |
 }
 
 hoboone = \melodic {
@@ -268,13 +282,13 @@ hoboone = \melodic {
 }
 
 global = \melodic{
-       \key bes es as;
-       \meter 2/4;
+       \key es;
+       \time 2/4;
        \skip 4*110;
-       \key fis; |
+       \key g; |
        \bar "||";
        \skip 4*58;
-       \key bes es as; |
+       \key es; |
        \bar "||";
        \skip 4*220;
        \bar "|.";
@@ -284,55 +298,19 @@ global = \melodic{
 $staff_hoboone = \type Staff = hoboonestaff <
        \global
        \property Staff.instrument = "oboe"
+       % don't expand multi-bar rest
+       \property Score.SkipBars = 1
        \hoboone
 >
 
 a4 = \paper{
-       \paper_twenty
-       linewidth= 185.\mm;
-       gourlay_maxmeasures = 10.0;
-       Staff = \translator {
-               \type "Engraver_group_engraver";
-               defaultclef = violin;
-
-               \consists "Bar_engraver";
-               \consists "Clef_engraver";
-               \consists "Key_engraver";
-               \consists "Meter_engraver";
-               \consists "Local_key_engraver";
-               \consists "Staff_sym_engraver";
-               \consists "Collision_engraver";
-               \consists "Rest_collision_engraver";
-               \consists "Bar_column_engraver";
-               \consists "Bar_number_engraver";
-               \consists "Separating_line_group_engraver";
-               \consists "Line_group_engraver";
-                 
-               \accepts "Voice";
-       }
+       \include "bar-numbering.ly"
 }
 
 a4sixteen = \paper{
+       \paper_sixteen
        linewidth= 193.\mm;
-       Staff = \translator {
-               \type "Engraver_group_engraver";
-               defaultclef = violin;
-
-               \consists "Bar_engraver";
-               \consists "Clef_engraver";
-               \consists "Key_engraver";
-               \consists "Meter_engraver";
-               \consists "Local_key_engraver";
-               \consists "Staff_sym_engraver";
-               \consists "Collision_engraver";
-               \consists "Rest_collision_engraver";
-               \consists "Bar_column_engraver";
-               \consists "Bar_number_engraver";
-               \consists "Separating_line_group_engraver";
-               \consists "Line_group_engraver";
-                 
-               \accepts "Voice";
-       }
+       \include "bar-numbering.ly"
 }
 
 \score{