# offset melody and chords so lead-in appears in repeat

mel lamp
%@ryan.abc.in 1853
T: Lamp-Lighters Hornpipe
M: 2/4
L: 1/16
K: A
%  cd  % lead in     % some slurs ignored
    |: ecec eagf | ecec eagf | ecec fedc | d2B2 B2cd  |
       ecec eagf | ecec eagf | efde cABG | E2A2 A2cd :|
    |: edcd e2fe | dcBc d2ed | cAcA dcBA | GABc B2cd  |
       edcd e2fe | dcBc d2ed | caAc BdGB |[1 A2A2 A2cd  :|
                          |[2  A2A2 A2cd |[3 A2A2 A4 |
/mel

mel lamplead
%@ryan.abc.in 1853
T: Lamp-Lighters Hornpipe
M: 2/4
L: 1/16
K: A
%  cd  % lead in     % some slurs ignored
   |: cd | ecec eagf | ecec eagf | ecec fedc | d2B2 B2cd  |
           ecec eagf | ecec eagf | efde cABG | E2A2 A2   :|
   |: cd | edcd e2fe | dcBc d2ed | cAcA dcBA | GABc B2cd  |
           edcd e2fe | dcBc d2ed | caAc BdGB |[1 A2A2 A2 :|
                          |[2  A2A2 A2|[3 A2A2 A4 |
/mel

vamp
L:1/8
K:A
 potatoes  | [A] [z] [A] [z] [A] [z] [A] [c/] [d/] |
 potat     | [A] [z] [A] [z] [A] [z] [A] |  % lead in put first in repeat...
 lead      | [c/] [d/] |
 aend      | [A,,A,] [A,CE] [A,,2A,2] |
 zlead     | [z] |
 ashort    | [A,,A,] [A,CE] [A,,A,] |
/vamp


@vamp.ACDG

@accents_vel.in

accent loudlead  % phase change relative to zlead
 .120    136 .120  124 .120  128 .120  124 .120
         132 .120  124 .120  128 .120  124 
/accent

phrase odd
ff 8; ppp 8;
/phrase

phrase even
ppp 8; ff 8;
/phrase

phrase oddrep
ff 16; ppp 16;
/phrase

phrase evenrep
ppp 16; ff 16;
/phrase

phrase all
ff 8; ff 8;
/phrase

phrase mute
ppp 8; ppp 8;
/phrase

chords best
 a a a e   a a e a*    a a a e   a a e a*   
 a d a e   a d a a*    a d a e   a d a a*  
/chords

chords last
 a a a e   a a e a*    a a a e   a a e a*   
 a d a e   a d a a*    a d a e   a d a aend
/chords


chords bestlead
 zlead  a a a e   a a e a*    a a a e   a a e a*   
        a d a e   a d a a*    a d a e   a d a ashort  
/chords

chords lastlead
 zlead  a a a e   a a e a*    a a a e   a a e a*   
        a d a e   a d a a*    a d a e   a d a aend
/chords


% 3 softchord     % boom not effective with piano

param 5 30
xtra -1

chords half
 a a  a bm    a a  a   a*     a a  a bm    a a  a   a*  
 a bm a A Bm  a bm A E a*     a bm a A Bm  a bm A E a*
/chords

chords root
 e e a bm   e e e a*     e e a bm   e e e a* 
 e d a bm   e d a a*     e d a bm   e d a a*
/chords
  
events
-1 potat
 1 lamplead  1
 1 bestlead  3
 1 loudlead  3
 2 lastlead  3
/events

instrum 72 111 1 16

gen lamplead.midi

events
-1 potat
 1 lamplead  1
 1 odd       1
 1 lamplead  2
 1 even      2
 1 bestlead  3
 1 loudlead  3
 2 lastlead  3
/events

# time phase shift such that lead in is first, chord accent delayed
# alternate clarinet, fiddle

gen lampleadalt.midi