Listing programu createXMLShape

function [] = createXMLShape( filename, varargin)
% function [] = createXMLShape(filename , shape1, shape2, ...)
% The Function createXMLShape creates XML shape for SWIP5 maps
% It creates only one shape
%
% Input parameters:
%   shape* - structures with two fields of shapes:
%     Lat are latitudes of pollyline points od border of the shape .
%     Long are longitudes of pollyline points od border of the shape.
%       Number of pointd in Lat and Log must be the same.
%     Pen the RGB color of the contour of the shape
%       in  the table [r,g,b,w] where: r - red, g - green,
%       b - blue, and w - width of the line. Default value is [0,0,0,1]
%       (black)
%     Brush the RGB color of the face of the shape
%      in the table [r,g,b,a] where a - translucency.
%      Default value is [1,1,1,1] (white)
%   filename - the name of file whre the shape will be written
%     The extension of the file name should be '.xml'
%
    N = numel(varargin); 
    if N == 0
        error('missing shapes')
    end
    fileID = fopen(filename,'w');
    fprintf(fileID,'<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>\r\n');
    fprintf(fileID,'<!DOCTYPE boost_serialization>\r\n');
    fprintf(fileID,'<boost_serialization signature="serialization::archive" version="12">\r\n');
    fprintf(fileID,'<Shapes class_id="0" tracking_level="0" version="0">\r\n');
    fprintf(fileID,'\t<count>%d</count>\r\n', N);
    fprintf(fileID,'\t<item_version>0</item_version>\r\n');
    for sidx = 1:N
        d = varargin{sidx};
        fprintf(fileID,'\t<item class_id="1" tracking_level="0" version="0">\r\n');
        fprintf(fileID,'\t\t<penRed>%d</penRed>\r\n', d.Pen(1)*128);
        fprintf(fileID,'\t\t<penGreen>%d</penGreen>\r\n', d.Pen(2)*128);
        fprintf(fileID,'\t\t<penBlue>%d</penBlue>\r\n', d.Pen(3)*128);
        fprintf(fileID,'\t\t<penWidth>%d</penWidth>\r\n', d.Pen(4));
        fprintf(fileID,'\t\t<brushRed>%d</brushRed>\r\n',d.Brush(1)*128);
        fprintf(fileID,'\t\t<brushGreen>%d</brushGreen>\r\n',d.Brush(2)*128);
        fprintf(fileID,'\t\t<brushBlue>%d</brushBlue>\r\n',d.Brush(3)*128);
        fprintf(fileID,'\t\t<fill>%f</fill>\r\n',d.Brush(4));
        fprintf(fileID,'\t\t<coords class_id="2" tracking_level="0" version="0">\r\n');
        fprintf(fileID,'\t\t\t<count>%d</count>\r\n',numel(d.Lat));
        fprintf(fileID,'\t\t\t<item_version>0</item_version>\r\n');
        for i = 1:numel(d.Lat)
            if i == 1
            fprintf(fileID,'\t\t\t<item class_id="3" tracking_level="0" version="0">\r\n');
            else
            fprintf(fileID,'\t\t\t<item>\r\n');
            end
            fprintf(fileID,'\t\t\t\t<latitude>%f</latitude>\r\n\t\t\t\t<longitude>%f</longitude>\r\n',d.Lat(i),d.Long(i));
            fprintf(fileID,'\t\t\t</item>\r\n');
        end
        fprintf(fileID,'\t\t</coords>\r\n');
        fprintf(fileID,'\t</item>\r\n');
    end
    fprintf(fileID,'</Shapes>\r\n');
    fprintf(fileID,'</boost_serialization>\r\n');
    fclose(fileID);
end