#include "cmusic.h"

set notify ;
set func = 4K ;

ins 0 t ;
        seg b2 1 f2 d 0 ;
        mult b5 b2 p5 ;
        mult b3 b2 p8 ;
        osc b4 b3 p7 f1 d;
        adn b4 b4 p6 ;
        osc b1 b5 b4 f1 d ;
        out b1 ;
end;
{p5-amp ; p6-Fc ; p7-Fm ; p8-dF ;}

ins 0 o ;
        seg b2 1 f4 d 0 ;
        mult b5 b2 p5 ;
        mult b3 b2 p8 ;
        osc b4 b3 p7 f1 d ;
        adn b4 b4 p6 ;
        osc b1 b5 b4 f1 d ;
        out b1 ;
end ;

ins 0 b ;
        seg b2 1 f4 d 0 ;
        mult b5 b2 p5 ;
        mult b3 b2 p8 ;
        osc b4 b3 p7 f1 d ;
        adn b4 b4 p6 ;
        osc b1 b5 b4 f1 d;
        out b1 ;
end;
SINE(f1) ;
GEN4(f2) 0,0 -2 .1,1 0 .8,.5 -2 1,0 ;
GEN5(f3) 1,1,0 2,1,0 3,1/2,0 4,1,0 5,1/3,0 6,1/4,0 7,1/5,0 ;
NORM(f3) ;
GEN4(f4) 0,0 -3 .1,1 0 .9,1 0 1,0 ;

#define amp (1/10)
#define T (4*(180MM))
#define STAC .6
#define NON .9
#define LEG 1.1
#define INDEX 7
#define HARM 1

{Macro to play a note AFTER the last one in the score}

#define NEXT(ins,pitch,dur,duty)\
note p2+p4 ins T*duty/(dur) amp pitch HARM*p6 INDEX*p7 ;\
note p2 ins T*duty/(dur) amp pitch/2 HARM*p6 INDEX*p7 ;\
var p2 p4 T/(dur)

{Macro to play a note WITH the last one in the score}

#define SAME(ins,pitch,dur,duty)\
var p2 v1 p4 ;\
note p2 ins T*duty/(dur) amp pitch HARM*p6 INDEX*p7 ;\
note p2 ins T*duty/(dur) amp pitch/2 HARM*p6 INDEX*p7 ;\
var p2 p4 v1

{Chord Macros}
#define CH2(p1,p2,ins,dur,duty)\
 NEXT(ins,p1,dur,duty) ; SAME(ins,p2-.5,dur,duty)

#define CHS2(p1,p2,ins,dur,duty) \
 SAME(ins,p1,dur,duty) ; SAME(ins,p2-.5,dur,duty)

#define CH3(p1,p2,p3,ins,dur,duty) \
 NEXT(ins,p1,dur,duty) ; SAME(ins,p2-.5,dur,duty) ; \
  SAME(ins,p3-.7,dur,duty)

#define CHS3(p1,p2,p3,ins,dur,duty) \
 SAME(ins,p1,dur,duty) ; SAME(ins,p2-.5,dur,duty) ;\
  SAME(ins,p3-.7,dur,duty)

#define CH4(p1,p2,p3,p4,ins,dur,duty) \
 NEXT(ins,p1,dur,duty) ; SAME(ins,p2,dur,duty) ;\
  SAME(ins,p3,dur,duty) ; SAME(ins,p4,dur,duty)

#define CHS4(p1,p2,p3,p4,ins,dur,duty) \
 SAME(ins,p1,dur,duty) ; SAME(ins,p2-.5,dur,duty) ;\
  SAME(ins,p3,dur,duty) ; SAME(ins,p4,dur,duty)

{Notelist begins here - tune is by Mendelssohn}


 CH3(C(0),C(0),C(0),t,4*3,STAC) ;
  CH3(C(0),C(0),C(0),t,4*3,STAC) ;
   CH3(C(0),C(0),C(0),t,4*3,STAC) ;
 CH3(C(0),C(0),C(0),t,4/3,NON) ;

  CH3(C(0),C(0),C(0),t,4*3,STAC) ;
   CH3(C(0),C(0),C(0),t,4*3,STAC) ;
    CH3(C(0),C(0),C(0),t,4*3,STAC) ;
 CH3(C(0),C(0),C(0),t,4/3,NON) ;

 CH3(C(0),C(0),C(0),t,4*3,STAC) ;
  CH3(C(0),C(0),C(0),t,4*3,STAC) ;
   CH3(C(0),C(0),C(0),t,4*3,STAC) ;
 CH3(C(0),E(0),E(0),t,4,STAC) ;

  CH3(C(0),E(0),E(0),t,4*3,STAC) ;
   CH3(C(0),E(0),E(0),t,4*3,STAC) ;
    CH3(C(0),E(0),E(0),t,4*3,STAC) ;
     CH3(C(0),E(0),E(0),t,4,STAC) ;

      CH3(C(0),E(0),E(0),t,4*3,STAC) ;
       CH3(C(0),E(0),E(0),t,4*3,STAC) ;
        CH3(C(0),E(0),E(0),t,4*3,STAC) ;
  CH3(C(0),E(0),G(0),t,4,STAC) ;
 
   CH3(C(0),E(0),G(0),t,4*3,STAC) ;
    CH3(C(0),E(0),G(0),t,4*3,STAC) ;
     CH3(C(0),E(0),G(0),t,4*3,STAC) ;
      CH3(C(0),E(0),G(0),t,4,STAC) ;

    CH3(C(0),E(0),G(0),t,4*3,STAC);
     CH3(C(0),E(0),G(0),t,4*3,STAC);
      CH3(C(0),E(0),G(0),t,4*3,STAC);

