function mkCrest(parent, pathToTop, subtitle) {
    var div = addNewElt(parent, "div");
    setID(div, "crest");
    
    var img = mkImg(pathToTop + "/Nav/images/simlogo1.gif");
    img.setAttribute("height", "52");
    img.setAttribute("border", "0");
    var a = addElt(div, mkLink(pathToTop + "/index.html", img));

    img = addElt(div, mkImg(pathToTop + "/Nav/images/simlogo2.gif"));
    img.setAttribute("height", "52");
    img.setAttribute("border", "0");
    a = addElt(div, mkLink(pathToTop + "/index.html", img));

    img = addElt(div, mkImg(pathToTop + "/Nav/images/simlogo3.gif"));
    img.setAttribute("height", "52");
    img.setAttribute("border", "0");
    a = addElt(div, mkLink(pathToTop + "/index.html", img));
}


function mkLeftNav_SoundS(parent, pathToTop, category) {
    addNewElt(parent, "p", "spacer", " ");
    addNewElt(parent, "p", "title", mkLink(pathToTop + "/SoundSculpture/index.html", "Sound Sculpture"));
    if (category == "SoundSculpture") {
    	mkSubNav_SoundSculpture(parent, pathToTop + "/SoundSculpture");
    } 
    addNewElt(parent, "p", "spacer", " ");
    addNewElt(parent, "p", "title", mkLink(pathToTop + "/GenerativeMusic/Kepler.html", "Kepler's Orrery"));
/*
    addNewElt(parent, "p", "title", mkLink(pathToTop + "/Music/index.html", "Music"));
    */
    addNewElt(parent, "p", "title", mkLink(pathToTop + "/Music/EyesWideOpen/index.html", "Eyes Wide Open"));


    addNewElt(parent, "p", "spacer", " ");
    addNewElt(parent, "p", "title", mkLink(pathToTop + "/GenerativeMusic/index.html", "Generative Music"));
    if (category == "Generative Music") {
    	mkSubNav_GenMusic(parent, pathToTop + "/GenerativeMusic");
    } 
    addNewElt(parent, "p", "spacer", " ");
    addNewElt(parent, "p", "title", mkLink(pathToTop + "/Etc/HilbertCoffee0.html", "Hilbert Curve Coffee Table"));
    if (category == "HilbertCoffee") {
    	mkSubNav_HilbertCoffee(parent, pathToTop + "/Etc");
    } 
}


function mkSubNav_SoundSculpture(parent, path, current) {
    var ul = addNewElt(parent, "ul");
    addNewElt(ul, "li", currentLiID("PAliens", current), mkLink(path+"/PAliens/index.html", "PAlien Sound System"));
    addNewElt(ul, "li", currentLiID("HeavensSpeak", current), mkLink(path+"/HeavensSpeak/index.html", "Heavens Speak"));
    addNewElt(ul, "li", currentLiID("HauntedGarden", current), mkLink(path+"/HauntedGarden/index.html", "Haunted Garden"));
    addNewElt(ul, "li", currentLiID("VoiceOfFire", current), mkLink(path+"/VoiceOfFire/index.html", "Voice of Fire"));
   //addNewElt(ul, "li", currentLiID("Oracle", current), mkLink(path+"/MFO/index.html", "The Maker Faire Organ"));
   addNewElt(ul, "li", currentLiID("MFO", current), mkLink(path+"/../GenerativeMusic/MakerOrganProposal.html", "The Maker Faire Organ"));

   /*
   addNewElt(ul, "li", currentLiID("Oracle", current), mkLink(path+"/Oracle/index.html", "The Oracle"));
    addNewElt(ul, "li", currentLiID("ChromaPhone", current), mkLink(path+"/ChromaPhone/index.html", "ChromaPhone"));
    */
}


