var hBar = new ItemStyle(50, 20, '', 0, 0, '15#336699', '10#6699CC', 'highText', 'highText', '', '',
 null, null, 'hand', 'default');

var subM = new ItemStyle(22, 0, '>', -15, 3, '#FFCC99', '#FF6600', 'lowText', 'highText',
 'itemBorder', 'itemBorder', null, null, 'hand', 'default');

var d = 'http://euromusicology.cs.uu.nl:6334/dynaweb/'


var pMenu = new PopupMenu('pMenu');
with (pMenu)
{

startMenu('root', false, 'window.page.winW()/2 - menuW/2', 64, 17, hBar, '', false);
addItem('  Home', 'index.html', '');
addItem('  Treatises', 'mTreatises', 'sm:', null, 70);
addItem('  Products', 'mProducts', 'sm:', null, 65);
addItem('  Project', 'mProject', 'sm:', null, 55);
addItem('  Links', 'mLinks', 'sm:', null, 45);
addItem('  Sitemap', 'sitemap.html', '', null, 60);
addItem('  Help', 'mHelp', 'sm:', null, 40);
addItem('  Contact', 'contact.html', '', null, 60);

startMenu('mTreatises', true, 0, 22, 90, subM, '', false);
addItem('TMI root', d + 'tmiweb/@Generic__CollectionView;cs=default;ts=default', '');
addItem('By author', 'mByAuthor', 'sm:');
addItem('By title', 'mByTitle', 'sm:');

startMenu('mByAuthor', true, 95, 0, 75, subM, '', false);
addItem('A', 'aAuthors', 'sm:');
addItem('B', 'bAuthors', 'sm:');
addItem('D-V', 'dAuthors', 'sm:');
addItem('Z', 'zAuthors', 'sm:');

startMenu('aAuthors', true, 80, 0, 250, subM, '', false);
addItem('Aaron, <I>Compendiolo</I> (after 1545)', treatiseURL('aarcom'), '');
addItem('Aaron, <I>Lucidario</I> (1545)', treatiseURL('aarcom'), '');
addItem('Aaron, <I>Toscanello</I> (1523-1562)', treatiseURL('aartos'), '');
addItem('Aaron, <I>Trattato</I> (1525)', treatiseURL('aartra'), '');
addItem('Aaron, <I>Trattato delle mutationi</I> (1531)', treatiseURL('aaragg'), '');
addItem('Agazzari, <I>Del sonare</I> (1607)', treatiseURL('agadel'), '');
addItem('Agazzari, <I>Musica ecclesiastica</I> (1638)', treatiseURL('agamus'), '');
addItem('Aiguino, <I>Tesoro</I> (1581)', treatiseURL(''), 'aigtes');
addItem('Artusi, <I>Arte del contraponto</I> (1586)', treatiseURL('artcon86'), '');
addItem('Artusi, <I>Artusi 2</I> (1603)', treatiseURL('artsec'), '');
addItem('Artusi, <I>Discorso secondo</I> (1608)', treatiseURL('artdis2'), '');
addItem('Artusi, <I>Impresa del Zarlino</I> (1604)', treatiseURL('artimp'), '');

startMenu('bAuthors', true, 80, 0, 150, subM, '', false);
addItem('Baldi, <I>Cronica</I> (1707)', treatiseURL('balcro'), '');
addItem('Baldi, <I>Vite</I> (c. 1595)', treatiseURL('balvit'), '');
addItem('Bona, <I>Regole</I> (1595)', treatiseURL('bonreg'), '');

startMenu('dAuthors', true, 80, 0, 250, subM, '', false);
addItem('Del Lago, <I>Breve introduttione</I> (1541)', treatiseURL('dlagbre'), '');
addItem('Galilei, <I>Discorso... Zarlino</I> (1589)', treatiseURL('galdis'), '');
addItem('Mei, <I>Discorso</I> (1602)', treatiseURL('meidis'), '');
addItem('Pontio, <I>Dialogo</I> (1595)', treatiseURL('pondia'), '');
addItem('Rodio, <I>Regole</I> (1609)', treatiseURL('rodreg'), '');
addItem('Tigrini, <I>Compendio</I> (1588)', treatiseURL('tigcom'), '');
addItem('Vecchi, <I>Mostra</I> (c. 1600)', treatiseURL('vecmos'), '');
addItem('Vicentino, <I>Antica musica</I> (1555)', treatiseURL('vicant'), '');

startMenu('zAuthors', true, 80, 0, 200, subM, '', false);
addItem('Zacconi, <I>Prattica 1</I> (1592)', treatiseURL('zacpra1'), '');
addItem('Zarlino, <i>Dimostrationi</i> (1571)', treatiseURL('zardi89'), '');
addItem('Zarlino, <i>Institutioni</i> (1558)', treatiseURL('zarih58'), '');
addItem('Zarlino, <i>Institutioni</i> (1589)', treatiseURL('zarih89'), '');
addItem('Zarlino, <i>Sopplimenti</i> (1588)', treatiseURL('zarsop'), '');

startMenu('mByTitle', true, 95, 0, 75, subM, '', false);
addItem('A-C', 'aTitles', 'sm:');
addItem('D', 'dTitles', 'sm:');
addItem('I-L', 'iTitles', 'sm:');
addItem('M-R', 'mTitles', 'sm:');
addItem('S-V', 'sTitles', 'sm:');

startMenu('aTitles', true, 80, 0, 240, subM, '', false);
addItem('<I>Antica musica</I> (1555), Vicentino', treatiseURL('vicant'), '');
addItem('<I>Arte del contraponto</I> (1586), Artusi', treatiseURL('artcon86'), '');
addItem('<I>Artusi 2</I> (1603), Artusi', treatiseURL('artsec'), '');
addItem('<I>Breve introduttione</I> (1541), Del Lago', treatiseURL('dlagbre'), '');
addItem('<I>Compendio</I> (1588), Tigrini', treatiseURL('tigcom'), '');
addItem('<I>Compendiolo</I> (after 1545), Aaron', treatiseURL('aarcom'), '');
addItem('<I>Cronica</I> (1707), Baldi', treatiseURL('balcro'), '');

startMenu('dTitles', true, 80, 0, 220, subM, '', false);
addItem('<I>Del sonare</I> (1607), Agazzari', treatiseURL('agadel'), '');
addItem('<I>Dialogo</I> (1595), Pontio', treatiseURL('pondia'), '');
addItem('<i>Dimostrationi</i> (1571), Zarlino', treatiseURL('zardi89'), '');
addItem('<I>Discorso secondo</I> (1608), Artusi', treatiseURL('artdis2'), '');
addItem('<I>Discorso... Zarlino</I> (1589), Galilei', treatiseURL('galdis'), '');
addItem('<I>Discorso</I> (1602), Mei', treatiseURL('meidis'), '');

startMenu('iTitles', true, 80, 0, 225, subM, '', false);
addItem('<I>Impresa del Zarlino</I> (1604), Artusi', treatiseURL('artimp'), '');
addItem('<i>Institutioni</i> (1558), Zarlino', treatiseURL('zarih58'), '');
addItem('<i>Institutioni</i> (1589), Zarlino', treatiseURL('zarih89'), '');
addItem('<I>Lucidario</I> (1545), Aaron', treatiseURL('aarluc'), '');

startMenu('mTitles', true, 80, 0, 250, subM, '', false);
addItem('<I>Mostra</I> (c. 1600), Vecchi', treatiseURL('vecmos'), '');
addItem('<I>Musica ecclesiastica</I> (1638), Agazzari', treatiseURL('agamus'), '');
addItem('<I>Prattica 1</I> (1592), Zacconi', treatiseURL('zacpra1'), '');
addItem('<I>Regole</I> (1595), Bona', treatiseURL('bonreg'), '');
addItem('<I>Regole</I> (1609), Rodio', treatiseURL('rodreg'), '');

startMenu('sTitles', true, 80, 0, 250, subM, '', false);
addItem('<i>Sopplimenti</i> (1588), Zarlino', treatiseURL('zarsop'), '');
addItem('<I>Tesoro</I> (1581), Aiguino', treatiseURL('aigtes'), '');
addItem('<I>Toscanello</I> (1523-1562), Aaron', treatiseURL('aartos'), '');
addItem('<I>Trattato delle mutationi</I> (1531), Aaron', treatiseURL('aaragg'), '');
addItem('<I>Trattato</I> (1525), Aaron', treatiseURL('aartra'), '');
addItem('<I>Vite</I> (c. 1595), Baldi', treatiseURL('balvit'), '');



startMenu('mProducts', true, 0, 22, 80, subM, '', false);
addItem('CD-ROMs', 'cdroms.html', '');
addItem('Download', 'download.html', '');

startMenu('mProject', true, 0, 22, 220, subM, '', false);
addItem("What's new", 'new.html', '');
addItem('Project description', 'description.html', '');
addItem('A vision of the future', 'tmeuro.html', '');
addItem('Publications and presentations', 'pubpres.html', '');
//addItem('Problems', 'problems.html', '');
addItem('Experiments', 'experiments.html', '');
addItem('Credits', 'credits.html', '');
addItem('Copyright', 'copyright.html', '');

startMenu('mLinks', true, 0, 22, 130, subM, '', false);
addItem('Organisation', 'mOrganisation', 'sm:');
addItem('Related projects', 'related.html', '');

startMenu('mOrganisation', true, 135, 0, 250, subM, '', false);
addItem('I-cult', 'http://www.cs.uu.nl/research/projects/i-cult/', '');
addItem('Content and Knowledge Engineering', 'http://www.cs.uu.nl/groups/IK/', '');
addItem('Information and Computing Sciences', 'http://www.cs.uu.nl', '');
addItem('Utrecht University', 'http://www.uu.nl', '');

startMenu('mHelp', true, 0, 22, 210, subM, '', false);
addItem('TmiWeb User Manual', 'manual.html', '');
addItem('DynaWeb Client Guide', d + 'client/client/@Generic__BookView;cs=default;ts=default', '');
addItem('DynaWeb Button Help', 'http://euromusicology.cs.uu.nl:6334/dwicons/iconhelp.htm', '');



}

