g2_ui_graphic.c

ViennaRNA-1.6.1

/*****************************************************************************
**  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;
}