aboutsummaryrefslogblamecommitdiffstats
path: root/Game/Code/SMpeg/USmpeg.dcu
blob: d31948ea4ffc714512e3641b2866b0d541591ef1 (plain) (tree)



































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
��
�u6/�6A�<pSMpeg\USmpeg.pas.u�5dUIni/�6AgIniH��cdSysUtils�C��cdOpenGL12/�6AfGLuint��"�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��gglTexImage2D�r��gGL_RGBm*��gGL_RGBAn*��gGL_UNSIGNED_BYTEg%��g
glGetErrorL��gglClear)�V+gGL_COLOR_BUFFER_BITfQ��gglMatrixMode)�V+gGL_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���gglTexCoord2f��}�g
glVertex2f��}�gglEnd�?Ig
glViewport��i,g
GL_PROJECTIONg(��g
gluOrtho2D�AE�cdsmpeg/�6AfPSMPEG;&6efTSMPEG_Infoϱ�Tg	SMPEG_new���hgSMPEG_enableaudio�Yk?gSMPEG_setdisplay	C�g
SMPEG_skip�EPg
SMPEG_play~B�jgSMPEG_pause~B�jgSMPEG_delete~B�jcdSDL/�6AfPSDL_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��"�fPCharruggExitg@LStrAddRef��jg@LStrToPCharf���g@LStrClrѨ}�g@HandleFinallyE�a�fByte7c�g	SetLengthg@DynArraySetLengthE�a�g@DynArrayClearxB)�fRealS��<fBooleanW~8gFalse����gTrue����c4USmpeg�iif@c4SDL~c4smpegjc4OpenGL12
c4SysUtilsc4UInic 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��06!Time&c(	PlaySmpeg�E�a�6c(
PauseSmpeg�E�a�6c(UpdateSmpeg�E�a�6c(
CloseSmpeg�E�a�6cj*
TGLubyteArray8k(glmovie_init�;�X�!Width!Height Result*
PGLubyteArray: pixelsf8� 	skip_rows skip_pixelsf� if� jf� currentc(
glmpeg_update�<���6�!surface&!x&!y& !w&(!h&0 errorc(	DrawSmpeg�w؟	
6!frame Shift CropTf$ CropBf$ TexTf$  TexBf$0 TexLf$@ TexRf$P Wide&c(glmovie_resize������6!width!heightc(glmovie_quit�E�a�"6c(Finalization�E�a�\! 6c�(USmpeg�!6c��E�*MH�,id,
poly_width,poly_height,movie_width,movie_height ,	skip_rows(,skip_pixels0,row8,col@cER�<E�,Eb�>E�0D4����P@ET�@E�8L�BL�D*L�F
D4�PD4�PD4�Pl�TGLuintArrayUSmpegTGLMovieTextureArray$����USmpegU��Q�E��E��3�Uh�d�0d� jh�E��P�����=u
��j�P���j h�h�h�h��
�3����=u��7�����t���Pj�P�P���3�ZYYd�h��E������Y]�U���u�P���]��P�YáP�Yá�@�áP�Y�
TGLubyteArrayUSmpegU����SV3ɉM��3�Uh�d�1d�!3������jh�����h�
����h�����hj������C��C����C����C�E�C�E��C �E��C�s�C�k��P�E�������}�uhj�����Ph�
����h)h(h�
����h)h(h�
����h&h(h�
����h&h(h�
���ЋE�Phhjhhhjh�
����j�E���������Ћ�3�ZYYd�h��E��������^[��]�U��h@����h���С��ЋE�@����Ѕ�u�]�SV��ȋ��{�u!�{Vu3��D$�D$3��D$�D$`�?�C=.u3҉T$�T$3҉T$�D$�?=�u3��D$�D$3��D$�D$�?3��$�D$�[@3��D$�D$�~@�C=.��=���=V���D$03��D$4�l$0�5 �-$���\$��C�D$03��D$4�l$0�5 �-0���\$����x\u=3��$�D$3��D$�D$��@3��D$�D$�C�D$03��D$4�l$0�5 �\$��C�D$03��D$4�l$0�5 �
<�\$ ��C�D$03��D$4�l$0�5 �
@�\$(�h�
����h�����h�?h�?h�?���СPh�
����jh�����jh�����Vhh�C��P�C��Pjjjh�
����j�����D$����$��D$$����$������$����$�j�����D$����$��D$$����$������D$����$�j�����D$����$��D$,����$������D$����$�hHD�����D$����$��D$,����$������$����$�hHD������h�
���Ѓ�8^[��D���������?��?�?RPjj����h���С���jjh��@jh�@jjj�����hj�����U��3�Uh%d�0d� �3�ZYYd�h,����]Ã-�mI��<���b����������p����r>���
����
�
����t �����v��x��z��5
��|��>��������� �"�����f�
��$&�(0*0*0*0*^8(�
�@&��
��BFJ5
@�5��55<55�5855855N0R�(  ZXZ>^*`>^,`>^2`>^0`bNh]dFJ>hi�$mm�m����r�::

 \
(
r"


V@
  @ 


(0000^0`
$HBH8DD0(  ZhjpnX> ^���*6����p������������5M]yi ��&�(�*�2�4�6�8�:�<�
>�@�B�D�F�N�P�R�T�\�^�`�b�d�f�h�p�������������		



!%)-1!9M=UAYE]IaMeQiUmYqayeym��T� 2� � � � � �� 0�@�@D�N��Z�%���%�@(1x1��5@p099y�]`aea�e�i m  a