mat_to_TEX.m

function mat_to_TEX(grains,filename)

fileID = fopen([filename '.TEX'],'w');
fprintf(fileID,'This file is created by TexTools software, Resmat Corp.');
fprintf(fileID,'\r\nODF file name: file Created at Texture lab IITK');
fprintf(fileID,'\r\n');
fprintf(fileID,'\r\n');
fprintf(fileID,'B ');
fprintf(fileID,'%d',length(grains));
fprintf(fileID,' 0\r\n');

fprintf(fileID,'\t%0.3f %0.3f %0.3f 1\r\n',grains');
fclose(fileID);
end