Changeset 6561

Timestamp:

11/12/10 11:15:30 (15 years ago)

Author:

jschierm

Message:

Extracted general function kml_file_write.m from kml_mesh_write.m.

Location:

issm/trunk/src/m/kml

Files:

• kml_file_write.m (added)
• kml_mesh_write.m (modified) (3 diffs)

issm/trunk/src/m/kml/kml_mesh_write.m

@@ -33 +33 @@
 if (nargin >= 1)
     filek=varargin{1};
-end
-if ~exist('filek' ,'var') || isempty(filek)
-    filek=input('kml file to write?  ','s');
-end
-[pathstr,name,ext,versn] = fileparts(filek);
-if isempty(ext)
-    ext='.kml';
-end
-filek2=fullfile(pathstr,[name ext versn]);
-
-display(sprintf('Opening kml file ''%s''.',filek2));
-fid=fopen(sprintf('%s',filek2),'w');
-if (fid < 0)
-    error('File ''%s'' could not be opened.',filek2);
 end
 
@@ -108 +94 @@
 end
 
-%%  write kml file
-
-%  write header data
-
-fprintf(fid,'<?xml version="1.0" encoding="UTF-8"?>\n');
-fprintf(fid,'<kml xmlns="http://www.opengis.net/kml/2.2">\n');
+%%  construct kml document
 
 kdoc=kml_document();
@@ -255 +236 @@
 end
 
-%  write document
-
-display(sprintf('Writing kml file ''%s''.',filek2));
-kml_write(kdoc,fid,'  ');
-
-%  write trailer data
-
-fprintf(fid,'</kml>\n');
-
-if (fclose(fid) < 0)
-    error('File ''%s'' could not be closed.',filek2);
-else
-    disp(['End of file ''' filek2 ''' successfully written.']);
-end
-
-end
-
+%%  write kml file
+
+kml_file_write(kdoc,filek);
+
+end
+