function cc= crop_images_large(uid,xstart,xend,ystart,yend,JSONString)

pkg load image
%JSONSentinel = JSONString;



format long;
if xstart<1
	xstart = 1;
end
if ystart <1
	ystart=1;
end
xstart
xend
ystart
yend
sizeB4 = [10980 10980];
format long;

filenametci = strcat(uid,"_TCI.png");
filenametci_large = strcat(uid,"_TCI_large.png");
tci = imread(filenametci);
filenameetci = strcat(uid,"_ETCI.png");
filenameetci_large = strcat(uid,"_ETCI_large.png");
etci = imread(filenameetci);

filenamendvi = strcat(uid,"_ndvi.png");
filenamendvi_large = strcat(uid,"_ndvi_large.png");
ndvi = imread(filenamendvi);

filenamendvi_cmap2 = strcat(uid,"_ndvi_cmap2.png");
filenamendvi_large_cmap2 = strcat(uid,"_ndvi_cmap2_large.png");
ndvi_cmap2 = imread(filenamendvi_cmap2);

filenamendwi = strcat(uid,"_ndwi.png");
filenamendwi_large = strcat(uid,"_ndwi_large.png");
ndwi = imread(filenamendwi);

filenamendwi_cmap2 = strcat(uid,"_ndwi_cmap2.png");
filenamendwi_large_cmap2 = strcat(uid,"_ndwi_cmap2_large.png");
ndwi_cmap2 = imread(filenamendwi_cmap2);

filenamendre = strcat(uid,"_ndre.png");
filenamendre_large = strcat(uid,"_ndre_large.png");
ndre = imread(filenamendre);


filenamendre_cmap2 = strcat(uid,"_ndre_cmap2.png");
filenamendre_large_cmap2 = strcat(uid,"_ndre_cmap2_large.png");
ndre_cmap2 = imread(filenamendre_cmap2);



filenamevari = strcat(uid,"_vari.png");
filenamevari_large = strcat(uid,"_vari_large.png");
vari = imread(filenamevari);

filenamevari_cmap2 = strcat(uid,"_vari_cmap2.png");
filenamevari_large_cmap2 = strcat(uid,"_vari_cmap2_large.png");
vari_cmap2 = imread(filenamevari_cmap2);

%try
%bndvi = imread('BNDVI_clipped.png');
%b3 = imread('B3_clipped.png');
%b4 = imread('B4_clipped.png');
b8 = imread('B8_clipped.png');

%bndvi = bndvi(xstart:xend,ystart:yend,:);
%b3 = b3(xstart:xend,ystart:yend,:);
%b4 = b4(xstart:xend,ystart:yend,:);
b8 = b8(xstart:xend,ystart:yend,:);

tci = tci(xstart:xend,ystart:yend,:);

etci = etci(xstart:xend,ystart:yend,:);
ndvi = ndvi(xstart:xend,ystart:yend,:);

ndvi_cmap2 = ndvi_cmap2(xstart:xend,ystart:yend,:);
%ndwi_cmap2 = ndwi_cmap2(xstart:xend,ystart:yend,:);
vari_cmap2 = vari_cmap2(xstart:xend,ystart:yend,:);
%ndre_cmap2 = ndre_cmap2(xstart:xend,ystart:yend,:);

vari = vari(xstart:xend,ystart:yend,:);

imwrite(tci,filenametci);
imwrite(etci,filenameetci);
imwrite(ndvi,filenamendvi);

imwrite(vari,filenamevari);

imwrite(ndvi_cmap2,filenamendvi_cmap2);
imwrite(vari_cmap2,filenamevari_cmap2);

ndwi = ndwi(xstart:xend,ystart:yend,:);
ndwi_cmap2 = ndwi_cmap2(xstart:xend,ystart:yend,:);

ndre = ndre(xstart:xend,ystart:yend,:);
ndre_cmap2 = ndre_cmap2(xstart:xend,ystart:yend,:);

imwrite(ndwi,filenamendwi);
imwrite(ndwi_cmap2,filenamendwi_cmap2);

imwrite(ndre,filenamendre);
imwrite(ndre_cmap2,filenamendre_cmap2);

%imwrite(bndvi,'BNDVI_clipped.png');
%imwrite(b3,'B3_clipped.png');
%imwrite(b4,'B4_clipped.png');
imwrite(b8,'B8_clipped.png');



cc = 1;

%end
end


