// ============================================== //
        //                                                //
        //      file : work-34-no-pics.nlr                //
        //      date : 2002, may to june                  //
        //                                                //
        //      Work-34, a piece for 2 Nord Modulars.     //
        //                                                //
        // ============================================== //


        // ============================================== //
        // NOTE :                                         //
        //                                                //
        //   Slow, Normal, Fast and Tempo MUST be defined //
        //   this is requiered by the module Utils, which //
        //   will adjust it's fade tempo's accordingly    //
        // ============================================== //


Const Slow   = 5.0;
Const Normal = 1.0;
Const Fast   = 200;
Const Tempo  = Normal; // Slow, Normal or Fast

Include midi;   // Include standard MIDI stuff
Include nm;     // Include standard Nord Modular stuff
Include utils;  // Include application helpers, like silence and fade-stuff

// //////////////////////////////////////////////////////////////////////
// Noodle defenitions ///////////////////////////////////////////////////


Bluess( aDev);
(
  0 Play( aDev, 101, 101, 101, 104);
);

Knetter( aDev);
(
  0 Play( aDev, 101, 101, 102, 103);
);

WahWah( aDev);
(
  0 Play( aDev, 101, 105, 106, 108);
);

noodle_w( aDev);
(
  0 Play( aDev, 109, 110, 111, 112);
);

Plinks( aDev);
(
  0 Play( aDev, 101, 113, 114, 115);
);

Intermezzo( aDev);
(
  0 Play( aDev, 101, 101, 116, 196);
);

Piefje( aDev);
(
  0 Play( aDev, 117, 118, 119, 120);
);

Fortune( aDev);
(
  0 Play( aDev, 101, 101, 121, 122);
);

Fishes_1( aDev);
(
  0 Play( aDev, 123, 101, 101, 101);
);

Fishes_2( aDev);
(
  0 Play( aDev, 123, 124, 101, 101);
);

Fishes_3( aDev);
(
  0 Play( aDev, 123, 124, 125, 101);
);

Fishes_4( aDev);
(
  0 Play( aDev, 123, 124, 125, 126);
);

Sadness( aDev);
(
  0 Play( aDev, 101, 127, 128, 129);
);

Election1( aDev);
(
  0 Play( aDev, 130, 131, 132, 133);
);

Election2( aDev);
(
  0 Play( aDev, 130, 131, 101, 133);
);

Elective( aDev);
(
  0 Play( aDev, 101, 101, 134, 135);
);

Chaos1( aDev);
(
  0 Play( aDev, 101, 136, 137, 138);
);

Chaos2( aDev);
(
  0 Play( aDev, 139, 140, 141, 142);
);

Chaos3( aDev);
(
  0 Play( aDev, 101, 101, 101, 143);
);

n116( aDev); // From Esslingen
(
  // Load the noodle

  0 Play( aDev, 144, 145, 146, 147);

  // after 7 sec's - turn on, just in case it was saved off

  7 ControlChange( aDev, 1, 1, 127);
  7 ControlChange( aDev, 2, 1, 127);
  7 ControlChange( aDev, 3, 1, 127);
  7 ControlChange( aDev, 4, 1, 127);

  // After 5 min's go to 'off mode', takes about 10 min's

  5 * 60 * Tempo ControlChange( aDev, 1, 1, 0);
  5 * 60 * Tempo ControlChange( aDev, 2, 1, 0);
  5 * 60 * Tempo ControlChange( aDev, 3, 1, 0);
  5 * 60 * Tempo ControlChange( aDev, 4, 1, 0);
);

n120( aDev); // From Esslingen
(
  0 Play( aDev, 148, 149, 150, 151);
);

WaterOverTheWaves( aDev);
(
  0 Play( aDev, 152, 153, 154, 155);
);

MoreWater( aDev);
(
  0 Play( aDev, 156, 157, 158, 159);
);

BassWater( aDev);
(
  0 Play( aDev, 101, 160, 161, 163);
);

Plokjes1( aDev);
(
  0 Play( aDev, 101, 101, 162, 163);
);

