function stsd_grid_plotter_irreg_spaced_innerportion(x_val,valid_values,parameter_colors,parameter,epoch,epoch_shift,interval,text_interval,n_info,f_s,f_w)
%has been proofread, jan 3 2006 & again after changes march 14, 2006

x_val=x_val+epoch_shift;        %a shift for increased visibility
if interval==6,interval=0;end   %interval length(hy)+1 is really the _o condition

if find(isnan(valid_values)),valid_values(isnan(valid_values))=[];end

if length(valid_values)>1
    plot(x_val,mean(valid_values),'s','markerfacecolor',parameter_colors{parameter},'markeredgecolor',parameter_colors{parameter},'markersize',f_s),hold on
    text(x_val,mean(valid_values),num2str(epoch),'color','w')
    if strcmp(parameter_colors{parameter},'r'),databarcolor='k';else databarcolor='r';end
	plot([x_val x_val],[mean(valid_values)-(std(valid_values)/sqrt(length(valid_values))) mean(valid_values)+...
        (std(valid_values)/sqrt(length(valid_values)))],databarcolor,'LineWidth',1.5),hold on
elseif length(valid_values)==1
    plot(x_val,valid_values,'s','markerfacecolor',parameter_colors{parameter},'markeredgecolor',parameter_colors{parameter},'markersize',f_s),hold on
    if text_interval==1     %if 1, will superscribe the interval on the data points when plotting, otherwise will superscribe the epoch
        text(x_val,valid_values,num2str(interval),'color','w','fontsize',8) 
        if isempty(findobj(gca,'fontsize',f_s+1,'color',parameter_colors{epoch}))   %to make this happen exactly once no matter how many times each interval is represented in the condition
            text(((epoch-1)/2)*10,-.07,num2str(n_info),'fontsize',f_s+1,'fontweight',f_w,'color',parameter_colors{epoch})
        end
	else
        text(x_val,valid_values,num2str(epoch),'color','w','fontsize',8)
    end
end
%ylim([0 1])