function raw_trace_holder=simple_induction_plotter(raw_induction_trace,induction_peaks,current_expt,induction_filename_plain,general_figure_position,pulse_duration_presyn,...
    samples_per_ms,sampling_rate)
%checked aug 5/2007

clr=colormap(jet(length(induction_peaks)));
figure(current_expt+100)
%subplot('position',[.25 .05 .25 .1])

lengthrange=110;        %KEEP FIXED for comparison
backup=1;
ranger=[(induction_peaks(1)-backup):(induction_peaks(1)+(lengthrange-backup-1))];
raw_trace_holder=[];
hold on
for present_peak=1:length(induction_peaks)
    goodrows=((present_peak-1)*sampling_rate)+ranger;
    rows_used_for_finding_average=goodrows(1)+[backup:backup+(3*samples_per_ms)];
    normalized_raw_trace=raw_induction_trace(goodrows,2)-mean(raw_induction_trace(rows_used_for_finding_average,2));
	plot([(1/samples_per_ms):(1/samples_per_ms):length(ranger)/samples_per_ms],normalized_raw_trace,'color',clr(present_peak,:),'linewidth',.2)
	raw_trace_holder=[raw_trace_holder;normalized_raw_trace'];
end
set(gca,'ytick',[])
hold on, plot([(1/samples_per_ms):(1/samples_per_ms):length(ranger)/samples_per_ms],mean(raw_trace_holder),'linewidth',1,'color','k')
axis([-.5 10.5 -.5 5])
xlabel(induction_filename_plain)
set(gcf,'position',general_figure_position)