Mercurial > hg > dmlib
annotate src/dmimage.c @ 1154:494fa5998b65
Move RGBA mask definitions to static global variables that are
chosen at compile time based on endianess.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 05 Mar 2015 05:23:19 +0200 |
| parents | 2e728c38a386 |
| children | d46966ad3b08 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 * DMLib | |
| 3 * -- Bitmap image conversion and loading | |
| 4 * Programmed and designed by Matti 'ccr' Hamalainen | |
|
950
88d9440afad0
Use dmzlib module in stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
900
diff
changeset
|
5 * (C) Copyright 2012-2015 Tecnic Software productions (TNSP) |
| 0 | 6 */ |
| 7 #include "dmimage.h" | |
|
950
88d9440afad0
Use dmzlib module in stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
900
diff
changeset
|
8 #include "dmzlib.h" |
| 0 | 9 |
|
1135
73808dce89e6
Disable formats other than PNG and JPEG from stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
1102
diff
changeset
|
10 // Formats |
|
73808dce89e6
Disable formats other than PNG and JPEG from stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
1102
diff
changeset
|
11 #define STBI_ONLY_JPEG 1 |
|
73808dce89e6
Disable formats other than PNG and JPEG from stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
1102
diff
changeset
|
12 #define STBI_ONLY_PNG 1 |
|
73808dce89e6
Disable formats other than PNG and JPEG from stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
1102
diff
changeset
|
13 //#define STBI_NO_HDR 1 |
|
73808dce89e6
Disable formats other than PNG and JPEG from stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
1102
diff
changeset
|
14 |
|
73808dce89e6
Disable formats other than PNG and JPEG from stb_image.
Matti Hamalainen <ccr@tnsp.org>
parents:
1102
diff
changeset
|
15 // Other options, etc. |
|
1046
7e54b2d08ce7
Add special debug error message function/macro that can be
Matti Hamalainen <ccr@tnsp.org>
parents:
1042
diff
changeset
|
16 #ifndef DM_DEBUG |
| 900 | 17 #define STBI_NO_FAILURE_STRINGS 1 |
|
1138
2e728c38a386
Define STBI_ASSERT(x) as dummy if DM_DEBUG is not enabled.
Matti Hamalainen <ccr@tnsp.org>
parents:
1135
diff
changeset
|
18 #define STBI_ASSERT(x) |
|
1046
7e54b2d08ce7
Add special debug error message function/macro that can be
Matti Hamalainen <ccr@tnsp.org>
parents:
1042
diff
changeset
|
19 #endif |
| 900 | 20 #define STBI_FAILURE_USERMSG 1 |
| 21 | |
|
899
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
22 #define STB_IMAGE_IMPLEMENTATION 1 |
| 0 | 23 #define STBI_NO_STDIO 1 |
|
899
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
24 |
|
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
25 #define STBI_MALLOC(sz) dmMalloc(sz) |
|
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
26 #define STBI_REALLOC(p,sz) dmRealloc(p,sz) |
|
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
27 #define STBI_FREE(p) dmFree(p) |
|
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
28 |
| 0 | 29 #include "stb_image.c" |
| 30 | |
| 31 | |
|
1154
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
32 static Uint32 |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
33 #if SDL_BYTEORDER == SDL_BIG_ENDIAN |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
34 dmXrmask = 0xff000000, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
35 dmXgmask = 0x00ff0000, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
36 dmXbmask = 0x0000ff00, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
37 dmXamask = 0x000000ff; |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
38 #else |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
39 dmXrmask = 0x000000ff, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
40 dmXgmask = 0x0000ff00, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
41 dmXbmask = 0x00ff0000, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
42 dmXamask = 0xff000000; |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
43 #endif |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
44 |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
45 |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
46 SDL_Surface *dmCreateRGBSurfaceFrom(void *data, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
47 const int width, const int height, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
48 const int depth, const int pitch, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
49 const int rmask, const int gmask, const int bmask, const int amask) |
| 0 | 50 { |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
51 // Create source surface from given data |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
52 SDL_Surface *tmp = SDL_CreateRGBSurfaceFrom(data, width, height, depth, pitch, bmask, gmask, rmask, amask); |
| 0 | 53 |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
54 // Create result conversion surface |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
55 SDL_Surface |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
56 *result = NULL, |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
57 *pixtmp = SDL_CreateRGBSurface( |
|
1154
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
58 SDL_SWSURFACE | SDL_SRCALPHA, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
59 16, 16, 32, |
|
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
60 dmXrmask, dmXgmask, dmXbmask, dmXamask); |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
61 |
| 0 | 62 if (tmp != NULL && pixtmp != NULL) |
| 63 { | |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
64 // Convert surface |
| 0 | 65 result = SDL_ConvertSurface(tmp, pixtmp->format, SDL_SWSURFACE | SDL_SRCALPHA); |
| 66 SDL_FreeSurface(tmp); | |
| 67 } | |
| 68 if (pixtmp != NULL) | |
| 69 SDL_FreeSurface(pixtmp); | |
|
1102
e06abfde6c39
Cosmetics pass: Remove excess whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1080
diff
changeset
|
70 |
| 0 | 71 return result; |
| 72 } | |
| 73 | |
| 74 | |
| 75 SDL_Surface *dmCreatePaletteSurfaceFrom(void *data, const int width, const int height, const int pitch) | |
| 76 { | |
| 77 int yc; | |
| 78 Uint8 *dst, *src; | |
| 79 SDL_Surface *result; | |
| 80 result = SDL_CreateRGBSurface(SDL_SWSURFACE, width, height, 8, 0,0,0,0); | |
| 81 if (result == NULL) | |
| 82 return NULL; | |
|
1102
e06abfde6c39
Cosmetics pass: Remove excess whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1080
diff
changeset
|
83 |
| 0 | 84 dst = result->pixels; |
| 85 src = data; | |
| 86 for (yc = 0; yc < height; yc++) | |
| 87 { | |
| 88 memcpy(dst, src, width * sizeof(Uint8)); | |
| 89 dst += result->pitch; | |
| 90 src += pitch; | |
| 91 } | |
| 92 | |
| 93 return result; | |
| 94 } | |
| 95 | |
| 96 | |
| 97 | |
| 98 static int dmSTBIread(void *user, char *data, int size) | |
| 99 { | |
| 100 return dmfread(data, 1, size, (DMResource *) user); | |
| 101 } | |
| 102 | |
| 103 | |
|
899
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
104 static void dmSTBIskip(void *user, int n) |
| 0 | 105 { |
| 106 dmfseek((DMResource *) user, n, SEEK_CUR); | |
| 107 } | |
| 108 | |
| 109 | |
| 110 static int dmSTBIeof(void *user) | |
| 111 { | |
| 112 return dmfeof((DMResource *) user); | |
| 113 } | |
| 114 | |
| 115 | |
| 116 static const stbi_io_callbacks dmSTBICallbacks = | |
| 117 { | |
| 118 dmSTBIread, | |
| 119 dmSTBIskip, | |
| 120 dmSTBIeof, | |
| 121 }; | |
| 122 | |
| 123 | |
| 124 SDL_Surface *dmLoadImage(DMResource *file) | |
| 125 { | |
| 126 Uint32 rmask, gmask, bmask, amask; | |
| 127 SDL_Surface *result = NULL; | |
|
963
1ffc48d0feaf
Initialize variables so that we don't get garbage in error situations.
Matti Hamalainen <ccr@tnsp.org>
parents:
958
diff
changeset
|
128 int width = 0, height = 0, comp = 0; |
| 0 | 129 Uint8 *data; |
| 130 | |
|
1042
c71fcf44b678
Image resources may get decoded multiple times, so seek to node start.
Matti Hamalainen <ccr@tnsp.org>
parents:
963
diff
changeset
|
131 dmfseek(file, 0, SEEK_SET); |
| 0 | 132 data = stbi_load_from_callbacks(&dmSTBICallbacks, file, &width, &height, &comp, 0); |
| 133 | |
| 134 if (data == NULL) | |
| 135 { | |
| 1080 | 136 dmErrorDBGMsg( |
|
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
950
diff
changeset
|
137 "Error decoding image resource %p '%s' [%d, %d, %d]: %s\n", |
| 0 | 138 file, file->filename, width, height, comp, stbi_failure_reason()); |
| 139 return NULL; | |
| 140 } | |
| 141 | |
| 142 | |
| 143 switch (comp) | |
| 144 { | |
| 145 case 4: | |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
146 result = dmCreateRGBSurfaceFrom(data, width, height, comp * 8, |
|
1154
494fa5998b65
Move RGBA mask definitions to static global variables that are
Matti Hamalainen <ccr@tnsp.org>
parents:
1138
diff
changeset
|
147 width * comp, dmXrmask, dmXgmask, dmXbmask, dmXamask); |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
148 break; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
149 |
| 0 | 150 case 3: |
|
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
151 #if SDL_BYTEORDER == SDL_BIG_ENDIAN |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
152 rmask = 0x00ff0000; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
153 gmask = 0x0000ff00; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
154 bmask = 0x000000ff; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
155 amask = 0x00000000; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
156 #else |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
157 rmask = 0x000000ff; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
158 gmask = 0x0000ff00; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
159 bmask = 0x00ff0000; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
160 amask = 0x00000000; |
|
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
161 #endif |
| 0 | 162 result = dmCreateRGBSurfaceFrom(data, width, height, comp * 8, |
| 163 width * comp, rmask, gmask, bmask, amask); | |
| 164 break; | |
| 165 | |
| 166 case 1: | |
| 167 result = dmCreatePaletteSurfaceFrom(data, width, height, width * comp); | |
| 168 break; | |
| 169 } | |
|
1102
e06abfde6c39
Cosmetics pass: Remove excess whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1080
diff
changeset
|
170 |
| 0 | 171 stbi_image_free(data); |
| 172 | |
| 173 if (result == NULL) | |
| 174 { | |
|
1048
509e6ed3a24e
Finishing touches to the DM_DEBUG stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
1046
diff
changeset
|
175 dmErrorDBGMsg( |
|
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
950
diff
changeset
|
176 "Format conversion failed for image resource %p '%s' [%d, %d, %d].\n", |
| 0 | 177 file, file->filename, width, height, comp); |
| 178 } | |
| 179 | |
| 180 return result; | |
| 181 } |