]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/scsii-menuetto.ly
release: 0.1.7
[lilypond.git] / input / scsii-menuetto.ly
index 840148481103ff550a6524e2fc1b9016a35bc83a..35ba9023f2ef40a1fd3c6e805bdb959eae87147c 100644 (file)
-% scsii-menuetto.ly
-%
-% Solo Cello Suites
-% J. S. Bach
-%
-% Suite II part v
-% Menuetto I
-%
-% Copyright (c) 1995,1996,1997 Jan Nieuwenhuizen <jan@digicash.com>
-% 
-% The purpose of this file is to demonstrate features of LilyPond.
-% (there is an accompanying LaTeX file, scsii-menuetto.tex)
-%
+%{MudelaHeader
+
+ filename: scsii-menuetto.ly
+ title: Solo Cello Suites, Suite II part V, Menuetto I
+ description: Cello suite transcribed for Viola
+ source: ?
+ opus: BWV 1008 no. 5
+ composers: Johann Sebastian Bach (1685-1750)
+ entered-by: JCN
+ copyright: public domain
+
+ Tested Features:breaking algorithm, chords, multivoice, accents
 
+
+EndMudelaHeader
+%}
+
+\version "0.1.1";
+
+%% Stuff from MPP version
 % \lefttitle{Menuetto}
 % \tempo{Moderato}
 % \metron{4=120}
 %
-% \meter{3/4}
-% \key\F               % key is F ( f-major )
-% \clef\alto           % use alto clef
-% \duration8           % default duration is 'eight note
+% \key\F               % \key is F ( f-major )
 %
-% \verb{\nobarnumbers} % issue MusiXTeX command
-% \barnumbering0
 % \slope{30}           % Fool MusiXTeX into 30 / 10 steeper beam
-% \stemlength3         % shorter stemlength
 %              % because piece is set very tightly
