view_interp_sc

function status = view_interp_sc(plot_res,nrows,ncols,divide,scale,color_map,graph_title)

Plots and image created by interp_by_samp with the 's'
header_flag option.

0001 function status = view_interp_sc(plot_res,nrows,ncols,divide,scale,color_map,graph_title)
0002 %function status = view_interp_sc(plot_res,nrows,ncols,divide,scale,color_map,graph_title)
0003 %
0004 %Plots and image created by interp_by_samp with the 's'
0005 %header_flag option.
0006 
0007 status=0;
0008 fid = get_fid('r');
0009 if fid==-1, error('Don''t pass me no bullshit files, Doran'),end;
0010 interp = fread(fid,[ncols,nrows],'float');
0011 interp = (interp')./divide;
0012 figure;
0013 imagesc(interp, scale);
0014 colorbar;
0015 colormap(color_map);
0016 shading interp;
0017 hold on;
0018 contour(interp);
0019 fclose(fid);
0020 axis('off');
0021 title(graph_title);
0022 status = 1;