function a=test(filename,gamma)


%http://octave.sourceforge.net/packages.php
%octave-image

%#######################################################
%
% testimage.png muss sich im aktuellen Ordner befinden
% Aufruf:  a=test("testimage.png",0.3);
%
%#######################################################

image=double(imread(filename))./255;
imshow(image);
image=rgb2gray(image);
figure;
imshow(image);
h=size(image,1);
w=size(image,2);
image(h/4:h/4+h/2,w/4:w/4+w/2)=image(h/4:h/4+h/2,w/4:w/4+w/2).^gamma;;
figure;
imshow(image);

for y=1:size(image,1),
	for x=1:size(image,2),
		image2(y,x)=image(y,x)/2;
	end;	
end; % equals image=image./2;
figure;
imshow(image2);
figure;
imshow(image./2);

a=image(1:h/2,1:w/2);