addMenuBorder(pMenu, window.subBlank,
 null, '#666666', 1, '#CCCCDD', 2);

addDropShadow(pMenu, window.subM,
 [40,"#333333",6,6,-4,-4], [40,"#666666",4,4,0,0]);
addDropShadow(pMenu, window.subBlank,
 [40,"#333333",6,6,-4,-4], [40,"#666666",4,4,0,0]);



page.elmPos=function(e,p)
{
 var x=0,y=0,w=p?p:this.win;
 e=e?(e.substr?(isNS4?w.document.anchors[e]:getRef(e,w)):e):p;
 if(isNS4){if(e&&(e!=p)){x=e.x;y=e.y};if(p){x+=p.pageX;y+=p.pageY}}
 if (e && this.MS && navigator.platform.indexOf('Mac')>-1 && e.tagName=='A')
 {
  e.onfocus = new Function('with(event){self.tmpX=clientX-offsetX;' +
   'self.tmpY=clientY-offsetY}');
  e.focus();x=tmpX;y=tmpY;e.blur()
 }
 else while(e){x+=e.offsetLeft;y+=e.offsetTop;e=e.offsetParent}
 return{x:x,y:y};
};



function menuAnim(menuObj, menuName, dir)
{
 // The array index of the named menu (e.g. 'mFile') in the menu object (e.g. 'pMenu').
 var mD = menuObj.menu[menuName][0];
 // Add timer and counter variables to the menu data structure, we'll need them.
 if (!mD.timer) mD.timer = 0;
 if (!mD.counter) mD.counter = 0;

 with (mD)
 {
  // Stop any existing animation.
  clearTimeout(timer);

  // If the litNow() array doesn't show this menu as lit, and we're still showing it,
  // force a quick hide (this stops miscellaneous timer errors).
  //if (dir>0 && !menuObj.litNow[menuObj.menu[menuName][0].parentMenu]) dir = -100;

  // If the layer doesn't exist (cross-frame navigation) quit.
  if (!lyr || !lyr.ref) return;
  // This next line is not strictly necessary, but it stops the one-in-a-hundred menu that
  // shows and doesn't hide on very quick mouseovers.
  if (!visNow && dir>0) dir = 0-dir;
  // Show the menu if that's what we're doing.
  if (dir>0) lyr.vis('visible');
  // Also raise showing layers above hiding ones.
  lyr.sty.zIndex = dir>0 ? mD.zIndex + 1 : 1001;

  // Straightforward downwards clipping animation (default setting):
  lyr.clip(0, 0, menuW+2, (menuH+2)*Math.pow(Math.sin(Math.PI*counter/200),0.75) );
  counter += dir;
  if (counter>100) { counter = 100; lyr.sty.zIndex = mD.zIndex }
  else if (counter<0) { counter = 0; lyr.vis('hidden') }
  else timer = setTimeout('menuAnim('+menuObj.myName+',"'+menuName+'",'+dir+')', 40);
 }
};