Plokjes2( aDev);
(
  0 Play( aDev, 101, 163, 164, 165);
);

Intermezzo3( aDev);
(
  0 Play( aDev, 101, 101, 166, 167);
);

Intermezzo4( aDev);
(
  0 Play( aDev, 101, 177, 166, 167);
);

ShadeBass( aDev);
(
  0 Play( aDev, 101, 101, 101, 168);
);

ShadeFuzz( aDev);
(
  0 Play( aDev, 101, 101, 101, 169);
);

ShadeMellow( aDev);
(
  0 Play( aDev, 101, 170, 171, 172);
);

ShadeBleeps( aDev);
(
  0 Play( aDev, 101, 101, 171, 172);
);

ShadeShimmers( aDev);
(
  0 Play( aDev, 175, 176, 173, 174);
);


EuProlog( aDev);
(
  0 Play( aDev, 175, 178, 179, 180);
);

EuProlo( aDev);
(
  0 Play( aDev, 101, 178, 179, 180);
);

EuBang( aDev);
(
  0 Play( aDev, 101, 101, 101, 181);
);

Eu( aDev);
(
  0 Play( aDev, 101, 101, 178, 182);
);

EuTicks( aDev);
(
  0 Play( aDev, 101, 183, 178, 182);
);

EuTicks2( aDev);
(
  0 Play( aDev, 101, 183, 178, 101);
);

Schultze( aDev);
(
  0 Play( aDev, 101, 101, 184, 185);
);

Sunday_1( aDev);
(
  0 Play( aDev, 101, 101, 101, 186);
);

Sunday_2( aDev);
(
  0 Play( aDev, 101, 101, 113, 187);
);

qstu( aDev);
(
  0 Play( aDev, 188, 189, 190, 191);
);


NoNaYet_1( aDev);
(
  0 Play( aDev, 101, 101, 101, 193);
);

NoNaYet_2( aDev);
(
  0 Play( aDev, 101, 101, 192, 193);
);

NoNaYet_3( aDev);
(
  0 Play( aDev, 101, 194, 192, 101);
);

NoNaYet_4( aDev);
(
  0 Play( aDev, 101, 101, 101, 195);
);

NoNaYet_5( aDev);
(
  0 Play( aDev, 101, 101, 102, 103);
);


// //////////////////////////////////////////////////////////////////////
// //////////////////////////////////////////////////////////////////////
// //////////////////////////////////////////////////////////////////////
// Part definitions /////////////////////////////////////////////////////


pSilence; // 0'00
(
   // Silence synths
   0 * 60 * Tempo Silence         ( 1);
   0 * 60 * Tempo Silence         ( 2);
);

// //////////////////////////////////////////////////////////////////////

pBluess; // 45'20
(
           0 * 60 * Tempo Bluess  ( 1);
           3 * 60 * Tempo Knetter ( 2); // Knetter
           4 * 60 * Tempo FadeOut ( 1); // Bluess
           5 * 60 * Tempo WahWah  ( 1);
           6 * 60 * Tempo FadeOut ( 2); // Knetter
          10 * 60 * Tempo Bluess  ( 2);
          13 * 60 * Tempo Fadeout ( 1); // WahWah
          15 * 60 * Tempo Fadeout ( 2); // Bluess
          15 * 60 * Tempo noodle_w( 1);
          37 * 60 * Tempo Plinks  ( 2);
          40 * 60 * Tempo FadeOut ( 1); // noodle_w
          45 * 60 * Tempo FadeOut ( 2); // Plinks
);

TestBluess;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pBluess;
);

// //////////////////////////////////////////////////////////////////////

