Visual C, PocketPC fixes
[btb/d2x.git] / arch / sdl / gr.c
1 /* $Id: gr.c,v 1.12 2003-11-26 12:39:00 btb Exp $ */
2 /*
3  *
4  * SDL video functions.
5  *
6  *
7  */
8
9 #ifdef HAVE_CONFIG_H
10 #include <conf.h>
11 #endif
12
13 #include <stdlib.h>
14 #include <string.h>
15 #include <SDL.h>
16 #ifdef SDL_IMAGE
17 #include <SDL_image.h>
18 #endif
19
20 #include "gr.h"
21 #include "grdef.h"
22 #include "palette.h"
23 #include "u_mem.h"
24 #include "error.h"
25 #include "menu.h"
26
27 //added 10/05/98 by Matt Mueller - make fullscreen mode optional
28 #include "args.h"
29
30 #ifdef _WIN32_WCE // should really be checking for "Pocket PC" somehow
31 # define LANDSCAPE
32 #endif
33
34 int sdl_video_flags = SDL_SWSURFACE | SDL_HWPALETTE;
35 char checkvidmodeok=0;
36 //end addition -MM
37
38 SDL_Surface *screen;
39 #ifdef LANDSCAPE
40 static SDL_Surface *real_screen;
41 #endif
42
43 int gr_installed = 0;
44
45 //added 05/19/99 Matt Mueller - locking stuff
46 #ifdef GR_LOCK
47 #include "checker.h"
48 #ifdef TEST_GR_LOCK
49 int gr_testlocklevel=0;
50 #endif
51 inline void gr_dolock(const char *file,int line) {
52         gr_dotestlock();
53         if ( gr_testlocklevel==1 && SDL_MUSTLOCK(screen) ) {
54 #ifdef __CHECKER__
55                 chcksetwritable(screen.pixels,screen->w*screen->h*screen->format->BytesPerPixel);
56 #endif
57                 if ( SDL_LockSurface(screen) < 0 )Error("could not lock screen (%s:%i)\n",file,line);
58         }
59 }
60 inline void gr_dounlock(void) {
61         gr_dotestunlock();
62         if (gr_testlocklevel==0 && SDL_MUSTLOCK(screen) ) {
63                 SDL_UnlockSurface(screen);
64 #ifdef __CHECKER__
65                 chcksetunwritable(screen.pixels,screen->w*screen->h*screen->format->BytesPerPixel);
66 #endif
67         }
68 }
69 #endif
70 //end addition -MM
71
72 #ifdef LANDSCAPE
73 /* Create a new rotated surface for drawing */
74 SDL_Surface *CreateRotatedSurface(SDL_Surface *s)
75 {
76     return(SDL_CreateRGBSurface(s->flags, s->h, s->w,
77     s->format->BitsPerPixel,
78     s->format->Rmask,
79     s->format->Gmask,
80     s->format->Bmask,
81     s->format->Amask));
82 }
83
84 /* Used to copy the rotated scratch surface to the screen */
85 void BlitRotatedSurface(SDL_Surface *from, SDL_Surface *to)
86 {
87
88     int bpp = from->format->BytesPerPixel;
89     int w=from->w, h=from->h, pitch=to->pitch;
90     int i,j;
91     Uint8 *pfrom, *pto, *to0;
92
93     SDL_LockSurface(from);
94     SDL_LockSurface(to);
95     pfrom=(Uint8 *)from->pixels;
96     to0=(Uint8 *) to->pixels+pitch*(w-1);
97     for (i=0; i<h; i++)
98     {
99         to0+=bpp;
100         pto=to0;
101         for (j=0; j<w; j++)
102         {
103             if (bpp==1) *pto=*pfrom;
104             else if (bpp==2) *(Uint16 *)pto=*(Uint16 *)pfrom;
105             else if (bpp==4) *(Uint32 *)pto=*(Uint32 *)pfrom;
106             else if (bpp==3)
107                 {
108                     pto[0]=pfrom[0];
109                     pto[1]=pfrom[1];
110                     pto[2]=pfrom[2];
111                 }
112             pfrom+=bpp;
113             pto-=pitch;
114         }
115     }
116     SDL_UnlockSurface(from);
117     SDL_UnlockSurface(to);
118 }
119 #endif
120
121 void gr_palette_clear(); // Function prototype for gr_init;
122
123
124 void gr_update()
125 {
126         //added 05/19/99 Matt Mueller - locking stuff
127 //      gr_testunlock();
128         //end addition -MM
129 #ifdef LANDSCAPE
130         BlitRotatedSurface(screen, real_screen);
131         if ( (real_screen->flags & SDL_DOUBLEBUF) == SDL_DOUBLEBUF )
132                 SDL_Flip(real_screen);
133         else
134                 SDL_UpdateRect(real_screen, 0, 0, 0, 0);
135 #else
136         SDL_Flip(screen);
137 #endif
138 }
139
140 extern int VGA_current_mode; // DPH: kludge - remove at all costs
141
142 int gr_set_mode(u_int32_t mode)
143 {
144         int w,h;
145
146 #ifdef NOGRAPH
147         return 0;
148 #endif
149
150         if (mode<=0)
151                 return 0;
152
153         w=SM_W(mode);
154         h=SM_H(mode);
155         VGA_current_mode = mode;
156         
157         if (screen != NULL) gr_palette_clear();
158
159 //added on 11/06/98 by Matt Mueller to set the title bar. (moved from below)
160 //sekmu: might wanna copy this litte blurb to one of the text files or something
161 //we want to set it here so that X window manager "Style" type commands work
162 //for example, in fvwm2 or fvwm95:
163 //Style "D1X*"  NoTitle, NoHandles, BorderWidth 0
164 //if you can't use -fullscreen like me (crashes X), this is a big help in
165 //getting the window centered correctly (if you use SmartPlacement)
166         SDL_WM_SetCaption(PACKAGE_STRING, "Descent II");
167 //end addition -MM
168
169 #ifdef SDL_IMAGE
170         {
171 #include "descent.xpm"
172                 SDL_WM_SetIcon(IMG_ReadXPMFromArray(pixmap), NULL);
173         }
174 #endif
175
176 //edited 10/05/98 by Matt Mueller - make fullscreen mode optional
177           // changed by adb on 980913: added SDL_HWPALETTE (should be option?)
178         // changed by someone on 980923 to add SDL_FULLSCREEN
179 #ifdef _WIN32_WCE
180         if(!checkvidmodeok || SDL_VideoModeOK(w,h,0,sdl_video_flags)){
181 #ifdef LANDSCAPE
182                 real_screen = SDL_SetVideoMode(h, w, 0, sdl_video_flags);
183                 screen = CreateRotatedSurface(real_screen);
184 #else
185                 screen = SDL_SetVideoMode(w, h, 0, sdl_video_flags);
186 #endif
187         } else {
188           screen=NULL;
189         }
190 #else
191         if(!checkvidmodeok || SDL_VideoModeOK(w,h,8,sdl_video_flags)){
192           screen = SDL_SetVideoMode(w, h, 8, sdl_video_flags);
193         } else {
194           screen=NULL;
195         }
196 #endif
197                 // end changes by someone
198         // end changes by adb
199 //end edit -MM
200         if (screen == NULL) {
201            Error("Could not set %dx%dx8 video mode\n",w,h);
202            exit(1);
203         }
204         memset( grd_curscreen, 0, sizeof(grs_screen));
205         grd_curscreen->sc_mode = mode;
206         grd_curscreen->sc_w = w;
207         grd_curscreen->sc_h = h;
208         grd_curscreen->sc_aspect = fixdiv(grd_curscreen->sc_w*3,grd_curscreen->sc_h*4);
209         grd_curscreen->sc_canvas.cv_bitmap.bm_x = 0;
210         grd_curscreen->sc_canvas.cv_bitmap.bm_y = 0;
211         grd_curscreen->sc_canvas.cv_bitmap.bm_w = w;
212         grd_curscreen->sc_canvas.cv_bitmap.bm_h = h;
213         grd_curscreen->sc_canvas.cv_bitmap.bm_rowsize = screen->pitch;
214         grd_curscreen->sc_canvas.cv_bitmap.bm_type = BM_LINEAR;
215         grd_curscreen->sc_canvas.cv_bitmap.bm_data = (unsigned char *)screen->pixels;
216         gr_set_current_canvas(NULL);
217         //gr_enable_default_palette_loading();
218
219 //added on 9/30/98 by Matt Mueller to hide the mouse if its over the game window
220         SDL_ShowCursor(0);
221 //end addition -MM
222 //--moved up--added on 9/30/98 by Matt Mueller to set the title bar.  Woohoo!
223 //--moved up--  SDL_WM_SetCaption(DESCENT_VERSION " " D1X_DATE, NULL);
224 //--moved up--end addition -MM
225
226 //      gamefont_choose_game_font(w,h);
227         return 0;
228 }
229
230 int gr_check_fullscreen(void){
231         return (sdl_video_flags & SDL_FULLSCREEN)?1:0;
232 }
233
234 int gr_toggle_fullscreen(void){
235         sdl_video_flags^=SDL_FULLSCREEN;
236         SDL_WM_ToggleFullScreen(screen);
237         return (sdl_video_flags & SDL_FULLSCREEN)?1:0;
238 }
239
240 int gr_init(void)
241 {
242         // Only do this function once!
243         if (gr_installed==1)
244                 return -1;
245
246         if (SDL_Init(SDL_INIT_VIDEO) < 0)
247         {
248                 Error("SDL library video initialisation failed: %s.",SDL_GetError());
249         }
250         MALLOC( grd_curscreen,grs_screen,1 );
251         memset( grd_curscreen, 0, sizeof(grs_screen));
252
253 //added 10/05/98 by Matt Mueller - make fullscreen mode optional
254         if (FindArg("-fullscreen"))
255              sdl_video_flags|=SDL_FULLSCREEN;
256 //end addition -MM
257         //added 05/19/99 Matt Mueller - make HW surface optional
258         if (FindArg("-hwsurface"))
259              sdl_video_flags|=SDL_HWSURFACE;
260         //end addition -MM
261         if (FindArg("-nosdlvidmodecheck"))
262                 checkvidmodeok=0;
263         
264         grd_curscreen->sc_canvas.cv_color = 0;
265         grd_curscreen->sc_canvas.cv_drawmode = 0;
266         grd_curscreen->sc_canvas.cv_font = NULL;
267         grd_curscreen->sc_canvas.cv_font_fg_color = 0;
268         grd_curscreen->sc_canvas.cv_font_bg_color = 0;
269         gr_set_current_canvas( &grd_curscreen->sc_canvas );
270
271         gr_installed = 1;
272         // added on 980913 by adb to add cleanup
273         atexit(gr_close);
274         // end changes by adb
275
276         return 0;
277 }
278
279 void gr_close()
280 {
281         if (gr_installed==1)
282         {
283                 gr_installed = 0;
284                 d_free(grd_curscreen);
285         }
286 }
287
288 // Palette functions follow.
289
290 static int last_r=0, last_g=0, last_b=0;
291
292 void gr_palette_clear()
293 {
294  SDL_Palette *palette;
295  SDL_Color colors[256];
296  int ncolors;
297
298  palette = screen->format->palette;
299
300  if (palette == NULL) {
301     return; // Display is not palettised
302  }
303
304  ncolors = palette->ncolors;
305  memset(colors, 0, ncolors * sizeof(SDL_Color));
306
307  SDL_SetColors(screen, colors, 0, 256);
308
309  gr_palette_faded_out = 1;
310 }
311
312
313 void gr_palette_step_up( int r, int g, int b )
314 {
315  int i;
316  ubyte *p = gr_palette;
317  int temp;
318
319  SDL_Palette *palette;
320  SDL_Color colors[256];
321
322  if (gr_palette_faded_out) return;
323
324  if ( (r==last_r) && (g==last_g) && (b==last_b) ) return;
325
326  last_r = r;
327  last_g = g;
328  last_b = b;
329
330  palette = screen->format->palette;
331
332  if (palette == NULL) {
333     return; // Display is not palettised
334  }
335
336  for (i=0; i<256; i++) {
337    temp = (int)(*p++) + r + gr_palette_gamma;
338    if (temp<0) temp=0;
339    else if (temp>63) temp=63;
340    colors[i].r = temp * 4;
341    temp = (int)(*p++) + g + gr_palette_gamma;
342    if (temp<0) temp=0;
343    else if (temp>63) temp=63;
344    colors[i].g = temp * 4;
345    temp = (int)(*p++) + b + gr_palette_gamma;
346    if (temp<0) temp=0;
347    else if (temp>63) temp=63;
348    colors[i].b = temp * 4;
349  }
350
351  SDL_SetColors(screen, colors, 0, 256);
352 }
353
354 //added on 980913 by adb to fix palette problems
355 // need a min without side effects...
356 #undef min
357 static inline int min(int x, int y) { return x < y ? x : y; }
358 //end changes by adb
359
360 void gr_palette_load( ubyte *pal )      
361 {
362  int i, j;
363  SDL_Palette *palette;
364  SDL_Color colors[256];
365
366  for (i=0; i<768; i++ ) {
367      gr_current_pal[i] = pal[i];
368      if (gr_current_pal[i] > 63) gr_current_pal[i] = 63;
369  }
370
371  palette = screen->format->palette;
372
373  if (palette == NULL) {
374     return; // Display is not palettised
375  }
376
377  for (i = 0, j = 0; j < 256; j++) {
378      //changed on 980913 by adb to fix palette problems
379      colors[j].r = (min(gr_current_pal[i++] + gr_palette_gamma, 63)) * 4;
380      colors[j].g = (min(gr_current_pal[i++] + gr_palette_gamma, 63)) * 4;
381      colors[j].b = (min(gr_current_pal[i++] + gr_palette_gamma, 63)) * 4;
382      //end changes by adb
383  }
384  SDL_SetColors(screen, colors, 0, 256);
385
386  gr_palette_faded_out = 0;
387  init_computed_colors();
388 }
389
390
391
392 int gr_palette_fade_out(ubyte *pal, int nsteps, int allow_keys)
393 {
394  int i, j, k;
395  ubyte c;
396  fix fade_palette[768];
397  fix fade_palette_delta[768];
398
399  SDL_Palette *palette;
400  SDL_Color fade_colors[256];
401
402  if (gr_palette_faded_out) return 0;
403
404 #if 1 //ifndef NDEBUG
405         if (grd_fades_disabled) {
406                 gr_palette_clear();
407                 return 0;
408         }
409 #endif
410
411  palette = screen->format->palette;
412  if (palette == NULL) {
413     return -1; // Display is not palettised
414  }
415
416  if (pal==NULL) pal=gr_current_pal;
417
418  for (i=0; i<768; i++ ) {
419      gr_current_pal[i] = pal[i];
420      fade_palette[i] = i2f(pal[i]);
421      fade_palette_delta[i] = fade_palette[i] / nsteps;
422  }
423  for (j=0; j<nsteps; j++ )      {
424      for (i=0, k = 0; k<256; k++ )      {
425          fade_palette[i] -= fade_palette_delta[i];
426          if (fade_palette[i] > i2f(pal[i] + gr_palette_gamma) )
427             fade_palette[i] = i2f(pal[i] + gr_palette_gamma);
428          c = f2i(fade_palette[i]);
429          if (c > 63) c = 63;
430          fade_colors[k].r = c * 4;
431          i++;
432
433          fade_palette[i] -= fade_palette_delta[i];
434          if (fade_palette[i] > i2f(pal[i] + gr_palette_gamma) )
435             fade_palette[i] = i2f(pal[i] + gr_palette_gamma);
436          c = f2i(fade_palette[i]);
437          if (c > 63) c = 63;
438          fade_colors[k].g = c * 4;
439          i++;
440
441          fade_palette[i] -= fade_palette_delta[i];
442          if (fade_palette[i] > i2f(pal[i] + gr_palette_gamma) )
443             fade_palette[i] = i2f(pal[i] + gr_palette_gamma);
444          c = f2i(fade_palette[i]);
445          if (c > 63) c = 63;
446          fade_colors[k].b = c * 4;
447          i++;
448      }
449
450   SDL_SetColors(screen, fade_colors, 0, 256);
451  }
452
453  gr_palette_faded_out = 1;
454  return 0;
455 }
456
457
458
459 int gr_palette_fade_in(ubyte *pal, int nsteps, int allow_keys)
460 {
461  int i, j, k, ncolors;
462  ubyte c;
463  fix fade_palette[768];
464  fix fade_palette_delta[768];
465
466  SDL_Palette *palette;
467  SDL_Color fade_colors[256];
468
469  if (!gr_palette_faded_out) return 0;
470
471 #if 1 //ifndef NDEBUG
472         if (grd_fades_disabled) {
473                 gr_palette_load(pal);
474                 return 0;
475         }
476 #endif
477
478  palette = screen->format->palette;
479
480  if (palette == NULL) {
481     return -1; // Display is not palettised
482  }
483
484  ncolors = palette->ncolors;
485
486  for (i=0; i<768; i++ ) {
487      gr_current_pal[i] = pal[i];
488      fade_palette[i] = 0;
489      fade_palette_delta[i] = i2f(pal[i]) / nsteps;
490  }
491
492  for (j=0; j<nsteps; j++ )      {
493      for (i=0, k = 0; k<256; k++ )      {
494          fade_palette[i] += fade_palette_delta[i];
495          if (fade_palette[i] > i2f(pal[i] + gr_palette_gamma) )
496             fade_palette[i] = i2f(pal[i] + gr_palette_gamma);
497          c = f2i(fade_palette[i]);
498          if (c > 63) c = 63;
499          fade_colors[k].r = c * 4;
500          i++;
501
502          fade_palette[i] += fade_palette_delta[i];
503          if (fade_palette[i] > i2f(pal[i] + gr_palette_gamma) )
504             fade_palette[i] = i2f(pal[i] + gr_palette_gamma);
505          c = f2i(fade_palette[i]);
506          if (c > 63) c = 63;
507          fade_colors[k].g = c * 4;
508          i++;
509
510          fade_palette[i] += fade_palette_delta[i];
511          if (fade_palette[i] > i2f(pal[i] + gr_palette_gamma) )
512             fade_palette[i] = i2f(pal[i] + gr_palette_gamma);
513          c = f2i(fade_palette[i]);
514          if (c > 63) c = 63;
515          fade_colors[k].b = c * 4;
516          i++;
517      }
518
519   SDL_SetColors(screen, fade_colors, 0, 256);
520  }
521  //added on 980913 by adb to fix palette problems
522  gr_palette_load(pal);
523  //end changes by adb
524
525  gr_palette_faded_out = 0;
526  return 0;
527 }
528
529
530
531 void gr_palette_read(ubyte * pal)
532 {
533  SDL_Palette *palette;
534  int i, j;
535
536  palette = screen->format->palette;
537
538  if (palette == NULL) {
539     return; // Display is not palettised
540  }
541
542  for (i = 0, j=0; i < 256; i++) {
543      pal[j++] = palette->colors[i].r / 4;
544      pal[j++] = palette->colors[i].g / 4;
545      pal[j++] = palette->colors[i].b / 4;
546  }
547 }