]> icculus.org git repositories - taylor/freespace2.git/blob - src/bmpman/bmpman.cpp
make loading screen and title screen work with emterpreter async
[taylor/freespace2.git] / src / bmpman / bmpman.cpp
1 /*
2  * Copyright (C) Volition, Inc. 1999.  All rights reserved.
3  *
4  * All source code herein is the property of Volition, Inc. You may not sell 
5  * or otherwise commercially exploit the source or things you created based on
6  * the source.
7  */
8
9 /*
10  * $Logfile: /Freespace2/code/Bmpman/BmpMan.cpp $
11  * $Revision$
12  * $Date$
13  * $Author$
14  *
15  * Code to load and manage all bitmaps for the game
16  *
17  * $Log$
18  * Revision 1.11  2004/07/04 11:31:43  taylor
19  * amd64 support, compiler warning fixes, don't use software rendering
20  *
21  * Revision 1.10  2003/05/28 06:02:04  taylor
22  * fix transparency in green weapon blobs
23  *
24  * Revision 1.9  2002/06/09 04:41:15  relnev
25  * added copyright header
26  *
27  * Revision 1.8  2002/06/05 04:03:32  relnev
28  * finished cfilesystem.
29  *
30  * removed some old code.
31  *
32  * fixed mouse save off-by-one.
33  *
34  * sound cleanups.
35  *
36  * Revision 1.7  2002/06/03 09:25:37  relnev
37  * implement mouse cursor and screen save/restore
38  *
39  * Revision 1.6  2002/05/30 23:07:08  relnev
40  * shh
41  *
42  * Revision 1.5  2002/05/30 21:44:48  relnev
43  * implemented some missing texture stuff.
44  *
45  * enable bitmap polys for opengl.
46  *
47  * work around greenness in bitmaps.
48  *
49  * Revision 1.4  2002/05/28 17:03:29  theoddone33
50  * fs2 gets to the main game loop now
51  *
52  * Revision 1.3  2002/05/28 08:52:03  relnev
53  * implemented two assembly stubs.
54  *
55  * cleaned up a few warnings.
56  *
57  * added a little demo hackery to make it progress a little farther.
58  *
59  * Revision 1.2  2002/05/07 03:16:43  theoddone33
60  * The Great Newline Fix
61  *
62  * Revision 1.1.1.1  2002/05/03 03:28:08  root
63  * Initial import.
64  *
65  * 
66  * 37    9/13/99 11:26p Andsager
67  * Add debug code to check for poorly sized anis
68  * 
69  * 36    9/05/99 11:19p Dave
70  * Made d3d texture cache much more safe. Fixed training scoring bug where
71  * it would backout scores without ever having applied them in the first
72  * place.
73  * 
74  * 35    8/20/99 2:09p Dave
75  * PXO banner cycling.
76  * 
77  * 34    8/10/99 6:54p Dave
78  * Mad optimizations. Added paging to the nebula effect.
79  * 
80  * 33    8/06/99 1:52p Dave
81  * Bumped up MAX_BITMAPS for the demo.
82  * 
83  * 32    8/02/99 1:49p Dave
84  * Fixed low-mem animation problem. Whee!
85  * 
86  * 31    7/16/99 1:49p Dave
87  * 8 bit aabitmaps. yay.
88  * 
89  * 30    7/13/99 1:15p Dave
90  * 32 bit support. Whee!
91  * 
92  * 29    6/29/99 10:35a Dave
93  * Interface polygon bitmaps! Whee!
94  * 
95  * 28    6/16/99 4:06p Dave
96  * New pilot info popup. Added new draw-bitmap-as-poly function.
97  * 
98  * 27    5/05/99 9:02p Dave
99  * Fixed D3D aabitmap rendering. Spiffed up nebula effect a bit (added
100  * rotations, tweaked values, made bitmap selection more random). Fixed
101  * D3D beam weapon clipping problem. Added D3d frame dumping.
102  * 
103  * 26    4/27/99 12:16a Dave
104  * Fixed beam weapon muzzle glow problem. Fixed premature timeout on the
105  * pxo server list screen. Fixed secondary firing for hosts on a
106  * standalone. Fixed wacky multiplayer weapon "shuddering" problem.
107  * 
108  * 25    4/09/99 2:21p Dave
109  * Multiplayer beta stuff. CD checking.
110  * 
111  * 24    4/08/99 10:42a Johnson
112  * Don't try to swizzle a texture to transparent in Fred.
113  * 
114  * 23    3/31/99 8:24p Dave
115  * Beefed up all kinds of stuff, incluging beam weapons, nebula effects
116  * and background nebulae. Added per-ship non-dimming pixel colors.
117  * 
118  * 22    3/20/99 3:46p Dave
119  * Added support for model-based background nebulae. Added 3 new
120  * sexpressions.
121  * 
122  * 21    2/11/99 3:08p Dave
123  * PXO refresh button. Very preliminary squad war support.
124  * 
125  * 20    2/08/99 5:07p Dave
126  * FS2 chat server support. FS2 specific validated missions.
127  * 
128  * 19    2/05/99 12:52p Dave
129  * Fixed Glide nondarkening textures.
130  * 
131  * 18    2/04/99 6:29p Dave
132  * First full working rev of FS2 PXO support.  Fixed Glide lighting
133  * problems.
134  * 
135  * 17    2/03/99 11:44a Dave
136  * Fixed d3d transparent textures.
137  * 
138  * 16    1/15/99 11:29a Neilk
139  * Fixed D3D screen/texture pixel formatting problem. 
140  * 
141  * 15    1/14/99 12:48a Dave
142  * Todo list bug fixes. Made a pass at putting briefing icons back into
143  * FRED. Sort of works :(
144  * 
145  * 14    1/12/99 12:53a Dave
146  * More work on beam weapons - made collision detection very efficient -
147  * collide against all object types properly - made 3 movement types
148  * smooth. Put in test code to check for possible non-darkening pixels on
149  * object textures.
150  * 
151  * 13    1/08/99 2:08p Dave
152  * Fixed software rendering for pofview. Super early support for AWACS and
153  * beam weapons.
154  * 
155  * 12    1/06/99 2:24p Dave
156  * Stubs and release build fixes.
157  * 
158  * 11    12/14/98 4:01p Dave
159  * Got multi_data stuff working well with new xfer stuff. 
160  * 
161  * 10    12/06/98 2:36p Dave
162  * Drastically improved nebula fogging.
163  * 
164  * 9     12/01/98 5:53p Dave
165  * Simplified the way pixel data is swizzled. Fixed tga bitmaps to work
166  * properly in D3D and Glide.
167  * 
168  * 8     12/01/98 4:46p Dave
169  * Put in targa bitmap support (16 bit).
170  * 
171  * 7     12/01/98 10:32a Johnson
172  * Fixed direct3d font problems. Fixed sun bitmap problem. Fixed direct3d
173  * starfield problem.
174  * 
175  * 6     12/01/98 8:06a Dave
176  * Temporary checkin to fix some texture transparency problems in d3d.
177  * 
178  * 5     11/30/98 5:31p Dave
179  * Fixed up Fred support for software mode.
180  * 
181  * 4     11/30/98 1:07p Dave
182  * 16 bit conversion, first run.
183  * 
184  * 3     10/22/98 6:14p Dave
185  * Optimized some #includes in Anim folder. Put in the beginnings of
186  * parse/localization support for externalized strings and tstrings.tbl
187  * 
188  * 2     10/07/98 10:52a Dave
189  * Initial checkin.
190  * 
191  * 1     10/07/98 10:48a Dave
192  * 
193  * 106   5/23/98 4:43p John
194  * Took out debugging sleep
195  * 
196  * 105   5/23/98 4:14p John
197  * Added code to preload textures to video card for AGP.   Added in code
198  * to page in some bitmaps that weren't getting paged in at level start.
199  * 
200  * 104   5/20/98 12:59p John
201  * Turned optimizations on for debug builds.   Also turning on automatic
202  * function inlining.  Turned off the unreachable code warning.
203  * 
204  * 103   5/20/98 10:20a Hoffoss
205  * Fixed warning in the code.
206  * 
207  * 102   5/19/98 3:45p John
208  * fixed bug causing lowmem to drop half of the frames. Also halved fps
209  * during lowmem.
210  * 
211  * 101   5/14/98 3:38p John
212  * Added in more non-darkening colors for Adam.  Had to fix some bugs in
213  * BmpMan and Ani stuff to get this to work.
214  * 
215  * 100   4/22/98 9:13p John
216  * Added code to replace frames of animations in vram if so desired.
217  * 
218  * 99    4/17/98 6:56a John
219  * Fixed bug where RLE'd user bitmaps caused data to not get freed.
220  * (Turned off RLE for use bitmaps).   Made lossy animations reduce
221  * resolution by a factor of 2 in low memory conditions.
222  * 
223  * 98    4/16/98 6:31p Hoffoss
224  * Added function to get filename of a bitmap handle, which we don't have
225  * yet and I need.
226  * 
227  * 97    4/01/98 9:27p John
228  * Fixed debug info in bmpman.
229  * 
230  * 96    4/01/98 5:34p John
231  * Made only the used POFs page in for a level.   Reduced some interp
232  * arrays.    Made custom detail level work differently.
233  * 
234  * 95    3/31/98 9:55a Lawrance
235  * JOHN: get xparency working for user bitmaps
236  * 
237  * 94    3/30/98 4:02p John
238  * Made machines with < 32 MB of RAM use every other frame of certain
239  * bitmaps.   Put in code to keep track of how much RAM we've malloc'd.
240  * 
241  * 93    3/29/98 4:05p John
242  * New paging code that loads everything necessary at level startup.
243  * 
244  * 92    3/27/98 11:20a John
245  * commented back in some debug code.
246  * 
247  * 91    3/26/98 5:21p John
248  * Added new code to preload all bitmaps at the start of a level.
249  * Commented it out, though.
250  * 
251  * 90    3/26/98 4:56p Jasen
252  * AL: Allow find_block_of() to allocate a series of bitmaps from index 0
253  * 
254  * 89    3/26/98 10:21a John
255  * Made no palette-mapped bitmaps use 0,255,0 as transparent.
256  * 
257  * 88    3/24/98 5:39p John
258  * Added debug code to show bitmap fragmentation.  Made user bitmaps
259  * allocate from top of array.
260  * 
261  * 87    3/22/98 3:28p John
262  * Added in stippled alpha for lower details.  Made medium detail use
263  * engine glow.
264  * 
265  * 86    3/11/98 1:55p John
266  * Fixed warnings
267  * 
268  * 85    3/06/98 4:09p John
269  * Changed the way we do bitmap RLE'ing... this speds up HUD bitmaps by
270  * about 2x
271  * 
272  * 84    3/02/98 6:00p John
273  * Moved MAX_BITMAPS into BmpMan.h so the stuff in the graphics code that
274  * is dependent on it won't break if it changes.   Made ModelCache slots
275  * be equal to MAX_OBJECTS which is what it is.
276  * 
277  * 83    3/02/98 9:51a John
278  * Added code to print the number of bitmap slots in use between levels.
279  * 
280  * 82    2/16/98 3:54p John
281  * Changed a bunch of mprintfs to catagorize to BmpInfo
282  * 
283  * 81    2/13/98 5:00p John
284  * Made user bitmaps not get wrote to level cache file.
285  * 
286  * 80    2/06/98 8:25p John
287  * Added code for new bitmaps since last frame
288  * 
289  * 79    2/06/98 8:10p John
290  * Added code to show amout of texture usage each frame.
291  * 
292  * 78    2/05/98 9:21p John
293  * Some new Direct3D code.   Added code to monitor a ton of stuff in the
294  * game.
295  * 
296  * 77    1/29/98 11:48a John
297  * Added new counter measure rendering as model code.   Made weapons be
298  * able to have impact explosion.
299  * 
300  * 76    1/28/98 6:19p Dave
301  * Reduced standalone memory usage ~8 megs. Put in support for handling
302  * multiplayer submenu handling for endgame, etc.
303  * 
304  * 75    1/17/98 12:55p John
305  * Fixed bug that I just created that loaded all ani frames.
306  * 
307  * 74    1/17/98 12:33p John
308  * Made the game_busy function be called a constant amount of times per
309  * level load, making the bar prediction easier.
310  * 
311  * 73    1/17/98 12:14p John
312  * Added loading... bar to freespace.
313  * 
314  * 72    1/11/98 3:20p John
315  * Made so that if no .clt exists, it will load all the bitmaps
316  * 
317  * 71    1/11/98 3:06p John
318  * Made bitmap loading stop when cache gets full.
319  * 
320  * 70    1/11/98 2:45p John
321  * Changed .lst to .clt
322  * 
323  * 69    1/11/98 2:14p John
324  * Changed a lot of stuff that had to do with bitmap loading.   Made cfile
325  * not do callbacks, I put that in global code.   Made only bitmaps that
326  * need to load for a level load.
327  * 
328  * 67    1/09/98 4:07p John
329  * Made all bitmap functions return a bitmap "Handle" not number.  This
330  * helps to find bm_release errors.
331  * 
332  * 66    1/09/98 1:38p John
333  * Fixed some bugs from previous comment
334  * 
335  * 65    1/09/98 1:32p John
336  * Added some debugging code to track down a weird error.  Namely I fill
337  * in the be structure with bogus values when someone frees it.
338  * 
339  * 64    12/28/97 2:00p John
340  * put in another assert checking for invalid lock/unlock sequencing
341  * 
342  * 63    12/24/97 2:02p John
343  * Changed palette translation to be a little faster for unoptimized
344  * builds
345  * 
346  * 62    12/18/97 8:59p Dave
347  * Finished putting in basic support for weapon select and ship select in
348  * multiplayer.
349  * 
350  * 61    12/15/97 10:27p John
351  * fixed bug where 2 bm_loads of same file both open the header.
352  * 
353  * 60    12/08/97 2:17p John
354  * fixed bug with bmpman and cf_callback.
355  * made cf_callback in Freespace set small font back when done.
356  * 
357  * 59    12/03/97 5:01p Lawrance
358  * bump up MAX_BITMAPS to 1500.  People have reached 1000 bitmaps while
359  * playing multiple missions.
360  * 
361  * 58    12/02/97 3:59p John
362  * Added first rev of thruster glow, along with variable levels of
363  * translucency, which retquired some restructing of palman.
364  * 
365  * 57    11/30/97 3:57p John
366  * Made fixed 32-bpp translucency.  Made BmpMan always map translucent
367  * color into 255 even if you aren't supposed to remap and make it's
368  * palette black.
369  * 
370  * 56    10/05/97 10:39a John
371  * fixed bug with palette on unmapped bitmaps.  Made unmapped bitmaps get
372  * marked with xparent.
373  * 
374  * 55    9/23/97 11:46a Lawrance
375  * fixed bug with rle'ing with spans get big
376  * 
377  * 54    9/23/97 10:45a John
378  * made so you can tell bitblt code to rle a bitmap by passing flag to
379  * gr_set_bitmap
380  * 
381  * 53    9/19/97 10:18a John
382  * fixed bug with aa animations being re-rle'd every 
383  * frame.
384  * 
385  * 
386  * 52    9/09/97 10:08a Sandeep
387  * Fixed Compiler Level 4 warnings
388  * 
389  * 51    9/08/97 2:02p John
390  * fixed typo in nprintf
391  * 
392  * 50    9/08/97 1:56p John
393  * fixed some memory housekeeping bugs 
394  * 
395  * 49    9/03/97 4:19p John
396  * changed bmpman to only accept ani and pcx's.  made passing .pcx or .ani
397  * to bm_load functions not needed.   Made bmpman keep track of palettes
398  * for bitmaps not mapped into game palettes.
399  * 
400  * 48    8/29/97 7:35p Lawrance
401  * check if .ani animation is already loaded in bm_load_animation()
402  * 
403  * 47    8/25/97 11:14p Lawrance
404  * added support for .ani files in bm_load_animation()
405  * 
406  * 46    8/17/97 2:42p Lawrance
407  * only flag PCX files as xparent if they have xparent pixels in them
408  * 
409  * 45    8/15/97 9:57a Lawrance
410  * support multiple xparent entries for PCX files
411  * 
412  * 44    8/05/97 10:18a Lawrance
413  * my_rand() being used temporarily instead of rand()
414  * 
415  * 43    8/01/97 4:30p John
416  * 
417  * 42    7/29/97 8:34a John
418  * took out png stuff
419  * 
420  * 41    7/18/97 3:27p Lawrance
421  * have pcx files use (0,255,0) for transparency
422  * 
423  * 40    7/16/97 3:07p John
424  * 
425  * 39    7/10/97 8:34a John
426  * Added code to read TGA files.
427  * 
428  * 38    6/20/97 1:50p John
429  * added rle code to bmpman.  made gr8_aabitmap use it.
430  * 
431  * 37    6/18/97 12:07p John
432  * fixed some color bugs
433  * 
434  * 36    6/17/97 8:58p Lawrance
435  * fixed bug with not nulling bm.data with USER bitmaps
436  * 
437  * 35    6/12/97 2:44a Lawrance
438  * changed bm_unlock() to take an index into bm_bitmaps().  Added
439  * ref_count to bitmap_entry struct
440  * 
441  * 34    5/20/97 10:36a John
442  * Fixed problem with user bitmaps and direct3d caching.
443  * 
444  * 33    5/14/97 1:59p John
445  * fixed a palette bug with vclips.
446  * 
447  * 32    3/24/97 4:43p John
448  * speed up chunked collision detection by only checking cubes the vector
449  * goes through.
450  * 
451  * 31    3/24/97 3:25p John
452  * Cleaned up and restructured model_collide code and fvi code.  In fvi
453  * made code that finds uvs work..  Added bm_get_pixel to BmpMan.
454  * 
455  * 30    3/11/97 2:49p Allender
456  * 
457  * 29    2/18/97 9:43a Lawrance
458  * added SDL_assert() in bm_release
459  * 
460  * 28    1/22/97 4:29p John
461  * maybe fixed bug with code that counts total bytes of texture ram used.
462  * 
463  * 27    1/22/97 4:19p Lawrance
464  * added flags to bm_create to allow transparency
465  * 
466  * 26    1/21/97 5:24p John
467  * fixed another bug with bm_release.
468  * 
469  * 25    1/21/97 5:12p John
470  * fixed bug with case
471  * 
472  * 24    1/21/97 5:02p John
473  * Added code for 8bpp user bitmaps.
474  * 
475  * 23    1/09/97 11:35a John
476  * Added some 2d functions to get/put screen images.
477  * 
478  * 22    11/26/96 6:50p John
479  * Added some more hicolor primitives.  Made windowed mode run as current
480  * bpp, if bpp is 8,16,or 32.
481  * 
482  * 21    11/26/96 9:44a Allender
483  * Allow for use of different bitmap palettes
484  * 
485  * 20    11/25/96 10:36a Allender
486  * started working on 32 bpp support.  Added 15 bpp.
487  * 
488  * 19    11/18/96 1:51p Allender
489  * fix up manager code to reread bitmaps if needed in newer bit depth
490  * 
491  * 18    11/15/96 4:24p Allender
492  * more bmpman stuff -- only free bitmap slots when releasing copied
493  * texture -- otherwise, only release the data for the bitmap
494  * 
495  * 17    11/15/96 3:33p Allender
496  * added support for converting to 16 bit textures when requested with
497  * bm_load.  Added some other management functions
498  * 
499  * 16    11/13/96 4:51p Allender
500  * started overhaul of bitmap manager.  bm_load no longer actually load
501  * the data, only the info for the bitmap.  Locking the bitmap now forces
502  * load when no data present (or will if bpp changes)
503  *
504  * $NoKeywords: $
505  */
506
507 #include <ctype.h>
508 #include "pstypes.h"
509 #include "pcxutils.h"
510 #include "bmpman.h"
511 #include "palman.h"
512 #include "2d.h"
513 #include "animplay.h"
514 #include "timer.h"
515 #include "systemvars.h"
516 #include "key.h"
517 #include "packunpack.h"
518 #include "cfile.h"
519 #include "grinternal.h"
520 #include "tgautils.h"
521 #include "ship.h"
522
523 #ifndef NDEBUG
524 #define BMPMAN_NDEBUG
525 #endif
526
527 // keep this defined to use per-ship nondarkening pixels
528 #define BMPMAN_SPECIAL_NONDARK
529
530 int bm_inited = 0;
531
532 #define BM_TYPE_NONE            0
533 #define BM_TYPE_PCX                     1
534 #define BM_TYPE_USER            2
535 #define BM_TYPE_ANI                     3               // in-house ANI format
536 #define BM_TYPE_TGA                     4               // 16 bit targa
537
538 typedef union bm_extra_info     {
539         struct {
540                 // Stuff needed for animations
541                 int             first_frame;                                                            // used for animations -- points to index of first frame
542                 ubyte           num_frames;                                                                     // used for animation -- number of frames in the animation
543                 ubyte           fps;                                                                                    // used for animation -- frames per second
544         } ani;
545         struct {
546                 // Stuff needed for user bitmaps
547                 void            *data;                                                                  // For user bitmaps, this is where the data comes from
548                 ubyte           bpp;                                                                    // For user bitmaps, this is what format the data is
549                 ubyte           flags;                                                                  // Flags passed to bm_create
550         } user;
551 } bm_extra_info;
552
553 typedef struct bitmap_entry     {
554         // identification
555         char            filename[MAX_FILENAME_LEN];                     // filename for this bitmap
556
557         uint            signature;                                                                      // a unique signature identifying the data
558         uint            palette_checksum;                                                       // checksum used to be sure bitmap is in current palette
559         int             handle;                                                                         // Handle = id*MAX_BITMAPS + bitmapnum
560         int             last_used;                                                                      // When this bitmap was last used
561
562         ubyte           type;                                                                                   // PCX, USER, ANI, etc
563         signed char     ref_count;                                                              // Number of locks on bitmap.  Can't unload unless ref_count is 0.
564
565         // Stuff to keep track of usage
566         ubyte           preloaded;                                                                      // If set, then this was loaded from the lst file
567         ubyte           used_flags;                                                                     // What flags it was accessed thru
568
569         // Bitmap info
570         bitmap  bm;
571
572         // Data for animations and user bitmaps
573         bm_extra_info   info;           
574
575 #ifdef BMPMAN_NDEBUG
576         // bookeeping
577         ubyte           used_last_frame;                                                        // If set, then it was used last frame
578         ubyte           used_this_frame;                                                        // If set, then it was used this frame
579         int             data_size;                                                                      // How much data this bitmap uses
580         int             used_count;                                                                     // How many times it was accessed
581 #endif
582 } bitmap_entry;
583
584 uint Bm_next_signature = 0x1234;
585
586 bitmap_entry bm_bitmaps[MAX_BITMAPS];
587
588 int bm_texture_ram = 0;
589
590 // Bm_max_ram - How much RAM bmpman can use for textures.
591 // Set to <1 to make it use all it wants.
592 int Bm_max_ram = 0;             //16*1024*1024;                 // Only use 16 MB for textures
593
594 int bm_next_handle = 1;
595
596 int Bm_paging = 0;
597
598 static int Bm_low_mem = 0;                      
599
600
601 // ===========================================
602 // Mode: 0 = High memory
603 //       1 = Low memory ( every other frame of ani's)
604 //       2 = Debug low memory ( only use first frame of each ani )
605 void bm_set_low_mem( int mode )
606 {
607         SDL_assert( (mode >= 0)  && (mode<=2 ));
608         Bm_low_mem = mode;
609 }
610
611
612 static int bm_get_next_handle()
613 {
614         int n = bm_next_handle;
615         bm_next_handle++;
616         if ( bm_next_handle > 30000 )   {
617                 bm_next_handle = 1;
618         }
619         return n;
620 }
621
622 // Frees a bitmaps data if it should, and
623 // Returns true if bitmap n can free it's data.
624 static void bm_free_data(int n)
625 {
626         bitmap_entry    *be;
627         bitmap                  *bmp;
628
629         SDL_assert( n >= 0 && n < MAX_BITMAPS );
630
631         be = &bm_bitmaps[n];
632         bmp = &be->bm;
633
634         // If there isn't a bitmap in this structure, don't
635         // do anything but clear out the bitmap info
636         if ( be->type==BM_TYPE_NONE) 
637                 goto SkipFree;
638
639         // If this bitmap doesn't have any data to free, skip
640         // the freeing it part of this.
641         if ( bmp->data == 0 ) 
642                 goto SkipFree;
643
644         // Don't free up memory for user defined bitmaps, since
645         // BmpMan isn't the one in charge of allocating/deallocing them.
646         if (be->type == BM_TYPE_USER)
647                 goto SkipFree;
648
649         // Free up the data now!
650
651         //      mprintf(( "Bitmap %d freed %d bytes\n", n, bm_bitmaps[n].data_size ));
652         #ifdef BMPMAN_NDEBUG
653                 bm_texture_ram -= be->data_size;
654         #endif
655         free((void *)bmp->data);
656
657 SkipFree:
658
659         // Clear out & reset the bitmap data structure
660         bmp->flags = 0;
661         bmp->bpp = 0;
662         bmp->data = 0;
663         bmp->palette = NULL;
664         #ifdef BMPMAN_NDEBUG
665                 be->data_size = 0;
666         #endif
667         be->signature = Bm_next_signature++; 
668 }
669
670
671 #ifdef BMPMAN_NDEBUG
672
673 int Bm_ram_freed = 0;
674
675 static void bm_free_some_ram( int n, int size )
676 {
677 /*
678         if ( Bm_max_ram < 1 ) return;
679         if ( bm_texture_ram + size < Bm_max_ram ) return;
680
681         int current_time = timer_get_milliseconds();
682
683         while( bm_texture_ram + size > Bm_max_ram )     {
684                 Bm_ram_freed++;
685
686                 // Need to free some RAM up!
687                 int i, oldest=-1, best_val=0;
688                 for (i = 0; i < MAX_BITMAPS; i++)       {
689                         if ( (bm_bitmaps[i].type != BM_TYPE_NONE) && (bm_bitmaps[i].first_frame!=bm_bitmaps[n].first_frame) && (bm_bitmaps[i].ref_count==0) && (bm_bitmaps[i].data_size>0) )    {
690                                 int page_func = ( current_time-bm_bitmaps[i].last_used)*bm_bitmaps[i].data_size;
691                                 if ( (oldest==-1) || (page_func>best_val) )     {
692                                         oldest=i;
693                                         best_val = page_func;
694                                 }
695                         }
696                 }
697
698                 if ( oldest > -1 )      {
699                         //mprintf(( "Freeing bitmap '%s'\n", bm_bitmaps[oldest].filename ));
700                         for (i=0; i<bm_bitmaps[oldest].num_frames; i++ )        {
701                                 bm_free_data(bm_bitmaps[oldest].first_frame+i);
702                         }
703                 } else {
704                         //mprintf(( "Couldn't free enough! %d\n", bm_texture_ram ));
705                         break;
706                 }
707         }       
708 */
709 }
710
711 #endif
712
713 static void *bm_malloc( int n, int size )
714 {
715         SDL_assert( n >= 0 && n < MAX_BITMAPS );
716 //      mprintf(( "Bitmap %d allocated %d bytes\n", n, size ));
717         #ifdef BMPMAN_NDEBUG
718         bm_free_some_ram( n, size );
719         SDL_assert( bm_bitmaps[n].data_size == 0 );
720         bm_bitmaps[n].data_size += size;
721         bm_texture_ram += size;
722         #endif
723         return malloc(size);
724 }
725
726 void bm_close()
727 {
728         int i;
729         if ( bm_inited )        {
730                 for (i=0; i<MAX_BITMAPS; i++ )  {
731                         bm_free_data(i);                        // clears flags, bbp, data, etc
732                 }
733                 bm_inited = 0;
734         }
735 }
736
737
738 void bm_init()
739 {
740         int i;
741
742         mprintf(( "Size of bitmap info = %d KB\n", sizeof( bm_bitmaps )/1024 ));
743         mprintf(( "Size of bitmap extra info = %d bytes\n", sizeof( bm_extra_info ) ));
744         
745         if (!bm_inited) {
746                 bm_inited = 1;
747                 atexit(bm_close);
748         }
749         
750         for (i=0; i<MAX_BITMAPS; i++ ) {
751                 bm_bitmaps[i].filename[0] = '\0';
752                 bm_bitmaps[i].type = BM_TYPE_NONE;
753                 bm_bitmaps[i].info.user.data = NULL;
754                 bm_bitmaps[i].bm.data = 0;
755                 bm_bitmaps[i].bm.palette = NULL;
756                 #ifdef BMPMAN_NDEBUG
757                         bm_bitmaps[i].data_size = 0;
758                         bm_bitmaps[i].used_count = 0;
759                         bm_bitmaps[i].used_last_frame = 0;
760                         bm_bitmaps[i].used_this_frame = 0;
761                 #endif
762                 bm_free_data(i);        // clears flags, bbp, data, etc
763         }
764
765
766 }
767
768 #ifdef BMPMAN_NDEBUG
769
770 // Returns number of bytes of bitmaps locked this frame
771 // ntotal = number of bytes of bitmaps locked this frame
772 // nnew = number of bytes of bitmaps locked this frame that weren't locked last frame
773 void bm_get_frame_usage(int *ntotal, int *nnew)
774 {
775         int i;
776         
777         *ntotal = 0;
778         *nnew = 0;
779
780         for (i=0; i<MAX_BITMAPS; i++ ) {
781                 if ( (bm_bitmaps[i].type != BM_TYPE_NONE) && (bm_bitmaps[i].used_this_frame))   {
782                         if ( !bm_bitmaps[i].used_last_frame )   {
783                                 *nnew += bm_bitmaps[i].bm.w*bm_bitmaps[i].bm.h; 
784                         }
785                         *ntotal += bm_bitmaps[i].bm.w*bm_bitmaps[i].bm.h;
786                 }
787                 bm_bitmaps[i].used_last_frame = bm_bitmaps[i].used_this_frame;
788                 bm_bitmaps[i].used_this_frame = 0;
789         }
790
791 }
792 #else
793 void bm_get_frame_usage(int *ntotal, int *nnew)
794 {
795 }
796 #endif
797
798 // given a loaded bitmap with valid info, calculate sections
799 void bm_calc_sections(bitmap *be)
800 {
801         int idx;
802
803         if (gr_screen.use_sections) {
804                 // number of x and y sections
805                 be->sections.num_x = (ubyte)(be->w / MAX_BMAP_SECTION_SIZE);
806                 if((be->sections.num_x * MAX_BMAP_SECTION_SIZE) < be->w){
807                         be->sections.num_x++;
808                 }
809                 be->sections.num_y = (ubyte)(be->h / MAX_BMAP_SECTION_SIZE);
810                 if((be->sections.num_y * MAX_BMAP_SECTION_SIZE) < be->h){
811                         be->sections.num_y++;
812                 }
813
814                 // calculate the offsets for each section
815                 for(idx=0; idx<be->sections.num_x; idx++){
816                         be->sections.sx[idx] = (ushort)(MAX_BMAP_SECTION_SIZE * idx);
817                 }
818                 for(idx=0; idx<be->sections.num_y; idx++){
819                         be->sections.sy[idx] = (ushort)(MAX_BMAP_SECTION_SIZE * idx);
820                 }
821         } else {
822                 be->sections.num_x = 1;
823                 be->sections.num_y = 1;
824
825                 be->sections.sx[0] = 0;
826                 be->sections.sy[0] = 0;
827         }
828 }
829
830 // Creates a bitmap that exists in RAM somewhere, instead
831 // of coming from a disk file.  You pass in a pointer to a
832 // block of 32 (or 8)-bit-per-pixel data.  Right now, the only
833 // bpp you can pass in is 32 or 8.  On success, it returns the
834 // bitmap number.  You cannot free that RAM until bm_release
835 // is called on that bitmap.
836 int bm_create( int bpp, int w, int h, void *data, int flags )
837 {
838         int i, n, first_slot = MAX_BITMAPS;
839
840         if (data == NULL) {
841                 Int3();
842                 return -1;
843         }
844
845         // SDL_assert((bpp==32)||(bpp==8));
846         if(bpp != 16){
847                 SDL_assert(flags & BMP_AABITMAP);
848         } else {
849                 SDL_assert(bpp == 16);
850         }
851
852         if ( !bm_inited ) bm_init();
853
854         for (i = MAX_BITMAPS-1; i >= 0; i-- ) {
855                 if ( bm_bitmaps[i].type == BM_TYPE_NONE )       {
856                         first_slot = i;
857                         break;
858                 }
859         }
860
861         n = first_slot;
862         SDL_assert( n > -1 );
863
864         // Out of bitmap slots
865         if ( n == -1 ) return -1;
866
867         memset( &bm_bitmaps[n], 0, sizeof(bitmap_entry) );
868
869         SDL_snprintf( bm_bitmaps[n].filename, MAX_FILENAME_LEN, "TMP%dx%d", w, h );
870         bm_bitmaps[n].type = BM_TYPE_USER;
871         bm_bitmaps[n].palette_checksum = 0;
872
873         bm_bitmaps[n].bm.w = short(w);
874         bm_bitmaps[n].bm.h = short(h);
875         bm_bitmaps[n].bm.rowsize = short(w);
876         bm_bitmaps[n].bm.bpp = (unsigned char)(bpp);
877         bm_bitmaps[n].bm.flags = 0;
878         bm_bitmaps[n].bm.flags |= flags;
879         bm_bitmaps[n].bm.data = 0;
880         bm_bitmaps[n].bm.palette = NULL;
881
882         bm_bitmaps[n].info.user.bpp = ubyte(bpp);
883         bm_bitmaps[n].info.user.data = data;
884         bm_bitmaps[n].info.user.flags = ubyte(flags);
885
886         bm_bitmaps[n].signature = Bm_next_signature++;
887
888         bm_bitmaps[n].handle = bm_get_next_handle()*MAX_BITMAPS + n;
889         bm_bitmaps[n].last_used = -1;
890
891         // fill in section info
892         bm_calc_sections(&bm_bitmaps[n].bm);
893         
894         return bm_bitmaps[n].handle;
895 }
896
897 // sub helper function. Given a raw filename and an extension, try and find the bitmap
898 // returns -1 if it could not be found
899 //          0 if it was found as a file
900 //          1 if it already exists, fills in handle
901 int Bm_ignore_duplicates = 0;
902 int bm_load_sub(const char *real_filename, const char *ext, int *handle)
903 {       
904         int i;
905         char filename[MAX_FILENAME_LEN] = "";
906         
907         SDL_strlcpy( filename, real_filename, SDL_arraysize(filename) );
908         SDL_strlcat( filename, ext, SDL_arraysize(filename) );
909         for (i=0; i<(int)strlen(filename); i++ ){
910                 filename[i] = char(tolower(filename[i]));
911         }               
912
913         // try to find given filename to see if it has been loaded before
914         if(!Bm_ignore_duplicates){
915                 for (i = 0; i < MAX_BITMAPS; i++) {
916                         if ( (bm_bitmaps[i].type != BM_TYPE_NONE) && !SDL_strcasecmp(filename, bm_bitmaps[i].filename) ) {
917                                 nprintf (("BmpMan", "Found bitmap %s -- number %d\n", filename, i));
918                                 *handle = bm_bitmaps[i].handle;
919                                 return 1;
920                         }
921                 }       
922         }
923
924         // try and find the file
925         /*
926         CFILE *test = cfopen(filename, "rb");
927         if(test != NULL){
928                 cfclose(test);
929                 return 0;
930         }
931         */
932
933         // could not be found
934         return 0;
935 }
936
937 // This loads a bitmap so we can draw with it later.
938 // It returns a negative number if it couldn't load
939 // the bitmap.   On success, it returns the bitmap
940 // number.  Function doesn't acutally load the data, only
941 // width, height, and possibly flags.
942 int bm_load( const char * real_filename )
943 {
944         int i, n, first_slot = MAX_BITMAPS;
945         int w, h, bpp;
946         char filename[MAX_FILENAME_LEN];
947         int tga = 0;
948         int handle;
949         int found = 0;
950
951         if ( !bm_inited ) bm_init();
952
953         // nice little trick for keeping standalone memory usage way low - always return a bogus bitmap 
954         if(Game_mode & GM_STANDALONE_SERVER){
955                 SDL_strlcpy(filename,"test128", SDL_arraysize(filename));
956         }
957
958         // make sure no one passed an extension
959         SDL_strlcpy( filename, real_filename, SDL_arraysize(filename) );
960         char *p = SDL_strchr( filename, '.' );
961         if ( p ) {
962                 mprintf(( "Someone passed an extension to bm_load for file '%s'\n", real_filename ));
963                 //Int3();
964                 *p = 0;
965         }
966          
967         // try and find the pcx file            
968         switch(bm_load_sub(filename, ".pcx", &handle)){
969         // error
970         case -1:
971                 break;
972
973         // found as a file
974         case 0:
975                 found = 1;
976                 SDL_strlcat(filename, ".pcx", SDL_arraysize(filename));
977                 break;
978
979         // found as pre-existing
980         case 1:
981                 return handle;          
982         }
983
984         if(!found){
985                 // try and find the tga file
986                 switch(bm_load_sub(filename, ".tga", &handle)){
987                 // error
988                 case -1:                        
989                         return -1;
990                         break;
991
992                 // found as a file
993                 case 0:                 
994                         SDL_strlcat(filename, ".tga", SDL_arraysize(filename));
995                         tga = 1;
996                         break;
997
998                 // found as pre-existing
999                 case 1:                                         
1000                         return handle;                                  
1001                 }
1002         }
1003
1004         // if its a tga file
1005         if(tga){
1006                 int tga_error=targa_read_header( filename, &w, &h, &bpp, NULL );
1007                 if ( tga_error != TARGA_ERROR_NONE )    {
1008                         mprintf(( "Couldn't open '%s'\n", filename ));
1009                         return -1;
1010                 }
1011         }
1012         // if its a pcx file
1013         else {
1014                 int pcx_error=pcx_read_header( filename, &w, &h, NULL );                
1015                 if ( pcx_error != PCX_ERROR_NONE )      {
1016                         mprintf(( "Couldn't open '%s'\n", filename ));
1017                         return -1;
1018                 }
1019         }
1020
1021         // Error( LOCATION, "Unknown bitmap type %s\n", filename );
1022                 
1023         // Find an open slot
1024         for (i = 0; i < MAX_BITMAPS; i++) {
1025                 if ( (bm_bitmaps[i].type == BM_TYPE_NONE) && (first_slot == MAX_BITMAPS) ){
1026                         first_slot = i;
1027                 }
1028         }
1029
1030         n = first_slot;
1031         SDL_assert( n < MAX_BITMAPS );  
1032
1033         if ( n == MAX_BITMAPS ) return -1;      
1034
1035         // ensure fields are cleared out from previous bitmap
1036 //      SDL_assert(bm_bitmaps[n].bm.data == 0);
1037 //      SDL_assert(bm_bitmaps[n].bm.palette == NULL);
1038 //      SDL_assert(bm_bitmaps[n].ref_count == 0 );
1039 //      SDL_assert(bm_bitmaps[n].user_data == NULL);
1040         memset( &bm_bitmaps[n], 0, sizeof(bitmap_entry) );
1041         
1042         // Mark the slot as filled, because cf_read might load a new bitmap
1043         // into this slot.
1044         bm_bitmaps[n].type = tga ? (ubyte)BM_TYPE_TGA : (ubyte)BM_TYPE_PCX;
1045         bm_bitmaps[n].signature = Bm_next_signature++;
1046         SDL_assert ( strlen(filename) < MAX_FILENAME_LEN );
1047         SDL_strlcpy(bm_bitmaps[n].filename, filename, MAX_FILENAME_LEN );
1048         bm_bitmaps[n].bm.w = short(w);
1049         bm_bitmaps[n].bm.rowsize = short(w);
1050         bm_bitmaps[n].bm.h = short(h);
1051         bm_bitmaps[n].bm.bpp = 0;
1052         bm_bitmaps[n].bm.flags = 0;
1053         bm_bitmaps[n].bm.data = 0;
1054         bm_bitmaps[n].bm.palette = NULL;
1055
1056         bm_bitmaps[n].palette_checksum = 0;
1057         bm_bitmaps[n].handle = bm_get_next_handle()*MAX_BITMAPS + n;
1058         bm_bitmaps[n].last_used = -1;
1059
1060         // fill in section info
1061         bm_calc_sections(&bm_bitmaps[n].bm);
1062
1063         return bm_bitmaps[n].handle;
1064 }
1065
1066 // special load function. basically allows you to load a bitmap which already exists (by filename). 
1067 // this is useful because in some cases we need to have a bitmap which is locked in screen format
1068 // _and_ texture format, such as pilot pics and squad logos
1069 int bm_load_duplicate(const char *filename)
1070 {
1071         int ret;
1072
1073         // ignore duplicates
1074         Bm_ignore_duplicates = 1;
1075         
1076         // load
1077         ret = bm_load(filename);
1078
1079         // back to normal
1080         Bm_ignore_duplicates = 0;
1081
1082         return ret;
1083 }
1084
1085 DCF(bm_frag,"Shows BmpMan fragmentation")
1086 {
1087         if ( Dc_command )       {
1088
1089                 gr_clear();
1090
1091                 int x=0, y=0;
1092                 int xs=2, ys=2;
1093                 int w=4, h=4;
1094
1095                 for (int i=0; i<MAX_BITMAPS; i++ )      {
1096                         switch( bm_bitmaps[i].type )    {
1097                         case BM_TYPE_NONE:
1098                                 gr_set_color(128,128,128);
1099                                 break;
1100                         case BM_TYPE_PCX:
1101                                 gr_set_color(255,0,0);
1102                                 break;
1103                         case BM_TYPE_USER:
1104                                 gr_set_color(0,255,0);
1105                                 break;
1106                         case BM_TYPE_ANI:
1107                                 gr_set_color(0,0,255);
1108                                 break;
1109                         }
1110
1111                         gr_rect( x+xs, y+ys, w, h );
1112                         x += w+xs+xs;
1113                         if ( x > 639 )  {
1114                                 x = 0;
1115                                 y += h + ys + ys;
1116                         }
1117
1118                 }
1119
1120                 gr_flip();
1121                 key_getch();
1122         }
1123 }
1124
1125 static int find_block_of(int n)
1126 {
1127         int i, cnt, nstart;
1128
1129         cnt=0;
1130         nstart = 0;
1131         for (i=0; i<MAX_BITMAPS; i++ )  {
1132                 if ( bm_bitmaps[i].type == BM_TYPE_NONE )       {
1133                         if (cnt==0) nstart = i;
1134                         cnt++;
1135                 } else
1136                         cnt=0;
1137                 if ( cnt == n ) return nstart;
1138         }
1139
1140         // Error( LOCATION, "Couldn't find block of %d frames\n", n );
1141         return -1;
1142 }
1143
1144 // ------------------------------------------------------------------
1145 // bm_load_animation()
1146 //
1147 //      input:          filename                =>              filename of animation
1148 //                                      nframes         =>              OUTPUT parameter:       number of frames in the animation
1149 //                                      fps                     =>              OUTPUT/OPTIONAL parameter: intended fps for the animation
1150 //
1151 // returns:             bitmap number of first frame in the animation
1152 //
1153 int bm_load_animation( const char *real_filename, int *nframes, int *fps, int can_drop_frames)
1154 {
1155         int     i, n;
1156         anim    the_anim;
1157         CFILE   *fp;
1158         char filename[MAX_FILENAME_LEN];
1159
1160         if ( !bm_inited ) bm_init();
1161
1162         SDL_strlcpy( filename, real_filename, SDL_arraysize(filename) );
1163         char *p = SDL_strchr( filename, '.' );
1164         if ( p ) {
1165                 mprintf(( "Someone passed an extension to bm_load_animation for file '%s'\n", real_filename ));
1166                 //Int3();
1167                 *p = 0;
1168         }
1169         SDL_strlcat( filename, ".ani", SDL_arraysize(filename) );
1170
1171         if ( (fp = cfopen(filename, "rb")) == NULL ) {
1172 //              Error(LOCATION,"Could not open filename %s in bm_load_ani()\n", filename);
1173                 return -1;
1174         }
1175
1176         int reduced = 0;
1177 #ifndef NDEBUG
1178         // for debug of ANI sizes
1179         SDL_strlcpy(the_anim.name, real_filename, SDL_arraysize(the_anim.name));
1180 #endif
1181         anim_read_header(&the_anim, fp);
1182         if ( can_drop_frames )  {
1183                 if ( Bm_low_mem == 1 )  {
1184                         reduced = 1;
1185                         the_anim.total_frames = ( the_anim.total_frames+1)/2;
1186                 } else if ( Bm_low_mem == 2 )   {
1187                         the_anim.total_frames = 1;      
1188                 }
1189         }
1190         cfclose(fp);
1191
1192         *nframes = the_anim.total_frames;
1193         if ( fps != NULL )      {
1194                 if ( reduced )  {
1195                         *fps = the_anim.fps / 2;
1196                 } else {
1197                         *fps = the_anim.fps;
1198                 }
1199         }
1200
1201         // first check to see if this ani already has it's frames loaded
1202         for (i = 0; i < MAX_BITMAPS; i++) {
1203                 if ( (bm_bitmaps[i].type == BM_TYPE_ANI) && !SDL_strcasecmp(filename, bm_bitmaps[i].filename) ) {
1204                         break;
1205                 }
1206         }
1207         
1208         if ( i < MAX_BITMAPS ) {
1209                 // in low memory modes this can happen
1210                 if(!Bm_low_mem){
1211                         SDL_assert(bm_bitmaps[i].info.ani.num_frames == *nframes);
1212                 }
1213                 return bm_bitmaps[i].handle;
1214         }
1215
1216         n = find_block_of(*nframes);
1217         if(n < 0){
1218                 return -1;
1219         }
1220         // SDL_assert( n >= 0 );
1221
1222         int first_handle = bm_get_next_handle();
1223
1224         SDL_assert ( strlen(filename) < MAX_FILENAME_LEN );
1225         for ( i = 0; i < *nframes; i++ ) {
1226                 memset( &bm_bitmaps[n+i], 0, sizeof(bitmap_entry) );
1227                 bm_bitmaps[n+i].info.ani.first_frame = n;
1228                 bm_bitmaps[n+i].info.ani.num_frames = ubyte(the_anim.total_frames);
1229                 bm_bitmaps[n+i].info.ani.fps = ubyte(the_anim.fps);
1230                 bm_bitmaps[n+i].bm.w = short(the_anim.width);
1231                 bm_bitmaps[n+i].bm.rowsize = short(the_anim.width);
1232                 bm_bitmaps[n+i].bm.h = short(the_anim.height);
1233                 if ( reduced )  {
1234                         bm_bitmaps[n+i].bm.w /= 2;
1235                         bm_bitmaps[n+i].bm.rowsize /= 2;
1236                         bm_bitmaps[n+i].bm.h /= 2;
1237                 }
1238                 bm_bitmaps[n+i].bm.flags = 0;
1239                 bm_bitmaps[n+i].bm.bpp = 0;
1240                 bm_bitmaps[n+i].bm.data = 0;
1241                 bm_bitmaps[n+i].bm.palette = NULL;
1242                 bm_bitmaps[n+i].type = BM_TYPE_ANI;
1243                 bm_bitmaps[n+i].palette_checksum = 0;
1244                 bm_bitmaps[n+i].signature = Bm_next_signature++;
1245                 bm_bitmaps[n+i].handle = first_handle*MAX_BITMAPS + n+i;
1246                 bm_bitmaps[n+i].last_used = -1;
1247
1248                 // fill in section info
1249                 bm_calc_sections(&bm_bitmaps[n+i].bm);
1250
1251                 if ( i == 0 )   {
1252                         SDL_snprintf( bm_bitmaps[n+i].filename, MAX_FILENAME_LEN, "%s", filename );
1253                 } else {
1254                         SDL_snprintf( bm_bitmaps[n+i].filename, MAX_FILENAME_LEN, "%s[%d]", filename, i );
1255                 }
1256         }
1257
1258         return bm_bitmaps[n].handle;
1259 }
1260
1261 // Gets info.   w,h,or flags,nframes or fps can be NULL if you don't care.
1262 void bm_get_info( int handle, int *w, int * h, ubyte * flags, int *nframes, int *fps, bitmap_section_info **sections )
1263 {
1264         bitmap * bmp;
1265
1266         if ( !bm_inited ) return;
1267
1268         int bitmapnum = handle % MAX_BITMAPS;
1269         SDL_assert( bm_bitmaps[bitmapnum].handle == handle );           // INVALID BITMAP HANDLE!       
1270         
1271         if ( (bm_bitmaps[bitmapnum].type == BM_TYPE_NONE) || (bm_bitmaps[bitmapnum].handle != handle) ) {
1272                 if (w) *w = 0;
1273                 if (h) *h = 0;
1274                 if (flags) *flags = 0;
1275                 if (nframes) *nframes=0;
1276                 if (fps) *fps=0;
1277                 if (sections != NULL) *sections = NULL;
1278                 return;
1279         }
1280
1281         bmp = &(bm_bitmaps[bitmapnum].bm);
1282
1283         if (w) *w = bmp->w;
1284         if (h) *h = bmp->h;
1285         if (flags) *flags = bmp->flags;
1286         if ( bm_bitmaps[bitmapnum].type == BM_TYPE_ANI )        {
1287                 if (nframes) {
1288                         *nframes = bm_bitmaps[bitmapnum].info.ani.num_frames;
1289                 } 
1290                 if (fps) {
1291                         *fps= bm_bitmaps[bitmapnum].info.ani.fps;
1292                 }
1293         } else {
1294                 if (nframes) {
1295                         *nframes = 1;
1296                 } 
1297                 if (fps) {
1298                         *fps= 0;
1299                 }
1300         }
1301         if(sections != NULL){
1302                 *sections = &bm_bitmaps[bitmapnum].bm.sections;
1303         }
1304 }
1305
1306 uint bm_get_signature( int handle )
1307 {
1308         if ( !bm_inited ) bm_init();
1309
1310         int bitmapnum = handle % MAX_BITMAPS;
1311         SDL_assert( bm_bitmaps[bitmapnum].handle == handle );           // INVALID BITMAP HANDLE
1312
1313         return bm_bitmaps[bitmapnum].signature;
1314 }
1315
1316 extern int palman_is_nondarkening(int r,int g, int b);
1317 static void bm_convert_format( int bitmapnum, bitmap *bmp, ubyte bpp, ubyte flags )
1318 {       
1319         int idx;        
1320
1321         if (Is_standalone) {
1322                 SDL_assert(bmp->bpp == 8);
1323
1324                 return;
1325         } else {
1326                 if(flags & BMP_AABITMAP){
1327                         SDL_assert(bmp->bpp == 8);
1328                 } else {
1329                         SDL_assert(bmp->bpp == 16);
1330                 }
1331         }
1332
1333         // maybe swizzle to be an xparent texture
1334         if(!(bmp->flags & BMP_TEX_XPARENT) && (flags & BMP_TEX_XPARENT)){
1335                 for(idx=0; idx<bmp->w*bmp->h; idx++){                   
1336                         
1337                         // if the pixel is transparent
1338                         if ( ((ushort*)bmp->data)[idx] == Gr_t_green.mask)      {
1339                                 ((ushort*)bmp->data)[idx] = 0;
1340                         }
1341                 }
1342
1343                 bmp->flags |= BMP_TEX_XPARENT;
1344         }       
1345 }
1346
1347 // basically, map the bitmap into the current palette. used to be done for all pcx's, now just for
1348 // Fred, since its the only thing that uses the software tmapper
1349 void bm_swizzle_8bit_for_fred(bitmap_entry *be, bitmap *bmp, ubyte *data, ubyte *palette)
1350 {               
1351         int i;
1352         int r, g, b;
1353         ubyte palxlat[256];
1354
1355         for (i=0; i<256; i++ ) {
1356                 r = palette[i*3];
1357                 g = palette[i*3+1];
1358                 b = palette[i*3+2];
1359                 if ( g == 255 && r == 0 && b == 0 ) {
1360                         palxlat[i] = 255;
1361                 } else {                        
1362                         palxlat[i] = (ubyte)(palette_find( r, g, b ));                  
1363                 }
1364         }               
1365         for (i=0; i<bmp->w * bmp->h; i++ ) {            
1366                 ubyte c = palxlat[data[i]];                     
1367                 data[i] = c;            
1368         }                       
1369         be->palette_checksum = gr_palette_checksum;     
1370 }
1371
1372 void bm_lock_pcx( int handle, int bitmapnum, bitmap_entry *be, bitmap *bmp, ubyte bpp, ubyte flags )
1373 {       
1374         ubyte *data, *palette;
1375         ubyte pal[768];
1376         palette = NULL;
1377
1378         // Unload any existing data
1379         bm_free_data( bitmapnum );      
1380
1381         // allocate bitmap data
1382         if(bpp == 8){
1383                 // SDL_assert(Fred_running || Pofview_running || Is_standalone);                
1384                         data = (ubyte *)bm_malloc(bitmapnum, bmp->w * bmp->h );
1385                 #ifdef BMPMAN_NDEBUG
1386                         SDL_assert( be->data_size == bmp->w * bmp->h );
1387                 #endif
1388                 palette = pal;
1389                 bmp->data = (ptr_u)data;
1390                 bmp->bpp = 8;
1391                 bmp->palette = gr_palette;
1392                 memset( data, 0, bmp->w * bmp->h);
1393         } else {
1394                 data = (ubyte*)bm_malloc(bitmapnum, bmp->w * bmp->h * 2);       
1395                 bmp->bpp = 16;
1396                 bmp->data = (ptr_u)data;
1397                 bmp->palette = NULL;
1398                 memset( data, 0, bmp->w * bmp->h * 2);
1399         }       
1400
1401         SDL_assert( &be->bm == bmp );
1402         #ifdef BMPMAN_NDEBUG
1403                 SDL_assert( be->data_size > 0 );
1404         #endif
1405
1406         // some sanity checks on flags
1407         SDL_assert(!((flags & BMP_AABITMAP) && (flags & BMP_TEX_ANY)));                                         // no aabitmap textures
1408
1409         if(bpp == 8){
1410                 int pcx_error=pcx_read_bitmap_8bpp( be->filename, data, palette );
1411                 if ( pcx_error != PCX_ERROR_NONE )      {
1412                         // Error( LOCATION, "Couldn't open '%s'\n", be->filename );
1413                         //Error( LOCATION, "Couldn't open '%s'\n", filename );
1414                         //return -1;
1415                 }
1416         } else {        
1417                 int pcx_error;
1418
1419                 // load types
1420                 if(flags & BMP_AABITMAP){
1421                         pcx_error = pcx_read_bitmap_16bpp_aabitmap( be->filename, data );
1422                 } else {
1423                         pcx_error = pcx_read_bitmap_16bpp( be->filename, data );
1424                 }
1425                 if ( pcx_error != PCX_ERROR_NONE )      {
1426                         // Error( LOCATION, "Couldn't open '%s'\n", be->filename );
1427                         //Error( LOCATION, "Couldn't open '%s'\n", filename );
1428                         //return -1;
1429                 }
1430         }
1431
1432         #ifdef BMPMAN_NDEBUG
1433         SDL_assert( be->data_size > 0 );
1434         #endif          
1435         
1436         bmp->flags = 0; 
1437         bm_convert_format( bitmapnum, bmp, bpp, flags );
1438 }
1439
1440 void bm_lock_ani( int handle, int bitmapnum, bitmap_entry *be, bitmap *bmp, ubyte bpp, ubyte flags )
1441 {       
1442         anim                            *the_anim;
1443         anim_instance   *the_anim_instance;
1444         bitmap                  *bm;
1445         ubyte                           *frame_data;
1446         int                             size, i;
1447         int                             first_frame, nframes;   
1448
1449         first_frame = be->info.ani.first_frame;
1450         nframes = bm_bitmaps[first_frame].info.ani.num_frames;
1451
1452
1453         the_anim = anim_load(bm_bitmaps[first_frame].filename);
1454         SDL_assert_release(the_anim);   // should never have gotten this far
1455
1456         the_anim_instance = init_anim_instance(the_anim, bpp);
1457         SDL_assert_release(the_anim);   // should never have gotten this far
1458
1459         int can_drop_frames = 0;
1460
1461         if ( the_anim->total_frames != bm_bitmaps[first_frame].info.ani.num_frames )    {
1462                 can_drop_frames = 1;
1463         }
1464         bm = &bm_bitmaps[first_frame].bm;
1465         if(bpp == 16){
1466                 size = bm->w * bm->h * 2;
1467         } else {
1468                 size = bm->w * bm->h;
1469         }
1470                 
1471         for ( i=0; i<nframes; i++ )     {
1472                 bm = &bm_bitmaps[first_frame+i].bm;
1473
1474                 // Unload any existing data
1475                 bm_free_data( first_frame+i );
1476
1477                 bm->flags = 0;
1478                 // briefing editor in Fred2 uses aabitmaps (ani's) - force to 8 bit
1479                 if(Fred_running || Is_standalone){
1480                         bm->bpp = 8;
1481                 } else {
1482                         bm->bpp = bpp;
1483                 }
1484
1485                 frame_data = anim_get_next_raw_buffer(the_anim_instance, 0 ,flags & BMP_AABITMAP ? 1 : 0, bm->bpp);
1486
1487                 if (frame_data == NULL) {
1488                         Int3();
1489                         break;
1490                         // Error(LOCATION,"Fatal error locking .ani file: %s\n", be->filename);
1491                 }
1492
1493                 bm->data = (ptr_u)bm_malloc(first_frame + i, size);
1494
1495
1496                 ubyte *dptr, *sptr;
1497
1498                 sptr = frame_data;
1499                 dptr = (ubyte *)bm->data;
1500
1501                 if ( (bm->w!=the_anim->width) || (bm->h!=the_anim->height) )    {
1502                         // Scale it down
1503                         // Int3();                      // not ready yet - should only be ingame
1504         
1505                         // 8 bit
1506                         if(bpp == 8){
1507                                 int w,h;
1508                                 fix u, utmp, v, du, dv;
1509
1510                                 u = v = 0;
1511
1512                                 du = ( the_anim->width*F1_0 ) / bm->w;
1513                                 dv = ( the_anim->height*F1_0 ) / bm->h;
1514                                                                                                 
1515                                 for (h = 0; h < bm->h; h++) {
1516                                         ubyte *drow = &dptr[bm->w * h];
1517                                         ubyte *srow = &sptr[f2i(v)*the_anim->width];
1518
1519                                         utmp = u;
1520
1521                                         for (w = 0; w < bm->w; w++) {
1522                                                 *drow++ = srow[f2i(utmp)];
1523                                                 utmp += du;
1524                                         }
1525                                         v += dv;
1526                                 }                       
1527                         }
1528                         // 16 bpp
1529                         else {
1530                                 int w,h;
1531                                 fix u, utmp, v, du, dv;
1532
1533                                 u = v = 0;
1534
1535                                 du = ( the_anim->width*F1_0 ) / bm->w;
1536                                 dv = ( the_anim->height*F1_0 ) / bm->h;
1537                                                                                                 
1538                                 for (h = 0; h < bm->h; h++) {
1539                                         ushort *drow = &((ushort*)dptr)[bm->w * h];
1540                                         ushort *srow = &((ushort*)sptr)[f2i(v)*the_anim->width];
1541
1542                                         utmp = u;
1543
1544                                         for (w = 0; w < bm->w; w++) {
1545                                                 *drow++ = srow[f2i(utmp)];
1546                                                 utmp += du;
1547                                         }
1548                                         v += dv;
1549                                 }                       
1550                         }                       
1551                 } else {
1552                         // 1-to-1 mapping
1553                         memcpy(dptr, sptr, size);
1554                 }               
1555
1556                 bm_convert_format( first_frame+i, bm, bpp, flags );
1557
1558                 // Skip a frame
1559                 if ( (i < nframes-1)  && can_drop_frames )      {
1560                         anim_get_next_raw_buffer(the_anim_instance, 0, flags & BMP_AABITMAP ? 1 : 0, bm->bpp);
1561                 }
1562
1563                 //mprintf(( "Checksum = %d\n", be->palette_checksum ));
1564         }
1565
1566         free_anim_instance(the_anim_instance);
1567         anim_free(the_anim);
1568 }
1569
1570
1571 void bm_lock_user( int handle, int bitmapnum, bitmap_entry *be, bitmap *bmp, ubyte bpp, ubyte flags )
1572 {
1573         // int idx;     
1574         // ushort bit_16;
1575
1576         // Unload any existing data
1577         bm_free_data( bitmapnum );      
1578
1579         switch( be->info.user.bpp )     {
1580         case 16:                        // user 16 bit bitmap
1581                 bmp->bpp = bpp;
1582                 bmp->flags = be->info.user.flags;               
1583                 bmp->data = (ptr_u)be->info.user.data;                                                          
1584                 break;  
1585         
1586         case 8:                 // Going from 8 bpp to something (probably only for aabitmaps)
1587                 /*
1588                 SDL_assert(flags & BMP_AABITMAP);
1589                 bmp->bpp = 16;
1590                 bmp->data = (uint)malloc(bmp->w * bmp->h * 2);
1591                 bmp->flags = be->info.user.flags;
1592                 bmp->palette = NULL;
1593
1594                 // go through and map the pixels
1595                 for(idx=0; idx<bmp->w * bmp->h; idx++){                 
1596                         bit_16 = (ushort)((ubyte*)be->info.user.data)[idx];                     
1597                         SDL_assert(bit_16 <= 255);
1598
1599                         // stuff the final result
1600                         memcpy((char*)bmp->data + (idx * 2), &bit_16, sizeof(ushort));
1601                 }
1602                 */              
1603                 SDL_assert(flags & BMP_AABITMAP);
1604                 bmp->bpp = bpp;
1605                 bmp->flags = be->info.user.flags;               
1606                 bmp->data = (ptr_u)be->info.user.data;                                                          
1607                 break;
1608                 
1609         // default:
1610                 // Error( LOCATION, "Unhandled user bitmap conversion from %d to %d bpp", be->info.user.bpp, bmp->bpp );
1611         }
1612
1613         bm_convert_format( bitmapnum, bmp, bpp, flags );
1614 }
1615
1616 void bm_lock_tga( int handle, int bitmapnum, bitmap_entry *be, bitmap *bmp, ubyte bpp, ubyte flags )
1617 {
1618         ubyte *data;    
1619
1620         // Unload any existing data
1621         bm_free_data( bitmapnum );      
1622
1623         if(Fred_running || Is_standalone){
1624                 SDL_assert(bpp == 8);
1625         } else {
1626                 SDL_assert(bpp == 16);
1627         }
1628
1629         // should never try to make an aabitmap out of a targa
1630         SDL_assert(!(flags & BMP_AABITMAP));
1631
1632         // allocate bitmap data 
1633         if(bpp == 16){
1634                 data = (ubyte*)bm_malloc(bitmapnum, bmp->w * bmp->h * 2);       
1635         } else {
1636                 data = (ubyte*)bm_malloc(bitmapnum, bmp->w * bmp->h);   
1637         }
1638         bmp->bpp = bpp;
1639         bmp->data = (ptr_u)data;
1640         bmp->palette = NULL;
1641         if(bpp == 16){
1642                 memset( data, 0, bmp->w * bmp->h * 2);  
1643         } else {
1644                 memset( data, 0, bmp->w * bmp->h );     
1645         }
1646
1647         SDL_assert( &be->bm == bmp );
1648         #ifdef BMPMAN_NDEBUG
1649         SDL_assert( be->data_size > 0 );
1650         #endif
1651         
1652         int tga_error=targa_read_bitmap( be->filename, data, NULL, (bpp == 16) ? 2 : 1);
1653         if ( tga_error != TARGA_ERROR_NONE )    {
1654                 // Error( LOCATION, "Couldn't open '%s'\n", be->filename );
1655                 //Error( LOCATION, "Couldn't open '%s'\n", filename );
1656                 //return -1;
1657         }
1658
1659         #ifdef BMPMAN_NDEBUG
1660         SDL_assert( be->data_size > 0 );
1661         #endif          
1662         
1663         bmp->flags = 0; 
1664         bm_convert_format( bitmapnum, bmp, bpp, flags );
1665 }
1666
1667 MONITOR( NumBitmapPage );
1668 MONITOR( SizeBitmapPage );
1669
1670 // This locks down a bitmap and returns a pointer to a bitmap
1671 // that can be accessed until you call bm_unlock.   Only lock
1672 // a bitmap when you need it!  This will convert it into the 
1673 // appropriate format also.
1674 bitmap * bm_lock( int handle, ubyte bpp, ubyte flags )
1675 {
1676         bitmap                  *bmp;
1677         bitmap_entry    *be;
1678
1679
1680         if ( !bm_inited ) bm_init();
1681
1682         int bitmapnum = handle % MAX_BITMAPS;
1683         SDL_assert( bm_bitmaps[bitmapnum].handle == handle );           // INVALID BITMAP HANDLE
1684
1685 //      flags &= (~BMP_RLE);
1686
1687         // if we're on a standalone server, aways for it to lock to 8 bits
1688         if(Is_standalone){
1689                 bpp = 8;
1690                 flags = 0;
1691         } 
1692         // otherwise do it as normal
1693         else {
1694                 if (flags & BMP_AABITMAP) {
1695                         SDL_assert( bpp == 8 );
1696                 } else {
1697                         SDL_assert( bpp == 16 );
1698                 }
1699         }
1700
1701         be = &bm_bitmaps[bitmapnum];
1702         bmp = &be->bm;
1703
1704         // If you hit this assert, chances are that someone freed the
1705         // wrong bitmap and now someone is trying to use that bitmap.
1706         // See John.
1707         SDL_assert( be->type != BM_TYPE_NONE );         
1708
1709         // Increment ref count for bitmap since lock was made on it.
1710         SDL_assert(be->ref_count >= 0);
1711         be->ref_count++;                                        // Lock it before we page in data; this prevents a callback from freeing this
1712                                                                                         // as it gets read in
1713
1714         // Mark this bitmap as used this frame
1715         #ifdef BMPMAN_NDEBUG
1716         if ( be->used_this_frame < 255 )        {
1717                 be->used_this_frame++;
1718         }
1719         #endif
1720
1721         // if bitmap hasn't been loaded yet, then load it from disk
1722         // reread the bitmap from disk under certain conditions
1723         int pal_changed = 0;
1724         int rle_changed = 0;
1725         int fake_xparent_changed = 0;   
1726         if ( (bmp->data == 0) || (bpp != bmp->bpp) || pal_changed || rle_changed || fake_xparent_changed ) {
1727                 SDL_assert(be->ref_count == 1);
1728
1729                 if ( be->type != BM_TYPE_USER ) {
1730                         if ( bmp->data == 0 ) {
1731                                 nprintf (("BmpMan","Loading %s for the first time.\n", be->filename));
1732                         } else if ( bpp != bmp->bpp ) {
1733                                 nprintf (("BmpMan","Reloading %s from bitdepth %d to bitdepth %d\n", be->filename, bmp->bpp, bpp));
1734                         } else if ( pal_changed ) {
1735                                 nprintf (("BmpMan","Reloading %s to remap palette\n", be->filename));
1736                         } else if ( rle_changed )       {
1737                                 nprintf (("BmpMan","Reloading %s to change RLE.\n", be->filename));
1738                         } else if ( fake_xparent_changed )      {
1739                                 nprintf (("BmpMan","Reloading %s to change fake xparency.\n", be->filename));
1740                         }
1741                 }
1742
1743                 MONITOR_INC( NumBitmapPage, 1 );
1744                 MONITOR_INC( SizeBitmapPage, bmp->w*bmp->h );
1745
1746                 if ( !Bm_paging )       {
1747                         if ( be->type != BM_TYPE_USER ) {
1748                                 nprintf(( "Paging", "Loading %s (%dx%dx%dx--)\n", be->filename, bmp->w, bmp->h, bpp ));
1749                         }
1750                 }
1751
1752                 // select proper format
1753                 if(flags & BMP_AABITMAP){
1754                         BM_SELECT_ALPHA_TEX_FORMAT();
1755                 } else if(flags & BMP_TEX_ANY){
1756                         BM_SELECT_TEX_FORMAT();                                 
1757                 } else {
1758                         BM_SELECT_SCREEN_FORMAT();
1759                 }
1760
1761                 switch ( be->type ) {
1762                 case BM_TYPE_PCX:
1763                         bm_lock_pcx( handle, bitmapnum, be, bmp, bpp, flags );
1764                         break;
1765
1766                 case BM_TYPE_ANI: 
1767                         bm_lock_ani( handle, bitmapnum, be, bmp, bpp, flags );
1768                         break;
1769
1770                 case BM_TYPE_USER:      
1771                         bm_lock_user( handle, bitmapnum, be, bmp, bpp, flags );
1772                         break;
1773
1774                 case BM_TYPE_TGA:
1775                         bm_lock_tga( handle, bitmapnum, be, bmp, bpp, flags );
1776                         break;
1777
1778                 default:
1779                         Warning(LOCATION, "Unsupported type in bm_lock -- %d\n", be->type );
1780                         return NULL;
1781                 }               
1782
1783                 // always go back to screen format
1784                 BM_SELECT_SCREEN_FORMAT();
1785         }
1786
1787         if ( be->type == BM_TYPE_ANI ) {
1788                 int i,first = bm_bitmaps[bitmapnum].info.ani.first_frame;
1789
1790                 for ( i=0; i< bm_bitmaps[first].info.ani.num_frames; i++ )      {
1791                         // Mark all the bitmaps in this bitmap or animation as recently used
1792                         bm_bitmaps[first+i].last_used = timer_get_milliseconds();
1793
1794                         // Mark all the bitmaps in this bitmap or animation as used for the usage tracker.
1795                         #ifdef BMPMAN_NDEBUG
1796                                 bm_bitmaps[first+i].used_count++;
1797                         #endif
1798                         bm_bitmaps[first+i].used_flags = flags;
1799                 }
1800         } else {
1801                 // Mark all the bitmaps in this bitmap or animation as recently used
1802                 be->last_used = timer_get_milliseconds();
1803
1804                 // Mark all the bitmaps in this bitmap or animation as used for the usage tracker.
1805                 #ifdef BMPMAN_NDEBUG
1806                         be->used_count++;
1807                 #endif
1808                 be->used_flags = flags;
1809         }
1810
1811         return bmp;
1812 }
1813
1814 // Unlocks a bitmap
1815 //
1816 // Decrements the ref_count member of the bitmap_entry struct.  A bitmap can only be unloaded
1817 // when the ref_count is 0.
1818 //
1819 void bm_unlock( int handle )
1820 {
1821         bitmap_entry    *be;
1822
1823         int bitmapnum = handle % MAX_BITMAPS;
1824         SDL_assert( bm_bitmaps[bitmapnum].handle == handle );   // INVALID BITMAP HANDLE
1825
1826         SDL_assert(bitmapnum >= 0 && bitmapnum < MAX_BITMAPS);
1827         if ( !bm_inited ) bm_init();
1828
1829         be = &bm_bitmaps[bitmapnum];
1830
1831         be->ref_count--;
1832         SDL_assert(be->ref_count >= 0);         // Trying to unlock data more times than lock was called!!!
1833
1834 }
1835
1836
1837 void bm_update()
1838 {
1839 }
1840
1841 char *bm_get_filename(int handle)
1842 {
1843         int n;
1844
1845         n = handle % MAX_BITMAPS;
1846         SDL_assert(bm_bitmaps[n].handle == handle);             // INVALID BITMAP HANDLE
1847         return bm_bitmaps[n].filename;
1848 }
1849
1850 void bm_get_palette(int handle, ubyte *pal, char *name, const int name_len)
1851 {
1852         char *filename;
1853         int w,h;
1854
1855         int n= handle % MAX_BITMAPS;
1856         SDL_assert( bm_bitmaps[n].handle == handle );           // INVALID BITMAP HANDLE
1857
1858         filename = bm_bitmaps[n].filename;
1859
1860         if (name)       {
1861                 SDL_strlcpy( name, filename, name_len );
1862         }
1863
1864         int pcx_error=pcx_read_header( filename, &w, &h, pal );
1865         if ( pcx_error != PCX_ERROR_NONE ){
1866                 // Error(LOCATION, "Couldn't open '%s'\n", filename );
1867         }
1868 }
1869
1870 // --------------------------------------------------------------------------------------
1871 // bm_release()  - unloads the bitmap's data and entire slot, so bitmap 'n' won't be valid anymore
1872 //
1873 // parameters:          n               =>              index into bm_bitmaps ( index returned from bm_load() or bm_create() )
1874 //
1875 // returns:                     nothing
1876
1877 void bm_release(int handle)
1878 {
1879         bitmap_entry    *be;
1880
1881         int n = handle % MAX_BITMAPS;
1882
1883         SDL_assert(n >= 0 && n < MAX_BITMAPS);
1884         be = &bm_bitmaps[n];
1885
1886         if ( bm_bitmaps[n].type == BM_TYPE_NONE ) {
1887                 return; // Already been released?
1888         }
1889
1890         if ( bm_bitmaps[n].type != BM_TYPE_USER )       {
1891                 return;
1892         }
1893
1894         SDL_assert( be->handle == handle );             // INVALID BITMAP HANDLE
1895
1896         // If it is locked, cannot free it.
1897         if (be->ref_count != 0) {
1898                 nprintf(("BmpMan", "tried to unload %s that has a lock count of %d.. not unloading\n", be->filename, be->ref_count));
1899                 return;
1900         }
1901
1902         // free texture, if we should
1903         if (gr_screen.gf_release_texture) {
1904                 gr_release_texture(handle);
1905         }
1906
1907         bm_free_data(n);
1908
1909         if ( bm_bitmaps[n].type == BM_TYPE_USER )       {
1910                 bm_bitmaps[n].info.user.data = NULL;
1911                 bm_bitmaps[n].info.user.bpp = 0;
1912         }
1913
1914
1915         bm_bitmaps[n].type = BM_TYPE_NONE;
1916
1917         // Fill in bogus structures!
1918
1919         // For debugging:
1920         SDL_strlcpy( bm_bitmaps[n].filename, "IVE_BEEN_RELEASED!", SDL_arraysize(bm_bitmaps[0].filename) );
1921         bm_bitmaps[n].signature = 0xDEADBEEF;                                                                   // a unique signature identifying the data
1922         bm_bitmaps[n].palette_checksum = 0xDEADBEEF;                                                    // checksum used to be sure bitmap is in current palette
1923
1924         // bookeeping
1925         #ifdef BMPMAN_NDEBUG
1926         bm_bitmaps[n].data_size = -1;                                                                   // How much data this bitmap uses
1927         #endif
1928         bm_bitmaps[n].ref_count = -1;                                                                   // Number of locks on bitmap.  Can't unload unless ref_count is 0.
1929
1930         // Bitmap info
1931         bm_bitmaps[n].bm.w = bm_bitmaps[n].bm.h = -1;
1932         
1933         // Stuff needed for animations
1934         // Stuff needed for user bitmaps
1935         memset( &bm_bitmaps[n].info, 0, sizeof(bm_extra_info) );
1936
1937         bm_bitmaps[n].handle = -1;
1938 }
1939
1940
1941
1942
1943
1944
1945 // --------------------------------------------------------------------------------------
1946 // bm_unload()  - unloads the data, but not the bitmap info.
1947 //
1948 // parameters:          n               =>              index into bm_bitmaps ( index returned from bm_load() or bm_create() )
1949 //
1950 // returns:                     0               =>              unload failed
1951 //                                              1               =>              unload successful
1952 //
1953 int bm_unload( int handle )
1954 {
1955         bitmap_entry    *be;
1956
1957         int n = handle % MAX_BITMAPS;
1958
1959         SDL_assert(n >= 0 && n < MAX_BITMAPS);
1960         be = &bm_bitmaps[n];
1961
1962         if ( be->type == BM_TYPE_NONE ) {
1963                 return 0;               // Already been released
1964         }
1965
1966         SDL_assert( be->handle == handle );             // INVALID BITMAP HANDLE!
1967
1968         // If it is locked, cannot free it.
1969         if (be->ref_count != 0) {
1970                 nprintf(("BmpMan", "tried to unload %s that has a lock count of %d.. not unloading\n", be->filename, be->ref_count));
1971                 return 0;
1972         }
1973
1974         nprintf(("BmpMan", "unloading %s.  %dx%dx%d\n", be->filename, be->bm.w, be->bm.h, be->bm.bpp));
1975         bm_free_data(n);                // clears flags, bbp, data, etc
1976
1977         return 1;
1978 }
1979
1980
1981 // unload all used bitmaps
1982 void bm_unload_all()
1983 {
1984         int i;
1985
1986         for (i = 0; i < MAX_BITMAPS; i++)       {
1987                 if ( bm_bitmaps[i].type != BM_TYPE_NONE )       {
1988                         bm_unload(bm_bitmaps[i].handle);
1989                 }
1990         }
1991 }
1992
1993
1994 DCF(bmpman,"Shows/changes bitmap caching parameters and usage")
1995 {
1996         if ( Dc_command )       {
1997                 dc_get_arg(ARG_STRING);
1998                 if ( !strcmp( Dc_arg, "flush" ))        {
1999                         dc_printf( "Total RAM usage before flush: %d bytes\n", bm_texture_ram );
2000                         int i;
2001                         for (i = 0; i < MAX_BITMAPS; i++)       {
2002                                 if ( bm_bitmaps[i].type != BM_TYPE_NONE )       {
2003                                         bm_free_data(i);
2004                                 }
2005                         }
2006                         dc_printf( "Total RAM after flush: %d bytes\n", bm_texture_ram );
2007                 } else if ( !strcmp( Dc_arg, "ram" ))   {
2008                         dc_get_arg(ARG_INT);
2009                         Bm_max_ram = Dc_arg_int*1024*1024;
2010                 } else {
2011                         // print usage, not stats
2012                         Dc_help = 1;
2013                 }
2014         }
2015
2016         if ( Dc_help )  {
2017                 dc_printf( "Usage: BmpMan keyword\nWhere keyword can be in the following forms:\n" );
2018                 dc_printf( "BmpMan flush    Unloads all bitmaps.\n" );
2019                 dc_printf( "BmpMan ram x    Sets max mem usage to x MB. (Set to 0 to have no limit.)\n" );
2020                 dc_printf( "\nUse '? BmpMan' to see status of Bitmap manager.\n" );
2021                 Dc_status = 0;  // don't print status if help is printed.  Too messy.
2022         }
2023
2024         if ( Dc_status )        {
2025                 dc_printf( "Total RAM usage: %d bytes\n", bm_texture_ram );
2026
2027
2028                 if ( Bm_max_ram > 1024*1024 )
2029                         dc_printf( "Max RAM allowed: %.1f MB\n", i2fl(Bm_max_ram)/(1024.0f*1024.0f) );
2030                 else if ( Bm_max_ram > 1024 )
2031                         dc_printf( "Max RAM allowed: %.1f KB\n", i2fl(Bm_max_ram)/(1024.0f) );
2032                 else if ( Bm_max_ram > 0 )
2033                         dc_printf( "Max RAM allowed: %d bytes\n", Bm_max_ram );
2034                 else
2035                         dc_printf( "No RAM limit\n" );
2036
2037
2038         }
2039 }
2040
2041 // Marks a texture as being used for this level
2042 void bm_page_in_texture( int bitmapnum, int nframes )
2043 {
2044         int i;
2045
2046         if (bitmapnum < 0) {
2047                 return;
2048         }
2049
2050         for (i=0; i<nframes;i++ )       {
2051                 int n = bitmapnum % MAX_BITMAPS;
2052
2053                 bm_bitmaps[n+i].preloaded = 1;
2054
2055                 bm_bitmaps[n+i].used_flags = BMP_TEX_OTHER;
2056         }
2057 }
2058
2059 // marks a texture as being a transparent textyre used for this level
2060 // Marks a texture as being used for this level
2061 // If num_frames is passed, assume this is an animation
2062 void bm_page_in_xparent_texture( int bitmapnum, int nframes)
2063 {
2064         int i;
2065
2066         if (bitmapnum < 0) {
2067                 return;
2068         }
2069
2070         for (i=0; i<nframes;i++ )       {
2071                 int n = bitmapnum % MAX_BITMAPS;
2072
2073                 bm_bitmaps[n+i].preloaded = 3;
2074
2075                 // bm_bitmaps[n+i].used_flags = BMP_NO_PALETTE_MAP;
2076                 bm_bitmaps[n+i].used_flags = BMP_TEX_XPARENT;
2077         }
2078 }
2079
2080 // Marks an aabitmap as being used for this level
2081 void bm_page_in_aabitmap( int bitmapnum, int nframes )
2082 {
2083         int i;
2084
2085         if (bitmapnum < 0) {
2086                 return;
2087         }
2088
2089         for (i=0; i<nframes;i++ )       {
2090                 int n = bitmapnum % MAX_BITMAPS;
2091
2092                 bm_bitmaps[n+i].preloaded = 2;
2093
2094                 bm_bitmaps[n+i].used_flags = BMP_AABITMAP;
2095         }
2096 }
2097
2098
2099
2100 // Tell the bitmap manager to start keeping track of what bitmaps are used where.
2101 void bm_page_in_start()
2102 {
2103         int i;
2104
2105         Bm_paging = 1;
2106
2107         // Mark all as inited
2108         for (i = 0; i < MAX_BITMAPS; i++)       {
2109                 if ( bm_bitmaps[i].type != BM_TYPE_NONE )       {
2110                         bm_unload(bm_bitmaps[i].handle);
2111                 }
2112                 bm_bitmaps[i].preloaded = 0;
2113                 #ifdef BMPMAN_NDEBUG
2114                         bm_bitmaps[i].used_count = 0;
2115                 #endif
2116                 bm_bitmaps[i].used_flags = 0;
2117         }
2118
2119 }
2120
2121 extern "C"
2122 void bm_page_in_stop()
2123 {       
2124         int i;  
2125         int ship_info_index;
2126
2127         nprintf(( "BmpInfo","BMPMAN: Loading all used bitmaps.\n" ));
2128
2129         // Load all the ones that are supposed to be loaded for this level.
2130         int n = 0;
2131
2132         #ifdef BMPMAN_NDEBUG
2133         Bm_ram_freed = 0;
2134         #endif
2135
2136         int d3d_preloading = 1;
2137
2138         gr_preload_init();
2139
2140         for (i = 0; i < MAX_BITMAPS; i++)       {
2141                 if ( bm_bitmaps[i].type != BM_TYPE_NONE )       {
2142                         if ( bm_bitmaps[i].preloaded )  {
2143 #ifdef BMPMAN_SPECIAL_NONDARK
2144                                 // if this is a texture, check to see if a ship uses it
2145                                 ship_info_index = ship_get_texture(bm_bitmaps[i].handle);
2146                                 // use the colors from this ship
2147                                 if((ship_info_index >= 0) && (Ship_info[ship_info_index].num_nondark_colors > 0)){
2148                                         // mprintf(("Using custom pixels for %s\n", Ship_info[ship_info_index].name));
2149                                         palman_set_nondarkening(Ship_info[ship_info_index].nondark_colors, Ship_info[ship_info_index].num_nondark_colors);
2150                                 }
2151                                 // use the colors from the default table
2152                                 else {
2153                                         // mprintf(("Using default pixels\n"));
2154                                         palman_set_nondarkening(Palman_non_darkening_default, Palman_num_nondarkening_default);
2155                                 }
2156 #endif
2157
2158                                 // if preloaded == 3, load it as an xparent texture                             
2159                                 if(bm_bitmaps[i].used_flags == BMP_AABITMAP){
2160                                         bm_lock( bm_bitmaps[i].handle, 8, bm_bitmaps[i].used_flags );
2161                                 } else {
2162                                         bm_lock( bm_bitmaps[i].handle, 16, bm_bitmaps[i].used_flags );
2163                                 }
2164                                 bm_unlock( bm_bitmaps[i].handle );
2165
2166                                 if ( d3d_preloading )   {
2167                                         if ( !gr_preload(bm_bitmaps[i].handle, (bm_bitmaps[i].preloaded==2) ) ) {
2168                                                 mprintf(( "Out of VRAM.  Done preloading.\n" ));
2169                                                 d3d_preloading = 0;
2170                                         }
2171                                 }
2172                                 
2173                                 n++;
2174                                 #ifdef BMPMAN_NDEBUG
2175                                 if ( Bm_ram_freed )     {
2176                                         nprintf(( "BmpInfo","BMPMAN: Not enough cache memory to load all level bitmaps\n" ));
2177                                         break;
2178                                 }
2179                                 #endif
2180                         } 
2181                 }
2182                 game_busy();
2183         }
2184         nprintf(( "BmpInfo","BMPMAN: Loaded %d bitmaps that are marked as used for this level.\n", n ));
2185
2186         int total_bitmaps = 0;
2187         for (i = 0; i < MAX_BITMAPS; i++)       {
2188                 if ( bm_bitmaps[i].type != BM_TYPE_NONE )       {
2189                         total_bitmaps++;
2190                 }
2191                 if ( bm_bitmaps[i].type == BM_TYPE_USER )       {
2192                         mprintf(( "User bitmap '%s'\n", bm_bitmaps[i].filename ));
2193                 }
2194         }       
2195
2196         mprintf(( "Bmpman: %d/%d bitmap slots in use.\n", total_bitmaps, MAX_BITMAPS ));
2197         //mprintf(( "Bmpman: Usage went from %d KB to %d KB.\n", usage_before/1024, usage_after/1024 ));
2198
2199         Bm_paging = 0;
2200 }
2201
2202 int bm_get_cache_slot( int bitmap_id, int separate_ani_frames )
2203 {
2204         int n = bitmap_id % MAX_BITMAPS;
2205
2206         SDL_assert( bm_bitmaps[n].handle == bitmap_id );                // INVALID BITMAP HANDLE
2207
2208         bitmap_entry    *be = &bm_bitmaps[n];
2209
2210         if ( (!separate_ani_frames) && (be->type == BM_TYPE_ANI) )      {
2211                 return be->info.ani.first_frame;
2212         } 
2213
2214         return n;
2215
2216 }
2217
2218 // convert a 24 bit value to a 16 bit value
2219 void bm_24_to_16(int bit_24, ushort *bit_16)
2220 {
2221         ubyte *pixel = (ubyte*)&bit_24;
2222         ubyte alpha = 1;
2223
2224         bm_set_components((ubyte*)bit_16, (ubyte*)&pixel[0], (ubyte*)&pixel[1], (ubyte*)&pixel[2], &alpha);     
2225 }
2226
2227 void (*bm_set_components)(ubyte *pixel, ubyte *r, ubyte *g, ubyte *b, ubyte *a) = NULL;
2228
2229 void bm_set_components_argb_16_screen(ubyte *pixel, ubyte *rv, ubyte *gv, ubyte *bv, ubyte *av)
2230 {
2231         *((ushort*)pixel) |= (ushort)(( (int)*rv / Gr_current_red->scale ) << Gr_current_red->shift);
2232         *((ushort*)pixel) |= (ushort)(( (int)*gv / Gr_current_green->scale ) << Gr_current_green->shift);
2233         *((ushort*)pixel) |= (ushort)(( (int)*bv / Gr_current_blue->scale ) << Gr_current_blue->shift);
2234         if(*av == 0){                           
2235                 *((ushort*)pixel) = (ushort)Gr_current_green->mask;
2236         }                       
2237 }
2238
2239 void bm_set_components_argb_32_screen(ubyte *pixel, ubyte *rv, ubyte *gv, ubyte *bv, ubyte *av)
2240 {
2241         *((uint*)pixel) |= (uint)(( (int)*rv / Gr_current_red->scale ) << Gr_current_red->shift);
2242         *((uint*)pixel) |= (uint)(( (int)*gv / Gr_current_green->scale ) << Gr_current_green->shift);
2243         *((uint*)pixel) |= (uint)(( (int)*bv / Gr_current_blue->scale ) << Gr_current_blue->shift);
2244         if(*av == 0){                           
2245                 *((uint*)pixel) = (uint)Gr_current_green->mask;         
2246         }
2247 }
2248
2249 void bm_set_components_argb_16_tex(ubyte *pixel, ubyte *rv, ubyte *gv, ubyte *bv, ubyte *av)
2250 {
2251         *((ushort*)pixel) |= (ushort)(( (int)*rv / Gr_current_red->scale ) << Gr_current_red->shift);
2252         *((ushort*)pixel) |= (ushort)(( (int)*gv / Gr_current_green->scale ) << Gr_current_green->shift);
2253         *((ushort*)pixel) |= (ushort)(( (int)*bv / Gr_current_blue->scale ) << Gr_current_blue->shift);
2254         *((ushort*)pixel) &= ~(Gr_current_alpha->mask);
2255         if(*av){
2256                 *((ushort*)pixel) |= (ushort)(Gr_current_alpha->mask);
2257         } else {
2258                 *((ushort*)pixel) = 0;
2259         }
2260 }
2261
2262 void bm_set_components_argb_32_tex(ubyte *pixel, ubyte *rv, ubyte *gv, ubyte *bv, ubyte *av)
2263 {
2264         *((ushort*)pixel) |= (ushort)(( (int)*rv / Gr_current_red->scale ) << Gr_current_red->shift);
2265         *((ushort*)pixel) |= (ushort)(( (int)*gv / Gr_current_green->scale ) << Gr_current_green->shift);
2266         *((ushort*)pixel) |= (ushort)(( (int)*bv / Gr_current_blue->scale ) << Gr_current_blue->shift);
2267         *((ushort*)pixel) &= ~(Gr_current_alpha->mask);
2268         if(*av){
2269                 *((ushort*)pixel) |= (ushort)(Gr_current_alpha->mask);
2270         } else {
2271                 *((ushort*)pixel) = 0;
2272         }
2273 }
2274
2275 // for selecting pixel formats
2276 void BM_SELECT_SCREEN_FORMAT()
2277 {
2278         Gr_current_red = &Gr_red;
2279         Gr_current_green = &Gr_green;
2280         Gr_current_blue = &Gr_blue;
2281         Gr_current_alpha = &Gr_alpha;
2282
2283         // setup pointers
2284         if ( gr_is_32bit() ) {
2285                 bm_set_components = bm_set_components_argb_32_screen;
2286         } else {
2287                 bm_set_components = bm_set_components_argb_16_screen;
2288         }
2289 }
2290
2291 void BM_SELECT_TEX_FORMAT()
2292 {
2293         Gr_current_red = &Gr_t_red; 
2294         Gr_current_green = &Gr_t_green; 
2295         Gr_current_blue = &Gr_t_blue; 
2296         Gr_current_alpha = &Gr_t_alpha;
2297
2298         // setup pointers
2299         if ( gr_is_32bit() ) {
2300                 bm_set_components = bm_set_components_argb_32_tex;
2301         } else {
2302                 bm_set_components = bm_set_components_argb_16_tex;
2303         }
2304 }
2305
2306 void BM_SELECT_ALPHA_TEX_FORMAT()
2307 {
2308         Gr_current_red = &Gr_ta_red; 
2309         Gr_current_green = &Gr_ta_green; 
2310         Gr_current_blue = &Gr_ta_blue; 
2311         Gr_current_alpha = &Gr_ta_alpha;
2312
2313         // setup pointers
2314         if ( gr_is_32bit() ) {
2315                 bm_set_components = bm_set_components_argb_32_tex;
2316         } else {
2317                 bm_set_components = bm_set_components_argb_16_tex;
2318         }
2319 }
2320
2321 // set the rgba components of a pixel, any of the parameters can be -1
2322 /*
2323 void bm_set_components(ubyte *pixel, ubyte *rv, ubyte *gv, ubyte *bv, ubyte *av)
2324 {
2325         int bit_32 = 0;
2326
2327         // pick a byte size - 32 bits only if 32 bit mode d3d and screen format
2328         if(D3D_32bit && (Gr_current_red == &Gr_red)){
2329                 bit_32 = 1;
2330         }       
2331         
2332         if(bit_32){
2333                 *((uint*)pixel) |= (uint)(( (int)*rv / Gr_current_red->scale ) << Gr_current_red->shift);
2334         } else {
2335                 *((ushort*)pixel) |= (ushort)(( (int)*rv / Gr_current_red->scale ) << Gr_current_red->shift);
2336         }               
2337         if(bit_32){
2338                 *((uint*)pixel) |= (uint)(( (int)*gv / Gr_current_green->scale ) << Gr_current_green->shift);
2339         } else {
2340                 *((ushort*)pixel) |= (ushort)(( (int)*gv / Gr_current_green->scale ) << Gr_current_green->shift);
2341         }               
2342         if(bit_32){
2343                 *((uint*)pixel) |= (uint)(( (int)*bv / Gr_current_blue->scale ) << Gr_current_blue->shift);
2344         } else {
2345                 *((ushort*)pixel) |= (ushort)(( (int)*bv / Gr_current_blue->scale ) << Gr_current_blue->shift);
2346         }
2347         
2348         // NOTE - this is a semi-hack. For direct3d we don't use an alpha bit, so if *av == 0, we just set the whole pixel to be Gr_green.mask
2349         //        ergo, we need to do this _last_
2350         switch(Bm_pixel_format){
2351         // glide has an alpha channel so we have to unset ir or set it each time
2352         case BM_PIXEL_FORMAT_ARGB:
2353                 SDL_assert(!bit_32);
2354                 *((ushort*)pixel) &= ~(0x8000);
2355                 if(*av){
2356                         *((ushort*)pixel) |= 0x8000;
2357                 }
2358                 break;
2359         
2360         // this d3d format has no alpha channel, so only make it "transparent", never make it "non-transparent"
2361         case BM_PIXEL_FORMAT_D3D:                       
2362                 SDL_assert(!bit_32);
2363                 if(*av == 0){ 
2364                         *((ushort*)pixel) = (ushort)Gr_current_green->mask;
2365                 }
2366                 break;
2367
2368         // nice 1555 texture format
2369         case BM_PIXEL_FORMAT_ARGB_D3D:                                          
2370                 // if we're writing to normal texture format
2371                 if(Gr_current_red == &Gr_t_red){                                        
2372                         SDL_assert(!bit_32);
2373                         *((ushort*)pixel) &= ~(Gr_current_alpha->mask);
2374                         if(*av){
2375                                 *((ushort*)pixel) |= (ushort)(Gr_current_alpha->mask);
2376                         } else {
2377                                 *((ushort*)pixel) = 0;
2378                         }
2379                 }
2380                 // otherwise if we're writing to screen format, still do it the green mask way
2381                 else {                  
2382                         if(*av == 0){
2383                                 if(bit_32){
2384                                         *((uint*)pixel) = (uint)Gr_current_green->mask;
2385                                 } else {
2386                                         *((ushort*)pixel) = (ushort)Gr_current_green->mask;
2387                                 }
2388                         }
2389                 }                       
2390                 break;
2391         }       
2392 }
2393 */
2394
2395 // get the rgba components of a pixel, any of the parameters can be NULL
2396 void bm_get_components(ubyte *pixel, ubyte *r, ubyte *g, ubyte *b, ubyte *a)
2397 {
2398         int bit_32 = 0;
2399
2400         // pick a byte size - 32 bits only if 32 bit mode d3d and screen format
2401         if ( gr_is_32bit() && (Gr_current_red == &Gr_red) ) {
2402                 bit_32 = 1;
2403         }
2404
2405         if(r != NULL){
2406                 if(bit_32){
2407                         *r = ubyte(( (*((uint*)pixel) & Gr_current_red->mask)>>Gr_current_red->shift)*Gr_current_red->scale);
2408                 } else {
2409                         *r = ubyte(( ( ((ushort*)pixel)[0] & Gr_current_red->mask)>>Gr_current_red->shift)*Gr_current_red->scale);
2410                 }
2411         }
2412         if(g != NULL){
2413                 if(bit_32){
2414                         *g = ubyte(( (*((uint*)pixel) & Gr_current_green->mask) >>Gr_current_green->shift)*Gr_current_green->scale);
2415                 } else {
2416                         *g = ubyte(( ( ((ushort*)pixel)[0] & Gr_current_green->mask) >>Gr_current_green->shift)*Gr_current_green->scale);
2417                 }
2418         }
2419         if(b != NULL){
2420                 if(bit_32){
2421                         *b = ubyte(( (*((uint*)pixel) & Gr_current_blue->mask)>>Gr_current_blue->shift)*Gr_current_blue->scale);
2422                 } else {
2423                         *b = ubyte(( ( ((ushort*)pixel)[0] & Gr_current_blue->mask)>>Gr_current_blue->shift)*Gr_current_blue->scale);
2424                 }
2425         }
2426
2427         // get the alpha value
2428         if(a != NULL){          
2429                 *a = 1;
2430
2431                 // if we're writing to a normal texture, use nice alpha bits
2432                 if(Gr_current_red == &Gr_t_red){
2433                         SDL_assert(!bit_32);
2434
2435                         if(!(*((ushort*)pixel) & Gr_current_alpha->mask)){
2436                                 *a = 0;
2437                         }
2438                 }
2439                 // otherwise do it as normal
2440                 else {
2441                         if(bit_32){
2442                                 if(*((int*)pixel) == Gr_current_green->mask){
2443                                         *a = 0;
2444                                 }
2445                         } else {
2446                                 if(*((ushort*)pixel) == Gr_current_green->mask){
2447                                         *a = 0;
2448                                 }
2449                         }
2450                 }
2451         }
2452 }
2453
2454 // get filename
2455 void bm_get_filename(int bitmapnum, char *filename, const int max_len)
2456 {
2457         int n = bitmapnum % MAX_BITMAPS;
2458
2459         // return filename
2460         SDL_strlcpy(filename, bm_bitmaps[n].filename, max_len);
2461 }
2462
2463 // given a bitmap and a section, return the size (w, h)
2464 void bm_get_section_size(int bitmapnum, int sx, int sy, int *w, int *h)
2465 {
2466         int bw = 0, bh = 0;
2467         bitmap_section_info *sections = NULL;
2468
2469         // bogus input?
2470         SDL_assert((w != NULL) && (h != NULL));
2471         if((w == NULL) || (h == NULL)){
2472                 return;
2473         }
2474
2475         // get bitmap info
2476         bm_get_info(bitmapnum, &bw, &bh, NULL, NULL, NULL, &sections);
2477
2478         // determine the width and height of this section
2479         if ( gr_screen.use_sections && (sections != NULL) ) {
2480                 *w = sx < (sections->num_x - 1) ? MAX_BMAP_SECTION_SIZE : bw - sections->sx[sx];
2481                 *h = sy < (sections->num_y - 1) ? MAX_BMAP_SECTION_SIZE : bh - sections->sy[sy];
2482         } else {
2483                 *w = bw;
2484                 *h = bh;
2485         }
2486 }
2487