pFortune; // 60'20
(
           0 * 60 * Tempo Intermezzo( 1);
          10 * 60 * Tempo FadeOut   ( 1); // Intermezzo
          10 * 60 * Tempo Piefje    ( 2);
          15 * 60 * Tempo Fortune   ( 1);
          17 * 60 * Tempo FadeOut   ( 2); // Piefje
          27 * 60 * Tempo FadeOut   ( 1); // Fortune
          27 * 60 * Tempo Bluess    ( 2);
          31 * 60 * Tempo Knetter   ( 1);
          32 * 60 * Tempo FadeOut   ( 2); // Bluess
          33 * 60 * Tempo WahWah    ( 2);
          34 * 60 * Tempo FadeOut   ( 1); // Knetter
          35 * 60 * Tempo FadeOut   ( 2); // WahWah
          35 * 60 * Tempo Fishes_1  ( 1);
          39 * 60 * Tempo Fishes_2  ( 2);
          40 * 60 * Tempo FadeOut   ( 1); // Fishes_1
          43 * 60 * Tempo Fishes_3  ( 1);
          44 * 60 * Tempo FadeOut   ( 2); // Fishes_2
          47 * 60 * Tempo Fishes_4  ( 2);
          48 * 60 * Tempo FadeOut   ( 1); // Fishes_3
          60 * 60 * Tempo FadeOut   ( 2); // Fishes_4
);

TestFortune;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pFortune;
);

// //////////////////////////////////////////////////////////////////////

pSadness; // 25'20
(
           0 * 60 * Tempo Intermezzo ( 1);
          10 * 60 * Tempo SlowFadeOut( 1); // Intermezzo
          10 * 60 * Tempo Sadness    ( 2);
          25 * 60 * Tempo FadeOut    ( 2); // Sadness
);

TestSadness;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pSadness;
);

// //////////////////////////////////////////////////////////////////////

pElection; // 55'20
(
           0 * 60 * Tempo Election1  ( 1);
           6 * 60 * Tempo Elective   ( 2);
          13 * 60 * Tempo FadeOut    ( 1); // Election1
          14 * 60 * Tempo Election2  ( 1);
          20 * 60 * Tempo FadeOut    ( 2); // Elective
          22 * 60 * Tempo Sadness    ( 2);
          23 * 60 * Tempo FadeOut    ( 1); // Election2
          24 * 60 * Tempo Chaos1     ( 1);
          25 * 60 * Tempo FadeOut    ( 2); // Sadness
          29 * 60 * Tempo Chaos2     ( 2);
          30 * 60 * Tempo FadeOut    ( 1); // Chaos1
          39 * 60 * Tempo Chaos3     ( 1);
          40 * 60 * Tempo FadeOut    ( 2); // Chaos2
          41 * 60 * Tempo n116       ( 2); //  - can run at most 15'00 !!
          43 * 60 * Tempo SlowFadeOut( 1); // Chaos3
          55 * 60 * Tempo FadeOut    ( 2); // n116
);

TestElection;
(
   0 * 60 * Tempo pSilence;
   0 * 60 * Tempo pElection;
);

// //////////////////////////////////////////////////////////////////////

pWaterRunsOverTheWaves; // 48'00
(
           0 * 60 * Tempo Plokjes2         ( 1);
           1 * 60 * Tempo n120             ( 2);
           8 * 60 * Tempo SlowFadeOut      ( 1); // Plokjes2
           9 * 60 * Tempo BassWater        ( 1);
          11 * 60 * Tempo SlowFadeOut      ( 1); // BassWater
          13 * 60 * Tempo WaterOverTheWaves( 1);
          15 * 60 * Tempo FadeOut          ( 2); // n120
          16 * 60 * Tempo BassWater        ( 2);
          23 * 60 * Tempo SlowFadeOut      ( 2); // BassWater
          24 * 60 * Tempo MoreWater        ( 2);
          25 * 60 * Tempo FadeOut          ( 1); // WaterOverTheWaves
          26 * 60 * Tempo BassWater        ( 1);
          32 * 60 * Tempo SlowFadeOut      ( 2); // MoreWater
          33 * 60 * Tempo Plokjes1         ( 2);
          34 * 60 * Tempo SlowFadeOut      ( 1); // BassWater
          39 * 60 * Tempo Plokjes2         ( 1);
          39 * 60 * Tempo SlowFadeOut      ( 2); // Plokjes1
          41 * 60 * Tempo Intermezzo3      ( 2);
          42 * 60 * Tempo SlowFadeOut      ( 1); // Plokjes2
          46 * 60 * Tempo SlowFadeOut      ( 2); // Intermezzo3
          46 * 60 * Tempo Plokjes2         ( 1);
          47 * 60 * Tempo SlowFadeOut      ( 1); // Plokjes2
);

