/*****************************************************************************
**  Copyright (C) 1998-2001  Ljubomir Milanovic & Horst Wagner
**  This file is part of the g2 library
**
**  This library is free software; you can redistribute it and/or
**  modify it under the terms of the GNU Lesser General Public
**  License as published by the Free Software Foundation; either
**  version 2.1 of the License, or (at your option) any later version.
**
**  This library is distributed in the hope that it will be useful,
**  but WITHOUT ANY WARRANTY; without even the implied warranty of
**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
**  Lesser General Public License for more details.
**
**  You should have received a copy of the GNU Lesser General Public
**  License along with this library; if not, write to the Free Software
**  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
******************************************************************************/
#include <stdio.h>

#include "g2.h"
#include "g2_funix.h"
#include "g2_device.h"
#include "g2_util.h"

/**
 * \ingroup interface
 * \defgroup device devices control
 */


/**
 *
 * Close and delete a device.
 *
 * \param dev device
 *
 * \ingroup device
 */
void g2_close(int dev)
{
    g2_device *devp;

    if((devp=g2_get_device_pointer(dev))==NULL) {
	fprintf(stderr, "g2_close: Warning! No such device: %d\n", dev);
	return;
    }
    
    switch(devp->t) {
      case g2_PD:
	devp->d.pd->ff[g2_Delete].fun(devp->d.pd->pid,
				      devp->d.pd->pdp);
	break;
      case g2_VD:
	while(devp->d.vd->N>0)			  /* close all devices */
	    g2_close(devp->d.vd->dix[devp->d.vd->N-1]);
	break;
      case g2_ILLEGAL:
	break;
      case g2_NDEV:
	break;
    }
    g2_destroy_device(dev);			  /* destroy device */
}


/**
 *
 * Set auto flush mode for device \a dev. Auto flush mode means that after each graphical
 * operation g2 library automatically calls flush function to ensure that output is realy
 * displayed. However, freqent flushing decreases performance. Alternative is to flush
 * output when needed by calling g2_flush function.
 *
 * \param dev device
 * \param on_off 1-on 0-off
 *
 * \ingroup device
 */
void g2_set_auto_flush(int dev, int on_off)
{
    g2_device *devp;
    int i;
    
    if((devp=g2_get_device_pointer(dev))==NULL) {
	g2_log(Error, "g2: Error! g2_set_auto_flush: No such device: %d\n", dev);
	return;
    }
    
    switch(devp->t) {
      case g2_PD:
	break;
      case g2_VD:
	for(i=0;i<devp->d.vd->N;i++) {
	    g2_set_auto_flush(devp->d.vd->dix[i], on_off);
	}
	break;
      case g2_ILLEGAL:
	break;
      case g2_NDEV:
	break;
    }
    
    devp->auto_flush=on_off;  /* set auto flush for all (vd and pd) devices */
    __g2_last_device=dev;
}


/**
 *
 * Set the user coordinate system.
 *
 * \param dev device
 * \param x_origin x coordinate of the new origin (expressed in the default coordinate system)
 * \param y_origin x coordinate of the new origin (expressed in the default coordinate system)
 * \param x_mul x scaling factor
 * \param y_mul y scaling factor
 *
 * \ingroup device
 */
void g2_set_coordinate_system(int dev,
			      double x_origin, double y_origin,
			      double x_mul,    double y_mul)
{
    g2_device *devp;
    int i;
    
    if(x_mul==0.0 || y_mul==0.0) {
	fprintf(stderr,
	     "g2_set_coordinate_system: Error! Multiplicator can not be 0.0");
	return;
    }
    
    if((devp=g2_get_device_pointer(dev))==NULL) {
	fprintf(stderr,
		"g2_set_coordinate_system: Warning! No such device: %d\n",
		dev);
	return;
    }
    
    switch(devp->t) {
      case g2_PD:
	devp->d.pd->x_origin=x_origin;
	devp->d.pd->y_origin=y_origin;
	devp->d.pd->x_mul=x_mul;
	devp->d.pd->y_mul=y_mul;
	break;
      case g2_VD:
	for(i=0;i<devp->d.vd->N;i++)
	    g2_set_coordinate_system(devp->d.vd->dix[i],
				     x_origin, y_origin,
				     x_mul, y_mul);
	break;
      case g2_ILLEGAL:
	break;
      case g2_NDEV:
	break;
    }
    __g2_last_device=dev;
}



/**
 *
 * Get the last accessed device. G2LD macro is defined as the g2_ld function.
 *
 * \code
 *   g2_open_X11(100, 100);
 *   g2_plot(G2LD, 50, 50);
 * \endcode
 *
 * \ingroup device
 */
int g2_ld(void)
{
    return __g2_last_device;
}



/**
 *
 * Set the last accessed device. See also g2_ld()  function.
 *
 * \param dev device
 *
 * \ingroup device
 */
void g2_set_ld(int dev)
{
    if(!g2_device_exist(dev)) {
	fprintf(stderr, "g2_set_lsd: Warning! No such device: %d\n", dev);
	return;
    }
    __g2_last_device=dev;
}