blob: d31948ea4ffc714512e3641b2866b0d541591ef1 (
plain) (
tree)
|
|
� �
�u6/�6A � <pSMpeg\USmpeg.pas.u�5 dUIni/�6A gIniH�� cdSysUtils�C�� cdOpenGL12/�6A fGLuint��"�fTGLuint��"�fTGLenum��"�fPGLubyte۪]�gGL_NO_ERROR���fTGLubyte7c�g
glPixelStoreiZ�f�gGL_UNPACK_ALIGNMENT[��gglEnable)�V+g
GL_TEXTURE_2DG��g GL_DITHER6��g
glGenTextures �~gglDeleteTextures �~gGL_OUT_OF_MEMORYk��g
glBindTexture��ΕgglTexParameteri�.��gGL_TEXTURE_WRAP_Sh9��gGL_CLAMPf:��gGL_TEXTURE_WRAP_Ti9��gGL_TEXTURE_MAG_FILTERf9��g GL_LINEARg7��gGL_TEXTURE_MIN_FILTERg9��gglTexImage2D�r��gGL_RGBm*��gGL_RGBAn*��gGL_UNSIGNED_BYTEg%��g
glGetErrorL��gglClear)�V+gGL_COLOR_BUFFER_BITfQ��gglMatrixMode)�V+gGL_MODELVIEWf(��gglLoadIdentity�?If TGLdouble
��Bg glDisable)�V+gGL_BLENDH��g glColor3f
�wgGL_UNPACK_SKIP_ROWSY��gGL_UNPACK_SKIP_PIXELSZ��gglTexSubImage2D�r��gglBegin)�V+gGL_QUADS���gglTexCoord2f��}�g
glVertex2f��}�gglEnd�?Ig
glViewport��i,g
GL_PROJECTIONg(��g
gluOrtho2D�AE�cdsmpeg/�6A fPSMPEG;&6efTSMPEG_Infoϱ�Tg SMPEG_new���hgSMPEG_enableaudio�Yk?gSMPEG_setdisplay C�g
SMPEG_skip�EPg
SMPEG_play~B�jgSMPEG_pause~B�jgSMPEG_delete~B�jcdSDL/�6A fPSDL_SurfaceŲ�9fSInt32���
fUInt32��"�gSDL_Quit��a�gSDL_AllocSurface�u� g
SDL_SWSURFACE���gSDL_GL_SwapBuffers��a�cdSysInit�C�� cdSystem�C�� fString���f
AnsiString���fSingle��9DfCardinal��"�fPCharruggExit g@LStrAddRef��jg@LStrToPCharf���g@LStrClrѨ}�g@HandleFinallyE�a�fByte7c�g SetLength g@DynArraySetLengthE�a�g@DynArrayClearxB)�fRealS��<fBooleanW~8gFalse����gTrue����c4USmpeg�iif@c4SDL ~c4smpeg jc4OpenGL12
c4SysUtils c4UIni c mpeg�I�Oe& mpeg_info��U( surface��:**PGLMovieTexture��ED(*TGLMovieTexture�@�W5**TGLuintArray���j,*PGLuintArray��.*TGLMovieTextureArray�fe�j0*PGLMovieTextureArray�i��2'texture_size��[�i texture_ids�F<�^ textures�N0q5*`'tiled_width��[�y'tiled_height��[��'movie_width��[��'movie_height��[�� .1f4 ( OpenSmpeg���ʨ � 6!FileNamef�c( SkipSmpeg� c�� 0 6!Time&c( PlaySmpeg�E�a� 6c(
PauseSmpeg�E�a� 6c(UpdateSmpeg�E�a� 6c(
CloseSmpeg�E�a� 6cj*
TGLubyteArray 8k(glmovie_init�;� X �!Width !Height Result*
PGLubyteArray : pixelsf8� skip_rows skip_pixelsf� if� jf� current c(
glmpeg_update�<�� � 6�!surface&!x&!y& !w&(!h&0 error c( DrawSmpeg�w؟
6!frame Shift CropTf$ CropBf$ TexTf$ TexBf$0 TexLf$@ TexRf$P Wide&
|