function nal4_f
yimg = rgb2hsv(imread("trucks.jpg"));
prag = (yimg(:,:,1)>=32/360 & yimg(:,:,1)<=55/360) & yimg(:,:,2) >= 0.4  & yimg(:,:,3)>=0.4;
figure(3);
SE = strel('diamond',4);
[finished_pic, n]= bwlabel(imdilate(bwareaopen(prag,25),SE));
imshow(finished_pic);
for i=1:n
  i
  [r,c]=find(finished_pic==i);
  rc = [r c];
  moment(rc,0,0);
  moment(rc,1,0);
  moment(rc,0,1);
endfor
#neznam momentu dobit
endfunction