-%%1            % double comments are included in .tex file
-ii_menuetto = music {
-       $
-       \octave{}
-       \duration{8}
-       { a2 f2 d2_"\f" } bes4-.  |
+
+IImenuetto = \melodic{
+       \clef"alto";
+       \meter 3/4;
+       \key bes;
+       \octave c';
+
+       \duration 8;
+               < a2 f2 d2 \f > bes4-.  |
 %%2
-       { [ bes^"1" e c_"2"_"4" }
-%      (^ )
-       a bes-. g-. ] a4-.^"4" |
+       < [ bes8^"1" e c_"2"_"4" >
+               a bes-. g-. ] a4-.^"4" |
 %%3
-%      { d4 `bes4-.\stemup } stemup: 2 voices?
-       { d4 `bes4-. } g4-. [ f-. e-. ] |
+       < d4 'bes4-. > g4-. [ f8-. e-. ] |
 %%4
-%      { f `a } (^ e ) d cis-. `b-. `a-. ]
-%      [ f ( e ) d cis-. `b-. `a-. ]
-       { [ f `a } e d cis-. `b-. `a-. ]
+       < [ f 'a > e d cis-. 'b-. 'a-. ]
 %%5
-       { a2 f2 d2 } bes4-. | %   @bes4-. |
+       < a2 f2 d2 > bes!4-. |
 %%6
-%      {  bes( e  }  ) a
-       { [ bes e } a bes-. g-. ]
-       'c4-. | % ='c4-. |
+       < [ bes8 e > a bes-. g-. ]
+       c'!4-. |
 %%7
-       { a4-. f4}
-%      { 'd4-.-\upbow f4 `bes4\stemdown }
-       { 'd4-.-\upbow f4 `bes4 }
-%      { 'e4-.-\downbow g4 `g4\stemdown } |
-       { 'e4-.-\downbow g4 `g4 } |
+       < a4-. f4>
+       < d'4-.-\upbow f4 'bes4 >
+       < e'4-.-\downbow g4 'g4 > |
 %%8
-%      { 'cis2.-\upbow e2. `a2.\stemdown } :||:
-       { 'cis2.-\upbow e2. `a2. } | % :||:
+       < cis'2.-\upbow e2. 'a2. > 
+               \bar ":|:";
 %%9
-%      \clef "violin"
-%      { 'e2 a2_f\stemdown }
-       { 'e2 a2_"\f" }
-       [ 'd( 'e16 )'f16 ] |
+       \clef "violin";
+       < e'2 a2 \f >
+       [ d'8( e'16 )f'16 ] |
 %%10
-%      [ { 'e( g } ) 'd 'cis_{ }_{ }_2 'e
-       { [ 'e g } 'd 'cis_"2" 'e a( )g ] |
+       < [ e'8 g > d' cis'_"2" e' a~  g ] |
 %%11
-%      { a4\stemup( f2\stemdown } ) 'd4\stemup
-%      { 'cis4\stemup-. e4\stemdown }
-       { \music { a4 'd4 'cis4-. } \music { f2 e4 } } |
+       < \multi 2;  
+               {\stem \up; a4~  d'4 cis'4-. }
+               { \stem \down; f2 e4 } > |
 %%12
-%      { 'g^4 d\stemdown } (^  'f 'e ) 'f 'd^3(^ ) ='c ] |
-       { [ 'g^"4" d } 'f 'e 'f 'd^"3"( ) 'c ] |
-% %13
-%      { bes2\stemup g4\stemdown } ( )  f4
-%      { 'c4\stemup e4\stemdown }
-%      { bes2 g4 } f4 { 'c4 e4 } | % \clef "alto" |
-       { \music { bes2 'c4 } \music { g4 f4 e4 } } |
-%%%14
-%%     [ { a( f } ) g a f ] { 'd4-\upbow e4 `bes4\stemdown } |
-       { [ a f } g a f ] { 'd4-\upbow e4 `bes4 } |
-%%%15
-%%     { 'c4-\downbow f4 `a4\stemdown } [ bes( )a g a ] |
-%      { 'c4-\downbow f4 `a4 } [ bes( )a g a ] |
-%%%16
+       < [ g'8^"4" d > f' e' f' d'^"3"~   c' ] |
+%%13
+       \clef "alto";
+       < \multi 2;
+                { \stem \up; bes2 c'4 }
+                { \stem \down; g4~  f4 e4 }% ugh
+       > |
+%%14
+       < [ a8 f > g a f ] < d'4-\upbow e4 'bes4 > |
+%%15
+       < c'4-\downbow f4 'a4 > [ bes8~  a g a ] |
+%%16
        [ f( e )f a-. g-. bes-. ] |
+%%17
+       < a2^"0" fis2_"3" > bes4 |
+%%18
+       < { [ c'8~  bes c' a ] } { [ es ] } > fis4 |
+%%19
+       < d'4-\downbow g4 'bes4 > < c'4-\upbow g4 c4 > < [ bes8 d > a ] |
+%%20
+       < { [ c'8 ( bes a )bes g~  bes ] } { [ d ] } { [ g ] } > |
+%%21
+       < \multi 2;  
+               {\stem \up;  d'4 (\stem \up; ) cis'4 d'4 }  
+               { \stem \down; g2 f4 } 
+       > |
+%%22
+       < { [ g8 ~  f g e ] } { [ cis ] } > < f4 d4 > |
+%%23
+       [ 'g8 g ] < e4. 'a4. > d-\upbow |
+%%24
+       < d2.^"fine" 'a2. 'd2._"3 mins."> 
+       \bar ":|";
 %% \tighten            % use one line less
-%% \newline            % start new line
-%%     |
-%%%17
-%%     { a2^0^\tr fis2_3 } bes4 |
-       { a2^"0" fis2_"3" } bes4 |
-%%%18
-%%     [ { 'c( es } ) bes 'c a ] fis4^\tr |
-       { [ 'c es } bes 'c a ] fis4 |
-%%%19
-%%     { 'd4-\downbow g4 `bes4\stemdown } { 'c4-\upbow g4 c4\stemdown } [ { bes d } a ] |
-       { 'd4-\downbow g4 `bes4 } { 'c4-\upbow g4 c4 } { [ bes d } a ] |
-%%%20
-%%     [ { 'c( d `g } bes a ) bes g ( ) bes ] |
-       { [ 'c d `g } bes a bes g( )bes ] |
-%%%21
-%%     { 'd4\stemup g2\stemdown } (^ ) 'cis4\stemup { 'd4\stemup =f4\stemdown } |
-%      { 'd4 g2 } 'cis4 { 'd4 f4 } |
-       { \music { 'd4 'cis4 'd4 } \music { g2 f4 } } |
-%%%22
-%%     [ { g(  cis } )f g e ] { f4 d4 } |
-       { [ g cis } f g e ] { f4 d4 } |
-%%%23
-%%     [ `g g ] { e4.\stemup^\tr `a4.\stemdown } d\stemup-\upbow |
-       [ `g g ] { e4. `a4. } d-\upbow |
-%%%24
-%%     { d2.^{fine}  `a2. `d2.\stemup_{ }_{ }_{3 mins.}}       s4 :||
-%%     { \textstyle "italic" d2.^"fine" `a2. \textstyle "roman" `d2._"3 mins."} | % :||
-       { d2.^"fine" `a2. `d2._"3 mins."} | % :||
-%% \tighten            % use one line less
-       $
+       
 }
 
-score {
-       staff { 
-               melodic
-               music { ii_menuetto }
-               commands {
-                       key $bes$
-                       clef "alto"     
-                       skip 8:0
-                       clef "violin"
-                       skip 5:0
-                       clef "alto"
-                       skip 12:0
-               }
+\score{
+       \melodic{ 
+               \id "Staff" "cello"; \IImenuetto 
        }
-       commands {
-               meter 3*4
-               skip 8:0
-               bar ":|:"
-%              clef "violin"
-               skip 5:0
-%              \clef "alto" 
-               skip 12:0
-               bar ":||"
+       \paper{
+               unitspace= 9.0\mm  ;% to get lily to use only three lines
+               geometric= 1.40;
+               linewidth= 195.0\mm;
+               \output "scsii-menuetto.out";
        }
-       paper {
-               symboltables { table_sixteen }
-               width 195mm
-%              unitspace 12mm % this should do, really
-               unitspace 8mm  % to get lily to use only three lines
-               output "scsii-menuetto.out"
+       \midi{ 
+               \tempo 4 = 120;
+               \output "scsii-menuetto.midi";
        }
 }