TestWater;
(
   0 * 60 * Tempo pSilence;
   0 * 60 * Tempo pWaterRunsOverTheWaves;
);

// //////////////////////////////////////////////////////////////////////

pShades; // 44'00
(
           0 * 60 * Tempo Plokjes2     ( 2);
           2 * 60 * Tempo Intermezzo3  ( 1);
           5 * 60 * Tempo SlowFadeOut  ( 2); // Plokjes2
           6 * 60 * Tempo Intermezzo4  ( 2);
           8 * 60 * Tempo SlowFadeOut  ( 1); // Intermezzo3
           9 * 60 * Tempo ShadeBass    ( 1);
          12 * 60 * Tempo SlowFadeOut  ( 2); // Intermezzo4
          13 * 60 * Tempo ShadeFuzz    ( 2);
          15 * 60 * Tempo SlowFadeOut  ( 1); // ShadeBass
          16 * 60 * Tempo ShadeFuzz    ( 1);
          17 * 60 * Tempo SlowFadeOut  ( 1); // ShadeFuzz
          18 * 60 * Tempo ShadeMellow  ( 1);
          18 * 60 * Tempo SlowFadeOut  ( 2); // ShadeFuzz
          20 * 60 * Tempo ShadeBleeps  ( 2);
          21 * 60 * Tempo SlowFadeOut  ( 1); // ShadeMellow
          22 * 60 * Tempo ShadeBleeps  ( 1);
          27 * 60 * Tempo SlowFadeOut  ( 1); // ShadeBleeps
          28 * 60 * Tempo ShadeShimmers( 1);
          29 * 60 * Tempo SlowFadeOut  ( 2); // ShadeBleeps
          35 * 60 * Tempo Intermezzo4  ( 2);
          39 * 60 * Tempo SlowFadeOut  ( 1); // ShadeShimmers
          43 * 60 * Tempo SlowFadeOut  ( 2); // Intermezzo4
);

TestShades;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pShades;
);

// //////////////////////////////////////////////////////////////////////


pEurope; // 31'00
(
  // If only Europe could weep

           0 * 60 * Tempo EuProlo    ( 1);
           3 * 60 * Tempo EuBang     ( 2);
           6 * 60 * Tempo SlowFadeOut( 2); // EuBang
           7 * 60 * Tempo EuProlog   ( 2);
           9 * 60 * Tempo SlowFadeOut( 1); // EuProlo
          10 * 60 * Tempo Eu         ( 1);
          11 * 60 * Tempo SlowFadeOut( 2); // EuProlog
          12 * 60 * Tempo Eu         ( 2);
          16 * 60 * Tempo SlowFadeOut( 1); // Eu
          17 * 60 * Tempo EuTicks    ( 1);
          18 * 60 * Tempo SlowFadeOut( 2); // Eu
          23 * 60 * Tempo EuTicks2   ( 2);
          24 * 60 * Tempo FadeOut    ( 1); // EuTicks
          25 * 60 * Tempo EuProlo    ( 1);
          27 * 60 * Tempo SlowFadeout( 2); // EuTicks2
          30 * 60 * Tempo SlowFadeOut( 1); // EuProlo
);


TestEurope;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pEurope;
);


// //////////////////////////////////////////////////////////////////////