function addMenuBorder(mObj, iS, alpha, bordCol, bordW, backCol, backW)
{
 // Loop through the menu array of that object, finding matching ItemStyles.
 for (var mN in mObj.menu)
 {
  var mR=mObj.menu[mN], dS='<div style="position:absolute; background:';
  if (mR[0].itemSty != iS) continue;
  // Loop through the items in that menu, move them down and to the right a bit.
  for (var mI=1; mI<mR.length; mI++)
  {
   mR[mI].iX += bordW+backW;
   mR[mI].iY += bordW+backW;
  }
  // Extend the total dimensions of menu accordingly.
  mW = mR[0].menuW += 2*(bordW+backW);
  mH = mR[0].menuH += 2*(bordW+backW);

  // Set the menu's extra content string with divs/layers underneath the items.
  if (isNS4) mR[0].extraHTML += '<layer bgcolor="'+bordCol+'" left="0" top="0" width="'+mW+
   '" height="'+mH+'" z-index="980"><layer bgcolor="'+backCol+'" left="'+bordW+'" top="'+
   bordW+'" width="'+(mW-2*bordW)+'" height="'+(mH-2*bordW)+'" z-index="990"></layer></layer>';
  else mR[0].extraHTML += dS+bordCol+'; left:0px; top:0px; width:'+mW+'px; height:'+mH+
   'px; z-index:980; '+
   (alpha!=null?'filter:alpha(opacity='+alpha+'); -moz-opacity:'+alpha+'%; opacity:'+(alpha/100):'')+
   '">'+dS+backCol+'; left:'+bordW+'px; top:'+bordW+'px; width:'+(mW-2*bordW)+'px; height:'+
   (mH-2*bordW)+'px; z-index:990"></div></div>';
 }
};