CH4(C(1),E(1),Fs(1),C(2),o,2,LEG);
CHS3(E(0),Fs(0),C(1),t,2,STAC);
CHS2(A(-3),A(-2),b,2,LEG);
  CH4(B(0),Ds(1),Fs(1),B(1),o,16/7,LEG);
  CHS2(B(-3),B(-2),b,2,LEG);
   CH4(B(0),Ds(1),Fs(1),Fs(1),o,16,NON);

CH4(B(0),Ds(1),Fs(1),A(1),o,4,LEG);
CHS2(E(-3),E(-2),b,2,LEG);
 CH4(B(0),E(1),G(1),G(1),o,4,LEG);
  CH4(A(0),D(1),F(1),F(1),o,4,NON);
  CHS2(F(-3),F(-2),b,2,LEG);
   CH4(F(0),A(0),D(1),D(1),o,4,NON);

CH4(E(0),G(0),C(1),C(1),o,2*9,LEG);
CHS2(G(-3),G(-2),b,2,LEG);
  CH4(F(0),F(0),D(1),D(1),o,2*9,NON);
   CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
    CH4(F(0),F(0),D(1),D(1),o,2*9,NON);
     CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
      CH4(F(0),F(0),D(1),D(1),o,2*9,NON);
       CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
	  CH4(D(0),D(0),B(0),B(0),o,2*9,NON);
	    CH4(E(0),E(0),C(1),C(1),o,2*9,NON);

    CH4(F(0),G(0),B(0),D(1),o,4,STAC);
    CHS2(G(-3),G(-2),b,2,LEG);
     CH4(F(0),G(0),G(0),G(0),o,16/3,STAC);
      CH4(F(0),G(0),B(0),D(1),o,16,NON);

  CH4(E(0),G(0),C(1),E(1),o,4,LEG);
  CHS2(C(-3),C(-2),b,2,LEG);
   CH3(C(0),C(0),C(0),t,8,NON);
    CH3(E(0),E(0),E(0),t,8,NON);
     CH3(G(0),G(0),G(0),t,8,NON);
       CH3(C(1),C(1),C(1),t,8,NON);
	CH3(C(1),E(1),E(1),t,8,NON);
	 CH3(C(1),E(1),G(1),t,8,NON);

   CH2(A(-3),A(-2),b,4,LEG);
   CHS4(C(1),E(1),Fs(1),C(2),o,2,LEG);
   CHS3(E(1),Fs(1),C(2),t,2,STAC);
    CH2(Fs(-3),Fs(-2),b,4,LEG);
     CH2(B(-3),B(-2),b,4,LEG);
     CHS4(B(0),Ds(1),Fs(1),B(1),o,2,LEG);
      CH2(Ds(-3),Ds(-2),b,16/3,LEG);
       CH4(B(0),Ds(1),Fs(1),Fs(1),o,16,NON);

      CH4(B(0),Ds(1),Fs(1),A(1),o,4,LEG);
      CHS2(E(-3),E(-2),b,4,LEG);
       CH4(B(0),E(1),G(1),G(1),o,4,LEG);
       CHS2(G(-3),G(-2),b,4,LEG);
	CH4(A(0),D(1),F(1),F(1),o,4,NON);
        CHS2(F(-3),F(-2),b,4,LEG);
	 CH4(F(0),A(0),D(1),D(1),o,4,NON);
	 CHS2(A(-3),A(-2),b,4,LEG);

      CH4(E(0),G(0),C(1),C(1),o,2*9,LEG);
      CHS2(G(-3),G(-2),b,2,LEG);
       CH4(F(0),F(0),D(1),D(1),o,2*9,NON);
        CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
	 CH4(F(0),F(0),D(1),D(1),o,2*9,NON);
	  CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
	   CH4(F(0),F(0),D(1),D(1),o,2*9,NON);
	    CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
	     CH4(D(0),D(0),B(0),B(0),o,2*9,NON);
	      CH4(E(0),E(0),C(1),C(1),o,2*9,NON);
	CH4(E(0),G(0),C(1),E(1),o,4,NON);
	CHS2(G(-3),G(-2),b,4,LEG);
	 CH4(F(0),G(0),B(0),D(1),o,16/3,NON);
	 CHS2(G(-3),G(-2),b,4,LEG);
	  CH4(G(0),G(0),C(0),E(1),o,16,STAC);
	   CH2(G(-2),G(-1),b,4,STAC);
	   CHS4(F(0),G(0),B(0),D(1),o,2,LEG);
	    CH2(G(-3),G(-2),b,4,NON);
	CH4(E(0),G(0),C(1),C(1),o,4,NON);
	CHS2(C(-3),C(-2),b,4,NON);
	CH4(C(1),E(1),G(1),C(2),o,4,STAC);
	CHS2(C(-2),G(-2),b,4,STAC);
	CHS3(C(1),E(0),G(0),t,3,STAC);
ter;