root/branches/telle/v2.00-at/mfiles/@NXTmotor/get.m @ 393

function val = get(obj, prop)
% GET Get NXTmotor object properties.
%
%     GET(OBJ) displays all property names and their current values for
%     NXTmotor object OBJ.
%
%     V = GET(OBJ, 'PropertyName') returns the value, V, of the specified
%     property, PropertyName, for NXTmotor object OBJ.
%
%     See also NXTmotor, NXTmotor/set, NXTmotor/display.
%

% Signature
%   Author: Aulis Telle (see AUTHORS)
%   Date: 2008/08/15
%   Copyright: 2007-2008, RWTH Aachen University
%
%
% ***********************************************************************************************
% *  This file is part of the RWTH - Mindstorms NXT Toolbox.                                    *
% *                                                                                             *
% *  The RWTH - Mindstorms NXT Toolbox is free software: you can redistribute it and/or modify  *
% *  it under the terms of the GNU General Public License as published by the Free Software     *
% *  Foundation, either version 3 of the License, or (at your option) any later version.        *
% *                                                                                             *
% *  The RWTH - Mindstorms NXT Toolbox is distributed in the hope that it will be useful,       *
% *  but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS  *
% *  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.             *
% *                                                                                             *
% *  You should have received a copy of the GNU General Public License along with the           *
% *  RWTH - Mindstorms NXT Toolbox. If not, see <http://www.gnu.org/licenses/>.                 *
% ***********************************************************************************************

if ~isa(obj,'NXTmotor')
    error('MATLAB:RWTHMindstormsNXT:InvalidObject',...
        'No NXTmotor object.');
end

if nargin == 1 && nargout == 0
    display(obj);
    return;
end


if nargin > 1 
    switch prop
        case 'Port'
            val = obj.Port;
        case 'Power'
            val = obj.Power;
        case 'SpeedRegulation'
            val = obj.SpeedRegulation;
        case 'TachoLimit'
            val = obj.TachoLimit;
        case 'BrakeAtTachoLimit'
            val = obj.BrakeAtTachoLimit;
        case 'TurnRatio'
            val = obj.TurnRatio;
        otherwise
            error('MATLAB:RWTHMindstormsNXT:UnsupportedProperty',...
                'Unsupported property %s', prop);
    end
end