-Fixed a minor bug in CL_Video
[divverent/darkplaces.git] / cl_video.c
1
2 #include "quakedef.h"
3 #include "cl_video.h"
4 #include "dpvsimpledecode.h"
5
6 // constants (and semi-constants)
7 static int  cl_videormask;
8 static int  cl_videobmask;
9 static int  cl_videogmask;
10 static int      cl_videobytesperpixel;
11
12 static clvideo_t videoarray[ MAXCLVIDEOS ];
13 static mempool_t *cl_videomempool;
14 static rtexturepool_t *cl_videotexturepool;
15
16 static clvideo_t *FindUnusedVid( void )
17 {
18         int i;
19         for( i = 1 ; i < MAXCLVIDEOS ; i++ )
20                 if( videoarray[ i ].state == CLVIDEO_UNUSED )
21                         return &videoarray[ i ];
22         return NULL;
23 }
24
25 static qboolean OpenStream( clvideo_t * video )
26 {
27         char *errorstring;
28         video->stream = dpvsimpledecode_open( video->filename, &errorstring);
29         if (!video->stream )
30         {
31                 Con_Printf("unable to open \"%s\", error: %s\n", video->filename, errorstring);
32                 return false;
33         }
34         return true;
35 }
36
37 static void SuspendVideo( clvideo_t * video )
38 {
39         if( video->suspended )
40                 return;
41         video->suspended = true;
42         // free the texture
43         R_FreeTexture( video->cpif.tex );
44         // free the image data
45         Mem_Free( video->imagedata );
46         // if we are in firstframe mode, also close the stream
47         if( video->state == CLVIDEO_FIRSTFRAME ) 
48                 dpvsimpledecode_close( video->stream ); 
49 }
50
51 static qboolean WakeVideo( clvideo_t * video )
52 {
53         if( !video->suspended )
54                 return true;
55         video->suspended = false;
56
57         if( video->state == CLVIDEO_FIRSTFRAME )
58                 if( !OpenStream( video ) ) {
59                         video->state = CLVIDEO_UNUSED;
60                         return false;
61                 }
62                 
63         video->imagedata = Mem_Alloc( cl_videomempool, video->cpif.width * video->cpif.height * cl_videobytesperpixel );
64         video->cpif.tex = R_LoadTexture2D( cl_videotexturepool, video->cpif.name, 
65                 video->cpif.width, video->cpif.height, NULL, TEXTYPE_RGBA, 0, NULL );    
66
67         // update starttime
68         video->starttime += realtime - video->lasttime;
69
70         return true;
71 }
72
73 static clvideo_t* OpenVideo( clvideo_t *video, char *filename, char *name, int owner )
74 {
75         strncpy( video->filename, filename, MAX_QPATH );
76         video->ownertag = owner;
77         if( strncmp( name, CLVIDEOPREFIX, sizeof( CLVIDEOPREFIX ) - 1 ) )
78                 return NULL;
79         strncpy( video->cpif.name, name, MAX_QPATH );
80
81         if( !OpenStream( video ) )
82                 return NULL;
83
84         video->state = CLVIDEO_FIRSTFRAME;
85         video->framenum = -1;
86         video->framerate = dpvsimpledecode_getframerate( video->stream );
87         video->lasttime = realtime;
88
89         video->cpif.width = dpvsimpledecode_getwidth( video->stream );
90         video->cpif.height = dpvsimpledecode_getheight( video->stream );
91         video->cpif.tex = R_LoadTexture2D( cl_videotexturepool, video->cpif.name, 
92                 video->cpif.width, video->cpif.height, NULL, TEXTYPE_RGBA, 0, NULL );
93
94     video->imagedata = Mem_Alloc( cl_videomempool, video->cpif.width * video->cpif.height * cl_videobytesperpixel );
95
96         return video;
97 }
98
99 clvideo_t* CL_OpenVideo( char *filename, char *name, int owner )
100 {
101         clvideo_t *video;
102
103         video = FindUnusedVid();
104         if( !video ) {
105                 Con_Printf( "unable to open video \"%s\" - video limit reached\n", filename );
106                 return NULL;
107         }
108         return OpenVideo( video, filename, name, owner );
109 }
110
111 clvideo_t* CL_GetVideo( char *name )
112 {
113         int i;
114         clvideo_t *video;
115
116         for( i = 0 ; i < MAXCLVIDEOS ; i++ )
117                 if( videoarray[ i ].state != CLVIDEO_UNUSED 
118                         &&      !strcmp( videoarray[ i ].cpif.name , name ) )
119                         break;
120         if( i == MAXCLVIDEOS )
121                 return NULL;
122         video = &videoarray[ i ];
123
124         if( video->suspended )
125                 if( !WakeVideo( video ) )
126                         return NULL;
127                 else if( video->state == CLVIDEO_RESETONWAKEUP ) 
128                         video->framenum = -1;
129
130         video->lasttime = realtime;
131
132         return video;
133 }
134
135 void CL_SetVideoState( clvideo_t *video, clvideostate_t state )
136 {
137         if( !video )
138                 return;
139
140         video->lasttime = realtime;
141         video->state = state;
142         if( state == CLVIDEO_FIRSTFRAME )
143                 CL_RestartVideo( video );
144 }
145
146 void CL_RestartVideo( clvideo_t *video )
147 {
148         if( !video )
149                 return;
150     
151         video->starttime = video->lasttime = realtime;
152         video->framenum = -1;
153
154         dpvsimpledecode_close( video->stream );
155         if( !OpenStream( video ) )
156                 video->state = CLVIDEO_UNUSED;
157 }
158
159 void CL_CloseVideo( clvideo_t * video )
160 {
161         if( !video || video->state == CLVIDEO_UNUSED )
162                 return;
163
164         if( !video->suspended || video->state != CLVIDEO_FIRSTFRAME )
165                 dpvsimpledecode_close( video->stream );
166         if( !video->suspended ) {
167                 Mem_Free( video->imagedata );
168                 R_FreeTexture( video->cpif.tex );
169         }
170
171         video->state = CLVIDEO_UNUSED;
172 }
173
174 static void VideoFrame( clvideo_t *video )
175 {
176         int destframe;
177
178         if( video->state == CLVIDEO_FIRSTFRAME )
179                 destframe = 0;
180         else
181                 destframe = (realtime - video->starttime) * video->framerate;
182         if( destframe < 0 )
183                 destframe = 0;
184         if( video->framenum < destframe ) {
185                 do {
186                         video->framenum++;
187                         if( dpvsimpledecode_video( video->stream, video->imagedata, cl_videormask, 
188                                 cl_videogmask, cl_videobmask, cl_videobytesperpixel, 
189                                 cl_videobytesperpixel * video->cpif.width ) 
190                                 ) { // finished?
191                                 CL_RestartVideo( video );
192                                 if( video->state == CLVIDEO_PLAY )
193                                                 video->state = CLVIDEO_FIRSTFRAME;
194                                 return;
195                         }
196                 } while( video->framenum < destframe );
197                 R_UpdateTexture( video->cpif.tex, video->imagedata );
198         }                                       
199 }
200
201 void CL_VideoFrame( void ) // update all videos
202 {
203         int i;
204         clvideo_t *video;
205
206         for( video = videoarray, i = 0 ; i < MAXCLVIDEOS ; video++, i++ )
207                 if( video->state != CLVIDEO_UNUSED && !video->suspended )
208                         if( realtime - video->lasttime > CLTHRESHOLD )
209                                 SuspendVideo( video );
210                         else if( video->state == CLVIDEO_PAUSE )
211                                 video->starttime = realtime - video->framenum * video->framerate;
212                         else 
213                                 VideoFrame( video );
214
215         if( videoarray->state == CLVIDEO_FIRSTFRAME )
216                 CL_VideoStop();
217 }
218
219 void CL_Video_Shutdown( void )
220 {
221         int i;
222         for( i = 0 ; i < MAXCLVIDEOS ; i++ )
223                 CL_CloseVideo( &videoarray[ i ] );
224
225         R_FreeTexturePool( &cl_videotexturepool );
226         Mem_FreePool( &cl_videomempool );
227 }
228
229 void CL_PurgeOwner( int owner )
230 {
231         int i;
232         for( i = 0 ; i < MAXCLVIDEOS ; i++ )
233                 if( videoarray[ i ].ownertag == owner )
234                         CL_CloseVideo( &videoarray[ i ] );
235 }
236
237 int cl_videoplaying = false; // old, but still supported
238
239 void CL_DrawVideo(void)
240 {
241         if (cl_videoplaying)
242                 DrawQ_Pic(0, 0, videoarray->cpif.name, vid.conwidth, vid.conheight, 1, 1, 1, 1, 0);
243 }
244
245 void CL_VideoStart(char *filename)
246 {
247         if( videoarray->state != CLVIDEO_UNUSED )
248                 CL_CloseVideo( videoarray );
249         if( !OpenVideo( videoarray, filename, va( CLVIDEOPREFIX "%s", filename ), 0 ) )
250                 return;
251
252         cl_videoplaying = true;
253
254         CL_SetVideoState( videoarray, CLVIDEO_PLAY );
255         CL_RestartVideo( videoarray );
256 }
257
258 void CL_VideoStop(void)
259 {
260         cl_videoplaying = false;
261
262         CL_CloseVideo( videoarray );
263 }
264
265 static void CL_PlayVideo_f(void)
266 {
267         char name[1024];
268
269         if (Cmd_Argc() != 2)
270         {
271                 Con_Print("usage: playvideo <videoname>\nplays video named video/<videoname>.dpv\n");
272                 return;
273         }
274
275         sprintf(name, "video/%s.dpv", Cmd_Argv(1));
276         CL_VideoStart(name);
277 }
278
279 static void CL_StopVideo_f(void)
280 {
281         CL_VideoStop();
282 }
283
284 void CL_Video_Init( void )
285 {
286         cl_videobytesperpixel = 4;
287         cl_videormask = BigLong(0xFF000000);
288         cl_videogmask = BigLong(0x00FF0000);
289         cl_videobmask = BigLong(0x0000FF00);
290
291         cl_videomempool = Mem_AllocPool( "CL_Video", 0, NULL );
292         cl_videotexturepool = R_AllocTexturePool();
293
294         Cmd_AddCommand( "playvideo", CL_PlayVideo_f );
295         Cmd_AddCommand( "stopvideo", CL_StopVideo_f );
296 }