g2_ui_graphic.c

ViennaRNA-1.6.1

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