I have to duplicate a picture several times – and each time the duplicate shall have another name. I do this with mathematica 10 with the following easy code:
pic = Import["…\\TestFoto.jpg"]; (*Import of picture*)
namesList = {52543, 14745, 746364,…}; (*names*)
For[i = 1, i <= 3, i++,
Export[ToString[namesList[[i]]] <> ".jpg", pic]];
This works quite well.
But: the exported picture is only 6 MB big although the original picture is about 50 MB big. Out of some reasons the exported pictures should be also 50 MB big.
What do I have to change in my code to achieve that the exported picture is as big as the imported?
I tried to find something in the Mathematica help – no result. I tried to find something here, but all I found was this and this which did not help me well. So, I hope some of you can help me! I would be happy about every hint and answer!
"CompressionLevel"
andImageSize
could be relevant. $\endgroup$ – Karsten 7. Oct 19 '15 at 16:10For
instead of the more convenient, more readable, safer and fasterDo
?Do[Export[ToString[name] <> ".jpg", ...], {name, nameList}]
. $\endgroup$ – Szabolcs Oct 19 '15 at 16:13