/*
THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.  
COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
*/

#include "pa_enabl.h"                   //$$POLY_ACC
#include <dos.h>
#include <stdlib.h>
#include <malloc.h>
#include <stdio.h>
#include <conio.h>
#include <string.h>

#include "types.h"
#include "mem.h"
#include "gr.h"
#include "grdef.h"
#include "error.h"
#include "mono.h"

#if defined(POLY_ACC)
#include "poly_acc.h"
#endif

#if !defined(WINDOWS) && !defined(MACINTOSH)
#include "dpmi.h"
#endif

#include "palette.h"

char gr_pal_default[768];

int gr_installed = 0;

int gr_show_screen_info = 0;

unsigned char * gr_video_memory = (unsigned char *)0xA0000;

//	Functions for GR.C

void gr_close()
{
	gr_close_screen();
	gr_installed = 0;
}


int gr_init(void)
{
	// Only do this function once!
	if (gr_installed==1)
		return 1;

//@@	switch (mode)
//@@	{
//@@		case SM_ORIGINAL:
//@@			return 0;
//@@	}

//	if (!dpmi_allocate_selector( &gr_fade_table, 256*GR_FADE_LEVELS, &gr_fade_table_selector ))
//		Error( "Error allocating fade table selector!" );
//
//	if (!dpmi_allocate_selector( &gr_palette, 256*3, &gr_palette_selector ))
//		Error( "Error allocating palette selector!" );

//	if (!dpmi_allocate_selector( &gr_inverse_table, 32*32*32, &gr_inverse_table_selector ))
//		Error( "Error allocating inverse table selector!" );


	// Set flags indicating that this is installed.
	gr_installed = 1;

	atexit(gr_close);

//@@	return gr_init_screen(mode,w,h,rowsize,data);

	return 0;
}

int gr_close_screen()
{
	if (grd_curscreen) {
		free(grd_curscreen);
		grd_curscreen = NULL;
	}

	return 0;
}



int gr_init_screen(int bitmap_type,int w,int h,int x, int y, int rowsize,ubyte *screen_addr)
{
	if (!gr_installed)
		return 1;

	gr_video_memory = screen_addr;

	if (grd_curscreen == NULL)
		MALLOC( grd_curscreen,grs_screen,1 );

	memset( grd_curscreen, 0, sizeof(grs_screen));

	grd_curscreen->sc_mode = bitmap_type;
	grd_curscreen->sc_w = w;
	grd_curscreen->sc_h = h;
	grd_curscreen->sc_aspect = fixdiv(grd_curscreen->sc_w*3,grd_curscreen->sc_h*4);

	grd_curscreen->sc_canvas.cv_bitmap.bm_x = x;
	grd_curscreen->sc_canvas.cv_bitmap.bm_y = y;
	grd_curscreen->sc_canvas.cv_bitmap.bm_w = w;
	grd_curscreen->sc_canvas.cv_bitmap.bm_h = h;
	grd_curscreen->sc_canvas.cv_bitmap.bm_rowsize = rowsize;
	grd_curscreen->sc_canvas.cv_bitmap.bm_type = bitmap_type;
#if defined(POLY_ACC)
    grd_curscreen->sc_canvas.cv_bitmap.bm_data = screen_addr;
#else
    grd_curscreen->sc_canvas.cv_bitmap.bm_data = (bitmap_type==BM_LINEAR)?screen_addr:NULL;
#endif

	grd_curscreen->sc_canvas.cv_color = 0;
	grd_curscreen->sc_canvas.cv_drawmode = 0;
	grd_curscreen->sc_canvas.cv_font = NULL;
	grd_curscreen->sc_canvas.cv_font_fg_color = 0;
	grd_curscreen->sc_canvas.cv_font_bg_color = 0;

	gr_set_current_canvas( &grd_curscreen->sc_canvas );

	return 0;
}