/*******************************************************************************  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 <string.h>#include "g2.h"#include "g2_util.h"/* * * g2 Fortran Interface * */#ifdef LINUX#define FIF(funame) funame ## __#else#define FIF(funame) funame ## _#endif#define F_REAL         float    /* everything is float (real) !!!!!!!!!!!!!! */#define F_CHAR         char     /* only char is char */#define F_CHAR_LENGTH  int      /* and char length is integer (it is automatically supplied *//**********************************************************/#ifdef DO_PS#include "PS/g2_PS.h"F_REAL FIF(g2_open_ps)(F_CHAR *text, F_REAL *paper, F_REAL *orientation,		       F_CHAR_LENGTH length){    char *str;    int rv;    str=g2_malloc((length+1)*sizeof(char));    strncpy(str, text, length);    str[length]='\0';    rv=g2_open_PS(str, dtoi(*paper), dtoi(*orientation));    g2_free(str);        return (F_REAL)rv;}#endif /* DO_PS *//**********************************************************/#ifdef DO_X11#include "X11/g2_X11.h"F_REAL FIF(g2_open_x11)(F_REAL *width, F_REAL *height){    return (F_REAL)g2_open_X11(*width, *height);}/* g2_open_x11x is missing */#endif /* DO_X11 *//**********************************************************/#ifdef DO_GD#include "GD/g2_gd.h"F_REAL FIF(g2_open_gd)(F_CHAR *text, F_REAL *width, F_REAL *height, F_REAL *gd_type,			F_CHAR_LENGTH length){    char *str;    int rv;        str=g2_malloc((length+1)*sizeof(char));    strncpy(str, text, length);    str[length]='\0';    rv=g2_open_gd(str, *width, *height, *gd_type);        g2_free(str);        return (F_REAL)rv;}#endif /* DO_GD *//**********************************************************/F_REAL FIF(g2_open_vd)(void){    return (F_REAL)g2_open_vd();}void FIF(g2_attach)(F_REAL *vd_dev, F_REAL *dev){    g2_attach(dtoi(*vd_dev), dtoi(*dev));}void FIF(g2_detach)(F_REAL *vd_dev, F_REAL *dev){    g2_detach(dtoi(*vd_dev), dtoi(*dev));}void FIF(g2_close)(F_REAL *dev){    g2_close(dtoi(*dev));}void FIF(g2_set_auto_flush)(F_REAL *dev, F_REAL *on_off){    g2_set_auto_flush(dtoi(*dev), dtoi(*on_off));}void FIF(g2_set_coordinate_system)(F_REAL *dev,				   F_REAL *x_origin, F_REAL *y_origin,				   F_REAL *x_mul,    F_REAL *y_mul){    g2_set_coordinate_system(dtoi(*dev),			     *x_origin, *y_origin,			     *x_mul,    *y_mul);}F_REAL FIF(g2_ld)(void){    return (F_REAL)g2_ld();}void FIF(g2_set_ld)(F_REAL *dev){    g2_set_ld(dtoi(*dev));}void FIF(g2_flush)(F_REAL *dev){    g2_flush(dtoi(*dev));}void FIF(g2_save)(F_REAL *dev){    g2_save(dtoi(*dev));}void FIF(g2_arc)(F_REAL *dev, F_REAL *x, F_REAL *y,		 F_REAL *r1, F_REAL *r2, F_REAL *a1, F_REAL *a2){    g2_arc(dtoi(*dev), *x,  *y, *r1,  *r2,  *a1,  *a2);}void FIF(g2_circle)(F_REAL *dev, F_REAL *x, F_REAL *y, F_REAL *r){    g2_circle(dtoi(*dev), *x, *y, *r);}void FIF(g2_clear)(F_REAL *dev){    g2_clear(dtoi(*dev));}void FIF(g2_clear_palette)(F_REAL *dev){    g2_clear_palette(dtoi(*dev));}void FIF(g2_string)(F_REAL *dev, F_REAL *x, F_REAL *y, F_CHAR *text,		    F_CHAR_LENGTH length){    char *str;    str=g2_malloc((length+1)*sizeof(char));    strncpy(str, text, length);    str[length]='\0';    g2_string(dtoi(*dev), *x, *y, str);    g2_free(str);}void FIF(g2_ellipse)(F_REAL *dev, F_REAL *x, F_REAL *y, F_REAL *r1, F_REAL *r2){    g2_ellipse(dtoi(*dev), *x, *y, *r1, *r2);}void FIF(g2_filled_arc)(F_REAL *dev, F_REAL *x, F_REAL *y,			F_REAL *r1, F_REAL *r2,			F_REAL *a1, F_REAL *a2){    g2_filled_arc(dtoi(*dev), *x, *y, *r1, *r2, *a1, *a2);}void FIF(g2_filled_circle)(F_REAL *dev, F_REAL *x, F_REAL *y, F_REAL *r){    g2_filled_circle(dtoi(*dev), *x, *y, *r);}void FIF(g2_filled_ellipse)(F_REAL *dev, F_REAL *x, F_REAL *y, F_REAL *r1, F_REAL *r2){    g2_filled_ellipse(dtoi(*dev), *x, *y, *r1, *r2);}void FIF(g2_filled_triangle)(F_REAL *dev, F_REAL *x1, F_REAL *y1,			     F_REAL *x2, F_REAL *y2,			     F_REAL *x3, F_REAL *y3){    g2_filled_triangle(dtoi(*dev), *x1, *y1, *x2, *y2, *x3, *y3);}F_REAL  FIF(g2_ink)(F_REAL *dev, F_REAL *red, F_REAL *green, F_REAL *blue){    return (F_REAL)g2_ink(dtoi(*dev), *red, *green, *blue);}void FIF(g2_line)(F_REAL *dev, F_REAL *x1, F_REAL *y1, F_REAL *x2, F_REAL *y2){    g2_line(dtoi(*dev), *x1, *y1, *x2, *y2);}void FIF(g2_poly_line)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_poly_line(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}void FIF(g2_polygon)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_polygon(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}void FIF(g2_filled_polygon)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_filled_polygon(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}void FIF(g2_line_r)(F_REAL *dev, F_REAL *dx, F_REAL *dy){    g2_line_r(dtoi(*dev), *dx, *dy);}void FIF(g2_line_to)(F_REAL *dev, F_REAL *x, F_REAL *y){    g2_line_to(dtoi(*dev), *x, *y);}void FIF(g2_move)(F_REAL *dev, F_REAL *x, F_REAL *y){    g2_move(dtoi(*dev), *x, *y);}void FIF(g2_move_r)(F_REAL *dev, F_REAL *dx, F_REAL *dy){    g2_move_r(dtoi(*dev), *dx, *dy);}void FIF(g2_pen)(F_REAL *dev, F_REAL *color){    g2_pen(dtoi(*dev), dtoi(*color));}void FIF(g2_plot)(F_REAL *dev, F_REAL *x, F_REAL *y){    g2_plot(dtoi(*dev), *x, *y);}void FIF(g2_plot_r)(F_REAL *dev, F_REAL *dx, F_REAL *dy){    g2_plot_r(dtoi(*dev), *dx, *dy);}void FIF(g2_rectangle)(F_REAL *dev,		       F_REAL *x1, F_REAL *y1,		       F_REAL *x2, F_REAL *y2){    g2_rectangle(dtoi(*dev), *x1, *y1, *x2, *y2);}void FIF(g2_filled_rectangle)(F_REAL *dev,			      F_REAL *x1, F_REAL *y1,			      F_REAL *x2, F_REAL *y2){    g2_filled_rectangle(dtoi(*dev), *x1, *y1, *x2, *y2);}void FIF(g2_reset_palette)(F_REAL *dev){    g2_reset_palette(dtoi(*dev));}void FIF(g2_set_background)(F_REAL *dev, F_REAL *color){    g2_set_background(dtoi(*dev), dtoi(*color));}void FIF(g2_set_dash)(F_REAL *dev, F_REAL *N, F_REAL *dashes){    double *d;    d=g2_floatp2doublep(dashes, dtoi(*N));    g2_set_dash(dtoi(*dev), dtoi(*N), d);    g2_free(d);}void FIF(g2_set_font_size)(F_REAL *dev, F_REAL *size){    g2_set_font_size(dtoi(*dev), *size);}void FIF(g2_set_line_width)(F_REAL *dev, F_REAL *w){    g2_set_line_width(dtoi(*dev), *w);}void FIF(g2_triangle)(F_REAL *dev, F_REAL *x1, F_REAL *y1,		      F_REAL *x2, F_REAL *y2,		      F_REAL *x3, F_REAL *y3){    g2_triangle(dtoi(*dev), *x1, *y1, *x2, *y2, *x3, *y3);}void FIF(g2_set_qp)(F_REAL *dev, F_REAL *d, F_REAL *shape){    g2_set_QP(dtoi(*dev), *d, dtoi(*shape));}void FIF(g2_plot_qp)(F_REAL *dev, F_REAL *x, F_REAL *y){    g2_plot_QP(dtoi(*dev), *x, *y);}/* thanks to Yuri Sbitnev for contributing the g2_image code for FORTRAN */void FIF(g2_image)(F_REAL *dev, F_REAL *x, F_REAL *y, F_REAL *x_size, F_REAL *y_size,		   F_REAL *pens){    int i, j, xs, ys;    int *mypens;    xs=dtoi(*x_size);    ys=dtoi(*y_size);    mypens=(int *) g2_malloc(xs*ys*sizeof(int));    for(j=0;j<ys;j++)       for(i=0;i<xs;i++)         mypens[j*xs+i]=dtoi(pens[j*xs+i]);         /* pens[dtoi(*y_size)][dtoi(*x_size)] */    g2_image(dtoi(*dev), *x, *y, xs, ys, mypens);    g2_free(mypens);}void FIF(g2_spline)(F_REAL *dev, F_REAL *N_pt, F_REAL *points, F_REAL *o){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_spline(dtoi(*dev), dtoi(*N_pt), d, dtoi(*o));    g2_free(d);}void FIF(g2_b_spline)(F_REAL *dev, F_REAL *N_pt, F_REAL *points, F_REAL *o){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_b_spline(dtoi(*dev), dtoi(*N_pt), d, dtoi(*o));    g2_free(d);}void FIF(g2_raspln)(F_REAL *dev, F_REAL *N_pt, F_REAL *points, F_REAL *tn){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_raspln(dtoi(*dev), dtoi(*N_pt), d, *tn);    g2_free(d);}void FIF(g2_para_3)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_para_3(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}void FIF(g2_para_5)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_para_5(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}void FIF(g2_filled_spline)(F_REAL *dev, F_REAL *N_pt, F_REAL *points, F_REAL *o){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_filled_spline(dtoi(*dev), dtoi(*N_pt), d, dtoi(*o));    g2_free(d);}void FIF(g2_filled_b_spline)(F_REAL *dev, F_REAL *N_pt, F_REAL *points, F_REAL *o){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_filled_b_spline(dtoi(*dev), dtoi(*N_pt), d, dtoi(*o));    g2_free(d);}void FIF(g2_filled_raspln)(F_REAL *dev, F_REAL *N_pt, F_REAL *points, F_REAL *tn){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_filled_raspln(dtoi(*dev), dtoi(*N_pt), d, *tn);    g2_free(d);}void FIF(g2_filled_para_3)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_filled_para_3(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}void FIF(g2_filled_para_5)(F_REAL *dev, F_REAL *N_pt, F_REAL *points){    double *d;    d=g2_floatp2doublep(points, dtoi(*N_pt)*2);    g2_filled_para_5(dtoi(*dev), dtoi(*N_pt), d);    g2_free(d);}