#skrypt przznaczony do obliczeń logarytmu z wartości DN
clear();
GetInputRaster(A);

string f$=GetObjectFileName(A);print(f$);
string path$=FileNameGetPath(f$);print(path$); 
CloseRaster(A);#wskazanie jednego z rastrów RGB - pozyskanie informacji o pełnej sciezce do pliku
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;
	 
    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+"-log";
	 string fo$=path$+"/"+o$+".rvc";
    CreateRaster(C, fo$, o$, o$, l, c, type$);# rastry zawierające wynik logarytmowania
	 C=log(R+1);
    print(i, " : ", R.$Info.Filename, " / ", R.$Info.Name);
    R.Close();
	 CloseRaster(C);
    }