Do 72 individual pictures and convert those into an avi outside
For[i = 1, i <= 72, i++,
Export[NotebookDirectory[] <> "1080-Matthen-ChessRotate" <> ToString[i] <> ".jpg",
photograph[trueImg, -0.3 + 0.025*i]]
]
which comes in at about two gigabytes of memory
or do 4 short avi and fuse those into one avi outside
For[i = -0.3, i < 1.5, i = i + 0.45,
Export[NotebookDirectory[] <> "1080-Matthen-ChessRotate" <> ToString[i] <> ".avi",
Table[photograph[trueImg, t], {t, i, i + 0.45 - 0.025, 0.025}]]
]
Which comes in at just over 1.5 gigabytes of memory
Watch out for little "off by a bit" when adding a sequence of floating point values and comparing against other floating point values. You might consider turning all those into exact rational values which should avoid that problem.