Subversion Repositories wimsdev

Rev

Rev 14873 | Rev 17574 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. /*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
  2.  *
  3.  *  This program is free software; you can redistribute it and/or modify
  4.  *  it under the terms of the GNU General Public License as published by
  5.  *  the Free Software Foundation; either version 2 of the License, or
  6.  *  (at your option) any later version.
  7.  *
  8.  *  This program is distributed in the hope that it will be useful,
  9.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11.  *  GNU General Public License for more details.
  12.  *
  13.  *  You should have received a copy of the GNU General Public License
  14.  *  along with this program; if not, write to the Free Software
  15.  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16.  */
  17.  
  18. #include <stdio.h>
  19. #include <stdlib.h>
  20. #include <stdarg.h>
  21. #include <string.h>
  22. #include <unistd.h>
  23. #include <ctype.h>
  24. #include <math.h>
  25. #include <gd.h>
  26. #include <gdfontt.h>
  27. #include <gdfonts.h>
  28. #include <gdfontmb.h>
  29. #include <gdfontl.h>
  30. #include <gdfontg.h>
  31.  
  32. #include "../Lib/libwims.h"
  33.  
  34. #define MAX_PARMS   8192
  35. #define MAX_SIZE    4096
  36. #define MAX_VARS    1024
  37. #define MAX_VARNAMEBUF  16384
  38. #define BOUND   (MAX_SIZE*10)
  39. #define exec_prefix_char '#'
  40.  
  41.  
  42. /* from flydraw.c */
  43. extern int linecnt, varcnt;
  44. extern ev_variable vartab[];
  45. extern char varnamebuf[MAX_VARNAMEBUF], *varnameptr;
  46. extern gdImagePtr image, wimg, tileimg, brushimg;
  47. extern int brushed, tiled, styled, savew, wcolor, transform;
  48. typedef double matrice[4];
  49. #define JC_NB_MATRICES 19
  50. extern matrice matrices_pavage[JC_NB_MATRICES+1];
  51. #define matrix matrices_pavage[0]
  52. typedef double vecteur[2];
  53. extern vecteur vecteurs_pavage[JC_NB_MATRICES+1];
  54. #define vector vecteurs_pavage[0];
  55. extern double scale_buf[MAX_PARMS];
  56. extern double transx, transy; /* translation vector */
  57. extern double xscale, yscale, xstart, ystart;
  58. extern int sizex, sizey, saved;
  59. extern int color_white, color_black, color_bounder, color_frame, lstep;
  60. extern int width, width2;
  61. extern double tend, tstart, tstep, plotjump, animstep;
  62. extern int vimg_enable, vimg_ready;
  63. extern FILE *vimgf;
  64. extern char vimgfilename[1024], imagefilename[1024];
  65. extern int tranged;
  66. extern double parallogram_fonda[6];
  67. extern char *substit(char *p);
  68.  
  69. void output(void);
  70. /* from wimg.c */
  71. void vimg_init (void);
  72. void vimg_close (void);
  73. void vimg_arc (double x0, double y0, double rx, double ry, double a1, double a2);
  74. void vimg_ellipse (double x0, double y0, double rx, double ry);
  75. void vimg_line (double x1, double y1, double x2, double y2);
  76. void vimg_polyline (double xy[], int cnt, int closed);
  77. void vimg_rect (double x1, double y1, double x2, double y2);
  78. void vimg_plotstart (void);
  79. void vimg_plot1 (double x, double y);
  80. void vimg_plotend (void);
  81.  
  82.  
  83. /* from flylines.c */
  84. char *find_name_start(char *p);
  85. char *find_name_end(char *p);
  86. void fly_error(char *p);
  87. void scale(double dbuf[], int ibuf[], int cnt);
  88. /* scale without displacement */
  89. void scale2(double xin, double yin, double *xout, double *yout);
  90. int widthcolor(int w, int color);
  91. int getcolor(int r, int g, int b);
  92. void setvar(char *p, double v);
  93. void collapse_item(char *p, int n);
  94. int ggetline(char buf[]);
  95.  
  96. /* from nametab.c */
  97. enum {t_prep,t_color,t_obj};
  98. typedef struct objparm{ int p[MAX_PARMS]; double pd[MAX_PARMS]; int pcnt, color[2], fill;
  99. char str[MAX_LINELEN+1], font[16]; } objparm;
  100. enum {p_and,p_from,p_to,p_thru,p_center,p_color,p_font,
  101.   p_diameter,p_radius,p_width,p_height };
  102.  
  103. extern struct preptab { char *name;int typ; } preptab[];
  104. extern struct objtab {
  105.  char *name; int required_parms, color_pos, fill_tag, subst;
  106.  void (*routine) (objparm *pm); } objtab[];
  107.  
  108. extern struct colortab {char *name;char *def;} colortab[];
  109. extern struct nametab {char *name;int type;int serial;} nametab[];
  110. extern int nametab_no, prep_no, obj_no, color_no;
  111.  
  112. /* from objects.c */
  113. int obj_main(char *p);
  114.