%% Meine Spielwiese um jpg-Files zu bearbeiten
%  mit subplot 

%% Bild aus einem File einlesen
clear; clf; clc;

subplot(2,3,1)                  % 2x3 Subgrafiken, zeichne in Subgrafik 1
ice=imread('ice.jpg');          % Bild einlesen
imshow(ice);                    % old: image(ice); axis equal; axis off; 
title('Original')

disp(['Anzahl Dimensionen : ', num2str(ndims(ice))]);
disp(['Alle Dimensionen   : ', num2str(size(ice))]);
disp(['Groesste Dimension : ', num2str(length(ice))]);
disp(['Anzahl der Elemente: ', num2str(numel(ice))]);

%%   Helligkeit veraendern
ice2=0.5*ice;                   % Helligkeit veraendern

subplot(2,3,5)                  % 2x3 Subgrafiken, zeichne in Subgrafik 4
imshow(ice2);                   % old:   image(ice2); axis equal; axis off;
title('Helligkeit')


%% den Rotanteil loeschen
red = ice;
red(:,:,1) = 0;                 % Rotanteil auf Null setzen

subplot(2,3,3)                  % 2x3 Subgrafiken, zeichne in Subgrafik 3
imshow(red)
% axis equal; axis off; 
title('ohne Rot')

%% Speichern eines Bildes
imwrite(ice2,'ice2.jpg');      % verlustbehaftet          ( 29 kB)
% oder 
imwrite(ice2,'ice2.bmp');      % als Bitmap ohne Verluste (512 kB)
