/*
 * Affichage d'une image sur un écran privé grâce aux datatypes
 * Par Corto pour www.guru-meditation.net
 * Date : 21/01/03
 */
 
#include <stdio.h>
#include <stdlib.h>
 
#include <exec/exec.h>
#include <dos/dos.h>
#include <intuition/intuition.h>
#include <graphics/gfx.h>
#include <graphics/display.h>
 
#include <datatypes/datatypesclass.h>
#include <datatypes/pictureclass.h>
 
#include <proto/exec.h>
#include <proto/intuition.h>
#include <proto/dos.h>
#include <proto/graphics.h>
#include <proto/datatypes.h>
 
// Variables communes au module
struct Screen *				screen 			= NULL;
struct Window *				window 			= NULL;
struct Library *			IntuitionBase 	= NULL;
struct Library *			GfxBase 		= NULL;
struct Library *			DataTypesBase 	= NULL;
 
struct IntuitionIFace *		IIntuition 		= NULL;
struct GraphicsIFace * 		IGraphics 		= NULL;
struct DataTypesIFace * 	IDatatypes 		= NULL;
//struct ExecIFace *      	IExec			= NULL;
 
ULONG *palette = NULL;
Object *dtype = NULL;
 
// Prototypes
static void quit(char *msg);
static ULONG *adaptCmap(int nc, ULONG *cr);
 
 
/*
 * Code du programme principal
 */
