%**************************************************************************
%This function plots the slippage.
%
%Input:
%plt_file, plot file for results
%param, structure containing analysis parameters
%z, position along the undulator (m)
%slip, slippage (m)
%
%Zachary Wolf, 12/27/05

function [] = slip_plot_slip_polenum(plt_file, param, z, slip)

%Plot the slippage
if param.fig_vis == false
    figure('visible', 'off');
else
    figure('visible', 'on');
end
plot(z, slip, 'linewidth', 2.);
title('Slippage');
ylabel('Slippage (m)');
xlabel('Z position (m)');
util_add_pole_num_to_plot(param);  %Add pole numbers to the plot
grid on;
zoom on;

%Write the figures to the plot file
util_print_fig(plt_file);

%Done
