% File: Database.m
classdef Database < handle
    properties (Access = private)
        m_datasource = 'avionics';
        m_username = 'jack';
        m_password = 'jackdaniels';
        m_driver = 'org.postgresql.Driver';
        m_url = 'jdbc:postgresql://localhost:5432/avionics';
        m_schema = 'public';
        m_conn = 0;
    end
    
    properties (Access = public)
        record = 0;
    end
    
    methods (Access = protected)
        
        function connect(obj)
            obj.m_conn = database(obj.m_datasource, obj.m_username, obj.m_password, obj.m_driver, obj.m_url);
            
            switch isopen(obj.m_conn)
                case 1
                    disp('Connection with database is OK.')
                otherwise
                    error('Failed to connection with database.')
            end
            fprintf(1, '\n')
        end
        
    end

    methods (Access = public)
        
        function obj = Database()
            disp('Initialize database...')
            obj.connect();
        end
        
        function disconnect(obj)
            disp('Closing connect with database...')
            close(obj.m_conn)
        end
        
        function sqlGetAircraftRoute(obj, aircraft)
            try
                tic
                fprintf('Running query to get (aircraft route). Please wait...\n')
                q = "SELECT * FROM " + obj.m_schema + ".func_gis_route(0) WHERE aircraft=" + aircraft;
                fprintf('\tSQL> %s\n', q)
                obj.record = select(obj.m_conn, q);
                toc
                fprintf(1, '\n')
            catch
                warning('Database:sqlGetAircraftRoute',...
                    'Failed to execute query: %s', q)
            end
        end
        
    end
end

% File: Avionic.m

% Instance the class of the database.
db = Database();

% Search the 747-8F data of the last flight of the aircraft.
db.sqlGetAircraftRoute('747-8F')
route = db.record;

% Close connection with database.
db.disconnect()

% Geo show plot.
figure('name', 'Plot 747-8F Route - Geo', 'NumberTitle', 'off')
geoshow(route.latitude, route.longitude, 'DisplayType', 'line')
colorbar()
wmline(route.latitude, route.longitude)

% Write KML projections.
kmlwriteline('747-8F.kml', route.latitude, route.longitude, route.altitude)

% Set map and ellipsoid.
figure('name', 'Plot 747-8F Route - Globe', 'NumberTitle', 'off')
axesm('globe', 'geoid', wgs84Ellipsoid)

% Create background.
load topo
meshm(topo, topolegend, size(topo)); 
demcmap(topo);
colorbar()

% Plot route.
plot3m(double(route.latitude), double(route.longitude), double(route.altitude), 'r-')