Mercurial > hg > dmlib
annotate src/dmimage.c @ 958:985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 27 Feb 2015 03:58:25 +0200 |
parents | 88d9440afad0 |
children | 1ffc48d0feaf |
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 |
10 | |
900 | 11 #define STBI_NO_FAILURE_STRINGS 1 |
12 #define STBI_FAILURE_USERMSG 1 | |
13 | |
899
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
14 #define STB_IMAGE_IMPLEMENTATION 1 |
0 | 15 #define STBI_NO_STDIO 1 |
16 #define STBI_NO_HDR 1 | |
899
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
17 |
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
18 #define STBI_MALLOC(sz) dmMalloc(sz) |
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
19 #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
|
20 #define STBI_FREE(p) dmFree(p) |
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
21 |
0 | 22 #include "stb_image.c" |
23 | |
24 | |
25 SDL_Surface *dmCreateRGBSurfaceFrom(void *data, const int width, const int height, const int depth, const int pitch, const int rmask, const int gmask, const int bmask, const int amask) | |
26 { | |
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
27 // Create source surface from given data |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
28 SDL_Surface *tmp = SDL_CreateRGBSurfaceFrom(data, width, height, depth, pitch, bmask, gmask, rmask, amask); |
0 | 29 |
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
30 // Result surface component orders as masks |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
31 #if SDL_BYTEORDER == SDL_BIG_ENDIAN |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
32 Uint32 |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
33 Xrmask = 0xff000000, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
34 Xgmask = 0x00ff0000, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
35 Xbmask = 0x0000ff00, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
36 Xamask = 0x000000ff; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
37 #else |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
38 Uint32 |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
39 Xrmask = 0x000000ff, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
40 Xgmask = 0x0000ff00, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
41 Xbmask = 0x00ff0000, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
42 Xamask = 0xff000000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
43 #endif |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
44 |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
45 // Create result conversion surface |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
46 SDL_Surface |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
47 *result = NULL, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
48 *pixtmp = SDL_CreateRGBSurface( |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
49 SDL_SWSURFACE | SDL_SRCALPHA, 16, 16, 32, Xrmask, Xgmask, Xbmask, Xamask); |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
50 |
0 | 51 if (tmp != NULL && pixtmp != NULL) |
52 { | |
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
53 // Convert surface |
0 | 54 result = SDL_ConvertSurface(tmp, pixtmp->format, SDL_SWSURFACE | SDL_SRCALPHA); |
55 SDL_FreeSurface(tmp); | |
56 } | |
57 if (pixtmp != NULL) | |
58 SDL_FreeSurface(pixtmp); | |
59 | |
60 return result; | |
61 } | |
62 | |
63 | |
64 SDL_Surface *dmCreatePaletteSurfaceFrom(void *data, const int width, const int height, const int pitch) | |
65 { | |
66 int yc; | |
67 Uint8 *dst, *src; | |
68 SDL_Surface *result; | |
69 result = SDL_CreateRGBSurface(SDL_SWSURFACE, width, height, 8, 0,0,0,0); | |
70 if (result == NULL) | |
71 return NULL; | |
72 | |
73 dst = result->pixels; | |
74 src = data; | |
75 for (yc = 0; yc < height; yc++) | |
76 { | |
77 memcpy(dst, src, width * sizeof(Uint8)); | |
78 dst += result->pitch; | |
79 src += pitch; | |
80 } | |
81 | |
82 return result; | |
83 } | |
84 | |
85 | |
86 | |
87 static int dmSTBIread(void *user, char *data, int size) | |
88 { | |
89 return dmfread(data, 1, size, (DMResource *) user); | |
90 } | |
91 | |
92 | |
899
63fd1801f983
Mangle new stb_image to our purposes.
Matti Hamalainen <ccr@tnsp.org>
parents:
870
diff
changeset
|
93 static void dmSTBIskip(void *user, int n) |
0 | 94 { |
95 dmfseek((DMResource *) user, n, SEEK_CUR); | |
96 } | |
97 | |
98 | |
99 static int dmSTBIeof(void *user) | |
100 { | |
101 return dmfeof((DMResource *) user); | |
102 } | |
103 | |
104 | |
105 static const stbi_io_callbacks dmSTBICallbacks = | |
106 { | |
107 dmSTBIread, | |
108 dmSTBIskip, | |
109 dmSTBIeof, | |
110 }; | |
111 | |
112 | |
113 SDL_Surface *dmLoadImage(DMResource *file) | |
114 { | |
115 Uint32 rmask, gmask, bmask, amask; | |
116 SDL_Surface *result = NULL; | |
117 int width, height, comp; | |
118 Uint8 *data; | |
119 | |
120 data = stbi_load_from_callbacks(&dmSTBICallbacks, file, &width, &height, &comp, 0); | |
121 | |
122 if (data == NULL) | |
123 { | |
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
950
diff
changeset
|
124 dmError(DMERR_DATA_ERROR, |
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
950
diff
changeset
|
125 "Error decoding image resource %p '%s' [%d, %d, %d]: %s\n", |
0 | 126 file, file->filename, width, height, comp, stbi_failure_reason()); |
127 return NULL; | |
128 } | |
129 | |
130 | |
131 switch (comp) | |
132 { | |
133 case 4: | |
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
134 #if SDL_BYTEORDER == SDL_BIG_ENDIAN |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
135 rmask = 0xff000000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
136 gmask = 0x00ff0000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
137 bmask = 0x0000ff00; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
138 amask = 0x000000ff; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
139 #else |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
140 rmask = 0x000000ff; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
141 gmask = 0x0000ff00; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
142 bmask = 0x00ff0000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
143 amask = 0xff000000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
144 #endif |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
145 result = dmCreateRGBSurfaceFrom(data, width, height, comp * 8, |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
146 width * comp, rmask, gmask, bmask, amask); |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
147 break; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
148 |
0 | 149 case 3: |
757
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
150 #if SDL_BYTEORDER == SDL_BIG_ENDIAN |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
151 rmask = 0x00ff0000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
152 gmask = 0x0000ff00; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
153 bmask = 0x000000ff; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
154 amask = 0x00000000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
155 #else |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
156 rmask = 0x000000ff; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
157 gmask = 0x0000ff00; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
158 bmask = 0x00ff0000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
159 amask = 0x00000000; |
dd59a650a318
Fix 24-bit surface conversions in image loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
160 #endif |
0 | 161 result = dmCreateRGBSurfaceFrom(data, width, height, comp * 8, |
162 width * comp, rmask, gmask, bmask, amask); | |
163 break; | |
164 | |
165 case 1: | |
166 result = dmCreatePaletteSurfaceFrom(data, width, height, width * comp); | |
167 break; | |
168 } | |
169 | |
170 stbi_image_free(data); | |
171 | |
172 if (result == NULL) | |
173 { | |
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
950
diff
changeset
|
174 dmError(DMERR_DATA_ERROR, |
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
950
diff
changeset
|
175 "Format conversion failed for image resource %p '%s' [%d, %d, %d].\n", |
0 | 176 file, file->filename, width, height, comp); |
177 } | |
178 | |
179 return result; | |
180 } |