# skrypt przeznaczony do utworzenia czystych rastrów na podstawie oryginalnych kanałów RGB
clear();
raster A;
GetInputRaster(A); #wskazanie jednego z rastrów RGB - pozyskanie informacji o pełnej sciezce do pliku

string f$=GetObjectFileName(A);print(f$);
string path$=FileNameGetPath(f$);print(path$); 
CloseRaster(A);
class RVC_OBJITEM list[];  
# ponizej wskazanie wszystkich rastrów rgb
DlgGetObjects("Select a bunch of rasters", "Raster", list, "ExistingOnly", 1, 1032);
class STRINGLIST listkeys = list.GetKeys();  
#petla obliczeniowa
numeric i;
for i = 0 to listkeys.GetNumItems()-1 {
    local class RASTER R, C, R1;
	 
    R.Open(list[listkeys.GetString(i)], "Read");
    numeric l, c;
	 l=NumLins(R);
	 c=NumCols(R);
	 string type$="32-bit float";
	 string o$=R.$Info.Name+"-obr-trend";
	 string fo$=path$+"/"+o$+".rvc";
		
    CreateRaster(C, fo$, o$, o$, l, c, type$); # zapis czystych rastrów
	 CopySubobjects(R,C,"RTEREND");
	 C=1;
    print(i, " : ", R.$Info.Filename, " / ", R.$Info.Name);
    R.Close();
	 CloseRaster(C);
    }