// starts the warnings if you want to see them
alerts = 0;

var items;
var parts = 5
     MusicA = new Array( items * parts + 1 )
var imax;
var musDate = new Date;
var momentmus = musDate.getMilliseconds();
var momentmusmid;

function _MusicArray()
{
  // 0 is name of file
  // 1 is display text
  // 2 is status text
  // 3 is size of embedded object
  if (NavIsIE)
  {
    if (document.all.tags("HEAD")[0].id != "PCM") MusicA[0] = 1;
  }
  else
  {
    if (document.getElementById("HEAD") != "PCM") MusicA[0] = 1;
  }
    items = 0;
    i = 1;
    MusicA[i] = "august25";
    MusicA[i+1] = "August 25";
    MusicA[i+2] = "A languid piano piece";
    MusicA[i+3] = 300;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "august31";
    MusicA[i+1] = "August 31";
    MusicA[i+2] = "a string quartet movement";
    MusicA[i+3] = 400;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "september02";
    MusicA[i+1] = "September 2";
    MusicA[i+2] = "Japanese sounds in western ears";
    MusicA[i+3] = 600;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "september05";
    MusicA[i+1] = "September 5";
    MusicA[i+2] = "A march for piano";
    MusicA[i+3] = 300;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "september06";
    MusicA[i+1] = "September 6";
    MusicA[i+2] = "Japan in Vienna for piano";
    MusicA[i+3] = 400;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "estutmirleid";
    MusicA[i+1] = "<span class=pcred>Es tut mir leid</span>";
    MusicA[i+2] = "A song that could have been sung by the villagers to the returning Naomi, but that it is in German!";
    MusicA[i+3] = 400;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "ThreeHoops";
    MusicA[i+1] = "Three Hoops";
    MusicA[i+2] = "Three Hoops for two clarinets.";
    MusicA[i+3] = 300;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "wquintet";
    MusicA[i+1] = "Wind quintet";
    MusicA[i+2] = "Written for the teacher of my favourite oboeist.";
    MusicA[i+3] = 400;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "auf2";
    MusicA[i+1] = "Auf Wiedersehen";
    MusicA[i+2] = "One day we must all cross the one stranded river. Where then will you be?";
    MusicA[i+3] = 400;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "thiswasnotheway";
    MusicA[i+1] = "This was not the way";
    MusicA[i+2] = "A setting of words by a contemporary writer.";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "goelovelyrose";
    MusicA[i+1] = "Goe lovely rose";
    MusicA[i+2] = "A setting of words by a Edmund Waller.";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "serialqt";
    MusicA[i+1] = "String quartet movement";
    MusicA[i+2] = "An exercise in 12-tones.";
    MusicA[i+3] = 500;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "3wquartetmarches";
    MusicA[i+1] = "Wind quartet movements";
    MusicA[i+2] = "3 marches for children.";
    MusicA[i+3] = 400;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "elegy_flute_strings";
    MusicA[i+1] = "Elegy";
    MusicA[i+2] = "For two flutes and strings";
    MusicA[i+3] = 500;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "habakuk2_2r";
    MusicA[i+1] = "The vision is not yet";
    MusicA[i+2] = "A setting of Habakuk 2:2-4 for Babillage.";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "ineedthee";
    MusicA[i+1] = "O Lord, I need thee";
    MusicA[i+2] = "A setting of words by Stephen Henwood.";
    MusicA[i+3] = 300;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "fanfareformay2";
    MusicA[i+1] = "Fanfare";
    MusicA[i+2] = "For brass ensemble";
    MusicA[i+3] = 300;
    MusicA[i+4] = 0;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "theanniversary3";
    MusicA[i+1] = "The Anniversary";
    MusicA[i+2] = "A setting of words by John Donne";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "lapartida";
    MusicA[i+1] = "La Partida";
    MusicA[i+2] = "A setting of words by Shakespeare: Parting is such sweet sorrow";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "Caedmon";
    MusicA[i+1] = "Cædmon's hymn";
    MusicA[i+2] = "A setting of words by Cædmon: Nu scylun hergan hefænricæs Uard";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "black_and_white2";
    MusicA[i+1] = "Hebenus et ebur";
    MusicA[i+2] = "black and white/ébène et ivoire/hebenus et ebur";
    MusicA[i+3] = 300;
    MusicA[i+4] = 0;
//    i = i + parts;
//    items = items + 1;
//    MusicA[i] = "Warumkannichnie";
//    MusicA[i+1] = "Warum nie?";
//    MusicA[i+2] = "Warum kann ich nie vergessen?";
//    MusicA[i+3] = 300;
//    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "eurovision";
    MusicA[i+1] = "EuroVision";
    MusicA[i+2] = "<a href=http://news.bbc.co.uk/1/hi/talking_point/3684041.stm target=ExtWindow>A satirical look at EU governance</a>";
    MusicA[i+3] = 300;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "deathis";
    MusicA[i+1] = "Death";
    MusicA[i+2] = "Death is - Henry Scott-Holland, 1847-1918";
    MusicA[i+3] = 400;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "froggy2";
    MusicA[i+1] = "Froggy";
    MusicA[i+2] = "Froggy from an original by Andrew North ";
    MusicA[i+3] = 300;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "NoMore";
    MusicA[i+1] = "No more";
    MusicA[i+2] = "No more tears - Sylvia Armanious ";
    MusicA[i+3] = 500;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "mackeral";
    MusicA[i+1] = "A Mackeral Day";
    MusicA[i+2] = "A Mackeral Day - Stuart Moffatt ";
    MusicA[i+3] = 300;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    MusicA[i] = "TheGrandOldDuke";
    MusicA[i+1] = "Yorkist variations";
    MusicA[i+2] = "Variations for string quartet on The Grand Old Duke of York";
    MusicA[i+3] = 400;
    MusicA[i+4] = 1;
    i = i + parts;
    items = items + 1;
    imax = 1 + (i - 1)/parts;

    momentmus = Math.floor(momentmus * ( items + 1 ) / 1000) * parts + 2;
    if (alerts) alert(momentmus);
// to exclude the quintet and the serial quartet
    if ( momentmus == 8 * parts + 2 ) (momentmus = 5 * parts + 2);
    if ( momentmus == 11 * parts + 2 ) (momentmus = 5 * parts + 2);

    MusicA[momentmus] = "<span class=pcvred>"+MusicA[momentmus]+"</span>"
    momentmusmid = "../music/"+MusicA[momentmus-1]+".mid"

}

