% Code which illustrates the use of some own image functions
% Jose A. Rodriguez Serrano 2002
% Matlab Code 6.1.0.450 (R12.1)

A = LoadSquareImage('/home/josear/images/montchovi24.w');
A= ImageBorder(A, 1300);
figure 
imshow(mat2gray(A));
disp ('Image opened');

disp ('Applying mask...');
A = IntensityMask (A, 900, 1115);
disp ('Mask applied');
figure 
imshow(mat2gray(A));

disp ('Transforming...')
A = WindowLevel (A, 1000, 150);
disp ('Transformation done');
figure 
imshow(mat2gray(A));