reactos/dll/opengl/mesa/src/mesa/main/texcompress_s3tc.c

   1 /*
   2  * Mesa 3-D graphics library
   3  * Version:  6.5.3
   4  *
   5  * Copyright (C) 1999-2007  Brian Paul   All Rights Reserved.
   6  * Copyright (c) 2008 VMware, Inc.
   7  *
   8  * Permission is hereby granted, free of charge, to any person obtaining a
   9  * copy of this software and associated documentation files (the "Software"),
  10  * to deal in the Software without restriction, including without limitation
  11  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
  12  * and/or sell copies of the Software, and to permit persons to whom the
  13  * Software is furnished to do so, subject to the following conditions:
  14  *
  15  * The above copyright notice and this permission notice shall be included
  16  * in all copies or substantial portions of the Software.
  17  *
  18  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  19  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  20  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  21  * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  22  * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  23  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  24  */
  25
  26
  27 /**
  28  * \file texcompress_s3tc.c
  29  * GL_EXT_texture_compression_s3tc support.
  30  */
  31
  32 #ifndef USE_EXTERNAL_DXTN_LIB
  33 #define USE_EXTERNAL_DXTN_LIB 1
  34 #endif
  35
  36 #include "glheader.h"
  37 #include "imports.h"
  38 #include "colormac.h"
  39 #include "dlopen.h"
  40 #include "image.h"
  41 #include "macros.h"
  42 #include "mfeatures.h"
  43 #include "mtypes.h"
  44 #include "texcompress.h"
  45 #include "texcompress_s3tc.h"
  46 #include "texstore.h"
  47 #include "swrast/s_context.h"
  48
  49
  50 #if FEATURE_texture_s3tc
  51
  52
  53 #if defined(_WIN32) || defined(WIN32)
  54 #define DXTN_LIBNAME "dxtn.dll"
  55 #define RTLD_LAZY 0
  56 #define RTLD_GLOBAL 0
  57 #elif defined(__DJGPP__)
  58 #define DXTN_LIBNAME "dxtn.dxe"
  59 #else
  60 #define DXTN_LIBNAME "libtxc_dxtn.so"
  61 #endif
  62
  63 #if FEATURE_EXT_texture_sRGB
  64 /**
  65  * Convert an 8-bit sRGB value from non-linear space to a
  66  * linear RGB value in [0, 1].
  67  * Implemented with a 256-entry lookup table.
  68  */
  69 static inline GLfloat
  70 nonlinear_to_linear(GLubyte cs8)
  71 {
  72    static GLfloat table[256];
  73    static GLboolean tableReady = GL_FALSE;
  74    if (!tableReady) {
  75       /* compute lookup table now */
  76       GLuint i;
  77       for (i = 0; i < 256; i++) {
  78          const GLfloat cs = UBYTE_TO_FLOAT(i);
  79          if (cs <= 0.04045) {
  80             table[i] = cs / 12.92f;
  81          }
  82          else {
  83             table[i] = (GLfloat) pow((cs + 0.055) / 1.055, 2.4);
  84          }
  85       }
  86       tableReady = GL_TRUE;
  87    }
  88    return table[cs8];
  89 }
  90 #endif /* FEATURE_EXT_texture_sRGB */
  91
  92 typedef void (*dxtFetchTexelFuncExt)( GLint srcRowstride, GLubyte *pixdata, GLint col, GLint row, GLvoid *texelOut );
  93
  94 dxtFetchTexelFuncExt fetch_ext_rgb_dxt1 = NULL;
  95 dxtFetchTexelFuncExt fetch_ext_rgba_dxt1 = NULL;
  96 dxtFetchTexelFuncExt fetch_ext_rgba_dxt3 = NULL;
  97 dxtFetchTexelFuncExt fetch_ext_rgba_dxt5 = NULL;
  98
  99 typedef void (*dxtCompressTexFuncExt)(GLint srccomps, GLint width,
 100                                       GLint height, const GLubyte *srcPixData,
 101                                       GLenum destformat, GLubyte *dest,
 102                                       GLint dstRowStride);
 103
 104 static dxtCompressTexFuncExt ext_tx_compress_dxtn = NULL;
 105
 106 static void *dxtlibhandle = NULL;
 107
 108
 109 void
 110 _mesa_init_texture_s3tc( struct gl_context *ctx )
 111 {
 112    /* called during context initialization */
 113    ctx->Mesa_DXTn = GL_FALSE;
 114 #if USE_EXTERNAL_DXTN_LIB
 115    if (!dxtlibhandle) {
 116       dxtlibhandle = _mesa_dlopen(DXTN_LIBNAME, 0);
 117       if (!dxtlibhandle) {
 118          _mesa_warning(ctx, "couldn't open " DXTN_LIBNAME ", software DXTn "
 119             "compression/decompression unavailable");
 120       }
 121       else {
 122          /* the fetch functions are not per context! Might be problematic... */
 123          fetch_ext_rgb_dxt1 = (dxtFetchTexelFuncExt)
 124             _mesa_dlsym(dxtlibhandle, "fetch_2d_texel_rgb_dxt1");
 125          fetch_ext_rgba_dxt1 = (dxtFetchTexelFuncExt)
 126             _mesa_dlsym(dxtlibhandle, "fetch_2d_texel_rgba_dxt1");
 127          fetch_ext_rgba_dxt3 = (dxtFetchTexelFuncExt)
 128             _mesa_dlsym(dxtlibhandle, "fetch_2d_texel_rgba_dxt3");
 129          fetch_ext_rgba_dxt5 = (dxtFetchTexelFuncExt)
 130             _mesa_dlsym(dxtlibhandle, "fetch_2d_texel_rgba_dxt5");
 131          ext_tx_compress_dxtn = (dxtCompressTexFuncExt)
 132             _mesa_dlsym(dxtlibhandle, "tx_compress_dxtn");
 133
 134          if (!fetch_ext_rgb_dxt1 ||
 135              !fetch_ext_rgba_dxt1 ||
 136              !fetch_ext_rgba_dxt3 ||
 137              !fetch_ext_rgba_dxt5 ||
 138              !ext_tx_compress_dxtn) {
 139             _mesa_warning(ctx, "couldn't reference all symbols in "
 140                DXTN_LIBNAME ", software DXTn compression/decompression "
 141                "unavailable");
 142             fetch_ext_rgb_dxt1 = NULL;
 143             fetch_ext_rgba_dxt1 = NULL;
 144             fetch_ext_rgba_dxt3 = NULL;
 145             fetch_ext_rgba_dxt5 = NULL;
 146             ext_tx_compress_dxtn = NULL;
 147             _mesa_dlclose(dxtlibhandle);
 148             dxtlibhandle = NULL;
 149          }
 150       }
 151    }
 152    if (dxtlibhandle) {
 153       ctx->Mesa_DXTn = GL_TRUE;
 154    }
 155 #else
 156    (void) ctx;
 157 #endif
 158 }
 159
 160 /**
 161  * Store user's image in rgb_dxt1 format.
 162  */
 163 GLboolean
 164 _mesa_texstore_rgb_dxt1(TEXSTORE_PARAMS)
 165 {
 166    const GLubyte *pixels;
 167    GLubyte *dst;
 168    const GLubyte *tempImage = NULL;
 169
 170    ASSERT(dstFormat == MESA_FORMAT_RGB_DXT1 ||
 171           dstFormat == MESA_FORMAT_SRGB_DXT1);
 172
 173    if (srcFormat != GL_RGB ||
 174        srcType != GL_UNSIGNED_BYTE ||
 175        ctx->_ImageTransferState ||
 176        srcPacking->RowLength != srcWidth ||
 177        srcPacking->SwapBytes) {
 178       /* convert image to RGB/GLubyte */
 179       tempImage = _mesa_make_temp_ubyte_image(ctx, dims,
 180                                              baseInternalFormat,
 181                                              _mesa_get_format_base_format(dstFormat),
 182                                              srcWidth, srcHeight, srcDepth,
 183                                              srcFormat, srcType, srcAddr,
 184                                              srcPacking);
 185       if (!tempImage)
 186          return GL_FALSE; /* out of memory */
 187       pixels = tempImage;
 188       srcFormat = GL_RGB;
 189    }
 190    else {
 191       pixels = _mesa_image_address2d(srcPacking, srcAddr, srcWidth, srcHeight,
 192                                      srcFormat, srcType, 0, 0);
 193    }
 194
 195    dst = dstSlices[0];
 196
 197    if (ext_tx_compress_dxtn) {
 198       (*ext_tx_compress_dxtn)(3, srcWidth, srcHeight, pixels,
 199                               GL_COMPRESSED_RGB_S3TC_DXT1_EXT,
 200                               dst, dstRowStride);
 201    }
 202    else {
 203       _mesa_warning(ctx, "external dxt library not available: texstore_rgb_dxt1");
 204    }
 205
 206    if (tempImage)
 207       free((void *) tempImage);
 208
 209    return GL_TRUE;
 210 }
 211
 212
 213 /**
 214  * Store user's image in rgba_dxt1 format.
 215  */
 216 GLboolean
 217 _mesa_texstore_rgba_dxt1(TEXSTORE_PARAMS)
 218 {
 219    const GLubyte *pixels;
 220    GLubyte *dst;
 221    const GLubyte *tempImage = NULL;
 222
 223    ASSERT(dstFormat == MESA_FORMAT_RGBA_DXT1 ||
 224           dstFormat == MESA_FORMAT_SRGBA_DXT1);
 225
 226    if (srcFormat != GL_RGBA ||
 227        srcType != GL_UNSIGNED_BYTE ||
 228        ctx->_ImageTransferState ||
 229        srcPacking->RowLength != srcWidth ||
 230        srcPacking->SwapBytes) {
 231       /* convert image to RGBA/GLubyte */
 232       tempImage = _mesa_make_temp_ubyte_image(ctx, dims,
 233                                              baseInternalFormat,
 234                                              _mesa_get_format_base_format(dstFormat),
 235                                              srcWidth, srcHeight, srcDepth,
 236                                              srcFormat, srcType, srcAddr,
 237                                              srcPacking);
 238       if (!tempImage)
 239          return GL_FALSE; /* out of memory */
 240       pixels = tempImage;
 241       srcFormat = GL_RGBA;
 242    }
 243    else {
 244       pixels = _mesa_image_address2d(srcPacking, srcAddr, srcWidth, srcHeight,
 245                                      srcFormat, srcType, 0, 0);
 246    }
 247
 248    dst = dstSlices[0];
 249
 250    if (ext_tx_compress_dxtn) {
 251       (*ext_tx_compress_dxtn)(4, srcWidth, srcHeight, pixels,
 252                               GL_COMPRESSED_RGBA_S3TC_DXT1_EXT,
 253                               dst, dstRowStride);
 254    }
 255    else {
 256       _mesa_warning(ctx, "external dxt library not available: texstore_rgba_dxt1");
 257    }
 258
 259    if (tempImage)
 260       free((void*) tempImage);
 261
 262    return GL_TRUE;
 263 }
 264
 265
 266 /**
 267  * Store user's image in rgba_dxt3 format.
 268  */
 269 GLboolean
 270 _mesa_texstore_rgba_dxt3(TEXSTORE_PARAMS)
 271 {
 272    const GLubyte *pixels;
 273    GLubyte *dst;
 274    const GLubyte *tempImage = NULL;
 275
 276    ASSERT(dstFormat == MESA_FORMAT_RGBA_DXT3 ||
 277           dstFormat == MESA_FORMAT_SRGBA_DXT3);
 278
 279    if (srcFormat != GL_RGBA ||
 280        srcType != GL_UNSIGNED_BYTE ||
 281        ctx->_ImageTransferState ||
 282        srcPacking->RowLength != srcWidth ||
 283        srcPacking->SwapBytes) {
 284       /* convert image to RGBA/GLubyte */
 285       tempImage = _mesa_make_temp_ubyte_image(ctx, dims,
 286                                              baseInternalFormat,
 287                                              _mesa_get_format_base_format(dstFormat),
 288                                              srcWidth, srcHeight, srcDepth,
 289                                              srcFormat, srcType, srcAddr,
 290                                              srcPacking);
 291       if (!tempImage)
 292          return GL_FALSE; /* out of memory */
 293       pixels = tempImage;
 294    }
 295    else {
 296       pixels = _mesa_image_address2d(srcPacking, srcAddr, srcWidth, srcHeight,
 297                                      srcFormat, srcType, 0, 0);
 298    }
 299
 300    dst = dstSlices[0];
 301
 302    if (ext_tx_compress_dxtn) {
 303       (*ext_tx_compress_dxtn)(4, srcWidth, srcHeight, pixels,
 304                               GL_COMPRESSED_RGBA_S3TC_DXT3_EXT,
 305                               dst, dstRowStride);
 306    }
 307    else {
 308       _mesa_warning(ctx, "external dxt library not available: texstore_rgba_dxt3");
 309    }
 310
 311    if (tempImage)
 312       free((void *) tempImage);
 313
 314    return GL_TRUE;
 315 }
 316
 317
 318 /**
 319  * Store user's image in rgba_dxt5 format.
 320  */
 321 GLboolean
 322 _mesa_texstore_rgba_dxt5(TEXSTORE_PARAMS)
 323 {
 324    const GLubyte *pixels;
 325    GLubyte *dst;
 326    const GLubyte *tempImage = NULL;
 327
 328    ASSERT(dstFormat == MESA_FORMAT_RGBA_DXT5 ||
 329           dstFormat == MESA_FORMAT_SRGBA_DXT5);
 330
 331    if (srcFormat != GL_RGBA ||
 332        srcType != GL_UNSIGNED_BYTE ||
 333        ctx->_ImageTransferState ||
 334        srcPacking->RowLength != srcWidth ||
 335        srcPacking->SwapBytes) {
 336       /* convert image to RGBA/GLubyte */
 337       tempImage = _mesa_make_temp_ubyte_image(ctx, dims,
 338                                              baseInternalFormat,
 339                                              _mesa_get_format_base_format(dstFormat),
 340                                              srcWidth, srcHeight, srcDepth,
 341                                              srcFormat, srcType, srcAddr,
 342                                              srcPacking);
 343       if (!tempImage)
 344          return GL_FALSE; /* out of memory */
 345       pixels = tempImage;
 346    }
 347    else {
 348       pixels = _mesa_image_address2d(srcPacking, srcAddr, srcWidth, srcHeight,
 349                                      srcFormat, srcType, 0, 0);
 350    }
 351
 352    dst = dstSlices[0];
 353
 354    if (ext_tx_compress_dxtn) {
 355       (*ext_tx_compress_dxtn)(4, srcWidth, srcHeight, pixels,
 356                               GL_COMPRESSED_RGBA_S3TC_DXT5_EXT,
 357                               dst, dstRowStride);
 358    }
 359    else {
 360       _mesa_warning(ctx, "external dxt library not available: texstore_rgba_dxt5");
 361    }
 362
 363    if (tempImage)
 364       free((void *) tempImage);
 365
 366    return GL_TRUE;
 367 }
 368
 369
 370 static void
 371 fetch_texel_2d_rgb_dxt1( const struct swrast_texture_image *texImage,
 372                          GLint i, GLint j, GLint k, GLubyte *texel )
 373 {
 374    (void) k;
 375    if (fetch_ext_rgb_dxt1) {
 376       fetch_ext_rgb_dxt1(texImage->RowStride,
 377                          texImage->Map, i, j, texel);
 378    }
 379    else
 380       _mesa_debug(NULL, "attempted to decode s3tc texture without library available: fetch_texel_2d_rgb_dxt1");
 381 }
 382
 383
 384 void
 385 _mesa_fetch_texel_2d_f_rgb_dxt1(const struct swrast_texture_image *texImage,
 386                                 GLint i, GLint j, GLint k, GLfloat *texel)
 387 {
 388    /* just sample as GLubyte and convert to float here */
 389    GLubyte rgba[4];
 390    fetch_texel_2d_rgb_dxt1(texImage, i, j, k, rgba);
 391    texel[RCOMP] = UBYTE_TO_FLOAT(rgba[RCOMP]);
 392    texel[GCOMP] = UBYTE_TO_FLOAT(rgba[GCOMP]);
 393    texel[BCOMP] = UBYTE_TO_FLOAT(rgba[BCOMP]);
 394    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 395 }
 396
 397
 398 static void
 399 fetch_texel_2d_rgba_dxt1( const struct swrast_texture_image *texImage,
 400                           GLint i, GLint j, GLint k, GLubyte *texel )
 401 {
 402    (void) k;
 403    if (fetch_ext_rgba_dxt1) {
 404       fetch_ext_rgba_dxt1(texImage->RowStride,
 405                           texImage->Map, i, j, texel);
 406    }
 407    else
 408       _mesa_debug(NULL, "attempted to decode s3tc texture without library available: fetch_texel_2d_rgba_dxt1\n");
 409 }
 410
 411
 412 void
 413 _mesa_fetch_texel_2d_f_rgba_dxt1(const struct swrast_texture_image *texImage,
 414                                  GLint i, GLint j, GLint k, GLfloat *texel)
 415 {
 416    /* just sample as GLubyte and convert to float here */
 417    GLubyte rgba[4];
 418    fetch_texel_2d_rgba_dxt1(texImage, i, j, k, rgba);
 419    texel[RCOMP] = UBYTE_TO_FLOAT(rgba[RCOMP]);
 420    texel[GCOMP] = UBYTE_TO_FLOAT(rgba[GCOMP]);
 421    texel[BCOMP] = UBYTE_TO_FLOAT(rgba[BCOMP]);
 422    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 423 }
 424
 425
 426 static void
 427 fetch_texel_2d_rgba_dxt3( const struct swrast_texture_image *texImage,
 428                           GLint i, GLint j, GLint k, GLubyte *texel )
 429 {
 430    (void) k;
 431    if (fetch_ext_rgba_dxt3) {
 432       fetch_ext_rgba_dxt3(texImage->RowStride,
 433                           texImage->Map, i, j, texel);
 434    }
 435    else
 436       _mesa_debug(NULL, "attempted to decode s3tc texture without library available: fetch_texel_2d_rgba_dxt3\n");
 437 }
 438
 439
 440 void
 441 _mesa_fetch_texel_2d_f_rgba_dxt3(const struct swrast_texture_image *texImage,
 442                                  GLint i, GLint j, GLint k, GLfloat *texel)
 443 {
 444    /* just sample as GLubyte and convert to float here */
 445    GLubyte rgba[4];
 446    fetch_texel_2d_rgba_dxt3(texImage, i, j, k, rgba);
 447    texel[RCOMP] = UBYTE_TO_FLOAT(rgba[RCOMP]);
 448    texel[GCOMP] = UBYTE_TO_FLOAT(rgba[GCOMP]);
 449    texel[BCOMP] = UBYTE_TO_FLOAT(rgba[BCOMP]);
 450    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 451 }
 452
 453
 454 static void
 455 fetch_texel_2d_rgba_dxt5( const struct swrast_texture_image *texImage,
 456                           GLint i, GLint j, GLint k, GLubyte *texel )
 457 {
 458    (void) k;
 459    if (fetch_ext_rgba_dxt5) {
 460       fetch_ext_rgba_dxt5(texImage->RowStride,
 461                           texImage->Map, i, j, texel);
 462    }
 463    else
 464       _mesa_debug(NULL, "attempted to decode s3tc texture without library available: fetch_texel_2d_rgba_dxt5\n");
 465 }
 466
 467
 468 void
 469 _mesa_fetch_texel_2d_f_rgba_dxt5(const struct swrast_texture_image *texImage,
 470                                  GLint i, GLint j, GLint k, GLfloat *texel)
 471 {
 472    /* just sample as GLubyte and convert to float here */
 473    GLubyte rgba[4];
 474    fetch_texel_2d_rgba_dxt5(texImage, i, j, k, rgba);
 475    texel[RCOMP] = UBYTE_TO_FLOAT(rgba[RCOMP]);
 476    texel[GCOMP] = UBYTE_TO_FLOAT(rgba[GCOMP]);
 477    texel[BCOMP] = UBYTE_TO_FLOAT(rgba[BCOMP]);
 478    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 479 }
 480
 481 #if FEATURE_EXT_texture_sRGB
 482 void
 483 _mesa_fetch_texel_2d_f_srgb_dxt1( const struct swrast_texture_image *texImage,
 484                                   GLint i, GLint j, GLint k, GLfloat *texel )
 485 {
 486    /* just sample as GLubyte and convert to float here */
 487    GLubyte rgba[4];
 488    fetch_texel_2d_rgb_dxt1(texImage, i, j, k, rgba);
 489    texel[RCOMP] = nonlinear_to_linear(rgba[RCOMP]);
 490    texel[GCOMP] = nonlinear_to_linear(rgba[GCOMP]);
 491    texel[BCOMP] = nonlinear_to_linear(rgba[BCOMP]);
 492    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 493 }
 494
 495 void
 496 _mesa_fetch_texel_2d_f_srgba_dxt1(const struct swrast_texture_image *texImage,
 497                                   GLint i, GLint j, GLint k, GLfloat *texel)
 498 {
 499    /* just sample as GLubyte and convert to float here */
 500    GLubyte rgba[4];
 501    fetch_texel_2d_rgba_dxt1(texImage, i, j, k, rgba);
 502    texel[RCOMP] = nonlinear_to_linear(rgba[RCOMP]);
 503    texel[GCOMP] = nonlinear_to_linear(rgba[GCOMP]);
 504    texel[BCOMP] = nonlinear_to_linear(rgba[BCOMP]);
 505    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 506 }
 507
 508 void
 509 _mesa_fetch_texel_2d_f_srgba_dxt3(const struct swrast_texture_image *texImage,
 510                                   GLint i, GLint j, GLint k, GLfloat *texel)
 511 {
 512    /* just sample as GLubyte and convert to float here */
 513    GLubyte rgba[4];
 514    fetch_texel_2d_rgba_dxt3(texImage, i, j, k, rgba);
 515    texel[RCOMP] = nonlinear_to_linear(rgba[RCOMP]);
 516    texel[GCOMP] = nonlinear_to_linear(rgba[GCOMP]);
 517    texel[BCOMP] = nonlinear_to_linear(rgba[BCOMP]);
 518    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 519 }
 520
 521 void
 522 _mesa_fetch_texel_2d_f_srgba_dxt5(const struct swrast_texture_image *texImage,
 523                                   GLint i, GLint j, GLint k, GLfloat *texel)
 524 {
 525    /* just sample as GLubyte and convert to float here */
 526    GLubyte rgba[4];
 527    fetch_texel_2d_rgba_dxt5(texImage, i, j, k, rgba);
 528    texel[RCOMP] = nonlinear_to_linear(rgba[RCOMP]);
 529    texel[GCOMP] = nonlinear_to_linear(rgba[GCOMP]);
 530    texel[BCOMP] = nonlinear_to_linear(rgba[BCOMP]);
 531    texel[ACOMP] = UBYTE_TO_FLOAT(rgba[ACOMP]);
 532 }
 533 #endif /* FEATURE_EXT_texture_sRGB */
 534
 535
 536 #endif /* FEATURE_texture_s3tc */