Basic_Image_Processing/l_scale.asv at master · hieutrluu/Basic_Image_Processing · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
function l_scaled = l_scale(image, slope, bias)
%New image is rearranged so when transformed dc is at centre
%
%  Usage: new image = rearrange(image)
%
%  Parameters: image      - array of points

%get dimensions
[rows,cols]=size(image);

%rearrange image
l_scaled = zeros(rows,cols);

for x = 1 :cols
    for y = 1 :rows
       if l_scaled(x,y) <=0
          l_scaled(x,y) = 0;
       elseif l_scaled(x,y) >255
          l_scaled(x,y) = 255;
       else
          l_scaled(x,y) = l_scaled(x,y) *slope +bias;
       end
    end
end

end

function l_cliped= l_scale(image, slope, bias)
%New image is rearranged so when transformed dc is at centre
%
%  Usage: new image = rearrange(image)
%
%  Parameters: image      - array of points

%get dimensions
[rows,cols]=size(image);

%rearrange image
l_scaled = zeros(rows,cols);

for x = 1 :cols
    for y = 1 :rows
       if l_scaled(x,y) <=0
          l_scaled(x,y) = 0;
       elseif l_scaled(x,y) >255
          l_scaled(x,y) = 255;
       else
          l_scaled(x,y) = l_scaled(x,y) *slope +bias;
       end
    end
end

end