function display(p)
%IncWave/display  Command window display of a IncWave
switch p.Type
case 0
disp('Type: Pierson Moskowitz Spectrum ');
disp([' A = ' num2str(p.A)]);
disp([' g = ' num2str(p.g)]);
disp([' beta = ' num2str(p.beta)]);
disp([' n_phases = ' num2str(p.n_phases)]);
disp([' df = ' num2str(p.df)]);
disp([' fmax = ' num2str(p.fmax)]);
disp([' n_phases = ' num2str(p.n_phases)]);
disp([' freq = ' num2str(p.freq,4)]);
disp([' p.spectrum = ' num2str(p.spectrum,4)]);

case 1
disp('Type: Ramp to Monochromatic');
disp([' A = ' num2str(p.A)]);
disp([' T = ' num2str(p.T)]);
disp([' g = ' num2str(p.g)]);
disp([' beta = ' num2str(p.beta)]);

case 2
disp('Type: User Supplied Spectrum');

    
case 3
disp('Type: Modified Pierson-Moskowitz');

otherwise
disp(['Type = ' p.Type ' not defined']);    
end