% function ThermoScala

% ______ Design :  Thermometer  für Celsius & Fahrenheit  _____
% ____________________________________________________
clear all; close all; clf

fprintf(1, '\n')   
disp(['°°°°°°°°°°°°° S T A R T °°°°°°°°°°°° ' ,date, ' °°°°°°°°°°°°°°'])

% :::::::::::::::::::::::::: Scaling : Celius ::::::::::::::::::::::
Cels = linspace(-50, 50, 11);
cmin = min(Cels);
cmax = max(Cels);
% :::::::::::::::::::::::::::::::::::::
M = 50;
figure(1)
pcolor([1:M;1:M]');
colormap(jet(M));                           % -> colormap [jet] for Thermometer
pause(1)
set(gca,'Position', [0.2 0.1 0.2 0.5], 'yTick', Cels )
pause(1)
% :::::::::::: Index für 'makelabels' ::::::::::
k =1;
tmove = Cels;
% ::::::::::::::::::::::::::::::::::::::::::::::::::::
set(gcf, 'doublebuffer', 'on')
for steps =1:size(colormap,1)
  M = colormap;
  colormap(M([end 1:end-1] ,:))
  cbh = colorbar;
  caxis([cmin cmax]);
  set(cbh,'YTick', cmin: 10 :cmax)
  drawnow
  pause(0.2)
end