%
%  Erzeugt aus einem farbigen Bild ein eingefärbtes, 
%    mono-chromes Bild, Farbauswahl über uisetcolor.
%
function modifyColor() 

   % Bild-Datei auswählen
   [f,p] = uigetfile( '*.bmp', 'Bild wählen' );
   if( f == 0 )
      return;
   end
   
   % Dateinamen aus Pfad p und File-Namen f zusammenbauen
   datei = [p,f];

   % Bild-Datei laden 
   A = imread( datei );  
   
   % erst mal ausgeben 
   image( A )            
   axis image      
   
   % Farbe auswählen
   col = uisetcolor();   
   
   % Grauwerte berechnen 
   D = double( A ); % in double wandeln    
   % aus den RGB-Farben den Grauwert berechnen
   GrauWert(:,:) = uint8( ( D(:,:,1) + D(:,:,2) + D(:,:,3) ) / 3.0 );
   
   % Farbe proportional ändern
   B(:,:,1) = GrauWert * col(1);  
   B(:,:,2) = GrauWert * col(2);  
   B(:,:,3) = GrauWert * col(3);  
   
   % Bild anzeigen  
   image( B )            
   axis image           
   