view release on metacpan or  search on metacpan

src/Source/FreeImage/PluginKOALA.cpp  view on Meta::CPAN

};

// ==========================================================
// Plugin Interface
// ==========================================================

static int s_format_id;

// ==========================================================
// Plugin Implementation
// ==========================================================

const char * DLL_CALLCONV
Format() {
	return "KOALA";
}

const char * DLL_CALLCONV
Description() {
	return "C64 Koala Graphics";
}

const char * DLL_CALLCONV
Extension() {
	return "koa";
}

const char * DLL_CALLCONV
RegExpr() {
	return NULL;
}

static const char * DLL_CALLCONV
MimeType() {
	return "image/x-koala";
}

static BOOL DLL_CALLCONV
Validate(FreeImageIO *io, fi_handle handle) {
	BYTE koala_signature[] = { 0x00, 0x60 };
	BYTE signature[2] = { 0, 0 };

	io->read_proc(signature, 1, sizeof(koala_signature), handle);

	return (memcmp(koala_signature, signature, sizeof(koala_signature)) == 0);
}

static BOOL DLL_CALLCONV
SupportsExportDepth(int depth) {
	return FALSE;
}

static BOOL DLL_CALLCONV 
SupportsExportType(FREE_IMAGE_TYPE type) {
	return FALSE;
}

// ----------------------------------------------------------

FIBITMAP * DLL_CALLCONV
Load(FreeImageIO *io, fi_handle handle, int page, int flags, void *data) {
	if (handle) {
		koala_t image;

		// read the load address

		unsigned char load_address[2];  // highbit, lowbit

		io->read_proc(&load_address, 1, 2, handle);

		// if the load address is correct, skip it. otherwise ignore the load address

		if ((load_address[0] != 0x00) || (load_address[1] != 0x60)) {
			((BYTE *)&image)[0] = load_address[0];
			((BYTE *)&image)[1] = load_address[1];

			io->read_proc((BYTE *)&image + 2, 1, 10001 - 2, handle);
		} else {
			io->read_proc(&image, 1, 10001, handle);
		}		

		// build DIB in memory

		FIBITMAP *dib = FreeImage_Allocate(CBM_WIDTH, CBM_HEIGHT, 4);

		if (dib) {
			// write out the commodore 64 color palette

			RGBQUAD *palette = FreeImage_GetPalette(dib);

			for (int i = 0; i < 16; i++) {
				palette[i].rgbBlue  = (BYTE)c64colours[i].b;
				palette[i].rgbGreen = (BYTE)c64colours[i].g;
				palette[i].rgbRed   = (BYTE)c64colours[i].r;
			}

			// write out bitmap data

			BYTE pixel_mask[4]         = { 0xc0, 0x30, 0x0c, 0x03 };
			BYTE pixel_displacement[4] = { 6, 4, 2, 0 };
			int	pixel, index, colourindex;
			unsigned char found_color = 0;

			for (int y = 0; y < 200; y++) {
				for (int x = 0; x < 160; x++) {
					// Get value of pixel at (x,y)

					index = (x / 4) * 8 + (y % 8) + (y / 8) * CBM_WIDTH;
					colourindex = (x / 4) + (y / 8) * 40;
					pixel = (image.image[index] & pixel_mask[x % 4]) >> pixel_displacement[x % 4];

					// Retrieve RGB values

					switch (pixel) {
						case 0: // Background
							found_color = image.background;
							break;
							
						case 1: // Colour 1
							found_color = image.colour1[colourindex] >> 4;
							break;