function _musicarray_sub(item,useArray)
{
// used in pclmusic.htm - try to combine with linksarray - but need extra part for icon
  if (alerts) alert(this+" "+useArray);
  j = item;
  jeven = (item - 1)/parts
  jeven = jeven - Math.floor(jeven/3)*3
  newcell = "<tr><td>"
  if (jeven) newcell = "<td>";
  if (alerts) alert (item + " "+jeven)
//  var thisArray = new Array()
//  var tempArray = thisArray.concat(useArray)
//    MusicC = '"'+tempArray[(j+2)]+'"'
  MusicC = '"'+MusicA[(j+2)]+'"'
//  MusicB = "<u class=llink><span onClick='_pclmus_new(document.all,"+item+")' onMouseOver='winstatus("+MusicC + ");return true' style='cursor:hand'><LI>" + MusicA[j+1] +"</span></u>";
  myclass = '"llink"'
  noclass = '""'
//  MusicB = "<span class=pclinka onClick='_pclmus_new(document.all,"+item+")' onMouseOver='winstatus("+MusicC + ");return true' ><LI onMouseOver='this.className=" + myclass + "' onMouseOut='this.className=" + noclass + "'>" + MusicA[j+1] +"</span>";
  MusicB = newcell + "<span class=pclinka onClick='_pclmus_new(document.all,"+item+")' onMouseOver='winstatus("+MusicC + ");return true' ><LI onMouseOver='this.className=" + myclass + "' onMouseOut='this.className=" + noclass + "'>" + MusicA[j+1] +"</span>";
//  MusicB = newcell + "<span class=pclinka onClick='change_window(\"" + LinksA[0] + "\"," + MusicL + ");' onMouseOver='this.className=" + myclass + "; winstatus(" + MusicC + ");return true' onMouseOut='this.className=" + lclass + "'><LI>" + MusicI + " " + LinksA[j+1] + "</span>";

  if (alerts) alert(MusicB + item);
  document.write(MusicB);
}

function _pclmus_new(loc,pcitem)
{
  h = MusicA[pcitem+3]
  playSound(loc,"../music/nosound.au")
  nwcfile = MusicA[pcitem]+".nwc"
  embedsound(MusicA[pcitem],loc,h,playwav)
  showText(loc.MusicA1,MusicA[pcitem+1])
  showText(loc.MusicA1b,"Index")
  showText(loc.MusicA2,MusicA[pcitem+2])
  displayText(loc.PCM_Item)
  undisplayText(loc.PCM_Index)
  if (MusicA[pcitem+4]) showText(loc.musWds," This piece has words. Click <a href=../words/" + MusicA[pcitem] + ".htm onMouseOver='winstatus(MusicA["+(pcitem+2)+"]);return true' target=NewWindow>here</a> to read them.");
}