// Copyright (c) mindat.org 1993-2009
function j(lat,long) {var point = new GLatLng(lat,long); map.setCenter(point, 16);}

 function cm(lat,long,html,name) {
var point = new GLatLng(lat,long); var marker = new GMarker(point,{icon:icon, title:name});
GEvent.addListener(marker, "click", function() 
{
          marker.openInfoWindowHtml(jsunpack(html));
      //     
      //  	map.panTo(marker.getPoint());
        	  var zoom = map.getZoom();    
	    if(zoom<9) zoom=9;
        	map.setZoom(zoom);
        	map.setCenter(marker.getPoint(), zoom);
        });
         
        GEvent.addListener(marker,"mouseover", function() {
       		marker.setImage("kml-gm-o.png");
       });    
       
        GEvent.addListener(marker,"mouseout", function() {
       		marker.setImage("kml-gm.png");
       });   
           
     	clus.AddMarker(marker,name);
      }
      
      function jsunpack(txt)
      {
      	txt=txt.replace(/~~/,"<div class=\"gmap\"><b><a href=\"/loc-");
       	txt=txt.replace(/~\$/,"<table class=\"gmt\"><tr><th>");
       	txt=txt.replace(/~!/,"<img width=180 height=180 src=\"http://www.mindat.org/gphotos/");
    	txt=txt.replace(/~%/,"</td></tr></table>");
      	txt=txt.replace(/~\)/,"<br>Reference: ");
      	return (txt);
      }
      
      function loadPoints()
      {
cm(40.82,14.4272222222,"~~145740.html\">Mt. Vesuvius, Somma-Vesuvius Complex, Naples Province, Campania, Italy</a></b>~)Russo, M., Punzo, I. (2004): I minerali del Somma-Vesuvio, AMI<br>~$~!0626529001222546516.jpg\"></th><td><b>Quadridavyne</b><br>&copy; C.H.M.-Schäfer<br><br>Short prismatic crystals of Quadridavyne/Davyne in a cavity of Vesuv lava. Associated minerals are Olivine, Leucite and a black Amphibole, field of view 10 mm, collection C.&amp;H. Schäfer~%</div>","Mt. Vesuvius, Somma-Vesuvius Complex, Naples Province, Campania, Italy");
cm(50.3516666667,7.23388888889,"~~1793.html\">Caspar quarry, Ettringer Bellerberg Mt. (Bellberg Mt.; Bellenberg Mt.; Billenberg Mt.; Boilenberg Mt.), Bellerberg volcano, Ettringen, Mayen, Eifel Mts, Rhineland-Palatinate, Germany</a></b>~)Blass, G., Graf, H.W., Interessante Neuigkeiten über Cancrinit, Fluorit und Fuchsit aus der Vulkaneifel – , Mineralien-Welt 12/1, 26-29, 2001<br>~$~!0286301001052903870.jpg\"></th><td><b>Quadridavyne</b><br>&copy; Thomas Witzke<br><br>Colourless hexagonal crystals of quadridavyne. Picture size 3 mm. Photographer and collection Thomas Witzke.~%</div>","Caspar quarry, Ettringer Bellerberg Mt. (Bellberg Mt.; Bellenberg Mt.; Billenberg Mt.; Boilenberg Mt.), Bellerberg volcano, Ettringen, Mayen, Eifel Mts, Rhineland-Palatinate, Germany");

}