classdef kml < handle
%KML(name) Create a KML toolbox object, that allows you to plot from MATLAB to Google Earth
%  This class-based toolbox allows you to create many different plots in Google Earth, by automatically creating the required xml-based kml files without user interaction.
%  
%  With it, you can create: 
%  - line plots, scatter plots 
%  - 2D and 3D contours 
%  - 2D and 3D polygons 
%  - quiver plots 
%  - write text in a given point 
%  - place 3D models 
%  - overlay images 
%  - transfer more complex figures as images 
%  - folders, subfolders,... to aggregate similar plots 
%  
%  For some usage examples, check the code at .\test\RunTests.m
%
%  If you enjoy it, just drop me an email at kml@rafael.aero saying for what you're using it :).
%    
%   Copyright 2012 Rafael Fernandes de Oliveira (rafael@rafael.aero)
%   $Revision: 1.4 $  $Date: 2012/02/08 16:00:00 $

    properties %(Access = private, Transient)
        xml
        doc
        parent = []
        filename = ''
        name = ''
        unit = 'deg'
    end
    
    methods
        function this = kml(name,parent)
            if nargin <1
                name = 'Unnamed KML';
            end
            this.name = name;
            if nargin <2
                parent = [];
            else
                if ~isa(parent,'kml')
                    error('Invalid parent, pass only a kml object or a kml folder')
                end
            end
            
            this.parent = parent;
            
            if isempty(parent)
                this.xml = com.mathworks.xml.XMLUtils.createDocument('kml');
                kmlNode = this.xml.getDocumentElement;
                kmlNode.setAttribute('xmlns','http://www.opengis.net/kml/2.2');
                kmlNode.setAttribute('xmlns:gx','http://www.google.com/kml/ext/2.2');
                kmlNode.setAttribute('xmlns:kml','http://www.opengis.net/kml/2.2');
                kmlNode.setAttribute('xmlns:atom','http://www.w3.org/2005/Atom');

                this.doc = this.xml.createElement('Document');

                this.doc.appendChild(this.textNode('name',name));
            
                kmlNode.appendChild(this.doc);
            else
                this.doc = parent.xml.createElement('Folder');
                this.xml = parent.xml;
                
                this.doc.appendChild(this.textNode('name',name));
                this.doc.appendChild(this.textNode('id',  name));
                
                parent.doc.appendChild(this.doc);
            end
        end
        
        function clear(this)
            if isempty(this.parent)
                %not a folder, just create a new kml class and reuse it's xml nodes
                a = kml(this.name);
                this.doc = a.doc;
                this.xml = a.xml;
                a.delete;
            else
                this.parent.doc.removeChild(this.doc);
                a = kml(this.name,this.parent);
                this.doc = a.doc;
                this.xml = a.xml;
                a.delete;
            end
        end
        
        function save(this,filename)
            if ~isempty(this.parent)
                warning('KML:incompletefile','You are saving only a folder of the KML file, not the full KML, this will not load on any viewer');
            end
            
            if nargin < 2
                if isempty(this.filename)
                    if strcmpi(this.name,'Unnamed KML')
                        [tmpvar,filename] = fileparts(tempname(cd));
                        filename = [filename '.kml'];
                        warning('KML:tempfile','Please delete file %s later, if not required...',filename);
                        this.filename = filename;
                    else
                        this.filename = [this.name '.kml'];
                    end
                end
            else
                [tmpvar,filename] = fileparts(filename);
                filename = [filename '.kml'];                
                this.filename = filename;
            end
            xmlwrite(this.filename,this.xml);
        end
        
        function viewKML(this)
            tmpfile = [tempname '.kml'];
            xmlwrite(tmpfile ,this.xml);
            edit(tmpfile);
            delete(tmpfile);
        end
        
        function run(this)
            this.save;
            switch true
                case ispc
                    system(['start "kmltoolbox" "' this.filename '"']);
                case ismac
                    system(['open' ' "' this.filename '"']);
            otherwise
                disp('The KML file has been saved, open it in Google Earth');
            end
        end

        function useRadians(this)
            this.unit = 'rad';
        end

        function useDegrees(this)
            this.unit = 'deg';
        end        
        
        function varargout = checkUnit(this,varargin)
           varargout = varargin;
           
           parent = this;
           
           while ~isempty(parent.parent)
               parent = parent.parent;
           end
           
           if strcmpi(parent.unit,'deg')
               %do nothing
           elseif strcmpi(parent.unit,'rad')
               for i = 1:numel(varargin)
                   varargout{i} = varargin{i}.* (180/pi);
               end
           else
               error('invalid angular unit %s', parent.unit);
           end
        end
        
        function disp(this)
            display(this);
        end
        
        
        function display(this)
            if getpref('kmltoolbox','ShowDisclaimer',true)
                disp(sprintf('\n'));
                disp('     _  ____  __ _      _____         _ _             ')
                disp('    | |/ /  \/  | |    |_   _|__  ___| | |__  _____ __')
                disp('    | '' <| |\/| | |__    | |/ _ \/ _ \ | ''_ \/ _ \ \ /')
                disp('    |_|\_\_|  |_|____|   |_|\___/\___/_|_.__/\___/_\_\')
                disp(sprintf('\n'));
                disp('Copyright 2012 Rafael Fernandes de Oliveira (rafael@rafael.aero)')
                disp(sprintf('\n'));
                disp('If you enjoy it, just drop me an email at kml@rafael.aero saying for what you''re using it :-)')
                disp(sprintf('\n'));
                disp('To install the toolbox, and suppress this message, run kml.install')
            end
        end
        
    end
    
    methods %(Access = private)
        function node = textNode(this,Name,Text)
            node = this.xml.createElement(Name);
            node.appendChild(this.xml.createTextNode(Text));
        end
    end
    
    methods (Static)
       iconURL = parseIconURL(iconURL) 
       im      = captureScreen(view)
       
       function colorHex  = color2kmlHex(color)
           if numel(color) ==3
               color(4) = 1;
           end
           color = min(max(floor(color*255),0),255);
           [r,g,b,a] = deal(color(1),color(2),color(3),color(4));
           [rhex, ghex, bhex, ahex ]= deal(dec2hex(r),dec2hex(g),dec2hex(b),dec2hex(a));
           if length(rhex)==1,rhex=['0' rhex];end
           if length(ghex)==1,ghex=['0' ghex];end
           if length(bhex)==1,bhex=['0' bhex];end
           if length(ahex)==1,ahex=['0' ahex];end
           
           colorHex = [ahex bhex ghex rhex];
       end
       
       function ID = getTempID(rootID)
           [tmp,tmpID] = fileparts(tempname);
            ID = [rootID tmpID];
       end

        
       function dist = ll2dist(lon1, lat1,lon2, lat2)
           %Input in radians - Calculate distance using Haversine formula
           R = 6378137;
           dLat = (lat2-lat1);
           dLon = (lon2-lon1);
           a = sqr(sin(dLat/2)) + cos(lat1) .* cos(lat2) .* sqr(sin(dLon/2));
           c = 2 * atan(sqrt(a)./sqrt(1-a));
           dist = R * c;
       end
       
       function install()
           clc
           nl = sprintf('\n');
           disp(nl);
           disp('     _  ____  __ _      _____         _ _             ')
           disp('    | |/ /  \/  | |    |_   _|__  ___| | |__  _____ __')
           disp('    | '' <| |\/| | |__    | |/ _ \/ _ \ | ''_ \/ _ \ \ /')
           disp('    |_|\_\_|  |_|____|   |_|\___/\___/_|_.__/\___/_\_\')
           disp(nl);
           disp('This will add the KML toolbox to your MATLAB path, at the current location');
           disp('If you prefer to have it located somewhere else, first copy the whole folder');
           disp('to the place you want, and then run kml.install from there!');
           disp(nl);
           p = fileparts(fileparts(mfilename('fullpath')));
           disp(sprintf('Toolbox Path: %s',p));
           disp(nl);
           s = input('Continue [Y]/N?   ','s');
           if strcmpi(s,'n')
               disp('Instalation aborted!')
               return
           end
           disp(nl);
           disp('Adding toolbox folder to the MATLAB path...')
           disp(nl);
           disp('(In some systems, this might require administrative rights, sorry for that)')
           disp(nl);
           
           addpath(p);
           addpath(fullfile(p,'html'));
           r = savepath;
           
           if r == 1
               disp('Error saving your path. Please add the toolbox folder manually to your MATLAB path')
           end
           
           disp('Installing the toolbox help...')

           warning('off','MATLAB:doc:DocNotInstalled')
           builddocsearchdb(fullfile(p,'html'))
           warning('on','MATLAB:doc:DocNotInstalled')
           
           setpref('kmltoolbox','ShowDisclaimer',false);
           
           clc
           disp(nl);
           disp('     _  ____  __ _      _____         _ _             ')
           disp('    | |/ /  \/  | |    |_   _|__  ___| | |__  _____ __')
           disp('    | '' <| |\/| | |__    | |/ _ \/ _ \ | ''_ \/ _ \ \ /')
           disp('    |_|\_\_|  |_|____|   |_|\___/\___/_|_.__/\___/_\_\')
           disp(nl);           
           disp(nl);
           disp('    Toolbox installed successfully!')
           disp(nl);
           disp('To take a look in the toolbox contents, run: >> kmldoc');
           disp('To get help for the toolbox functions, run:  >> kmldoc kml.FunctionName');
           disp(nl);
           
       end
    end
end