fix Wiz timer drift and button name
[picodrive.git] / platform / common / readpng.c
1 #include <stdio.h>
2 #include <string.h>
3 #include <png.h>
4 #include "readpng.h"
5 #include "lprintf.h"
6
7 #ifdef PSP
8 #define BG_WIDTH  480
9 #define BG_HEIGHT 272
10 #else
11 #define BG_WIDTH  320
12 #define BG_HEIGHT 240
13 #endif
14
15 int readpng(void *dest, const char *fname, readpng_what what)
16 {
17         FILE *fp;
18         png_structp png_ptr = NULL;
19         png_infop info_ptr = NULL;
20         png_bytepp row_ptr = NULL;
21         int ret = -1;
22
23         if (dest == NULL || fname == NULL)
24         {
25                 return -1;
26         }
27
28         fp = fopen(fname, "rb");
29         if (fp == NULL)
30         {
31                 lprintf(__FILE__ ": failed to open: %s\n", fname);
32                 return -1;
33         }
34
35         png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
36         if (!png_ptr)
37         {
38                 lprintf(__FILE__ ": png_create_read_struct() failed\n");
39                 fclose(fp);
40                 return -1;
41         }
42
43         info_ptr = png_create_info_struct(png_ptr);
44         if (!info_ptr)
45         {
46                 lprintf(__FILE__ ": png_create_info_struct() failed\n");
47                 goto done;
48         }
49
50         // Start reading
51         png_init_io(png_ptr, fp);
52         png_read_png(png_ptr, info_ptr, PNG_TRANSFORM_STRIP_16 | PNG_TRANSFORM_STRIP_ALPHA | PNG_TRANSFORM_PACKING, NULL);
53         row_ptr = png_get_rows(png_ptr, info_ptr);
54         if (row_ptr == NULL)
55         {
56                 lprintf(__FILE__ ": png_get_rows() failed\n");
57                 goto done;
58         }
59
60         // lprintf("%s: %ix%i @ %ibpp\n", fname, (int)info_ptr->width, (int)info_ptr->height, info_ptr->pixel_depth);
61
62         switch (what)
63         {
64                 case READPNG_BG:
65                 {
66                         int height, width, h;
67                         unsigned short *dst = dest;
68                         if (info_ptr->pixel_depth != 24)
69                         {
70                                 lprintf(__FILE__ ": bg image uses %ibpp, needed 24bpp\n", info_ptr->pixel_depth);
71                                 break;
72                         }
73                         height = info_ptr->height;
74                         if (height > BG_HEIGHT) height = BG_HEIGHT;
75                         width = info_ptr->width;
76                         if (width > BG_WIDTH) width = BG_WIDTH;
77
78                         for (h = 0; h < height; h++)
79                         {
80                                 unsigned char *src = row_ptr[h];
81                                 int len = width;
82                                 while (len--)
83                                 {
84 #ifdef PSP
85                                         *dst++ = ((src[2]&0xf8)<<8) | ((src[1]&0xf8)<<3) | (src[0] >> 3); // BGR
86 #else
87                                         *dst++ = ((src[0]&0xf8)<<8) | ((src[1]&0xf8)<<3) | (src[2] >> 3); // RGB
88 #endif
89                                         src += 3;
90                                 }
91                                 dst += BG_WIDTH - width;
92                         }
93                         break;
94                 }
95
96                 case READPNG_FONT:
97                 {
98                         int x, y, x1, y1;
99                         unsigned char *dst = dest;
100                         if (info_ptr->width != 128 || info_ptr->height != 160)
101                         {
102                                 lprintf(__FILE__ ": unexpected font image size %ix%i, needed 128x160\n",
103                                         (int)info_ptr->width, (int)info_ptr->height);
104                                 break;
105                         }
106                         if (info_ptr->pixel_depth != 8)
107                         {
108                                 lprintf(__FILE__ ": font image uses %ibpp, needed 8bpp\n", info_ptr->pixel_depth);
109                                 break;
110                         }
111                         for (y = 0; y < 16; y++)
112                         {
113                                 for (x = 0; x < 16; x++)
114                                 {
115                                         for (y1 = 0; y1 < 10; y1++)
116                                         {
117                                                 unsigned char *src = row_ptr[y*10 + y1] + x*8;
118                                                 for (x1 = 8/2; x1 > 0; x1--, src+=2)
119                                                         *dst++ = ((src[0]^0xff) & 0xf0) | ((src[1]^0xff) >> 4);
120                                         }
121                                 }
122                         }
123                         break;
124                 }
125
126                 case READPNG_SELECTOR:
127                 {
128                         int x1, y1;
129                         unsigned char *dst = dest;
130                         if (info_ptr->width != 8 || info_ptr->height != 10)
131                         {
132                                 lprintf(__FILE__ ": unexpected selector image size %ix%i, needed 8x10\n",
133                                         (int)info_ptr->width, (int)info_ptr->height);
134                                 break;
135                         }
136                         if (info_ptr->pixel_depth != 8)
137                         {
138                                 lprintf(__FILE__ ": selector image uses %ibpp, needed 8bpp\n", info_ptr->pixel_depth);
139                                 break;
140                         }
141                         for (y1 = 0; y1 < 10; y1++)
142                         {
143                                 unsigned char *src = row_ptr[y1];
144                                 for (x1 = 8/2; x1 > 0; x1--, src+=2)
145                                         *dst++ = ((src[0]^0xff) & 0xf0) | ((src[1]^0xff) >> 4);
146                         }
147                         break;
148                 }
149
150                 case READPNG_320_24:
151                 case READPNG_480_24:
152                 {
153                         int height, width, h;
154                         int needw = (what == READPNG_480_24) ? 480 : 320;
155                         unsigned char *dst = dest;
156                         if (info_ptr->pixel_depth != 24)
157                         {
158                                 lprintf(__FILE__ ": image uses %ibpp, needed 24bpp\n", info_ptr->pixel_depth);
159                                 break;
160                         }
161                         height = info_ptr->height;
162                         if (height > 240) height = 240;
163                         width = info_ptr->width;
164                         if (width > needw) width = needw;
165
166                         for (h = 0; h < height; h++)
167                         {
168                                 int len = width;
169                                 unsigned char *src = row_ptr[h];
170                                 dst += (needw - width) * 3;
171                                 for (len = width; len > 0; len--, dst+=3, src+=3)
172                                         dst[0] = src[2], dst[1] = src[1], dst[2] = src[0];
173                         }
174                         break;
175                 }
176         }
177
178
179         ret = 0;
180 done:
181         png_destroy_read_struct(&png_ptr, info_ptr ? &info_ptr : NULL, (png_infopp)NULL);
182         fclose(fp);
183         return ret;
184 }
185
186