function [] = cmapBlue(handle,cmin,cmax)

% this function makes the figure(handle) the new school blue 
% color map 

% mst 061122

figure(handle);

%c1 = rot90(rot90((50:0.1:255)/255));
c1 = [255 230 160 80 30 10 10]/255;
c2 = [255 255 240 180 110 50 50]/255;
c3 = [255 255 255 255 250 200 120]/255;

xc = 1:7;
xc_fine = 1:0.1:7;

c1int = interp1(xc,c1,xc_fine,'cubic');
c2int = interp1(xc,c2,xc_fine,'cubic');
c3int = interp1(xc,c3,xc_fine,'cubic');

b = [c1int' c2int' c3int'];

shading flat; caxis([cmin cmax]); colormap(b); colorbar;

% booyah
