%cd scatterbox
%startup
a=dir('/NAS2/PIMC/SITE/PORTCROS/SORTIES/20*');
for i=1:length(a)
b=dir(['/NAS2/PIMC/SITE/PORTCROS/SORTIES/' a(i).name]);
for j=1:length(b)
if b(j).name(end)=='v'
DIR=strcat('/NAS2/PIMC/SITE/PORTCROS/SORTIES/',a(i).name,'/',b(j).name)
porcrosales(256,DIR,['PORCROS/' a(i).name],60,20,b(j).name,a(i).name)
end
end
cd('../')
end