int main(int argc, char*argv[]){
	ULONG modeID = 0L;
	struct BitMapHeader *bmh = NULL;
	int width, height, depth;
	ULONG res;
	struct BitMap *bitmap = NULL;
	ULONG colorNumber;
	ULONG *colorRegisters;
 
 
	/* Vérification des arguments */
	if (argc != 2){
		printf("Usage : %s Image file\n", argv[0]);
		return(1);
	}
 
	/* Ouverture des bibliothèques nécessaires */
	IntuitionBase = IExec->OpenLibrary("intuition.library", 36);
	GfxBase = IExec->OpenLibrary("graphics.library", 40L);
	DataTypesBase = IExec->OpenLibrary("datatypes.library", 39);
 
	printf("Opened libraries\n");
 
	if ((IntuitionBase == NULL) || (DataTypesBase == NULL || (GfxBase == NULL) )  ){  
		quit("problem setting up intuitionBase, DataTypesBase, and GraphicsBase\n");
	}
 
 
	/* Création du datatype et récupération des infos générales */
	dtype = IDataTypes->NewDTObject( (char *) argv[1],
							PDTA_DestMode,
							PMODE_V43,
							TAG_END);
 
	printf("Created datatype object\n");
 
	if (dtype == NULL){
		quit("Failed to load data type\n");
	}
 
	res = IDataTypes->GetDTAttrs(dtype, PDTA_BitMapHeader, (ULONG)&bmh, TAG_END);
	if (res != 1){
		quit("Unable to obtain details of picture from Datatypes\n");
	}
	width = bmh->bmh_Width;
	height = bmh->bmh_Height;
	depth = bmh->bmh_Depth;
 
	printf("got GetDTAttrs\n");
 
	/* Pour l'exemple, on force la profondeur de l'écran à 8 ... */
	depth = 8;
 
	/* ... et on cherche quel est le meilleur écran 8 bits pour l'image */
	modeID = IGraphics->BestModeID(
			BIDTAG_NominalWidth, width,
			BIDTAG_NominalHeight, height,
			BIDTAG_DesiredWidth, width,	
			BIDTAG_DesiredHeight, height,
			BIDTAG_Depth, depth,
			TAG_END);
 
 
	if (modeID == INVALID_ID){
		quit("Unable to open requested ModeID\n");
	}
 
	printf("set modeID\n");
 
	/* Ouverture de l'écran puis de la fenêtre */
	screen = IIntuition->OpenScreenTags(NULL,
			SA_Width, width,
			SA_Height, height,
			SA_Title, (ULONG)"Datatype picture display",
			SA_DisplayID, modeID,
			SA_Depth, depth,
			SA_Type, CUSTOMSCREEN,
			SA_Interleaved, TRUE,
			SA_FullPalette, TRUE,
			TAG_END);
	if (!screen){
		quit("Unable to open requested screen\n");
	}
 
	window = IIntuition->OpenWindowTags(NULL,
			WA_Left, 0,
			WA_Top, 0,
			WA_Width, width,
			WA_Height, height,
			WA_IDCMP, IDCMP_RAWKEY | IDCMP_MOUSEBUTTONS,
			WA_CustomScreen, (ULONG)screen,
			WA_SizeGadget, FALSE,
			WA_DepthGadget, FALSE,
			WA_CloseGadget, FALSE,
			WA_Borderless, TRUE,
			WA_RMBTrap, TRUE,
			WA_SimpleRefresh, TRUE,
			WA_InnerWidth, width,
			WA_InnerHeight, height,
			TAG_DONE);
 
	if (!window){
	 quit("Unable to open window\n");
	}
 
	printf("Starting do method\n");
 
	if(IDataTypes->DoDTMethod(dtype, NULL, NULL,DTM_PROCLAYOUT, NULL, 1)){
 
	printf("Done do method\n");
 
		res = IDataTypes->GetDTAttrs(dtype,
			PDTA_DestBitMap, (ULONG)&bitmap,
			PDTA_NumColors, (ULONG)&colorNumber,
			PDTA_CRegs, (ULONG)&colorRegisters,
			TAG_DONE);
		if (res != 3){
			quit("Le chargement de l'image a échoué\n");
		}
 
		if(bitmap){
			palette = adaptCmap(colorNumber, colorRegisters);
			IGraphics->LoadRGB32(&screen->ViewPort, palette);
			IGraphics->BltBitMapRastPort(bitmap, 0, 0, window->RPort, 0, 0, width, height, 0xc0);
		}
	}else{
		quit("Echec dans l'exécution de la méthode DTM_PROCLAYOUT\n");
	}
 
	/* Attente et libération ressources */
	IExec->WaitPort(window->UserPort);
 
	quit(NULL);
 
	return 0;
}
 
 
/*
* quit
* Pour sortir proprement en tout point du programme
*/
static void quit(char *msg){
	if (msg != NULL){
		printf("%s\n",msg);
	}
 
	if (dtype != NULL){
		IDataTypes->DisposeDTObject(dtype);
	}
	if (window != NULL){
		IIntuition->CloseWindow(window);
	}
	if (screen != NULL){
		IIntuition->CloseScreen(screen);
	}
	if (palette != NULL){
		free(palette);
	}
	if (DataTypesBase != NULL){
		IExec->CloseLibrary((struct Library *)DataTypesBase);
	}
	if (IntuitionBase != NULL){
		IExec->CloseLibrary((struct Library *)IntuitionBase);
	}
	if (GfxBase != NULL){
		IExec->CloseLibrary((struct Library *)GfxBase);
	}
}
 
 
/*
 * adaptCmap
 * Transformation de la palette obtenue par le datatype en une palette
 * système au format LoadRGB32().
 */
static ULONG *adaptCmap(int nc, ULONG *cr){
	int c;
	ULONG	*colourtable;
 
	colourtable = (ULONG *)malloc((1 + 3 * nc + 1) * sizeof(ULONG));
	if (colourtable != NULL){
		colourtable[0] = (nc << 16) + 0;
		for (c = 0; c < nc; c++) {
			colourtable[3 * c + 1] = cr[3 * c + 0];
			colourtable[3 * c + 2] = cr[3 * c + 1];
			colourtable[3 * c + 3] = cr[3 * c + 2];
		}
		colourtable[1 + 3 * nc] = 0;
	}
	return colourtable;
}