%**************************************************************************
%This function initializes the plot file.  It writes a title page.
%
%Input:
%plt_file, plot file for results
%shim_name, name of the shim being analyzed
%anal_name, name of the analysis
%
%Zachary Wolf, 4/3/07

function [] = shim_effect_plot_init(plt_file, shim_name, anal_name)

%Make substitutions in the shim name
shim_name = strrep(shim_name, '_', '-');

%Make a title page for the plots
axes('position', [0, 0, 1, 1], 'visible', 'off');

y_pos = .75;
text(.1, y_pos, 'SLAC Magnetic Measurements', 'FontSize', 12);
y_pos = y_pos - .04;
text(.1, y_pos, 'Shim Analysis', 'FontSize', 12);
y_pos = y_pos - .15;
text(.1, y_pos, ['Shim Name: ', shim_name], 'FontSize', 12);
y_pos = y_pos - .04;
text(.1, y_pos, ['Analysis Name: ', anal_name], 'FontSize', 12);

%Plot the title page
util_print_fig_init(plt_file);

%Done