function mkSubNav_GenMusic(parent, path, current) {
    var ul = addNewElt(parent, "ul");
    addNewElt(ul, "li", currentLiID("Kepler", current), mkLink(path+"/kepler.html", "Kepler's Orrery"));
    addNewElt(ul, "li", currentLiID("HauntedGarden", current), mkLink(path +"/../SoundSculpture/HauntedGarden/index.html", "Haunted Garden"));
    //addNewElt(ul, "li", currentLiID("OrbSwarm", current), mkLink(path+"/OrbSwarm.html", "Orb Swarm"));
    addNewElt(ul, "li", currentLiID("OrbSwarm", current), mkLink("http://orbswarm.com", "Orb Swarm"));
    addNewElt(ul, "li", currentLiID("evolve", current), mkLink(path+"/evolve.html", "evolve"));
    //addNewElt(ul, "li", currentLiID("HauntedGarden", current), mkLink(path +"/../SoundSculpture/HauntedGarden/HG_Piano.html", "Haunted Garden plays piano", "#"));
    //    addNewElt(ul, "li", currentLiID("Chordata", current), mkLink(path +"/Chordata/index.html", "Chordata", "#"));
    //addNewElt(ul, "li", currentLiID("PolarBall", current), mkLink(path +"/PolarBall/index.html", "PolarBall CaCO3.60", "#"));
    /* laterz...
    addNewElt(ul, "li", currentLiID("LifeMusic", current), mkLink(path+"/LifeMusic.html", "Life Music", "#"));
    addNewElt(ul, "li", currentLiID("DNANotes", current), mkLink(path+"/DNANotes.html", "DNA Notes", "#"));
    addNewElt(ul, "li", currentLiID("Alea", current), mkLink(path+"/Alea/index.html", "Alea", "#"));
    */
}

function mkSubNav_Music(parent, path, current) {
    var ul = addNewElt(parent, "ul");
}

function mkSubNav_HilbertCoffee(parent, path, current) {
    var ul = addNewElt(parent, "ul");
    addNewElt(ul, "li", currentLiID("Sketches", current), mkLink(path+"/HilbertCoffee_sketches.html", "Sketches"));
    addNewElt(ul, "li", currentLiID("CopperPipe", current), mkLink(path+"/HilbertCoffee_copperPipe.html", "Copper Pipe"));
    addNewElt(ul, "li", currentLiID("", current), mkLink(path+"/HilbertCoffee_assembly.html", "Assembly"));
    addNewElt(ul, "li", currentLiID("", current), mkLink(path+"/HilbertCoffee_gallery.html", "In the Gallery"));
    addNewElt(ul, "li", currentLiID("", current), mkLink(path+"/HilbertCoffee_artsy_pics.html", "Some artsy pics"));
    
    
}


function mkNavButtons(parent, pathToTop) {
    var table = addNewElt(parent, "table");
    var row = addNewElt(table, "tr");
    var td1 = addNewElt(row, "td", null, mkLink(pathToTop+"/shows.html", "Simran Gleason"));
    td1.setAttribute("valign", "center");
    var td2 = addNewElt(row, "td", null, mkImg(pathToTop+"/images/WordsCurrent/Symb_Diamond_trailer.gif"));
    td2.setAttribute("valign", "center");
    var td3 = addNewElt(row, "td", null, mkLink(pathToTop+"/SoundSculpture/index.html", "SoundSculpture"));
    td3.setAttribute("valign", "center");
    var td4 = addNewElt(row, "td", null, mkImg(pathToTop+"/images/WordsCurrent/Symb_Diamond_trailer.gif"));
    td4.setAttribute("valign", "center");
    var td5 = addNewElt(row, "td", null, mkLink(pathToTop+"/Music/index.html", "Music"));
    td5.setAttribute("valign", "center");
    var td6 = addNewElt(row, "td", null, mkImg(pathToTop+"/images/WordsCurrent/Symb_Diamond_trailer.gif"));
    td6.setAttribute("valign", "center");
    var td7 = addNewElt(row, "td", null, mkLink(pathToTop+"/GenerativeMusic/index.html", "Generative Music"));
    td7.setAttribute("valign", "center");
}
    /*    
<table><tr>
<td valign="center"><A HREF="../shows.html">Simran Gleason</a></td>
<td valign="center"><img src="../images/WordsCurrent/Symb_Diamond_trailer.gif" border=0> &nbsp; </td>
<td valign=center><A HREF="index.shtml">Sound Sculpture</a></td>
<td valign="center"> &nbsp; <img src="../images/WordsCurrent/Symb_Diamond_trailer.gif" border=0> &nbsp; </td>
<td valign="center"><a href="../Music/index.shtml">Music</a></td>
<td valign="center"> &nbsp; <img src="../images/WordsCurrent/Symb_Diamond_trailer.gif" border=0> &nbsp;</td>
<td valign="center"><a href="../GenerativeMusic/index.shtml">Generative Music</a>
    */