mutopia/D.Zipoli/verso_2.ly

   1 \header{
   2 filename="verso_2.ly";
   3 enteredby = "Peter Chubb";
   4 arranger = "Peter Chubb";
   5 composer = "Domenico Zipoli";
   6 date = "c1700";
   7 title = "Verso II";
   8 }
   9
  10 %{
  11         This is an organ piece that I've arranged for Recorder trio.
  12         The third part can be played either on a second treble
  13         recorder, or on a tenor.
  14
  15         Copright 1998 Peter Chubb.
  16         This work may be used and modified freely
  17         under the Gnu Public Licence.
  18 %}
  19
  20 \version "1.0.16";
  21
  22 $voice_one = \notes \relative c' {
  23         a'2 bes4. [c16 bes] | a4 d ~ d c ~ | c b ~ [b8 a] a4 ~|
  24         [a8 gis16 fis16] gis4 a4^"'" e'4 | f2 ~ [f8 g16 f] e4 ~| [e8 f16 e] [d8 c] d2 |
  25         c2 bes4 ~ [bes8 c16 bes] | a4~[a8 bes16 a] g4~ [g8 a16 g] f4 ~ [ f8 g16 f] e4 a4~|
  26         [a8 g16 fis] g4 ~ g f | e2 ~ e4 g4 ~ | g [fis8 e] fis2 \bar "|.";
  27 }
  28
  29 $voice_two = \notes \relative c' {
  30         [d8 e f d ] g4 c, | f d e2 | f4 ~ [f8 g16 f] e4 a|
  31         d,4. d8 c4 a'4 | r4 a4 bes4 ~ [bes8 c16 bes] | a2 ~ [a8 bes16 a] g4 ~|
  32         [ g8 a16 g ] f4 ~ [f8 g16 f] e4 | f2 ~ f4 e4 ~| e4 d4~ d4 cis4 |
  33         d2 cis4 d4~ | d4 [cis8 b] cis2 | d1 \bar "|.";
  34 }
  35
  36 $voice_three = \notes \relative c'
  37  {
  38         r1 | r2 [a8 b c a] | d4 g, c4. [d16 c] |
  39         b4. b8 [a b c a ] | [d, e f d ] g4 c,4 | f2 bes4 ~ [bes8 c16 bes]|
  40         a4 ~ [a8 bes16 a] g4 c, | [f8 g a f ] [c d e cis] | [d e f d] a2 |
  41         bes4. [c16 bes] a4 d | a1 | d1 \bar"|.";
  42 }
  43
  44 global=\notes {
  45         \time 2/2;
  46         \keysignature  c;
  47         \property Staff.timeSignatureStyle = "C"
  48 }
  49
  50
  51 recorder= {
  52 %       For three recorders.
  53 %
  54         \context StaffGroup
  55         <
  56                 \context Staff = descant {
  57                         \property Staff.Instrument = "Descant"
  58                         \clef "G^8";
  59                         \notes \transpose bes' {\global \$voice_one }
  60                 }
  61
  62                 \context Staff = treble {
  63                       \property Staff.Instrument = "Treble"
  64                         \clef "G";
  65                         \notes \transpose bes' {\global  \$voice_two }
  66                 }
  67
  68                 \context Staff = lower {
  69                       \property Staff.Instrument = "Tenor or Treble II"
  70                         \clef "G";
  71                         \notes \transpose bes'' {\global \$voice_three }
  72                 }
  73         >
  74 }
  75
  76 %
  77 % For keyboard (Organ)
  78 % Not quite the same as the original.
  79 % TODO:  add inner part;
  80 %        Try to make parts cross staves as apropriate.
  81 %
  82 organ={
  83         \context GrandStaff
  84         <
  85                 \context Staff = treble {
  86                       \clef "G";
  87                       \global
  88                       \context Staff <
  89                         { \voiceone \$voice_one }
  90                         { \voicetwo \$voice_two }
  91                       >
  92                 }
  93                 \context Staff = bass {
  94                       \clef "F"; \global \$voice_three
  95                 }
  96         >
  97 }
  98
  99 \score{
 100         \recorder
 101
 102         \paper{}
 103 }
 104