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