function addDropShadow(mObj, iS)
{
 // Pretty similar to the one above, just loops through list of extra parameters making
 // dropshadow layers (from arrays) and extending the menu dimensions to suit.
 for (var mN in mObj.menu)
 {
  var a=arguments, mD=mObj.menu[mN][0], addW=addH=0;
  if (mD.itemSty != iS) continue;
  for (var shad=2; shad<a.length; shad++)
  {
   var s = a[shad];
   // Safari 1.2 bug: it inherits alpha values SIDEWAYS!?!? What were they thinking?
   var alpha = (s[0]!=null && navigator.userAgent.indexOf('AppleWebKit') == -1);
   if (isNS4) mD.extraHTML += '<layer bgcolor="'+s[1]+'" left="'+s[2]+'" top="'+s[3]+'" width="'+
    (mD.menuW+s[4])+'" height="'+(mD.menuH+s[5])+'" z-index="'+(arguments.length-shad)+'"></layer>';
   else mD.extraHTML += '<div style="position:absolute; background:'+s[1]+'; left:'+s[2]+
    'px; top:'+s[3]+'px; width:'+(mD.menuW+s[4])+'px; height:'+(mD.menuH+s[5])+'px; -z-index:'+
    (a.length-shad)+'; '+
    (alpha?'filter:alpha(opacity='+s[0]+'); -moz-opacity:'+s[0]+'%; opacity:'+(s[0]/100):'')+
    '"></div>';
   addW=Math.max(addW, s[2]+s[4]);
   addH=Math.max(addH, s[3]+s[5]);
  }
  mD.menuW+=addW; mD.menuH+=addH;
 }
};

// New code created by FW for TMI

function treatiseURL (s)
{
  //returns complete URL for treatise name
  return d + 'tmiweb/' + s.charAt(0) +'/' + s + '/@Generic__BookView;cs=default;ts=default'
}