root/branches/telle/v2.00-at/mfiles/@NXTmotor/display.m @ 403

function display( obj )
% DISPLAY Display method for NXTmotor objects.
%
%   DISPLAY(OBJ) displays information pertaining to the NXTmotor 
%   object OBJ.
%
%   See also NXTmotor, NXTmotor/get.
%

% 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 isscalar(obj)
    fprintf([...
        '\n'...
        'NXTmotor object properties:\n\n' ...
        '           Port(s): '    infoStrPort(  obj.Port)              '\n' ...
        '             Power: '    infoStrNumber(obj.Power)             '\n' ...
        '   SpeedRegulation: '    infoStrOnOff( obj.SpeedRegulation)   '\n' ...
        '        TachoLimit: '    infoStrNumber(obj.TachoLimit)        '\n' ...
        ' BrakeAtTachoLimit: '    infoStrYesNo( obj.BrakeAtTachoLimit) '\n' ...
        '         TurnRatio: '    infoStrNumber(obj.TurnRatio)         '\n' ...
        '\n']);
else
    disp(obj);
end

end

function s = infoStrPort(p)
if numel(p) == 1
    s = num2str(p);
else
    s = mat2str(p);
end

s = [s, ' (' portString(p) ')'];
end %% END FUNCTION INFOSTRPORT


function s = portString(p)
s = '''';
for k = 1:length(p)
    if k > 1
        s = [s ''','''];
    end
    switch(p(k))
        case 0
            s = [s, 'A'];
        case 1
            s = [s, 'B'];
        case 2
            s = [s, 'C'];
        otherwise
            s = 'undefined';
    end
end
s = [s , ''''];
end %% END FUNCTION PORTSTRING

function s = infoStrNumber(n)
s = num2str(n);
end %% END FUNTION INFOSTRNUMBER

function s = infoStrOnOff(b)
s = num2str(b);
if b 
    s = [s, ' (''on'')'];
else
    s = [s, ' (''off'')'];
end
end %% END FUNCTION INFOSTRONOFF

function s = infoStrYesNo(b)
s = num2str(b);
if b 
    s = [s, ' (''yes'')'];
else
    s = [s, ' (''no'')'];
end  
end %% END FUNCTION INFOSTRYESNO