function mod_ge_output_tslider(filename,output,pltparams, varargin)
% 
% % Please use the link below to view the documentation.

% % If you don't see the link which is automatically inserted by MATLAB, 
% % try removing the line break above, so that this help block is merged 
% % with the previous one.
% % Reference page in help browser: <a href="matlab:doc ge_output">ge_output</a>
%
% etm mods lines 36-44 to define a style to NOT get directions in the
% balloons
%  added plt_params to bracket starting ans ending years and hopfully force
%  the time slider to start open.
%  pltparams is a cell with 3 elements : start year, end year and the
%  position of the last instrument read.

AuthorizedOptions = authoptions('ge_output' );

% Assign default values to parameters:
       name = filename;
msgToScreen = false;
    
parsepairs %script that parses Parameter/value pairs.

if msgToScreen
   disp(['Running ' mfilename '...']) 
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

fileoutput = filename( (end-2):end );

if strcmp(fileoutput,'kml')

    fid = fopen(filename, 'wt');
    
 if (isempty(pltparams))
   styr='1975-01-01';
   enyr='2010-12-31';
   posn='-71,41,0';
 else 
 % extract some stuff from yr_dur in varargin
   styr=[char(pltparams{1}) '-01-10'];
   enyr=[char(pltparams{2}) '-12-31'];
   posn=char(pltparams{3});
   % do some math to offset the info placemark
   %idx=findstr(char(pltparams{3}),',');
   % p1=str2num(char(pltparams{3}(1:idx(1)-1)))-1;
   % p2=str2num(char(pltparams{3}(idx(1)+1:idx(2)-1)))+1;
   %  posn2=[num2str(p1) ',' num2str(p2) ',2000'];   
 end
 
 % header includes style definitions for use by the icons & baloons,
 % and the USGS overlay, and a helpful note about using the time-slider
  header = ['<?xml version="1.0" encoding="UTF-8"?>',10,... 
             '<kml xmlns="http://www.opengis.net/kml/2.2"',10,...
             'xmlns:gx="http://www.google.com/kml/ext/2.2">',10,...
             '<Document>',10,...
             '<name>',10,name,10,'</name>',10,...
             '<Style id="displayInfo">',10,...
                '<BalloonStyle>',10,...
                 '<text>',10,...
                  '<![CDATA[',10,...
                  'summary of contents of $[name]:',10,... 
                  '$[description]',10,...
                  ']]>',10,...
                  '</text></BalloonStyle>',10,...
                  '</Style>',10,...
                '<ScreenOverlay>',10,...
                '<name>Nothing but ocean?</name>',10,...
                '<description></description> ',10,...
                 '<Icon>',10,...
                 '   <href>http://stellwagen.er.usgs.gov/images/helptxt.png </href>',10,...
                ' </Icon>',10,...
                   '<overlayXY x="0" y="0" xunits="fraction" yunits="fraction"/>',10,...
                   '<screenXY x=".008" y=".03" xunits="fraction" yunits="fraction"/>',10,...
                   '<size x="190" y="89" xunits="pixels" yunits="pixels"/>',10,...
                '</ScreenOverlay>',10,...
                '<ScreenOverlay>',10,...
                ' <name>USGS Logo</name>',10,...
                ' <description>  white background </description>',10,...
                 '  <color>B0FFFFFF</color>',10,...
                 '  <drawOrder> 0 </drawOrder>',10,...
                 '  <IconStyle>',10,...
                 '    <Icon>',10,...
                 '      <href>http://stellwagen.er.usgs.gov/images/c_168_USGS.gif</href>',10,...
                '     </Icon></IconStyle>',10,...
                '  <overlayXY x="0" y="1" xunits="fraction" yunits="fraction"/>',10,...
                '  <screenXY x=".005" y=".99" xunits="fraction" yunits="fraction"/>',10,...
                 '  <size x="178" y="72" xunits="pixels" yunits="pixels"/>',10,...
                 '</ScreenOverlay>',10,...
                 '<ScreenOverlay>',10,...                
                  '<name>USGS Logo</name>',10,...
                  '<description>  Created by the USGS Coastal Marine Geology Progrm</description>',10,...
                  '<drawOrder> 1 </drawOrder>',10,...
                   '  <Icon>',10,...
                   '   <href>http://stellwagen.er.usgs.gov/images/c_168_USGS.gif</href>',10,...
                   '  </Icon>',10,...
                  '  <overlayXY x="0" y="1" xunits="fraction" yunits="fraction"/>',10,...
                  '  <screenXY x=".009" y=".982" xunits="fraction" yunits="fraction"/>',10,...
                  '  <size x="168" y="62" xunits="pixels" yunits="pixels"/>',10,...
                 '</ScreenOverlay>',10,...
                '<Folder id="inst" >',10,...
                 '<name>inst_id</name>',10,...
                 '  <open>1</open>' ];
         
    footer = [10, '</Folder>',10,...
        '</Document>',10,...
        '</kml>'];

    fprintf(fid,'%s',header);
    fprintf(fid,'%s',output);
    fprintf(fid,'%s',footer);
    fclose(fid);

elseif strcmp(fileoutput,'kmz')
  
    newfilename = filename(1:(end-4));
    newfilename = strcat(newfilename,'.kml');
    
    fid = fopen( newfilename, 'wt');

    header = ['<?xml version="1.0" encoding="UTF-8"?>',10,...
             '<kml xmlns="http://earth.google.com/kml/2.1">',10,...
             '<Document>',10,...
             '<name>',10,name,10,'</name>',10];
    footer = [10,'</Document>',10,...
        '</kml>',10];

    fprintf(fid,'%s',header);
    fprintf(fid,'%s',output);
    fprintf(fid,'%s',footer);
    fclose(fid);
    
    zip(filename,newfilename);
    
    if ispc
        eval(['!del ',newfilename] );
        eval(['!move ',filename, '.zip ', filename])
    else
        eval(['!rm -f ',newfilename]);
        eval(['!mv ',filename, '.zip ', filename])
    end
   
else
    error('unsupported file extension used in ge_output');
end


if msgToScreen
   disp(['Running ' mfilename '...Done']) 
end