Exporting Animations under Duration constraints to view on an iPad

Question

I would like to show some eye-movements datas as animation on an iPad.

That is to see the gazes as they occured as a function of time.

Ideally We would only see the Graphics objects, not the dynamic controls.

I have about 50 trials with each 3000 gazes I would like to show. Preferably, all in one video with each trial looping 3 times.

Now I have encountered mny problems :

To illustrate, this is equivalent to my situation exept I`ll have about 50 different animations instead of 2.

pts = RandomReal[{-#, #}, {100, 2}] & /@ Range[2];
graphObj = {{Blue, Rectangle[{-1, -1}, {1, 1}]}, 
            {Red,Rectangle[{-.5, -.5}, {.5, .5}]}}



Manipulate[
 Animate[
  Graphics[{
   graphObj[[stimNo]],
   White, Line@pts[[stimNo]][[;; gazeNo]]},
   Background -> Black, 
   PlotRange -> {{-3, 3}, {-3, 3}}],
 {gazeNo, Range[2, 100, 1]},
  DefaultDuration -> 3,
  AnimationRepetitions -> 1,
  AnimationRunning -> False,
  Paneled -> False],
 {stimNo, Range[2]},
 ControlType -> Setter,
 Paneled -> False]

QUESTIONS / PROBLEMS :

-I am not sure of the best format for the iPad and how I could play those animations.

-I have not been able to export the correct duration (3 seconds to see my 3000gazes}.

-I could only achieve the above exporting the Animate[] object itself, leaving me with the controls on the .mov.

My attempts to use ListManipulate [] have yet all failed.

I must say I have looked at very bits of the help menu relating to exporting animations without success.

Answer 1

There exists no movie format on the iPad that can do a frame duration of .001 seconds. 30 frames per second (as for NTSC video) is the fastest you'll be able to do, corresponding to roughly .03 seconds per frame. This means your movies will be 100 seconds long if it has 3000 frames.

It is easy to export a list of frames to Quicktime (Apple's own format) if you run Mathematica on the Mac:

Export["movie.mov", frameList]

should do it.

For more control, you would follow these instructions:

After making the list of frames by creating a Table of Graphics and calling the output list frameList, execute the following line:

Map[Print, frameList]

This will create all the plots conveniently bracketed in a CellGroup which you can select with a single click. With this, QuickTime export can proceed by selecting in the Frontend menu the item Edit → Save Selection As.... Quicktime.

If you want even more control, e.g., to select a different display duration for each frame, just use (assuming you're on a Mac) the export function defined in the linked answer. To get a single constant frame duration d (in seconds), you'd invoke it as exportMov["movie.mov", frameList, {d}].

If this still doesn't satisfy you, it's always possible to export the individual movie frames and use an external program to make the final movie, as described in this answer.