pRestlessSunday; // 61'00
(
           0 * 60 * Tempo Schultze   ( 2);
           2 * 60 * Tempo Sunday_1   ( 1);
           4 * 60 * Tempo SlowFadeOut( 2); // Schultze
          14 * 60 * Tempo Sunday_2   ( 2);
          14 * 60 * Tempo SlowFadeOut( 1); // Sunday_1
          25 * 60 * Tempo qstu       ( 1);
          25 * 60 * Tempo SlowFadeOut( 2); // Sunday_2
          30 * 60 * Tempo Bluess     ( 2);
          39 * 60 * Tempo SlowFadeOut( 2); // Bluess
          40 * 60 * Tempo SlowFadeOut( 1); // qstu
          40 * 60 * Tempo Intermezzo ( 2);
          43 * 60 * Tempo SlowFadeOut( 2); // Intermezzo
          43 * 60 * Tempo Sadness    ( 1);
          57 * 60 * Tempo SlowFadeOut( 1); // Sadness
          57 * 60 * Tempo Schultze   ( 2);
          60 * 60 * Tempo SlowFadeOut( 2); // Schultze
);

TestSunday;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pRestlessSunday;
);


// //////////////////////////////////////////////////////////////////////

pNoNaYet; // 31'00
(
           0 * 60 * Tempo NoNaYet_1  ( 1);
           1 * 60 * Tempo NoNaYet_4  ( 2);
           4 * 60 * Tempo SlowFadeOut( 2); // NoNaYet_4
           5 * 60 * Tempo NoNaYet_2  ( 2);
           5 * 60 * Tempo SlowFadeOut( 1); // NoNaYet_1
          10 * 60 * Tempo SlowFadeOut( 2); // NoNaYet_2
          10 * 60 * Tempo NoNaYet_3  ( 1);
          11 * 60 * Tempo NoNaYet_4  ( 2);
          13 * 60 * Tempo SlowFadeOut( 2); // NoNaYet_4
          15 * 60 * Tempo NoNaYet_2  ( 2);
          20 * 60 * Tempo SlowFadeOut( 2); // NoNaYet_2
          21 * 60 * Tempo NoNaYet_5  ( 2);
          25 * 60 * Tempo SlowFadeOut( 1); // NoNaYet_3
          26 * 60 * Tempo NoNaYet_4  ( 1);
          29 * 60 * Tempo SlowFadeOut( 1); // NoNaYet_4
          30 * 60 * Tempo SlowFadeOut( 2); // NoNaYet_5
);

TestNoNaYet;
(
  0 * 60 * Tempo pSilence;
  0 * 60 * Tempo pNoNaYet;
);


// //////////////////////////////////////////////////////////////////////
// //////////////////////////////////////////////////////////////////////
// //////////////////////////////////////////////////////////////////////
// the piece ////////////////////////////////////////////////////////////


PlayPiece;
(
   0 * 60 * Tempo pSilence;               //   0:00 -  0:00 -   0:00 -  0:00
   0 * 60 * Tempo pNoNaYet;               //   0:00 - 31:00 -  31:00 - 30:00
  30 * 60 * Tempo pBluess;                //  30:00 - 45:20 -  75:20 - 45:00
  75 * 60 * Tempo pFortune;               //  75:00 - 60:20 - 135:20 - 59:00
 134 * 60 * Tempo pSadness;               // 134:00 - 25:20 - 159:20 - 21:00
 155 * 60 * Tempo pElection;              // 155:00 - 55:20 - 210:20 - 55:00
 210 * 60 * Tempo pWaterRunsOverTheWaves; // 210:00 - 48:00 - 258:00 - 43:00
 257 * 60 * Tempo pShades;                // 257:00 - 44:00 - 301:00 - 43:00
 300 * 60 * Tempo pEurope;                // 300:00 - 31:00 - 331:00 - 30:00
 330 * 60 * Tempo pRestlessSunday;        // 330:00 - 61:00 - 391:00 - 60:00
 390 * 60 * Tempo pNoNaYet;               // 390:00 - 31:00 - 421:00
);


// //////////////////////////////////////////////////////////////////////

// 0 * 60 * Tempo TestBluess;
// 0 * 60 * Tempo TestFortune;
// 0 * 60 * Tempo TestSadness;
// 0 * 60 * Tempo TestElection;
// 0 * 60 * Tempo TestWater;
// 0 * 60 * Tempo TestEurope;
// 0 * 60 * Tempo TestSunday;
// 0 * 60 * Tempo TestNoNaYet;

0 PlayPiece; // Do it all, now.