# How to embed a movie into a Mathematica-made presentation?

The question is completely formulated in the title.

However, to make it more presize, I am making presentations for lectures. The presentations are done in Mma. I have some illustrative material to show in a form of movies (avi and gif). It is possible to remove Mma from the screen, open a file with the movies and play one. I would like, however, to be able to call a movie from Mma just for the sake of speed. In addition it is aestetically better.

I tried to embed a hyperlink into the presentation notebook to call the movie file. This does not work. It opens an empty notebook with the title of the movie-file in question, and after a rather long waiting the notebook becomes filled by some symbols. Evidently, it opens the file rather than plays it.

So, can I do anything?

-
I don't think you can include most movies, so the best solution might be what Yves said. But if the movie is simple (like most animated gifs), it's not high resolution, it has a low framerate, and not too many frames, then you can use ListAnimate with the list of its frames to include it directly. The notebook size will increase quite quickly with the number of frames though. –  Szabolcs Mar 16 '14 at 16:35
@Szabolcs I think my movies satisfy the conditions you formulated. I succeeded to run it using the way offered by Yves. Could you please kindly show, how you can do it by ListAnimate, given the movie is external and I have no access to its creation or format. –  Alexei Boulbitch Mar 16 '14 at 17:10
You can include movies like I did in this example: Style[Dynamic[Refresh[Import["http://pages.uoregon.edu/noeckel/computernotes/St‌​opMotion.mov", "Animation"], None]], DynamicEvaluationTimeout -> 60] which is from this answer. –  Jens Mar 16 '14 at 17:11
@AlexeiBoulbitch Jens's solution is better. Did you manage to get it to work according to his suggestion? –  Szabolcs Mar 16 '14 at 17:32

You can use SystemOpen to open the link with system-wide standard browser/application:

SystemOpen["https://www.youtube.com/watch?v=yL_-1d9OSdk"]


You can also use it to open files stored on the local hard drive using the default applications (i.e. the default movie player for movie files).

E.g. in conjunction with Button:

Button["Chicken", SystemOpen["https://www.youtube.com/watch?v=yL_-1d9OSdk"],
BaseStyle -> "Hyperlink", Appearance -> "Frameless"]


-
I edited this a bit, hope you don't mind. –  Szabolcs Mar 16 '14 at 16:26
@Szabolcs thanks! Was editing (more chicken!), too, but no harm done :D –  Yves Klett Mar 16 '14 at 16:27
My parrot is only stable against rotations but not translations (even though she does have a long neck). –  Szabolcs Mar 16 '14 at 16:29
@Szabolcs hehe - I just changed the link to something non-commercial, yet still sufficiently poultry. But the gyro spot is still great. Parrots can fly, perhaps relevant? –  Yves Klett Mar 16 '14 at 16:31
conbtinuation: ´Button["Play", SystemOpen[NotebookDirectory[] <> "filename.avi"]]´ –  Alexei Boulbitch Mar 16 '14 at 17:18