2 * Copyright (C) Volition, Inc. 1999. All rights reserved.
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
12 #include "gropengl1.h"
13 #include "gropenglinternal.h"
15 #include "grinternal.h"
16 #include "systemvars.h"
17 #include "osregistry.h"
22 typedef struct tcache_slot_opengl {
23 GLuint texture_handle;
24 float u_scale, v_scale;
32 tcache_slot_opengl *data_sections[MAX_BMAP_SECTIONS_X][MAX_BMAP_SECTIONS_Y];
33 tcache_slot_opengl *parent;
35 gr_texture_source texture_mode;
38 static void *Texture_sections = NULL;
39 static tcache_slot_opengl *Textures = NULL;
41 static tcache_slot_opengl *GL_bound_texture;
43 static int GL_frame_count = 0;
44 static int GL_textures_in_frame = 0;
45 static int GL_last_bitmap_id = -1;
46 static int GL_last_detail = -1;
47 static int GL_last_bitmap_type = -1;
48 static int GL_last_section_x = -1;
49 static int GL_last_section_y = -1;
50 static int GL_should_preload = 0;
52 int GL_textures_in = 0;
54 static gr_texture_source GL_current_texture_source = (gr_texture_source) -1;
56 static ubyte GL_xlat[256] = { 0 };
58 extern int bm_get_cache_slot( int bitmap_id, int separate_ani_frames );
61 void opengl1_set_texture_state(gr_texture_source ts)
63 if (ts == TEXTURE_SOURCE_NONE) {
64 GL_bound_texture = NULL;
66 glBindTexture(GL_TEXTURE_2D, 0);
67 opengl1_tcache_set(-1, -1, NULL, NULL, 0, -1, -1, 0 );
68 } else if (GL_bound_texture &&
69 GL_bound_texture->texture_mode != ts) {
71 case TEXTURE_SOURCE_DECAL:
72 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
73 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
75 case TEXTURE_SOURCE_NO_FILTERING:
76 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
77 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
83 GL_bound_texture->texture_mode = ts;
86 GL_current_texture_source = ts;
90 void opengl1_tcache_init()
94 uint tmp_pl = os_config_read_uint( NULL, NOX("PreloadTextures"), 1 );
97 GL_should_preload = 1;
99 GL_should_preload = 0;
102 Textures = (tcache_slot_opengl *)malloc(MAX_BITMAPS*sizeof(tcache_slot_opengl));
107 if (gr_screen.use_sections) {
108 Texture_sections = (tcache_slot_opengl*)malloc(MAX_BITMAPS * MAX_BMAP_SECTIONS_X * MAX_BMAP_SECTIONS_Y * sizeof(tcache_slot_opengl));
109 if(!Texture_sections){
112 memset(Texture_sections, 0, MAX_BITMAPS * MAX_BMAP_SECTIONS_X * MAX_BMAP_SECTIONS_Y * sizeof(tcache_slot_opengl));
115 // Init the texture structures
116 int section_count = 0;
117 for( i=0; i<MAX_BITMAPS; i++ ) {
118 Textures[i].texture_handle = 0;
120 Textures[i].bitmap_id = -1;
121 Textures[i].size = 0;
122 Textures[i].used_this_frame = 0;
124 Textures[i].parent = NULL;
127 if (gr_screen.use_sections) {
128 for(idx=0; idx<MAX_BMAP_SECTIONS_X; idx++){
129 for(s_idx=0; s_idx<MAX_BMAP_SECTIONS_Y; s_idx++){
130 Textures[i].data_sections[idx][s_idx] = &((tcache_slot_opengl*)Texture_sections)[section_count++];
131 Textures[i].data_sections[idx][s_idx]->parent = &Textures[i];
132 Textures[i].data_sections[idx][s_idx]->texture_handle = 0;
133 Textures[i].data_sections[idx][s_idx]->bitmap_id = -1;
134 Textures[i].data_sections[idx][s_idx]->size = 0;
135 Textures[i].data_sections[idx][s_idx]->used_this_frame = 0;
139 for(idx=0; idx<MAX_BMAP_SECTIONS_X; idx++){
140 for(s_idx=0; s_idx<MAX_BMAP_SECTIONS_Y; s_idx++){
141 Textures[i].data_sections[idx][s_idx] = NULL;
147 GL_last_detail = Detail.hardware_textures;
148 GL_last_bitmap_id = -1;
149 GL_last_bitmap_type = -1;
151 GL_last_section_x = -1;
152 GL_last_section_y = -1;
155 GL_textures_in_frame = 0;
158 static int opengl1_free_texture ( tcache_slot_opengl *t )
164 if ( t->bitmap_id > -1 ) {
165 // if I, or any of my children have been used this frame, bail
166 if(t->used_this_frame == GL_frame_count){
170 if (gr_screen.use_sections) {
171 for(idx=0; idx<MAX_BMAP_SECTIONS_X; idx++){
172 for(s_idx=0; s_idx<MAX_BMAP_SECTIONS_Y; s_idx++){
173 if((t->data_sections[idx][s_idx] != NULL) && (t->data_sections[idx][s_idx]->used_this_frame == GL_frame_count)){
180 // ok, now we know its legal to free everything safely
181 t->texture_mode = (gr_texture_source) -1;
182 glDeleteTextures (1, &t->texture_handle);
183 t->texture_handle = 0;
185 if ( GL_last_bitmap_id == t->bitmap_id ) {
186 GL_last_bitmap_id = -1;
189 // if this guy has children, free them too, since the children
190 // actually make up his size
191 if (gr_screen.use_sections) {
192 for(idx=0; idx<MAX_BMAP_SECTIONS_X; idx++){
193 for(s_idx=0; s_idx<MAX_BMAP_SECTIONS_Y; s_idx++){
194 if(t->data_sections[idx][s_idx] != NULL){
195 opengl1_free_texture(t->data_sections[idx][s_idx]);
202 t->used_this_frame = 0;
203 GL_textures_in -= t->size;
210 void opengl1_free_texture_with_handle(int handle)
212 for(int i=0; i<MAX_BITMAPS; i++ ) {
213 if (Textures[i].bitmap_id == handle) {
214 Textures[i].used_this_frame = 0; // this bmp doesn't even exist any longer...
215 opengl1_free_texture ( &Textures[i] );
220 void opengl1_tcache_flush()
224 for( i=0; i<MAX_BITMAPS; i++ ) {
225 opengl1_free_texture ( &Textures[i] );
227 if (GL_textures_in != 0) {
228 mprintf(( "WARNING: VRAM is at %d instead of zero after flushing!\n", GL_textures_in ));
232 GL_last_bitmap_id = -1;
233 GL_last_section_x = -1;
234 GL_last_section_y = -1;
237 void opengl1_tcache_cleanup()
239 opengl1_tcache_flush ();
242 GL_textures_in_frame = 0;
249 if( Texture_sections != NULL ){
250 free(Texture_sections);
251 Texture_sections = NULL;
255 void opengl1_tcache_frame()
257 GL_last_bitmap_id = -1;
258 GL_textures_in_frame = 0;
265 for( i=0; i<MAX_BITMAPS; i++ ) {
266 Textures[i].used_this_frame = 0;
269 if(Textures[i].data_sections[0][0] != NULL){
270 Assert(GL_texture_sections);
271 if(GL_texture_sections){
272 for(idx=0; idx<MAX_BMAP_SECTIONS_X; idx++){
273 for(s_idx=0; s_idx<MAX_BMAP_SECTIONS_Y; s_idx++){
274 if(Textures[i].data_sections[idx][s_idx] != NULL){
275 Textures[i].data_sections[idx][s_idx]->used_this_frame = 0;
285 opengl1_tcache_flush();
290 static void opengl1_tcache_get_adjusted_texture_size(int w_in, int h_in, int *w_out, int *h_out)
296 if((w_out == NULL) || (h_out == NULL)){
304 // set height and width to a power of 2
305 for (i=0; i<16; i++ ) {
306 if ( (tex_w > (1<<i)) && (tex_w <= (1<<(i+1))) ) {
312 for (i=0; i<16; i++ ) {
313 if ( (tex_h > (1<<i)) && (tex_h <= (1<<(i+1))) ) {
319 // try to keep an 8:1 size ratio
325 if ( tex_w < GL_min_texture_width ) {
326 tex_w = GL_min_texture_width;
327 } else if ( tex_w > GL_max_texture_width ) {
328 tex_w = GL_max_texture_width;
331 if ( tex_h < GL_min_texture_height ) {
332 tex_h = GL_min_texture_height;
333 } else if ( tex_h > GL_max_texture_height ) {
334 tex_h = GL_max_texture_height;
337 // store the outgoing size
342 // data == start of bitmap data
343 // sx == x offset into bitmap
344 // sy == y offset into bitmap
345 // src_w == absolute width of section on source bitmap
346 // src_h == absolute height of section on source bitmap
347 // bmap_w == width of source bitmap
348 // bmap_h == height of source bitmap
349 // tex_w == width of final texture
350 // tex_h == height of final texture
351 static int opengl1_create_texture_sub(int bitmap_type, int texture_handle, ushort *data, int sx, int sy, int src_w, int src_h, int bmap_w, int bmap_h, int tex_w, int tex_h, tcache_slot_opengl *t, int reload, int resize, int fail_on_full)
356 ubyte *bmp_data = ((ubyte*)data);
357 ubyte *texmem = NULL, *texmemp;
360 if((t == NULL) || (bmp_data == NULL)){
364 if ( t->used_this_frame == GL_frame_count ) {
365 mprintf(( "ARGHH!!! Texture already used this frame! Cannot free it!\n" ));
370 if(!opengl1_free_texture(t)){
375 switch (bitmap_type) {
376 case TCACHE_TYPE_AABITMAP:
377 t->u_scale = (float)bmap_w / (float)tex_w;
378 t->v_scale = (float)bmap_h / (float)tex_h;
381 case TCACHE_TYPE_BITMAP_INTERFACE:
382 case TCACHE_TYPE_BITMAP_SECTION:
383 t->u_scale = (float)src_w / (float)tex_w;
384 t->v_scale = (float)src_h / (float)tex_h;
394 glGenTextures (1, &t->texture_handle);
397 if (t->texture_handle == 0) {
398 nprintf(("Error", "!!DEBUG!! t->texture_handle == 0"));
402 GL_bound_texture = t;
404 GL_bound_texture->texture_mode = (gr_texture_source) -1;
406 glBindTexture (GL_TEXTURE_2D, t->texture_handle);
408 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
409 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
410 glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
412 /* this should be set next anyway */
413 // if (GL_current_texture_source != TEXTURE_SOURCE_NONE) {
414 // gr_opengl_set_texture_state(GL_current_texture_source);
419 switch (bitmap_type) {
420 case TCACHE_TYPE_AABITMAP:
422 texmem = (ubyte *) malloc (tex_w*tex_h);
425 for (i=0;i<tex_h;i++)
427 for (j=0;j<tex_w;j++)
429 if (i < bmap_h && j < bmap_w) {
430 *texmemp++ = GL_xlat[bmp_data[i*bmap_w+j]];
440 glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, tex_w, tex_h, 0, GL_ALPHA, GL_UNSIGNED_BYTE, texmem);
442 glTexSubImage2D (GL_TEXTURE_2D, 0, 0, 0, tex_w, tex_h, GL_ALPHA, GL_UNSIGNED_BYTE, texmem);
450 case TCACHE_TYPE_BITMAP_INTERFACE:
451 case TCACHE_TYPE_BITMAP_SECTION:
453 // if we aren't resizing in any way then we can just use bmp_data directly
455 texmem = (ubyte *) malloc (tex_w*tex_h*2);
458 for (i=0;i<tex_h;i++) {
459 for (j=0;j<tex_w;j++) {
460 if (i < src_h && j < src_w) {
461 *texmemp++ = bmp_data[((i+sy)*bmap_w+(j+sx))*2+0];
462 *texmemp++ = bmp_data[((i+sy)*bmap_w+(j+sx))*2+1];
471 size = tex_w*tex_h*2;
474 glTexImage2D (GL_TEXTURE_2D, 0, GL_RGBA, tex_w, tex_h, 0, GL_BGRA, GL_UNSIGNED_SHORT_1_5_5_5_REV, (resize) ? texmem : bmp_data);
476 glTexSubImage2D (GL_TEXTURE_2D, 0, 0, 0, tex_w, tex_h, GL_BGRA, GL_UNSIGNED_SHORT_1_5_5_5_REV, (resize) ? texmem : bmp_data);
487 // if we aren't resizing then we can just use bmp_data directly
489 texmem = (ubyte *) malloc (tex_w*tex_h*2);
492 Assert( texmem != NULL );
494 fix u, utmp, v, du, dv;
498 du = ( (bmap_w-1)*F1_0 ) / tex_w;
499 dv = ( (bmap_h-1)*F1_0 ) / tex_h;
501 for (j=0;j<tex_h;j++) {
503 for (i=0;i<tex_w;i++) {
504 *texmemp++ = bmp_data[(f2i(v)*bmap_w+f2i(utmp))*2+0];
505 *texmemp++ = bmp_data[(f2i(v)*bmap_w+f2i(utmp))*2+1];
512 size = tex_w*tex_h*2;
515 glTexImage2D (GL_TEXTURE_2D, 0, GL_RGBA, tex_w, tex_h, 0, GL_BGRA, GL_UNSIGNED_SHORT_1_5_5_5_REV, (resize) ? texmem : bmp_data);
517 glTexSubImage2D (GL_TEXTURE_2D, 0, 0, 0, tex_w, tex_h, GL_BGRA, GL_UNSIGNED_SHORT_1_5_5_5_REV, (resize) ? texmem : bmp_data);
527 t->bitmap_id = texture_handle;
528 t->time_created = GL_frame_count;
529 t->used_this_frame = 0;
531 t->w = (ushort)tex_w;
532 t->h = (ushort)tex_h;
534 GL_textures_in_frame += t->size;
536 GL_textures_in += t->size;
542 static int opengl1_create_texture(int bitmap_handle, int bitmap_type, tcache_slot_opengl *tslot, int fail_on_full)
546 int final_w, final_h;
552 // setup texture/bitmap flags
555 case TCACHE_TYPE_AABITMAP:
556 flags |= BMP_AABITMAP;
559 case TCACHE_TYPE_NORMAL:
560 flags |= BMP_TEX_OTHER;
563 case TCACHE_TYPE_BITMAP_INTERFACE:
564 case TCACHE_TYPE_XPARENT:
565 flags |= BMP_TEX_XPARENT;
572 // lock the bitmap into the proper format
573 bmp = bm_lock(bitmap_handle, bpp, flags);
575 mprintf(("Couldn't lock bitmap %d.\n", bitmap_handle ));
583 // if we are going to cull the size then we need to force a resize
584 if (Detail.hardware_textures < 4) {
587 // Detail.debris_culling goes from 0 to 4.
588 max_w /= (16 >> Detail.hardware_textures);
589 max_h /= (16 >> Detail.hardware_textures);
594 // get final texture size as it will be allocated as a DD surface
595 opengl1_tcache_get_adjusted_texture_size(max_w, max_h, &final_w, &final_h);
597 if ( (final_w < 1) || (final_h < 1) ) {
598 mprintf(("Bitmap is too small at %dx%d.\n", final_w, final_h));
602 // if we don't have to resize the image (to get power of 2, etc.) then skip that extra work
603 if ( (max_w != final_w) || (max_h != final_h) ) {
607 // if this tcache slot has no bitmap
608 if ( tslot->bitmap_id < 0) {
611 // different bitmap altogether - determine if the new one can use the old one's slot
612 else if (tslot->bitmap_id != bitmap_handle) {
613 if((final_w == tslot->w) && (final_h == tslot->h)){
615 //ml_printf("Reloading texture %d\n", bitmap_handle);
622 int ret_val = opengl1_create_texture_sub(bitmap_type, bitmap_handle, (ushort*)bmp->data, 0, 0, bmp->w, bmp->h, bmp->w, bmp->h, final_w, final_h, tslot, reload, resize, fail_on_full);
625 bm_unlock(bitmap_handle);
630 static int opengl1_create_texture_sectioned(int bitmap_handle, int bitmap_type, tcache_slot_opengl *tslot, int sx, int sy, int fail_on_full)
634 int final_w, final_h;
635 int section_x, section_y;
639 Assert( gr_screen.use_sections );
641 // setup texture/bitmap flags
642 Assert(bitmap_type == TCACHE_TYPE_BITMAP_SECTION);
643 if(bitmap_type != TCACHE_TYPE_BITMAP_SECTION){
644 bitmap_type = TCACHE_TYPE_BITMAP_SECTION;
646 flags = BMP_TEX_XPARENT;
648 // lock the bitmap in the proper format
649 bmp = bm_lock(bitmap_handle, 16, flags);
651 mprintf(("Couldn't lock bitmap %d.\n", bitmap_handle ));
654 // determine the width and height of this section
655 bm_get_section_size(bitmap_handle, sx, sy, §ion_x, §ion_y);
657 // get final texture size as it will be allocated as an opengl texture
658 opengl1_tcache_get_adjusted_texture_size(section_x, section_y, &final_w, &final_h);
660 if ( (final_w < 1) || (final_h < 1) ) {
661 mprintf(("Bitmap is too small at %dx%d.\n", final_w, final_h));
665 // if we don't have to resize the image (to get power of 2, etc.) then skip that extra work
666 if ( (bmp->sections.num_x == 1) && (bmp->sections.num_y == 1) && (section_x == final_w) && (section_y == final_h) ) {
670 // if this tcache slot has no bitmap
671 if ( tslot->bitmap_id < 0) {
674 // different bitmap altogether - determine if the new one can use the old one's slot
675 else if (tslot->bitmap_id != bitmap_handle) {
676 if((final_w == tslot->w) && (final_h == tslot->h)){
684 int ret_val = opengl1_create_texture_sub(bitmap_type, bitmap_handle, (ushort*)bmp->data, bmp->sections.sx[sx], bmp->sections.sy[sy], section_x, section_y, bmp->w, bmp->h, final_w, final_h, tslot, reload, resize, fail_on_full);
687 bm_unlock(bitmap_handle);
692 int opengl1_tcache_set(int bitmap_id, int bitmap_type, float *u_scale, float *v_scale, int fail_on_full, int sx, int sy, int force)
701 GL_last_bitmap_id = -1;
705 if ( GL_last_detail != Detail.hardware_textures ) {
706 GL_last_detail = Detail.hardware_textures;
707 opengl1_tcache_flush();
714 int n = bm_get_cache_slot (bitmap_id, 1);
715 tcache_slot_opengl *t = &Textures[n];
717 if ( (GL_last_bitmap_id == bitmap_id) && (GL_last_bitmap_type==bitmap_type) && (t->bitmap_id == bitmap_id) && (GL_last_section_x == sx) && (GL_last_section_y == sy)) {
718 t->used_this_frame = GL_frame_count;
720 // mark all children as used
721 if (gr_screen.use_sections) {
722 for(idx=0; idx<MAX_BMAP_SECTIONS_X; idx++){
723 for(s_idx=0; s_idx<MAX_BMAP_SECTIONS_Y; s_idx++){
724 if(t->data_sections[idx][s_idx] != NULL){
725 t->data_sections[idx][s_idx]->used_this_frame = GL_frame_count;
731 *u_scale = t->u_scale;
732 *v_scale = t->v_scale;
736 if (bitmap_type == TCACHE_TYPE_BITMAP_SECTION){
737 Assert( gr_screen.use_sections );
738 Assert((sx >= 0) && (sy >= 0) && (sx < MAX_BMAP_SECTIONS_X) && (sy < MAX_BMAP_SECTIONS_Y));
739 if(!((sx >= 0) && (sy >= 0) && (sx < MAX_BMAP_SECTIONS_X) && (sy < MAX_BMAP_SECTIONS_Y))){
745 // if the texture sections haven't been created yet
746 if((t->bitmap_id < 0) || (t->bitmap_id != bitmap_id)){
748 // lock the bitmap in the proper format
749 bmp = bm_lock(bitmap_id, 16, BMP_TEX_XPARENT);
750 bm_unlock(bitmap_id);
752 // now lets do something for each texture
754 for(idx=0; idx<bmp->sections.num_x; idx++){
755 for(s_idx=0; s_idx<bmp->sections.num_y; s_idx++){
756 // hmm. i'd rather we didn't have to do it this way...
757 if(!opengl1_create_texture_sectioned(bitmap_id, bitmap_type, t->data_sections[idx][s_idx], idx, s_idx, fail_on_full)){
761 // not used this frame
762 t->data_sections[idx][s_idx]->used_this_frame = 0;
766 // zero out pretty much everything in the parent struct since he's just the root
767 t->bitmap_id = bitmap_id;
768 t->texture_handle = 0;
769 t->time_created = t->data_sections[sx][sy]->time_created;
770 t->used_this_frame = 0;
773 // argh. we failed to upload. free anything we can
775 opengl1_free_texture(t);
777 // swap in the texture we want
779 t = t->data_sections[sx][sy];
782 // all other "normal" textures
783 else if((bitmap_id < 0) || (bitmap_id != t->bitmap_id)){
784 ret_val = opengl1_create_texture( bitmap_id, bitmap_type, t, fail_on_full );
787 // everything went ok
788 if(ret_val && (t->texture_handle) && !vram_full){
789 *u_scale = t->u_scale;
790 *v_scale = t->v_scale;
792 GL_bound_texture = t;
794 glBindTexture (GL_TEXTURE_2D, t->texture_handle );
796 /* this should be set next anyway */
797 // if (GL_current_texture_source != TEXTURE_SOURCE_NONE) {
798 // gr_opengl_set_texture_state(GL_current_texture_source);
801 GL_last_bitmap_id = t->bitmap_id;
802 GL_last_bitmap_type = bitmap_type;
803 GL_last_section_x = sx;
804 GL_last_section_y = sy;
806 t->used_this_frame = GL_frame_count;
810 GL_last_bitmap_id = -1;
811 GL_last_bitmap_type = -1;
813 GL_last_section_x = -1;
814 GL_last_section_y = -1;
816 GL_bound_texture = NULL;
818 glBindTexture (GL_TEXTURE_2D, 0); // test - DDOI
825 void gr_opengl1_preload_init()
827 if (gr_screen.mode != GR_OPENGL) {
831 opengl1_tcache_flush();
834 int gr_opengl1_preload(int bitmap_num, int is_aabitmap)
836 if ( gr_screen.mode != GR_OPENGL) {
840 if ( !GL_should_preload ) {
844 float u_scale, v_scale;
846 int bitmap_type = TCACHE_TYPE_NORMAL;
849 bitmap_type = TCACHE_TYPE_AABITMAP;
852 retval = opengl1_tcache_set(bitmap_num, bitmap_type, &u_scale, &v_scale, 1, -1, -1, 0 );
855 mprintf(("Texture upload failed!\n" ));
861 void gr_opengl1_set_gamma(float gamma)
864 Gr_gamma_int = int (Gr_gamma*10);
866 // Create the Gamma lookup table
868 for (i=0;i<256; i++) {
869 int v = fl2i(pow(i2fl(i)/255.0f, 1.0f/Gr_gamma)*255.0f);
872 } else if ( v < 0 ) {
875 Gr_gamma_lookup[i] = v;
878 // set the alpha gamma settings (for fonts)
879 for (i=0; i<16; i++) {
880 GL_xlat[i] = (ubyte)Gr_gamma_lookup[(i*255)/15];
883 GL_xlat[15] = GL_xlat[1];
886 GL_xlat[i] = GL_xlat[0];
889 // Flush any existing textures
890 opengl1_tcache_flush();