/*
* void PsychQTExitMovies() - Shutdown handler.
*
* This routine is called by Screen('CloseAll') and on clear Screen time to
* do final cleanup. It deletes all Quicktime textures and releases all Quicktime
* movie objects.
*
*/
void PsychQTExitMovies(void)
{
PsychWindowRecordType **windowRecordArray;
int i, numWindows;
// Release all Quicktime related OpenGL textures:
PsychCreateVolatileWindowRecordPointerList(&numWindows, &windowRecordArray);
for(i=0; i<numWindows; i++) {
// Delete all Quicktime textures:
if ((windowRecordArray[i]->windowType == kPsychTexture) && (windowRecordArray[i]->targetSpecific.QuickTimeGLTexture !=NULL)) {
PsychCloseWindow(windowRecordArray[i]);
}
}
PsychDestroyVolatileWindowRecordPointerList(windowRecordArray);
// Release all movies:
PsychQTDeleteAllMovies();
// Shutdown Quicktime toolbox: We skip this, because according to Apple its not necessary,
// and for some reason it reliably hangs Matlab, so one has to force-quit it :-(
// Don't do this: ExitMovies();
#if PSYCH_SYSTEM == PSYCH_WINDOWS
// Shutdown Quicktime core system:
ExitMovies();
// Shutdown Quicktime for Windows compatibility layer:
TerminateQTML();
#endif
return;
}
/*
* PsychDeleteAllMovies() -- Delete all movie objects and release all associated ressources.
*/
void PsychDeleteAllMovies(void)
{
if (usegs()) {
#ifdef PTB_USE_GSTREAMER
PsychGSDeleteAllMovies();
return;
#endif
} else {
#ifdef PSYCHQTAVAIL
PsychQTDeleteAllMovies();
return;
#endif
}
PsychErrorExitMsg(PsychError_unimplemented, "Sorry, Movie playback support not supported on your configuration.");
}
