--- /dev/null
+/*****************************************************************************
+** 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;
+}
+
+
+
+/**
+ *
+ * Draw a polygon.
+ *
+ * \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_polygon(int dev, int N_pt, double *points)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_polygon: No such device: %d\n", dev);
+ return;
+ }
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_polygon_pd(devp->d.pd, N_pt, points);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_polygon(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 filled polygon.
+ *
+ * \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_filled_polygon(int dev, int N_pt, double *points)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_filled_polygon: No such device: %d\n", dev);
+ return;
+ }
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_filled_polygon_pd(devp->d.pd, N_pt, points);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_filled_polygon(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 an ellipse.
+ *
+ * \param dev device
+ * \param x x coordinate of the center
+ * \param y y coordinate of the center
+ * \param r1 x radius
+ * \param r2 y radius
+ *
+ * \ingroup graphic
+ */
+void g2_ellipse(int dev, double x, double y, double r1, double r2)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_ellipse: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_ellipse_pd(devp->d.pd, x, y, r1, r2);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_ellipse(devp->d.vd->dix[i], x, y, r1, r2);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw a filled ellipse.
+ *
+ * \param dev device
+ * \param x x coordinate of the center
+ * \param y y coordinate of the center
+ * \param r1 x radius
+ * \param r2 y radius
+ *
+ * \ingroup graphic
+ */
+void g2_filled_ellipse(int dev, double x, double y, double r1, double r2)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_filled_ellipse: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_filled_ellipse_pd(devp->d.pd, x, y, r1, r2);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_filled_ellipse(devp->d.vd->dix[i], x, y, r1, r2);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw a circle.
+ *
+ * \param dev device
+ * \param x x coordinate of the center
+ * \param y y coordinate of the center
+ * \param r radius
+ *
+ * \ingroup graphic
+ */
+void g2_circle(int dev, double x, double y, double r)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_circle: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_circle_pd(devp->d.pd, x, y, r);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_circle(devp->d.vd->dix[i], x, y, r);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw a filled circle.
+ *
+ * \param dev device
+ * \param x x coordinate of the center
+ * \param y y coordinate of the center
+ * \param r radius
+ *
+ * \ingroup graphic
+ */
+void g2_filled_circle(int dev, double x, double y, double r)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_filled_circle: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_filled_circle_pd(devp->d.pd, x, y, r);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_filled_circle(devp->d.vd->dix[i], x, y, r);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw an arc.
+ *
+ * \param dev device
+ * \param x x coordinate of the center
+ * \param y y coordinate of the center
+ * \param r1 x radius
+ * \param r2 y radius
+ * \param a1 starting angle (in deg. 0-360)
+ * \param a2 ending angle (in deg. 0-360)
+ *
+ * \ingroup graphic
+ */
+void g2_arc(int dev,
+ double x, double y,
+ double r1, double r2,
+ double a1, double a2)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_arc: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_arc_pd(devp->d.pd, x, y, r1, r2, a1, a2);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_arc(devp->d.vd->dix[i], x, y, r1, r2, a1, a2);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw a filled arc.
+ *
+ * \param dev device
+ * \param x x coordinate of the center
+ * \param y y coordinate of the center
+ * \param r1 x radius
+ * \param r2 y radius
+ * \param a1 starting angle (in deg. 0-360)
+ * \param a2 ending angle (in deg. 0-360)
+ *
+ * \ingroup graphic
+ */
+void g2_filled_arc(int dev,
+ double x, double y,
+ double r1, double r2,
+ double a1, double a2)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_filled_arc: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_filled_arc_pd(devp->d.pd, x, y, r1, r2, a1, a2);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_filled_arc(devp->d.vd->dix[i], x, y, r1, r2, a1, a2);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw string, see also g2_set_font_size().
+ *
+ * \param dev device
+ * \param x x coordinate
+ * \param y y coordinate
+ * \param text null terminated string
+ *
+ * \ingroup graphic
+ */
+void g2_string(int dev, double x, double y, const char *text)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_string: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_string_pd(devp->d.pd, x, y, text);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_string(devp->d.vd->dix[i], x, y, text);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Draw a pen image
+ *
+ * \param dev device
+ * \param x x coordinate
+ * \param y y coordinate
+ * \param x_size x size
+ * \param y_size y size
+ * \param pens vector of x_size*y_size pens: p11, p21, ... pxy, ...
+ *
+ * \ingroup graphic
+ */
+void g2_image(int dev, double x, double y, int x_size, int y_size, int *pens)
+{
+ g2_device *devp;
+ int i;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_image: No such device: %d\n", dev);
+ return;
+ }
+
+ devp->x=x;
+ devp->y=y;
+
+ switch(devp->t) {
+ case g2_PD:
+ g2_image_pd(devp->d.pd, x, y, x_size, y_size, pens);
+ break;
+ case g2_VD:
+ for(i=0;i<devp->d.vd->N;i++)
+ g2_image(devp->d.vd->dix[i], x, y, x_size, y_size, pens);
+ break;
+ case g2_ILLEGAL:
+ break;
+ case g2_NDEV:
+ break;
+ }
+
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Quasi Pixel fake. Quasi pixel is introduced to make easier
+ * plotting of cellular automata and related pictures. QP is simple a big pixel as
+ * specified by g2_set_QP(). Coordinates are skaled accordingly, so no recalculation
+ * is needed on client side.
+ *
+ * \param dev device
+ * \param x x coordinate
+ * \param y y coordinate
+ *
+ * \ingroup graphic
+ */
+void g2_plot_QP(int dev, double x, double y)
+{
+ g2_device *devp;
+ double d;
+
+ if((devp=g2_get_device_pointer(dev))==NULL) {
+ fprintf(stderr, "g2_plot_QP: No such device: %d\n", dev);
+ return;
+ }
+
+ x=dtoi(x);
+ y=dtoi(y);
+ d=devp->QPd;
+ switch(devp->QPshape) {
+ case QPrect:
+ g2_filled_rectangle(dev, x*d-d/2, y*d-d/2, x*d+d/2, y*d+d/2);
+ break;
+ case QPcirc:
+ g2_filled_circle(dev, x*d, y*d, d/2.0);
+ break;
+ default:
+ fprintf(stderr, "g2: QP: unknown shape\n");
+ break;
+ }
+ if(devp->auto_flush)
+ g2_flush(dev);
+
+ __g2_last_device=dev;
+}
+
+
+
+
+
+