/*******************************************************************************  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_device.h"#include "g2_graphic_pd.h"#include "g2_util.h"/** * \ingroup interface * \defgroup graphic graphical output *//** * * Move graphic cursor. * * \param dev device * \param x x coordinate * \param y y coordinate * * \ingroup graphic */void g2_move(int dev, double x, double y){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_move: No such device: %d\n", dev);	return;    }        devp->x=x;					  /* set graph. cursor */    devp->y=y;    switch(devp->t) {      case g2_PD:	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_move(devp->d.vd->dix[i], x, y);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }    __g2_last_device=dev;}/** * * Move graphic cursor relative to the currner graphical cursor position. * * \param dev device * \param dx x coordinate increment * \param dy y coordinate increment * * \ingroup graphic */void g2_move_r(int dev, double dx, double dy){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_move_r: No such device: %d\n", dev);	return;    }    devp->x+=dx;				  /* set graph. cursor */    devp->y+=dy;        switch(devp->t) {      case g2_PD:	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_move_r(devp->d.vd->dix[i], dx, dy);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }    __g2_last_device=dev;}/** * * Plot a point * * \param dev device * \param x x coordinate * \param y y coordinate * * \ingroup graphic */void g2_plot(int dev, double x, double y){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_plot: No such device: %d\n", dev);	return;    }        devp->x=x;					  /* set graph. cursor */    devp->y=y;        switch(devp->t) {      case g2_PD:	g2_plot_pd(devp->d.pd, x, y);    	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_plot(devp->d.vd->dix[i], x, y);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);        __g2_last_device=dev;}/** * * Plot a point relative to graphical cursor. * * \param dev device * \param rx relative x coordinate  * \param ry relative y coordinate * * \ingroup graphic */void g2_plot_r(int dev, double rx, double ry){    g2_device *devp;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_plot_r: No such device: %d\n", dev);	return;    }        g2_plot(dev, devp->x+rx, devp->y+ry);        __g2_last_device=dev;}/** * * Draw a line from \p x1, \p y1 to \p x2, \p y2. * * \param dev device * \param x1 see above * \param y1 see above * \param x2 see above * \param y2 see above * * \ingroup graphic */void g2_line(int dev, double x1, double y1, double x2, double y2){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_line: No such device: %d\n", dev);	return;    }        devp->x=x2;    devp->y=y2;    switch(devp->t) {      case g2_PD:	g2_line_pd(devp->d.pd, x1, y1, x2, y2);	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_line(devp->d.vd->dix[i], x1, y1, x2, y2);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);        __g2_last_device=dev;}/** * * Draw line relative to the graphic cursor. * * \param dev device * \param dx relative x coordinate * \param dy relative y coordinate * * \ingroup graphic */void g2_line_r(int dev, double dx, double dy){    g2_device *devp;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_line_r: No such device: %d\n", dev);	return;    }    g2_line(dev, devp->x, devp->y, devp->x+dx, devp->y+dy);    __g2_last_device=dev;}/** * * Draw line from graphic cursor to the point \a x, \a y * * \param dev device * \param x x coordinate * \param y y coordinate * * \ingroup graphic */void g2_line_to(int dev, double x, double y){    g2_device *devp;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_line_to: No such device: %d\n", dev);	return;    }    g2_line(dev, devp->x, devp->y, x, y);    __g2_last_device=dev;}/** * * Draw a poly line. * * \param dev device * \param N_pt number of points (Note: It is not size of \a points vector!) * \param points vector of coordinates: x1, y1, x2, y2, ... * * \ingroup graphic */void g2_poly_line(int dev, int N_pt, double *points){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_poly_line: No such device: %d\n", dev);	return;    }        devp->x=points[2*(N_pt-1)+0];    devp->y=points[2*(N_pt-1)+1];        switch(devp->t) {      case g2_PD:	g2_poly_line_pd(devp->d.pd, N_pt, points);	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_poly_line(devp->d.vd->dix[i], N_pt, points);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);    __g2_last_device=dev;}/** * * Draw a triangle described by 3 corner points. * * \param dev device * \param x1 x coordinate of the 1st corner * \param y1 y coordinate of the 1st corner * \param x2 x coordinate of the 2nd corner * \param y2 y coordinate of the 2nd corner * \param x3 x coordinate of the 3rd corner * \param y3 y coordinate of the 3rd corner * * \ingroup graphic */void g2_triangle(int dev,		 double x1, double y1,		 double x2, double y2,		 double x3, double y3){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_triangle: No such device: %d\n", dev);	return;    }        devp->x=x3;    devp->y=y3;        switch(devp->t) {      case g2_PD:	g2_triangle_pd(devp->d.pd,		       x1, y1,		       x2, y2,		       x3, y3);	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_triangle(devp->d.vd->dix[i], x1, y1, x2, y2, x3, y3);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);    __g2_last_device=dev;}/** * * Draw a filled triangle specified by the 3 corner points. * * \param dev device * \param x1 x coordinate of the 1st corner * \param y1 y coordinate of the 1st corner * \param x2 x coordinate of the 2nd corner * \param y2 y coordinate of the 2nd corner * \param x3 x coordinate of the 3rd corner * \param y3 y coordinate of the 3rd corner * * \ingroup graphic */void g2_filled_triangle(int dev,			double x1, double y1,			double x2, double y2,			double x3, double y3){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_filled_triangle: No such device: %d\n", dev);	return;    }        devp->x=x3;    devp->y=y3;        switch(devp->t) {      case g2_PD:	g2_filled_triangle_pd(devp->d.pd,			      x1, y1,			      x2, y2,			      x3, y3);	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_filled_triangle(devp->d.vd->dix[i], x1, y1, x2, y2, x3, y3);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);    __g2_last_device=dev;}/** * * Draw a rectangle specified by the two opposite corner points. * * \param dev device * \param x1 x coordinate of the 1st corner * \param y1 y coordinate of the 1st corner * \param x2 x coordinate of the 3rd corner * \param y2 y coordinate of the 3rd corner * * \ingroup graphic */void g2_rectangle(int dev, double x1, double y1, double x2, double y2){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_rectangle: No such device: %d\n", dev);	return;    }        devp->x=x2;    devp->y=y2;    switch(devp->t) {      case g2_PD:	g2_rectangle_pd(devp->d.pd, x1, y1, x2, y2);	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_rectangle(devp->d.vd->dix[i], x1, y1, x2, y2);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);    __g2_last_device=dev;}/** * * Draw a filled rectangle specified by the two opposite corner points. * * \param dev device * \param x1 x coordinate of the 1st corner * \param y1 y coordinate of the 1st corner * \param x2 x coordinate of the 3rd corner * \param y2 y coordinate of the 3rd corner * * \ingroup graphic */void g2_filled_rectangle(int dev, double x1, double y1, double x2, double y2){    g2_device *devp;    int i;        if((devp=g2_get_device_pointer(dev))==NULL) {	fprintf(stderr, "g2_filled_rectangle: No such device: %d\n", dev);	return;    }        devp->x=x2;    devp->y=y2;    switch(devp->t) {      case g2_PD:	g2_filled_rectangle_pd(devp->d.pd, x1, y1, x2, y2);	break;      case g2_VD:	for(i=0;i<devp->d.vd->N;i++)	    g2_filled_rectangle(devp->d.vd->dix[i], x1, y1, x2, y2);	break;      case g2_ILLEGAL:	break;      case g2_NDEV:	break;    }        if(devp->auto_flush)	g2_flush(dev);    __g2_last_device=dev;}