inline char* readstring2(){ //Read a Pascal string with 2 length bytes unsigned length = readint16(); char *string = (char*) malloc(length+1); readbytes(string, length); string[length] = '\0'; return string; }
unsigned char * simage_pic_load(const char *filename, int *width_ret, int *height_ret, int *numComponents_ret) { int w, h, width, height, i, j, format; unsigned char palette[256][3]; unsigned char * tmpbuf, * buffer, * ptr; FILE *fp = fopen(filename, "rb"); if (!fp) return NULL; picerror = ERROR_NO_ERROR; fseek(fp, 2, SEEK_SET); if (!readint16(fp, &w)) { picerror = ERROR_READING_HEADER; fclose(fp); return NULL; } fseek(fp, 4, SEEK_SET); if (!readint16(fp, &h)) { picerror = ERROR_READING_HEADER; fclose(fp); return NULL; } width = w; height = h; if (width <= 0 || height <= 0) { fclose(fp); return NULL; } fseek(fp, 32, SEEK_SET); if (fread(&palette, 3, 256, fp) != 256) { picerror = ERROR_READING_PALETTE; } tmpbuf = new unsigned char [width]; buffer = new unsigned char [3*width*height]; if (tmpbuf == NULL || buffer == NULL) { picerror = ERROR_MEMORY; if (tmpbuf) free(tmpbuf); if (buffer) free(buffer); fclose(fp); return NULL; } ptr = buffer; for (i = 0; i < height; i++) { if (fread(tmpbuf, 1, width, fp) != (size_t) width) { picerror = ERROR_READ_ERROR; fclose(fp); if (tmpbuf) delete [] tmpbuf; if (buffer) delete [] buffer; buffer = NULL; width = height = 0; return NULL; } for (j = 0; j < width; j++) { int idx = tmpbuf[j]; *ptr++ = palette[idx][0]; *ptr++ = palette[idx][1]; *ptr++ = palette[idx][2]; } } format = 3; fclose(fp); *width_ret = width; *height_ret = height; *numComponents_ret = format; if (tmpbuf) delete [] tmpbuf; return buffer; }