Subversion Repositories wimsdev

Rev

Rev 18320 | Rev 18326 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
17676 bpr 1
/*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
10 reyssat 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
 */
8177 bpr 17
 
18
#include <errno.h>
8102 bpr 19
#include "flydraw.h"
18317 bpr 20
void myGdImageArc(gdImagePtr, int, int, int, int, double, double, int);
21
const double DEG=M_PI/180;
8177 bpr 22
 
17574 bpr 23
/* Tikz things */
17599 bpr 24
 
17608 bpr 25
static char *tikz_color (int the_color)
26
{
27
  static char buf[50];
28
  int r=gdImageRed(image,the_color);
29
  int g=gdImageGreen(image,the_color);
30
  int b=gdImageBlue(image,the_color);
31
  sprintf(buf, "{rgb,255:red,%i;green,%i;blue,%i}",r,g,b);
32
  return buf;
33
}
34
 
17574 bpr 35
static char *tikz_options (int the_color, int the_fill)
36
{
37
  static char buf[100];
38
  if (the_color == gdBrushed)
39
    the_color = tikz_brushColor;
17608 bpr 40
  sprintf (buf, "draw=%s,cap=round",tikz_color(the_color));
17574 bpr 41
  if (the_color != tikz_brushColor) strcat(buf, ",thin");
18125 bpr 42
  if (the_fill == -1 || the_fill == 2) strcat(buf, ",dashed");
43
  if (the_fill == 1 || the_fill == 2)
17608 bpr 44
    sprintf(buf+strlen(buf), ",fill=%s", tikz_color(the_color));
17574 bpr 45
  return buf;
46
}
47
 
17662 bpr 48
#define flip(y) (sizey-1-(y))
17574 bpr 49
 
8010 bpr 50
/* bug in gdImageFillToBorder */
10 reyssat 51
 
8162 bpr 52
void patchgdImageFillToBorder (gdImagePtr im, int x, int y, int border, int color)
8076 bpr 53
{
12473 bpr 54
  if(x>=im->sx || x<0 || y>=im->sy || y<0) return;
55
  gdImageFillToBorder(im,x,y,border,color);
8076 bpr 56
}
57
 
8162 bpr 58
void patchgdImageFill (gdImagePtr im, int x, int y, int color)
8156 bpr 59
{
12473 bpr 60
  if(x>=im->sx || x<0 || y>=im->sy || y<0) return;
61
  gdImageFill(im,x,y,color);
8156 bpr 62
}
8076 bpr 63
 
9651 georgesk 64
#define DASHPIXELS 8
65
 
66
void myDashedLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color){
67
  /**
68
   * emulates gdImageDashedLine with gdImageSetStyle and gdImageLine
69
   * GK: As gdImageDashedLine is slightly broken in latest libgd libraries,
70
   * GK: I implemented an emulation named "myDashedLine"
71
   **/
72
 
73
  int styleDashed[DASHPIXELS],i;
74
  for (i=0; i< DASHPIXELS/2; i++) styleDashed[i]=color;
75
  for (; i< DASHPIXELS; i++) styleDashed[i]=gdTransparent;
76
  gdImageSetStyle(im, styleDashed, DASHPIXELS);
77
  gdImageLine(im, x1, y1, x2, y2, gdStyled);
78
}
79
 
80
 
7675 bpr 81
/* File opening: with security */
10 reyssat 82
FILE *open4read(char *n)
83
{
12473 bpr 84
  char *p, *p1, *p2, namebuf[2048];
85
  int t;
86
  FILE *f;
87
  n=find_word_start(n);
88
  if(*n==0) return NULL;
89
  p=getenv("flydraw_filebase");
90
  p1=n+strlen(n)-4;if(p1<n || strcasecmp(p1,".gif")!=0) t=1; else t=0;
91
  if(p!=NULL && *p!=0) {
92
    char pbuf[MAX_LINELEN+1];
93
    snprintf(pbuf,sizeof(pbuf),"%s",p);
94
    p=find_word_start(pbuf); if(strstr(p,"..")!=NULL) return NULL;
95
    if(*n=='/' || strstr(n,"..")!=NULL) return NULL;
96
    /* prohibit unusual file/dir names */
97
    for(p1=p;*p1;p1++)
98
      if(!isalnum(*p1) && !isspace(*p1) && strchr("~_-/.",*p1)==NULL)
99
        return NULL;
100
    for(p1=n;*p1;p1++)
101
      if(!isalnum(*p1) && !isspace(*p1) && strchr("~_-/.",*p1)==NULL)
102
        return NULL;
103
    f=NULL;
104
    for(p1=p; *p1; p1=find_word_start(p2)) {
105
      p2=find_word_end(p1);
106
      if(*p2) *p2++=0;
107
      snprintf(namebuf,sizeof(namebuf),"%s/%s",p1,n);
108
      f=fopen(namebuf,"r"); if(f!=NULL) goto imgtype;
10 reyssat 109
    }
12473 bpr 110
    p1=getenv("w_wims_session");
111
    if(p1!=NULL && strncmp(n,"insert",6)==0) {
112
      snprintf(namebuf,sizeof(namebuf),"../s2/%s/%s",p1,n);
7675 bpr 113
      f=fopen(namebuf,"r");
10 reyssat 114
    }
12473 bpr 115
  }
116
  else {
117
    snprintf(namebuf,sizeof(namebuf),"%s",n);
118
    f=fopen(namebuf,"r");
119
  }
120
  imgtype:
121
  if(t && f!=NULL) {
122
    char tbuf[1024],sbuf[4096];
123
    fclose(f); f=NULL;
124
    p1=getenv("TMPDIR"); if(p1==NULL || *p1==0) p1=".";
125
    snprintf(tbuf,sizeof(tbuf),"%s/drawfile_.gif",p1);
126
    snprintf(sbuf,sizeof(sbuf),"convert %s %s",namebuf,tbuf);
127
    if (system(sbuf)) fly_error("system_failed");
128
      f=fopen(tbuf,"r");
129
  }
130
  return f;
10 reyssat 131
}
132
 
7675 bpr 133
/* Does nothing; just a comment. */
10 reyssat 134
void obj_comment(objparm *pm)
135
{
12473 bpr 136
  return;
10 reyssat 137
}
138
 
7675 bpr 139
/* define image size */
10 reyssat 140
void obj_size(objparm *pm)
141
{
12473 bpr 142
  sizex=rint(pm->pd[0]); sizey=rint(pm->pd[1]);
143
  if(sizex<0 || sizey<0 || sizex>MAX_SIZE || sizey>MAX_SIZE) {
144
    fly_error("bad_size"); return;
145
  }
146
  if(image!=NULL) {
147
    fly_error("size_already_defined"); return;
148
  }
149
  image=gdImageCreate(sizex,sizey);
17574 bpr 150
  if(tikz_file) fprintf(tikz_file,"\\clip (0,0) rectangle (%i, %i);\n", sizex, sizey);
12473 bpr 151
  if(image==NULL) fly_error("image_creation_failure");
152
  else {
153
    color_white=gdImageColorAllocate(image,255,255,255);
154
    color_black=gdImageColorAllocate(image,0,0,0);
155
    color_bounder=gdImageColorAllocate(image,1,2,3);
156
    color_frame=gdImageColorAllocate(image,254,254,254);
157
  }
10 reyssat 158
}
159
 
7675 bpr 160
/* new image */
10 reyssat 161
void obj_new(objparm *pm)
162
{
12473 bpr 163
  if(image) {
164
    gdImageDestroy(image);image=NULL;
165
  }
166
  if(pm->pcnt>=2) { obj_size(pm); gdImageRectangle(image,0,0,sizex-1,sizey-1,color_frame);}
167
  else sizex=sizey=0;
168
  saved=0;
10 reyssat 169
}
170
 
7675 bpr 171
/* new image */
10 reyssat 172
void obj_existing(objparm *pm)
173
{
12473 bpr 174
  FILE *inf;
175
  char *pp;
7615 bpr 176
 
12473 bpr 177
  if(image) {
178
    gdImageDestroy(image);image=NULL;
179
  }
180
  pp=find_word_start(pm->str);*find_word_end(pp)=0;
181
  inf=open4read(pp);
182
  if(inf==NULL) {
183
    fly_error("file_not_exist"); return;
184
  }
185
  image=gdImageCreateFromGif(inf); fclose(inf);
186
  if(image==NULL) {
187
    fly_error("bad_gif"); return;
188
  }
189
  sizex=image->sx; sizey=image->sy;
190
  saved=0;
10 reyssat 191
}
18066 bpr 192
/* tikzfile */
193
void obj_tikzfile(objparm *pm)
194
{
195
  char *p;
196
  if(tikz_file){
197
    fprintf(tikz_file,"\\end{tikzpicture}\n");
198
    fclose(tikz_file);
199
  }
200
  p=find_word_start(pm->str); *find_word_end(p)=0;
201
  snprintf(tikzfilename,sizeof(tikzfilename),"%s",p);
202
  tikz_file=fopen(tikzfilename,"w");
203
  if(!tikz_file)
204
    fly_error("tikz_nopen");
205
  fprintf(tikz_file,"\\begin{tikzpicture}\[x=0.02cm, y=0.02cm]\n");
206
}
10 reyssat 207
 
18123 bpr 208
/* segment */
10 reyssat 209
void obj_line(objparm *pm)
210
{
12473 bpr 211
  scale(pm->pd,pm->p,2);
18125 bpr 212
  if(pm->fill==-1 || pm->fill==2 )
18123 bpr 213
    myDashedLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],pm->color[0]);
214
  else
215
    gdImageLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],pm->color[0]);
17574 bpr 216
  if (tikz_file)
217
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
218
      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]));
12473 bpr 219
  if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
10 reyssat 220
}
221
 
1024 bpr 222
void _obj_arrow(objparm *pm, int twoside)
10 reyssat 223
{
12473 bpr 224
  int l,xx,yy;
225
  gdPoint ii[3];
226
  double dx,dy,length,dd[6];
227
  scale(pm->pd,pm->p,2);
228
  xx=ii[0].x=pm->p[2];yy=ii[0].y=pm->p[3];
229
  l=pm->pd[4];if(l<0) l=0; if(l>200) l=200;
230
  scale2(pm->pd[0]-pm->pd[2],pm->pd[1]-pm->pd[3],&dx,&dy);
231
  length=sqrt(dx*dx+dy*dy);
232
  if(length<3 || l<5) goto stem;
233
  dd[0]=l*dx/length; dd[1]=l*dy/length;
234
  #define fat 0.27
235
  dd[2]=dd[0]+dd[1]*fat; dd[3]=dd[1]-dd[0]*fat;
236
  dd[4]=dd[0]-dd[1]*fat; dd[5]=dd[1]+dd[0]*fat;
237
  ii[1].x=rint(dd[2])+ii[0].x; ii[1].y=rint(dd[3])+ii[0].y;
238
  ii[2].x=rint(dd[4])+ii[0].x; ii[2].y=rint(dd[5])+ii[0].y;
239
  gdImageFilledPolygon(image, ii,3,pm->color[0]);
17578 bpr 240
  if(tikz_file)
241
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) -- (%i, %i) -- cycle;\n",
242
      tikz_options(pm->color[0],1),ii[0].x,flip(ii[0].y),ii[1].x,flip(ii[1].y),ii[2].x,flip(ii[2].y));
243
  if(vimg_enable) vimg_polyline(scale_buf,3,1);
12473 bpr 244
  xx=rint(dd[0])+ii[0].x;yy=rint(dd[1])+ii[0].y;
245
  if(twoside) {
246
    ii[0].x=pm->p[0]; ii[0].y=pm->p[1];
247
    ii[1].x=-rint(dd[2])+ii[0].x; ii[1].y=-rint(dd[3])+ii[0].y;
248
    ii[2].x=-rint(dd[4])+ii[0].x; ii[2].y=-rint(dd[5])+ii[0].y;
8163 bpr 249
    gdImageFilledPolygon(image, ii,3,pm->color[0]);
17578 bpr 250
  if(tikz_file)
251
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) -- (%i, %i) -- cycle;\n",
252
      tikz_options(pm->color[0],1),ii[0].x,flip(ii[0].y),ii[1].x,flip(ii[1].y),ii[2].x,flip(ii[2].y));
12473 bpr 253
  }
18125 bpr 254
  stem: if(pm->fill==-1 || pm->fill==2)
12473 bpr 255
    myDashedLine(image,pm->p[0],pm->p[1],xx,yy,pm->color[0]);
256
  else
257
    gdImageLine(image,pm->p[0],pm->p[1],xx,yy,pm->color[0]);
17578 bpr 258
  if(tikz_file)
259
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
17584 bpr 260
      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),xx,flip(yy));
12473 bpr 261
  if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
10 reyssat 262
}
263
 
7675 bpr 264
/* Arrow */
1024 bpr 265
void obj_arrow(objparm *pm)
266
{
12473 bpr 267
  _obj_arrow(pm,0);
1024 bpr 268
}
269
 
7675 bpr 270
/* 2-sided arrow */
1024 bpr 271
void obj_arrow2(objparm *pm)
272
{
12473 bpr 273
   _obj_arrow(pm,1);
1024 bpr 274
}
275
 
18047 bpr 276
void _obj_arrows(objparm *pm, int twoside)
277
{
278
  #define fat 0.27
279
  int i,l,xx,yy;
280
  gdPoint ii[3];
281
  double dx,dy,length,dd[6];
282
  l=pm->pd[0];if(l<0) l=0; if(l>200) l=200;
283
  scale(pm->pd+1,pm->p+1,pm->pcnt/2);
284
  for (i=1;i<pm->pcnt;i+=4){
18119 bpr 285
    xx=ii[0].x=pm->p[i+2];yy=ii[0].y=pm->p[i+3];
286
    scale2(pm->pd[i]-pm->pd[i+2],pm->pd[i+1]-pm->pd[i+3],&dx,&dy);
287
    length=sqrt(dx*dx+dy*dy);
288
    if(length<3 || l<5) goto stem;
289
    dd[0]=l*dx/length; dd[1]=l*dy/length;
290
    dd[2]=dd[0]+dd[1]*fat; dd[3]=dd[1]-dd[0]*fat;
291
    dd[4]=dd[0]-dd[1]*fat; dd[5]=dd[1]+dd[0]*fat;
292
    ii[1].x=rint(dd[2])+ii[0].x; ii[1].y=rint(dd[3])+ii[0].y;
293
    ii[2].x=rint(dd[4])+ii[0].x; ii[2].y=rint(dd[5])+ii[0].y;
294
    gdImageFilledPolygon(image, ii,3,pm->color[0]);
295
    if(tikz_file)
18065 bpr 296
  fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) -- (%i, %i) -- cycle;\n",
297
        tikz_options(pm->color[0],1),ii[0].x,flip(ii[0].y),ii[1].x,flip(ii[1].y),ii[2].x,flip(ii[2].y));
298
      xx=rint(dd[0])+ii[0].x;yy=rint(dd[1])+ii[0].y;
299
      if(twoside) {
300
  ii[0].x=pm->p[i]; ii[0].y=pm->p[i+1];
301
  ii[1].x=-rint(dd[2])+ii[0].x; ii[1].y=-rint(dd[3])+ii[0].y;
302
  ii[2].x=-rint(dd[4])+ii[0].x; ii[2].y=-rint(dd[5])+ii[0].y;
303
  gdImageFilledPolygon(image, ii,3,pm->color[0]);
304
  if(tikz_file)
305
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) -- (%i, %i) -- cycle;\n",
306
        tikz_options(pm->color[0],1),ii[0].x,flip(ii[0].y),ii[1].x,flip(ii[1].y),ii[2].x,flip(ii[2].y));
18047 bpr 307
      }
18125 bpr 308
    stem: if(pm->fill==-1 || pm->fill==2)
18065 bpr 309
  myDashedLine(image,pm->p[i],pm->p[i+1],xx,yy,pm->color[0]);
310
      else
311
  gdImageLine(image,pm->p[i],pm->p[i+1],xx,yy,pm->color[0]);
312
      if(tikz_file)
313
  fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
314
    tikz_options(pm->color[0],pm->fill),pm->p[i],flip(pm->p[i+1]),xx,flip(yy));
315
    }
18047 bpr 316
}
317
 
318
/* Arrows */
319
void obj_arrows(objparm *pm)
320
{
321
  _obj_arrows(pm,0);
322
}
323
 
324
/* 2-sided arrows */
325
void obj_arrows2(objparm *pm)
326
{
327
   _obj_arrows(pm,1);
328
}
329
 
7675 bpr 330
/* horizontal line */
10 reyssat 331
void obj_hline(objparm *pm)
332
{
12473 bpr 333
  scale(pm->pd,pm->p,1);
18125 bpr 334
  if(pm->fill==-1 || pm->fill==2)
12473 bpr 335
    myDashedLine(image,0,pm->p[1],sizex,pm->p[1],pm->color[0]);
336
  else
337
    gdImageLine(image,0,pm->p[1],sizex,pm->p[1],pm->color[0]);
17574 bpr 338
  if (tikz_file)
339
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
340
      tikz_options(pm->color[0],pm->fill),0,flip(pm->p[1]),sizex,flip(pm->p[1]));
10 reyssat 341
}
342
 
18119 bpr 343
static void line_extend(int x1, int y1, int x2, int y2, int* xend, int *yend)
344
{
345
  double t1, t2, t3;
346
  if (x2 != x1){t1 = (x2 > x1) ? sizex : 0; t1 = (t1 - x1)/(x2 - x1);}
347
  else t1 = INFINITY;
348
  if (y2 != y1){t2 = (y2 > y1) ? sizey : 0; t2 = (t2 - y1)/(y2 - y1);}
349
  else t2 = INFINITY;
350
  t3 = (t1 < t2) ? t1 : t2;
351
  *xend = x1+t3*(x2-x1);
352
  *yend = y1+t3*(y2-y1);
353
}
18066 bpr 354
 
18065 bpr 355
/* halfline */
356
void obj_halfline(objparm *pm)
357
{
18119 bpr 358
  int xend,yend;
18065 bpr 359
  scale(pm->pd,pm->p,2);
18119 bpr 360
  line_extend(pm->p[0],pm->p[1],pm->p[2],pm->p[3],&xend,&yend);
18125 bpr 361
  if(pm->fill==-1 || pm->fill==2)
18119 bpr 362
    myDashedLine(image,pm->p[0],pm->p[1],xend,yend,pm->color[0]);
18065 bpr 363
  else
18119 bpr 364
    gdImageLine(image,pm->p[0],pm->p[1],xend,yend,pm->color[0]);
18065 bpr 365
  if (tikz_file)
366
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
367
      tikz_options(pm->color[0],pm->fill),
18119 bpr 368
      pm->p[0],flip(pm->p[1]),xend,flip(yend));
18065 bpr 369
}
17574 bpr 370
 
18119 bpr 371
void obj_fullline(objparm *pm)
372
{
373
  int xstart,ystart,xend,yend;
374
  scale(pm->pd,pm->p,2);
375
  line_extend(pm->p[0],pm->p[1],pm->p[2],pm->p[3],&xend,&yend);
376
  line_extend(pm->p[2],pm->p[3],pm->p[0],pm->p[1],&xstart,&ystart);
18125 bpr 377
  if(pm->fill==-1 || pm->fill==2)
18119 bpr 378
    myDashedLine(image,xstart,ystart,xend,yend,pm->color[0]);
379
  else
380
    gdImageLine(image,xstart,ystart,xend,yend,pm->color[0]);
381
  if (tikz_file)
382
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
383
      tikz_options(pm->color[0],pm->fill),xstart,flip(ystart),xend,flip(yend));
384
}
385
 
386
void obj_fulllines(objparm *pm)
387
{
388
  int i,xstart,ystart,xend,yend;
389
  scale(pm->pd,pm->p,pm->pcnt/2);
390
  if (tikz_file)
391
      fprintf(tikz_file, "\\draw\[%s]",tikz_options(pm->color[0],pm->fill));
392
  for (i=0;i<pm->pcnt;i+=4){
393
    line_extend(pm->p[i],pm->p[i+1],pm->p[i+2],pm->p[i+3],&xend,&yend);
394
    line_extend(pm->p[i+2],pm->p[i+3],pm->p[i],pm->p[i+1],&xstart,&ystart);
18125 bpr 395
    if(pm->fill==-1 || pm->fill==2)
18119 bpr 396
      myDashedLine(image,xstart,ystart,xend,yend,pm->color[0]);
397
    else
398
      gdImageLine(image,xstart,ystart,xend,yend,pm->color[0]);
399
    if (tikz_file)
400
      fprintf(tikz_file, "(%i,%i)--(%i, %i)",xstart,flip(ystart),xend,flip(yend));
401
  }
402
  if (tikz_file)
403
      fprintf(tikz_file, ";\n");
404
}
405
 
7675 bpr 406
/* vertical line */
10 reyssat 407
void obj_vline(objparm *pm)
408
{
12473 bpr 409
  scale(pm->pd,pm->p,1);
18125 bpr 410
  if(pm->fill==-1 || pm->fill==2)
12473 bpr 411
    myDashedLine(image,pm->p[0],0,pm->p[0],sizey,pm->color[0]);
412
  else
413
    gdImageLine(image,pm->p[0],0,pm->p[0],sizey,pm->color[0]);
17574 bpr 414
  if (tikz_file)
415
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
416
      tikz_options(pm->color[0],pm->fill),pm->p[0],0,pm->p[0],sizey);
10 reyssat 417
}
418
 
7675 bpr 419
/* dashed line */
10 reyssat 420
void obj_dline(objparm *pm)
421
{
12473 bpr 422
  scale(pm->pd,pm->p,2);
423
  myDashedLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3], pm->color[0]);
17574 bpr 424
  if (tikz_file)
425
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
426
      tikz_options(pm->color[0],-1),
427
      pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]));
10 reyssat 428
}
429
 
7675 bpr 430
/* parallel lines.
431
 * x1,y1,x2,y2,xv,yv,n,color */
10 reyssat 432
void obj_parallel(objparm *pm)
433
{
18123 bpr 434
  int i, n, xi,yi;
435
  double xv,yv;
436
  n=pm->pd[6]; if(n<0) return; if(n>256) n=256;
437
  scale(pm->pd,pm->p,3);
438
  scale2(pm->pd[4],pm->pd[5],&xv,&yv);
439
  if (tikz_file)
440
    fprintf(tikz_file, "\\draw\[%s]", tikz_options(pm->color[0],pm->fill));
441
  for(i=0;i<n;i++) {
442
    xi=rint(i*xv); yi=rint(i*yv);
18125 bpr 443
    if(pm->fill==-1 || pm->fill==2)
18123 bpr 444
      myDashedLine(image,pm->p[0]+xi,pm->p[1]+yi,pm->p[2]+xi,pm->p[3]+yi,
445
        pm->color[0]);
446
    else
447
      gdImageLine(image,pm->p[0]+xi,pm->p[1]+yi,pm->p[2]+xi,pm->p[3]+yi,
448
        pm->color[0]);
449
    if (tikz_file)
450
      fprintf(tikz_file, "(%i,%i)--(%i, %i)",
451
        pm->p[0]+xi,flip(pm->p[1]+yi),pm->p[2]+xi,flip(pm->p[3]+yi));
452
    if(vimg_enable) vimg_line(scale_buf[0]+i*(scale_buf[4]-transx),
453
      scale_buf[1]+i*(scale_buf[5]-transy),
454
      scale_buf[2]+i*(scale_buf[4]-transx),
455
      scale_buf[3]+i*(scale_buf[5]-transy));
456
  }
17914 bpr 457
 if(tikz_file) fprintf(tikz_file,";\n");
10 reyssat 458
}
459
 
7675 bpr 460
/* rectangle */
10 reyssat 461
void obj_rect(objparm *pm)
462
{
12473 bpr 463
  int x1,y1,x2,y2;
464
  scale(pm->pd,pm->p,2);
465
  x1=min(pm->p[0],pm->p[2]); x2=max(pm->p[0],pm->p[2]);
466
  y1=min(pm->p[1],pm->p[3]); y2=max(pm->p[1],pm->p[3]);
18140 bpr 467
  if(pm->fill!=0){
468
    if(pm->fill==-1 || pm->fill==2){
469
      myDashedLine(image,x1,y1,x1,y2,pm->color[0]);
470
      myDashedLine(image,x1,y2,x2,y2,pm->color[0]);
471
      myDashedLine(image,x2,y2,x2,y1,pm->color[0]);
472
      myDashedLine(image,x2,y1,x1,y1,pm->color[0]);
473
    }
474
    if(pm->fill==1 || pm->fill==2)
475
      gdImageFilledRectangle(image,x1,y1,x2,y2,pm->color[0]);
476
  }
12473 bpr 477
  else
478
    gdImageRectangle(image,x1,y1,x2,y2,pm->color[0]);
17584 bpr 479
  if(tikz_file)
480
    fprintf(tikz_file,
481
      "\\draw\[%s] (%i,%i) rectangle (%i,%i);\n",
482
      tikz_options(pm->color[0],pm->fill),x1,flip(y1),x2,flip(y2));
12473 bpr 483
  if(vimg_enable) vimg_rect(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
10 reyssat 484
}
485
 
7675 bpr 486
/* square */
10 reyssat 487
void obj_square(objparm *pm)
488
{
12473 bpr 489
  int w,h;
490
  scale(pm->pd,pm->p,1);
491
  w=rint(pm->pd[2]); h=rint(pm->pd[2]);
18142 bpr 492
  if(pm->fill!=0){
493
    if(pm->fill==-1 || pm->fill==2){
494
      myDashedLine(image,pm->p[0],pm->p[1],pm->p[0]+w,pm->p[1],pm->color[0]);
495
      myDashedLine(image,pm->p[0]+w,pm->p[1],pm->p[0]+w,pm->p[1]+h,pm->color[0]);
496
      myDashedLine(image,pm->p[0]+w,pm->p[1]+h,pm->p[0],pm->p[1]+h,pm->color[0]);
497
      myDashedLine(image,pm->p[0],pm->p[1]+h,pm->p[0],pm->p[1],pm->color[0]);
498
    }
499
    if(pm->fill==1 || pm->fill==2)
12473 bpr 500
    gdImageFilledRectangle(image,pm->p[0],pm->p[1],
18123 bpr 501
        pm->p[0]+w,pm->p[1]+h,pm->color[0]);
18142 bpr 502
  }
12473 bpr 503
  else
504
    gdImageRectangle(image,pm->p[0],pm->p[1],
505
               pm->p[0]+w,pm->p[1]+h,pm->color[0]);
17574 bpr 506
  if(tikz_file){
507
    fprintf(tikz_file,
508
      "\\draw\[%s] (%i,%i) rectangle (%i,%i);\n",
509
      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),
510
      pm->p[0]+w,flip(pm->p[1]+h));
511
  }
12473 bpr 512
  if(vimg_enable) vimg_rect(scale_buf[0],scale_buf[1],
513
                      scale_buf[0]+pm->pd[2],scale_buf[1]+pm->pd[2]);
10 reyssat 514
}
515
 
7675 bpr 516
/* triangle */
10 reyssat 517
void obj_triangle(objparm *pm)
518
{
12473 bpr 519
  scale(pm->pd,pm->p,3);
18131 bpr 520
  int i,n=2;
521
  if(pm->fill!=0){
522
    if(pm->fill==-1 || pm->fill==2){
523
      for(i=0;i<n;i+=1)
524
        myDashedLine(image,pm->p[2*i],pm->p[2*i+1],pm->p[2*i+2],pm->p[2*i+3],pm->color[0]);
525
      myDashedLine(image,pm->p[2*n],pm->p[2*n+1],pm->p[0],pm->p[1],pm->color[0]);
526
    }
527
    if(pm->fill==1 || pm->fill==2)
528
      gdImageFilledPolygon(image,(gdPointPtr) pm->p,3,pm->color[0]);
529
  }
12473 bpr 530
  else
531
    gdImagePolygon(image,(gdPointPtr) pm->p,3,pm->color[0]);
17574 bpr 532
  if (tikz_file)
533
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) -- (%i, %i) -- cycle;\n",
534
      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]),pm->p[4],flip(pm->p[5]));
12473 bpr 535
  if(vimg_enable) vimg_polyline(scale_buf,3,1);
10 reyssat 536
}
537
 
7675 bpr 538
/* polygon */
10 reyssat 539
void obj_poly(objparm *pm)
540
{
17574 bpr 541
  int cnt,i;
12473 bpr 542
  cnt=(pm->pcnt)/2;
543
  scale(pm->pd,pm->p,cnt);
18125 bpr 544
  if(pm->fill==1 || pm->fill==2)
12473 bpr 545
    gdImageFilledPolygon(image,(gdPointPtr) pm->p,cnt,pm->color[0]);
546
  else
547
    gdImagePolygon(image,(gdPointPtr) pm->p,cnt,pm->color[0]);
17614 bpr 548
  if(tikz_file){
549
    fprintf(tikz_file,"\\draw\[%s] (%i,%i) --",tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]));
550
    for (i= 1; i<cnt; i++)
551
        fprintf(tikz_file,"(%i,%i)--", pm->p[2*i],flip(pm->p[2*i+1]));
552
    fprintf(tikz_file," cycle;\n");
553
  }
12473 bpr 554
  if(vimg_enable) vimg_polyline(scale_buf,cnt,1);
10 reyssat 555
}
556
 
7675 bpr 557
/* rays */
10 reyssat 558
void obj_rays(objparm *pm)
559
{
12473 bpr 560
  int i, n;
561
  n=(pm->pcnt)/2;
562
  scale(pm->pd,pm->p,n);
17920 bpr 563
  if (tikz_file)
564
    fprintf(tikz_file, "\\draw\[%s]",tikz_options(pm->color[0],pm->fill));
12473 bpr 565
  for(i=2;i<2*n;i+=2) {
18125 bpr 566
    if(pm->fill==-1 || pm->fill==2)
18123 bpr 567
      myDashedLine(image,pm->p[0],pm->p[1],pm->p[i],pm->p[i+1],pm->color[0]);
568
    else
569
      gdImageLine(image,pm->p[0],pm->p[1],pm->p[i],pm->p[i+1],pm->color[0]);
17574 bpr 570
    if (tikz_file)
17920 bpr 571
      fprintf(tikz_file, "(%i,%i) -- (%i,%i)",
572
        pm->p[0],flip(pm->p[1]),pm->p[i],flip(pm->p[i+1]));
12473 bpr 573
    if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],
574
                        scale_buf[i],scale_buf[i+1]);
575
  }
17920 bpr 576
  if (tikz_file) fprintf(tikz_file,";\n");
10 reyssat 577
}
8414 bpr 578
/* crosshair */
579
void obj_crosshair(objparm *pm)
580
{
12473 bpr 581
  scale(pm->pd,pm->p,2);
582
  gdImageLine(image,pm->p[0]+width2,pm->p[1]+width2,pm->p[0]-width2,pm->p[1]-width2,pm->color[0]);
583
  gdImageLine(image,pm->p[0]-width2,pm->p[1]+width2,pm->p[0]+width2,pm->p[1]-width2,pm->color[0]);
17574 bpr 584
  if (tikz_file){
585
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
586
      tikz_options(pm->color[0],pm->fill),pm->p[0]+width2,flip(pm->p[1]+width2),pm->p[0]-width2,flip(pm->p[1]-width2));
587
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
588
      tikz_options(pm->color[0],pm->fill),pm->p[0]-width2,flip(pm->p[1]+width2),pm->p[0]+width2,flip(pm->p[1]-width2));
589
  }
8414 bpr 590
}
591
/* crosshairs */
10 reyssat 592
 
8414 bpr 593
void obj_crosshairs(objparm *pm)
594
{
12473 bpr 595
  int i, n;
596
  n=(pm->pcnt)/2;
597
  scale(pm->pd,pm->p,n);
17921 bpr 598
  if (tikz_file)
599
      fprintf(tikz_file, "\\draw\[%s]",tikz_options(pm->color[0],pm->fill));
12473 bpr 600
  for(i=0;i<2*n;i+=2) {
601
    gdImageLine(image,pm->p[i]+width2,pm->p[i+1]+width2,pm->p[i]-width2,pm->p[i+1]-width2,pm->color[0]);
602
    gdImageLine(image,pm->p[i]-width2,pm->p[i+1]+width2,pm->p[i]+width2,pm->p[i+1]-width2,pm->color[0]);
17574 bpr 603
    if (tikz_file){
17921 bpr 604
      fprintf(tikz_file, "(%i, %i) -- (%i, %i) ",
605
        pm->p[i]+width2,flip(pm->p[i+1]+width2),pm->p[i]-width2,flip(pm->p[i+1]-width2));
606
      fprintf(tikz_file, "(%i, %i) -- (%i, %i)",
607
        pm->p[i]-width2,flip(pm->p[i+1]+width2),pm->p[i]+width2,flip(pm->p[i+1]-width2));
17574 bpr 608
    }
12473 bpr 609
  }
17921 bpr 610
  if (tikz_file) fprintf(tikz_file,";\n");
8414 bpr 611
}
612
 
613
 
7675 bpr 614
/* segments */
10 reyssat 615
void obj_lines(objparm *pm)
616
{
17914 bpr 617
 int i, n;
618
 n=(pm->pcnt)/2;
619
 scale(pm->pd,pm->p,n);
18123 bpr 620
 if (tikz_file){
17914 bpr 621
   fprintf(tikz_file,"\\draw\[%s] (%i,%i)",
622
     tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]));
623
   for(i=2;i<2*n;i+=2)
624
     fprintf(tikz_file, "--(%i,%i)",pm->p[i],flip(pm->p[i+1]));
625
   fprintf(tikz_file, ";\n");
626
 }
627
 for(i=2;i<2*n;i+=2){
18125 bpr 628
  if(pm->fill==-1 || pm->fill==2 )
18123 bpr 629
    myDashedLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
630
  else
631
    gdImageLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
17914 bpr 632
  if(vimg_enable) vimg_polyline(scale_buf,n,0);
17574 bpr 633
  }
10 reyssat 634
}
16344 bpr 635
/*segments from x1,y1 to x2,y2, x3,y3 to x4,y4, etc */
636
void obj_segments(objparm *pm)
637
{
638
  int i, n;
18317 bpr 639
  n=(pm->pcnt)/2;
640
  scale(pm->pd,pm->p,n);
17914 bpr 641
  if (tikz_file)
642
    fprintf(tikz_file, "\\draw\[%s]",tikz_options(pm->color[0],pm->fill));
18317 bpr 643
  for(i=0;i<2*n;i+=4){
18125 bpr 644
    if(pm->fill==-1 || pm->fill==2)
18123 bpr 645
      myDashedLine(image,pm->p[i],pm->p[i+1],pm->p[i+2],pm->p[i+3],pm->color[0]);
646
    else
647
      gdImageLine(image,pm->p[i],pm->p[i+1],pm->p[i+2],pm->p[i+3],pm->color[0]);
17914 bpr 648
    if (tikz_file)
649
      fprintf(tikz_file, "(%i,%i)--(%i,%i)",
650
       pm->p[i],flip(pm->p[i+1]),pm->p[i+2],flip(pm->p[i+3]));
17574 bpr 651
  }
17914 bpr 652
  if(tikz_file) fprintf(tikz_file, ";\n");
16344 bpr 653
}
18325 bpr 654
/* for geodesics, return data for obj_hypgeods + a point on the arc
655
  to be used for filling hyperbolic triangle*/
656
int hypgeodaux(double *q, double* res)
657
{
658
  double r,cx,cy,a1,a2,a3,tmp,
659
    nx = -q[0]*q[2]*q[2]+(q[0]*q[0]+q[1]*q[1]+1)*q[2]-q[0]*q[3]*q[3]-q[0],
660
    ny = -q[1]*q[2]*q[2]-q[1]*q[3]*q[3]+(q[0]*q[0]+q[1]*q[1]+1)*q[3]-q[1],
661
    dy = -2*q[1]*q[2]+2*q[0]*q[3];
662
  if (dy*dy*1e4 < nx*nx+ny*ny){
663
    res[5]=(q[0]+q[2])/2;
664
    res[6]=(q[1]+q[3])/2;
665
    return 0;}
666
  cx = ny/dy; cy=-nx/dy;
667
  a1 = atan2(q[1]-cy, q[0]-cx);
668
  a2 = atan2(q[3]-cy, q[2]-cx);
669
  a3 = (a1+a2)/2;
670
  if (fabs(a2-a1)>M_PI){if(a1<a2) a1+=2*M_PI; else a2+=2*M_PI;};
671
  if(a1>a2) {tmp=a1; a1=a2; a2=tmp;}
672
  r = sqrt(cx*cx+cy*cy-1);
673
  res[0]=cx;
674
  res[1]=cy;
675
  res[2]=r;
676
  res[3]=a1;
677
  res[4]=a2;
678
  res[5]=cx+r*cos(a3);
679
  res[6]=cy+r*sin(a3);
680
  return 1;
681
}
18317 bpr 682
/* hyperbolic geodesics from x1,y1 to x2,y2, x3,y3 to x4,y4 in Poincaré disk */
683
 
684
void obj_hypgeods(objparm *pm)
685
{
18325 bpr 686
  int i, *qq=pm->p;
687
  double rx,ry,res[7];
688
  for (i = 0; i < pm->pcnt; i+=4)
689
    if (hypgeodaux(pm->pd+i,res)){
690
      scale2(res[2],res[2],&rx,&ry);
691
      scale(res,qq,1);
692
      myGdImageArc(image,qq[0],qq[1],rx,ry,res[3]/DEG,res[4]/DEG,pm->color[0]);
693
    }
18317 bpr 694
    else {
18325 bpr 695
      scale(pm->pd+i,qq,2);
696
      gdImageLine(image,qq[0],qq[1],qq[2],qq[3],pm->color[0]);
18317 bpr 697
    }
18325 bpr 698
}
699
/* hyperbolique triangle, can be filled */
700
void obj_hyptriangle(objparm *pm)
701
{
702
  double rx,ry,data[8],res[7];
703
  int i, *qq=pm->p;
704
  for(i=0; i<8; i++) data[i]=pm->pd[i%6];
705
  for(i=0; i<3; i++)
706
    if(hypgeodaux(data+2*i,res)) {
707
      scale2(res[2],res[2],&rx,&ry);
708
      scale(res,qq,1);
709
      myGdImageArc(image,qq[0],qq[1],rx,ry,res[3]/DEG,res[4]/DEG,pm->color[0]);
710
    }
711
    else {
712
      scale(data+2*i,qq,2);
713
      gdImageLine(image,qq[0],qq[1],qq[2],qq[3],pm->color[0]);
714
    }
715
  if(pm->fill){
716
    data[0]=res[5];
717
    data[1]=res[6];
718
    hypgeodaux(data,res);
719
    scale(res+5,qq,1);
720
    patchgdImageFill(image,qq[0],qq[1],pm->color[0]);
18317 bpr 721
  }
722
}
18325 bpr 723
/* hyperbolic geodesic through two points */
724
void obj_hypline(objparm *pm)
725
{
726
  double rx,ry,res[7];
727
  if (hypgeodaux(pm->pd,res)){
728
      double alpha=atan(1/res[2]), beta = atan2(res[0], res[1]);
729
      scale(pm->pd, pm->p, 1);
730
      scale2(res[2],res[2],&rx,&ry);
731
      myGdImageArc(image, pm->p[0], pm->p[1], rx, ry, 180+(beta-alpha)/DEG, 180+(beta+alpha)/DEG,pm->color[0]);
732
  }
733
  else {
734
    double gamma = atan2(pm->pd[0],pm->pd[1]);
735
    res[0]=cos(gamma);
736
    res[1]=sin(gamma);
737
    res[2]=-cos(gamma);
738
    res[3]=-sin(gamma);
739
    scale(res,pm->p,2);
740
    gdImageLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],pm->color[0]);
741
  }
742
}
743
 
744
void obj_hyplines(objparm *pm)
745
{
746
  double rx,ry,res[7];
747
  int i;
748
  for (i=0; i < pm->pcnt; i+=4)
749
    if (hypgeodaux(pm->pd+i,res)) {
750
      double alpha=atan(1/res[2]), beta = atan2(res[0], res[1]);
751
      scale(pm->pd+i, pm->p, 1);
752
      scale2(res[2],res[2],&rx,&ry);
753
      myGdImageArc(image, pm->p[0], pm->p[1], rx, ry, 180+(beta-alpha)/DEG, 180+(beta+alpha)/DEG,pm->color[0]);
754
    }
755
    else {
756
      double gamma = atan2(pm->pd[i],pm->pd[i+1]);
757
      res[0]=cos(gamma);
758
      res[1]=sin(gamma);
759
      res[2]=-cos(gamma);
760
      res[3]=-sin(gamma);
761
      scale(res,pm->p,2);
762
      gdImageLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],pm->color[0]);
763
    }
764
}
7675 bpr 765
/* segments */
10 reyssat 766
void obj_dlines(objparm *pm)
767
{
17914 bpr 768
 int i, n;
769
 n=(pm->pcnt)/2;
770
 scale(pm->pd,pm->p,n);
18123 bpr 771
 if (tikz_file){
17914 bpr 772
   fprintf(tikz_file,"\\draw\[%s] (%i,%i)",
773
     tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]));
774
   for(i=2;i<2*n;i+=2)
775
     fprintf(tikz_file, "--(%i,%i)",pm->p[i],flip(pm->p[i+1]));
776
   fprintf(tikz_file, ";\n");
777
 }
778
 for(i=2;i<2*n;i+=2)
779
   myDashedLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
780
 if(vimg_enable) vimg_polyline(scale_buf,n,0);
10 reyssat 781
}
782
 
7675 bpr 783
/* points */
10 reyssat 784
void obj_points(objparm *pm)
785
{
17914 bpr 786
 int i, n;
787
 n=(pm->pcnt)/2;
788
 scale(pm->pd,pm->p,n);
789
 for(i=0;i<2*n;i+=2) gdImageSetPixel(image,pm->p[i],pm->p[i+1],pm->color[0]);
790
 if(tikz_file) {
791
   fprintf(tikz_file, "\\draw\[%s]", tikz_options(pm->color[0],pm->fill));
792
   for(i=0;i<2*n;i+=2)
793
     fprintf(tikz_file,"(%i,%i)circle(1pt)",pm->p[i],flip(pm->p[i+1]));
794
   fprintf(tikz_file,";\n");
795
 }
10 reyssat 796
}
797
 
7675 bpr 798
/* lattice.
799
 * x0,y0,xv1,yv1,xv2,yv2,n1,n2,color */
10 reyssat 800
void obj_lattice(objparm *pm)
801
{
17914 bpr 802
 int n1,n2,i1,i2,xi1,yi1,xi2,yi2;
803
 double xv1,xv2,yv1,yv2;
804
 n1=pm->pd[6];n2=pm->pd[7]; if(n1<0 || n2<0) return;
805
 if(n1>256) n1=256;
806
 if(n2>256) n2=256;
807
 scale(pm->pd,pm->p,1);
808
 scale2(pm->pd[2],pm->pd[3],&xv1,&yv1);
809
 scale2(pm->pd[4],pm->pd[5],&xv2,&yv2);
810
 if(tikz_file)
811
   fprintf(tikz_file,"\\draw[%s]", tikz_options(pm->color[0],0));
812
 for(i1=0;i1<n1;i1++) {
813
   xi1=rint(i1*xv1)+pm->p[0]; yi1=rint(i1*yv1)+pm->p[1];
814
   for(i2=0;i2<n2;i2++) {
815
     xi2=i2*xv2+xi1;yi2=i2*yv2+yi1;
816
     gdImageSetPixel(image,xi2,yi2,pm->color[0]);
817
     if(tikz_file) fprintf(tikz_file,"(%i,%i)circle(1pt)",xi2,flip(yi2));
818
   }
819
 }
820
 if(tikz_file) fprintf(tikz_file,";\n");
10 reyssat 821
}
822
 
7675 bpr 823
/* arc */
18317 bpr 824
/*trouble with gdImageArc as the angles are of type int */
825
void myGdImageArc(gdImagePtr im, int cx, int cy, int rx, int ry, double t1, double t2, int color)
10 reyssat 826
{
18308 bpr 827
  int i,nb;
18317 bpr 828
  double dt, r=rx>ry?rx:ry;
18308 bpr 829
  t2-=t1;
18317 bpr 830
  t2-=360*floor(t2/360);
18325 bpr 831
  if(t2==0) t2=360;
18317 bpr 832
  t1*=DEG;t2*=DEG;
18308 bpr 833
  nb = r*t2/3;
834
  dt = t2/nb;
835
  for (i=0; i<nb; ++i,t1+=dt)
18317 bpr 836
    gdImageLine(im,cx+rx*cos(t1),cy+ry*sin(t1),
837
    cx+rx*cos(t1+dt),cy+ry*sin(t1+dt),color);
838
}
839
 
840
void obj_arc(objparm *pm)
841
{
842
  scale(pm->pd,pm->p,1);
843
  int rx=pm->pd[2]*xscale/2, ry=pm->pd[3]*yscale/2;
844
  myGdImageArc(image, pm->p[0], pm->p[1], rx, ry, pm->pd[4],pm->pd[5],pm->color[0]);
845
  if(tikz_file){
846
    pm->pd[5]-=pm->pd[4];
847
    pm->pd[5]-=360*floor(pm->pd[5]/360);
848
    pm->pd[5]+=pm->pd[4];
17914 bpr 849
    fprintf(tikz_file,
18317 bpr 850
/*    "\\draw\[%s, domain=%f:%f] plot ({%i+%f*cos(\\x)}, {%i+%f*sin(\\x)});\n",*/
851
      "\\draw \[%s] (%i,%i) arc (%f:%f:%i and %i);\n",
852
        tikz_options(pm->color[0],pm->fill),
853
        (int)rint(pm->p[0]+rx*cos(DEG*pm->pd[4])),
854
        flip((int)rint(pm->p[1]+ry*sin(DEG*pm->pd[4]))),
855
        pm->pd[4],pm->pd[5],rx,-ry);
17574 bpr 856
  }
857
  /*FIXME echelle mauvaise*/
12473 bpr 858
  if(vimg_enable) vimg_arc(scale_buf[0],scale_buf[1],
859
                     0.5*pm->pd[2],0.5*pm->pd[3],pm->pd[4],pm->pd[5]);
10 reyssat 860
}
861
 
17676 bpr 862
void obj_angle(objparm *pm)
863
{
18320 bpr 864
/* dans la doc: mettre les angles dans l'ordre ???? demander qu'ils soient entre 0 et 360 */
17676 bpr 865
  double dpts[6];
866
  int pts[6], wx=rint(2*pm->pd[2]*xscale), wy=rint(2*pm->pd[2]*yscale);
867
  dpts[0]=pm->pd[0];
868
  dpts[1]=pm->pd[1];
869
  dpts[2]=pm->pd[0]+pm->pd[2]*cos(DEG*pm->pd[3]);
870
  dpts[3]=pm->pd[1]+pm->pd[2]*sin(DEG*pm->pd[3]);
871
  dpts[4]=pm->pd[0]+pm->pd[2]*cos(DEG*pm->pd[4]);
872
  dpts[5]=pm->pd[1]+pm->pd[2]*sin(DEG*pm->pd[4]);
873
  scale(dpts, pts, 3);
874
  gdImageLine(image,pts[0],pts[1],pts[2],pts[3],pm->color[0]);
875
  gdImageLine(image,pts[0],pts[1],pts[4],pts[5],pm->color[0]);
18308 bpr 876
  gdImageArc(image,pts[0],pts[1],wx,wy,pm->pd[3],pm->pd[4],pm->color[0]);
17676 bpr 877
  if(tikz_file) {
878
    fprintf(tikz_file, "\\draw\[%s, domain=%f:%f] plot ({%i+%f*cos(\\x)}, {%i+%f*sin(\\x)});\n",
879
      tikz_options(pm->color[0],pm->fill),pm->pd[3],pm->pd[4],pts[0],wx*0.5,flip(pts[1]),wy*(-0.5));
17950 bpr 880
    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) (%i, %i) -- (%i, %i);\n",
881
        tikz_options(pm->color[0],pm->fill),pts[0],flip(pts[1]),pts[2],flip(pts[3]),pts[0],flip(pts[1]),pts[4],flip(pts[5]));
17676 bpr 882
  }
883
}
7675 bpr 884
/* Ellipse: centre 0,1, width 2, hight 3, color 4,5,6 */
10 reyssat 885
void obj_ellipse(objparm *pm)
886
{
12473 bpr 887
  scale(pm->pd,pm->p,1);
17676 bpr 888
  pm->p[2]=pm->pd[2]*xscale; pm->p[3]=pm->pd[3]*yscale;
18125 bpr 889
  if(pm->fill==1 || pm->fill==2) {
12473 bpr 890
    gdImageArc(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],0,360,
891
             color_bounder);
892
    patchgdImageFillToBorder(image,pm->p[0],pm->p[1],
893
                    color_bounder,pm->color[0]);
894
  }
17676 bpr 895
  gdImageArc(image,pm->p[0],pm->p[1],rint(pm->p[2]),rint(pm->p[3]),0,360,pm->color[0]);
896
  if(tikz_file) fprintf(tikz_file,"\\draw\[%s] (%i,%i) ellipse (%i and %i);\n\n",
17912 bpr 897
    tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),(int) rint(0.5*pm->p[2]),(int) rint(0.5*pm->p[3]));
17574 bpr 898
  if(vimg_enable) vimg_ellipse(scale_buf[0],scale_buf[1],0.5*pm->pd[2],0.5*pm->pd[3]);
10 reyssat 899
}
900
 
17656 bpr 901
/* Circle radius in pixels*/
10 reyssat 902
void obj_circle(objparm *pm)
903
{
12473 bpr 904
  scale(pm->pd,pm->p,1);
905
  pm->p[2]=rint(pm->pd[2]); pm->p[3]=rint(pm->pd[2]);
18125 bpr 906
  if(pm->fill==1 || pm->fill==2) {
12473 bpr 907
    gdImageArc(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],0,360,
908
             color_bounder);
909
    patchgdImageFillToBorder(image,pm->p[0],pm->p[1],
910
                    color_bounder,pm->color[0]);
911
  }
912
  gdImageArc(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],0,360,pm->color[0]);
17676 bpr 913
  if(tikz_file) fprintf(tikz_file, "\\draw\[%s] (%i, %i) circle (%i);\n",
914
      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),(int) rint(pm->pd[2]/2.));
10 reyssat 915
}
17656 bpr 916
/* Circle, radius in xrange */
917
void obj_circles(objparm *pm)
918
{
919
  int i, n;
920
  n=(pm->pcnt)/3;
921
  for (i=0; i<n; ++i) scale(pm->pd+3*i, pm->p+3*i, 1);
17942 bpr 922
  if (tikz_file) fprintf(tikz_file,"\\draw\[%s]",tikz_options(pm->color[0],pm->fill));
17656 bpr 923
  for(i=0;i<3*n;i+=3){
18125 bpr 924
    if(pm->fill==1 || pm->fill==2) {
18118 bpr 925
      gdImageArc(image,pm->p[i],pm->p[i+1],
926
        rint(2*pm->pd[i+2]*xscale),rint(2*pm->pd[i+2]*xscale),0,360,
927
          color_bounder);
928
      patchgdImageFillToBorder(image,pm->p[i],pm->p[i+1],
929
                    color_bounder,pm->color[0]);
930
    }
17656 bpr 931
    gdImageArc(image,pm->p[i],pm->p[i+1],
18118 bpr 932
        rint(2*pm->pd[i+2]*xscale),rint(2*pm->pd[i+2]*xscale),0,360,pm->color[0]);
17656 bpr 933
    if (tikz_file){
17942 bpr 934
      fprintf(tikz_file, "(%i, %i) circle (%i and %i)",
935
        pm->p[i],flip(pm->p[i+1]),(int) rint(pm->pd[i+2]*xscale),(int) rint(pm->pd[i+2]*xscale));
17656 bpr 936
    }
937
  }
17942 bpr 938
  if (tikz_file) fprintf(tikz_file,";\n");
17656 bpr 939
}
17676 bpr 940
/* ellipse, width in xrange,height in yrange */
17656 bpr 941
void obj_ellipses(objparm *pm)
942
{
943
  int i, n;
944
  n=(pm->pcnt)/4;
945
  for (i=0; i<n; ++i) scale(pm->pd+4*i, pm->p+4*i, 1);
17943 bpr 946
  if (tikz_file) fprintf(tikz_file,"\\draw\[%s]",tikz_options(pm->color[0],pm->fill));
17656 bpr 947
  for(i=0;i<4*n;i+=4){
18125 bpr 948
    if(pm->fill==1 || pm->fill==2){
18123 bpr 949
      gdImageArc(image,pm->p[i],pm->p[i+1],
950
        rint(pm->pd[i+2]*xscale),rint(pm->pd[i+2]*xscale),0,360,
951
        color_bounder);
952
      patchgdImageFillToBorder(image,pm->p[i],pm->p[i+1],
953
        color_bounder,pm->color[0]);
954
    } else
955
      gdImageArc(image,pm->p[i],pm->p[i+1],rint(pm->pd[i+2]*xscale),rint(pm->pd[i+3]*yscale),0,360,pm->color[0]);
17656 bpr 956
    if (tikz_file){
17943 bpr 957
      fprintf(tikz_file, "(%i, %i) circle (%i and %i)",
958
        pm->p[i],flip(pm->p[i+1]),(int) rint(pm->pd[i+2]*xscale/2),(int) rint(pm->pd[i+3]*yscale/2));
17656 bpr 959
    }
960
  }
17943 bpr 961
  if (tikz_file) fprintf(tikz_file,";\n");
17656 bpr 962
}
17940 bpr 963
typedef enum tikz_fill_options {grid, dot, hatch, diamond} tfo;
17599 bpr 964
int compar(const void *a, const void *b) {return *(int *)b - *(int *)a;}
965
 
17662 bpr 966
static void tikz_fill(int x, int y, int nx, int ny, int wall, int the_color, tfo opt)
17599 bpr 967
{
17662 bpr 968
  int numpix=sizex*sizey, top = 0, a, c, cy, lx=0, rx=0, seed, nt,ct=0;
17599 bpr 969
  int *stack = xmalloc(numpix*sizeof(int));
970
  int *stack2 = xmalloc(numpix*sizeof(int));
18132 bpr 971
  if (nx==0) nx=1;
972
  if (ny==0) ny=1;
973
  nt = abs(nx*ny);
17599 bpr 974
  seed = gdImageGetPixel(image,x,y);
975
  char *check = xmalloc(numpix);
976
  while (numpix--) check[numpix]=0;
977
  a=x+y*sizex;
978
  check[a]=1;
979
  stack[top++]=a;
980
  while(top)
981
    {
982
      a = stack[--top];
983
      x = a%sizex; y = a/sizex;
17662 bpr 984
      c = gdImageGetPixel(image,x,y);
985
      if ((wall && (c == wall))||(!wall && c!=seed))
986
        continue;
17599 bpr 987
      if (x>0 && !check[a-1]) {check[a-1]=1; stack[top++]=a-1;}
988
      if (x+1<sizex && !check[a+1]) {check[a+1]=1; stack[top++]=a+1;}
989
      if (y>0 && !check[a-sizex]) {check[a-sizex]=1; stack[top++]=a-sizex;}
990
      if (y+1<sizey && !check[a+sizex]) {check[a+sizex]=1; stack[top++]=a+sizex;}
991
      switch(opt)
17621 bpr 992
  {
17940 bpr 993
  case grid: if(((x%nx)!=(nx/2))&&((y%ny)!=(ny/2))) continue; break;
994
  case dot: if(x%nx!=nx/2||y%ny!=ny/2) continue; break;
17939 bpr 995
  case hatch: if((ny*x-nx*y+nt)%nt) continue; break;
17940 bpr 996
  case diamond: if((ny*x+nx*y)%nt && (ny*x-nx*y+nt)%nt)continue;
17621 bpr 997
  default: break;
998
  }
17599 bpr 999
      stack2[ct++]=a;
1000
    }
1001
  free(stack);
1002
  free(check);
1003
  if (ct==0) return;
17938 bpr 1004
  fprintf(tikz_file,"\\draw\[%s]", tikz_options(the_color,1));
17599 bpr 1005
  qsort(stack2, ct, sizeof(int), compar);
1006
  cy=-1;
1007
  while (ct--)
1008
    {
1009
      a = stack2[ct];
1010
      x = a%sizex; y = a/sizex;
1011
      if (y != cy || x != rx+1)
1012
      {
17621 bpr 1013
  if (cy >= 0)
1014
    fprintf(tikz_file,
17933 bpr 1015
      "(%.2f,%.2f)rectangle(%.2f,%.2f)",
1016
      lx-0.0,flip(cy-0.0),rx+0.0,flip(cy+0.0));
17621 bpr 1017
  cy = y;
1018
  lx = rx = x;
17599 bpr 1019
      }
1020
      else
17621 bpr 1021
  rx++;
17599 bpr 1022
    }
1023
  fprintf(tikz_file,
17933 bpr 1024
    "(%.2f,%.2f)rectangle(%.2f,%.2f);\n",
1025
     lx-0.0,flip(cy-0.0),rx+0.0,flip(cy+0.0));
17599 bpr 1026
  free(stack2);
1027
}
18125 bpr 1028
void obj_dashed(objparm *pm){ dashed=1;}
1029
void obj_filled(objparm *pm){ filled=1;}
18159 bpr 1030
void obj_noreset(objparm *pm){ noreset=1;}
1031
void obj_reset(objparm *pm){ noreset=0;dashed=0;filled=0;}
17599 bpr 1032
 
7675 bpr 1033
/* flood fill */
10 reyssat 1034
void obj_fill(objparm *pm)
1035
{
12473 bpr 1036
  scale(pm->pd,pm->p,1);
17940 bpr 1037
  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],1,1,0,pm->color[0],grid);
12473 bpr 1038
  patchgdImageFill(image,pm->p[0],pm->p[1],pm->color[0]);
10 reyssat 1039
}
1040
 
7675 bpr 1041
/* flood fill to border*/
10 reyssat 1042
void obj_fillb(objparm *pm)
1043
{
12473 bpr 1044
  scale(pm->pd,pm->p,1);
17940 bpr 1045
  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],1,1,pm->color[0],pm->color[1],grid);
12473 bpr 1046
  patchgdImageFillToBorder(image,pm->p[0],pm->p[1],pm->color[0],pm->color[1]);
10 reyssat 1047
}
1048
 
1049
gdImagePtr himg;
1050
 
1051
int makehatchimage(int x, int y, int px, int py, int col)
1052
{
12473 bpr 1053
  int c1,c2,r,g,b;
1054
  gdImagePtr saveimg;
1055
  himg=gdImageCreate(x,y);
1056
  c1=gdImageGetPixel(image,px,py);
1057
  r=gdImageRed(image,c1); g=gdImageGreen(image,c1); b=gdImageBlue(image,c1);
1058
  if(r>=255) r--; else r++; if(g>=255) g--; else g++; if(b>=255) b--; else b++;
1059
  c1=gdImageColorAllocate(himg,r,g,b);
1060
  r=gdImageRed(image,col); g=gdImageGreen(image,col); b=gdImageBlue(image,col);
1061
  c2=gdImageColorAllocate(himg,r,g,b);
1062
  if(width>1) {
1063
    savew=-1; saveimg=image;
1064
    image=himg; c2=widthcolor(width,c2); image=saveimg;
1065
    c2=gdBrushed; savew=-1;
1066
  }
1067
  return c2;
10 reyssat 1068
}
1069
 
7675 bpr 1070
/* flood fill with hatching */
10 reyssat 1071
void obj_hatchfill(objparm *pm)
1072
{
12473 bpr 1073
  int nx,ny,ax,ay, dir, c;
1074
  scale(pm->pd,pm->p,1);
1075
  nx=pm->pd[2]; ny=pm->pd[3]; ax=abs(nx); ay=abs(ny);
1076
  if(nx==0 && ny==0) {fly_error("bad displacement vector"); return;}
1077
  if((nx>0 && ny>0) || (nx<0 && ny<0)) dir=1; else dir=-1;
1078
  if(ax==0) {ax=100; dir=2;}
1079
  if(ay==0) {ay=100; dir=3;}
1080
  c=makehatchimage(ax,ay,pm->p[0],pm->p[1],pm->color[0]);
1081
  switch(dir) {
1082
    case -1: {
1083
      gdImageLine(himg,0,ay-1,ax-1,0,c);
1084
      if(width>1) {
1085
        gdImageLine(himg,-ax,ay-1,-1,0,c);
1086
        gdImageLine(himg,ax,ay-1,2*ax-1,0,c);
1087
        gdImageLine(himg,0,-1,ax-1,-ay,c);
1088
        gdImageLine(himg,0,2*ay-1,ax-1,ay,c);
7675 bpr 1089
      }
12473 bpr 1090
      break;
1091
    }
1092
    case 1: {
1093
      gdImageLine(himg,0,0,ax-1,ay-1,c);
1094
      if(width>1) {
1095
        gdImageLine(himg,-ax,0,-1,ay-1,c);
1096
        gdImageLine(himg,ax,0,2*ax-1,ay-1,c);
1097
        gdImageLine(himg,0,-ay,ax-1,-1,c);
1098
        gdImageLine(himg,0,ay,ax-1,2*ay-1,c);
7675 bpr 1099
      }
12473 bpr 1100
      break;
1101
    }
1102
    case 2: gdImageLine(himg,0,ay/2,ax-1,ay/2,c); break;
17574 bpr 1103
    case 3: gdImageLine(himg,ax/2,0,ax/2,ay-1,c); break;
12473 bpr 1104
  }
17662 bpr 1105
  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,0,pm->color[0],hatch);
12473 bpr 1106
  gdImageSetTile(image,himg);
1107
  patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
1108
  gdImageDestroy(himg);
1109
  if(tiled) gdImageSetTile(image,tileimg);
10 reyssat 1110
}
1111
 
7675 bpr 1112
/* flood fill with grid */
10 reyssat 1113
void obj_gridfill(objparm *pm)
1114
{
12473 bpr 1115
  int nx,ny, c;
1116
  scale(pm->pd,pm->p,1);
1117
  nx=pm->pd[2]; ny=pm->pd[3]; nx=abs(nx); ny=abs(ny);
1118
  if(nx==0 && ny==0) {fly_error("bad grid size"); return;}
1119
  c=makehatchimage(nx,ny,pm->p[0],pm->p[1],pm->color[0]);
17940 bpr 1120
  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,0,pm->color[0],grid);
12473 bpr 1121
  gdImageLine(himg,0,ny/2,nx-1,ny/2,c); gdImageLine(himg,nx/2,0,nx/2,ny-1,c);
1122
  gdImageSetTile(image,himg);
1123
  patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
1124
  gdImageDestroy(himg);
1125
  if(tiled) gdImageSetTile(image,tileimg);
10 reyssat 1126
}
1127
 
7675 bpr 1128
/* flood fill with double hatching */
10 reyssat 1129
void obj_diafill(objparm *pm)
1130
{
12473 bpr 1131
  int nx,ny, c;
1132
  scale(pm->pd,pm->p,1);
1133
  nx=pm->pd[2]; ny=pm->pd[3]; nx=abs(nx); ny=abs(ny);
1134
  if(nx==0 && ny==0) {fly_error("bad grid size"); return;}
1135
  c=makehatchimage(nx,ny,pm->p[0],pm->p[1],pm->color[0]);
17940 bpr 1136
  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,0,pm->color[0],diamond);
12473 bpr 1137
  gdImageLine(himg,0,0,nx-1,ny-1,c); gdImageLine(himg,0,ny-1,nx-1,0,c);
1138
  gdImageSetTile(image,himg);
1139
  patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
1140
  gdImageDestroy(himg);
1141
  if(tiled) gdImageSetTile(image,tileimg);
10 reyssat 1142
}
1143
 
17599 bpr 1144
/* flood fill with dots */
10 reyssat 1145
void obj_dotfill(objparm *pm)
1146
{
12473 bpr 1147
  int nx,ny, c;
1148
  scale(pm->pd,pm->p,1);
1149
  nx=pm->pd[2]; ny=pm->pd[3]; nx=abs(nx); ny=abs(ny);
1150
  if(nx==0 && ny==0) {fly_error("bad grid size"); return;}
1151
  c=makehatchimage(nx,ny,pm->p[0],pm->p[1],pm->color[0]);
17940 bpr 1152
  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,0,pm->color[0],dot);
12473 bpr 1153
  gdImageSetPixel(himg,nx/2,ny/2,c);
1154
  gdImageSetTile(image,himg);
1155
  patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
1156
  gdImageDestroy(himg);
1157
  if(tiled) gdImageSetTile(image,tileimg);
10 reyssat 1158
}
1159
 
1160
struct {
12473 bpr 1161
  char *name;
1162
  gdFontPtr *fpt;
17964 bpr 1163
  char *ftikz;
10 reyssat 1164
} fonttab[]={
17964 bpr 1165
  {"tiny",  &gdFontTiny,"0.3"},
1166
  {"small", &gdFontSmall,"0.5"},
1167
  {"medium",&gdFontMediumBold,"0.7"},
1168
  {"large", &gdFontLarge,"0.9"},
1169
  {"giant", &gdFontGiant,"1"},
1170
  {"huge",  &gdFontGiant,"1"}
10 reyssat 1171
};
1172
 
1173
#define fonttab_no (sizeof(fonttab)/sizeof(fonttab[0]))
1174
 
7675 bpr 1175
/* string */
10 reyssat 1176
void obj_string(objparm *pm)
1177
{
12473 bpr 1178
  char *pp, *pe, *p2;
1179
  int i;
1180
  pp=pm->str; pe=strchr(pp,','); if(pe==NULL) {
1181
    fly_error("too_few_parms"); return;
1182
  }
1183
  *pe++=0; pp=find_word_start(pp); *find_word_end(pp)=0;
1184
  pe=find_word_start(pe); strip_trailing_spaces(pe);
1185
  if(*pp) {
1186
    for(i=0;i<fonttab_no && strcmp(pp,fonttab[i].name)!=0; i++);
1187
    if(i>=fonttab_no) i=1;
1188
  }
1189
  else i=1;
1190
  scale(pm->pd,pm->p,1);
1191
  if(*pe=='"') {
1192
    p2=strchr(pe+1,'"');
1193
    if(p2 && *(p2+1)==0) {*p2=0; pe++;}
1194
  }
17585 bpr 1195
  if(pm->fill){
12473 bpr 1196
    gdImageStringUp(image,*(fonttab[i].fpt),pm->p[0],pm->p[1], (unsigned char*) pe,
1197
        pm->color[0]);
17964 bpr 1198
    if(tikz_file) fprintf(tikz_file,"\\draw (%i,%i) node[scale=%s,rotate=90,color=%s,anchor=north west,inner sep=0pt] {\\(%s\\)};\n",
1199
      pm->p[0],flip(pm->p[1]),fonttab[i].ftikz,tikz_color(pm->color[0]),(unsigned char*) pe);
17585 bpr 1200
  }
1201
  else {
12473 bpr 1202
    gdImageString(image,*(fonttab[i].fpt),pm->p[0],pm->p[1], (unsigned char*) pe,
1203
        pm->color[0]);
17964 bpr 1204
    if(tikz_file) fprintf(tikz_file,"\\draw (%i,%i) node[scale=%s,color=%s,anchor=north west,inner sep=0pt] {\\(%s\\)};\n",
1205
      pm->p[0],flip(pm->p[1]),fonttab[i].ftikz,tikz_color(pm->color[0]),(unsigned char*) pe);
17585 bpr 1206
  }
10 reyssat 1207
}
17585 bpr 1208
/*FIXME; giant does not exist in tikz and ... samething as huge */
7675 bpr 1209
/* point */
10 reyssat 1210
void obj_point(objparm *pm)
1211
{
12473 bpr 1212
  scale(pm->pd,pm->p,1);
1213
  gdImageSetPixel(image,pm->p[0],pm->p[1],pm->color[0]);
17917 bpr 1214
  if(tikz_file) fprintf(tikz_file,"\\draw[%s] (%i,%i) circle (1pt);\n",
17574 bpr 1215
    tikz_options(pm->color[0],0),pm->p[0],flip(pm->p[1]));
10 reyssat 1216
}
1217
 
7675 bpr 1218
/* copy an image file */
10 reyssat 1219
void obj_copy(objparm *pm)
1220
{
12473 bpr 1221
  char *pp;
1222
  FILE *inf;
1223
  gdImagePtr insimg;
7615 bpr 1224
 
12473 bpr 1225
  pp=find_word_start(pm->str);*find_word_end(pp)=0;
1226
  inf=open4read(pp);
1227
  if(inf==NULL) {
17599 bpr 1228
    fly_error("file_does_not_exist"); return;
12473 bpr 1229
  }
1230
  insimg=gdImageCreateFromGif(inf); fclose(inf);
1231
  if(insimg==NULL) {
1232
    fly_error("bad_gif"); return;
1233
  }
1234
  scale(pm->pd,pm->p,1);
1235
  if(pm->pd[2]<0 && pm->pd[3]<0 && pm->pd[4]<0 && pm->pd[5]<0)
1236
    gdImageCopy(image,insimg,pm->p[0],pm->p[1],0,0,
1237
            insimg->sx,insimg->sy);
1238
  else
1239
    gdImageCopy(image,insimg,pm->p[0],pm->p[1],pm->pd[2],pm->pd[3],
1240
            pm->pd[4]-pm->pd[2],pm->pd[5]-pm->pd[3]);
17587 bpr 1241
  if(tikz_file) fprintf(tikz_file,
17618 bpr 1242
    "\\node[anchor=north west,inner sep=0pt] at (%i,%i) {\\includegraphics\[width=.05\\linewidth]{%s}};\n",
17587 bpr 1243
      pm->p[0],flip(pm->p[1]),pm->str);
1244
    gdImageDestroy(insimg);
1245
/*FIXME position non correcte; on ne peut pas utiliser une image gif */
10 reyssat 1246
}
1247
 
7675 bpr 1248
/* copy an image file, with resizing */
10 reyssat 1249
void obj_copyresize(objparm *pm)
1250
{
12473 bpr 1251
  char *pp;
1252
  FILE *inf;
1253
  gdImagePtr insimg;
7615 bpr 1254
 
12473 bpr 1255
  pp=find_word_start(pm->str);*find_word_end(pp)=0;
1256
  inf=open4read(pp);
1257
  if(inf==NULL) {
1258
    fly_error("file_not_found"); return;
1259
  }
1260
  insimg=gdImageCreateFromGif(inf); fclose(inf);
1261
  if(insimg==NULL) {
1262
    fly_error("bad_gif"); return;
1263
  }
1264
  scale(pm->pd+4,pm->p+4,2);
1265
  if(pm->pd[0]<0 && pm->pd[1]<0 && pm->pd[2]<0 && pm->pd[3]<0)
1266
    gdImageCopyResized(image,insimg,pm->p[4],pm->p[5],0,0,
1267
                 pm->p[6]-pm->p[4]+1,pm->p[7]-pm->p[5]+1,
1268
                 insimg->sx,insimg->sy);
1269
  else
1270
    gdImageCopyResized(image,insimg,pm->p[4],pm->p[5],pm->pd[0],pm->pd[1],
1271
                 pm->p[6]-pm->p[4]+1,pm->p[7]-pm->p[5]+1,
1272
                 pm->pd[2]-pm->pd[0]+1,pm->pd[3]-pm->pd[1]+1);
1273
  gdImageDestroy(insimg);
10 reyssat 1274
}
1275
 
7675 bpr 1276
/* set brush or tile */
10 reyssat 1277
void obj_setbrush(objparm *pm)
1278
{
12473 bpr 1279
  char *pp;
1280
  FILE *inf;
1281
  gdImagePtr insimg;
10 reyssat 1282
 
12473 bpr 1283
  pp=find_word_start(pm->str); *find_word_end(pp)=0;
1284
  inf=open4read(pp); if(inf==NULL) {
1285
    fly_error("file_not_found"); return;
1286
  }
1287
  insimg=gdImageCreateFromGif(inf); fclose(inf);
1288
  if(insimg==NULL) {
1289
    fly_error("bad_gif"); return;
1290
  }
1291
  if(pm->fill) {
1292
    gdImageSetTile(image,insimg); tiled=1; tileimg=insimg;
1293
  }
1294
  else {
1295
    gdImageSetBrush(image,insimg);brushed=1; brushimg=insimg;
1296
  }
10 reyssat 1297
}
1298
 
7675 bpr 1299
/* kill brush */
10 reyssat 1300
void obj_killbrush(objparm *pm)
1301
{
12473 bpr 1302
  if(brushimg) gdImageDestroy(brushimg);
1303
  brushed=0; brushimg=NULL;
10 reyssat 1304
}
1305
 
7675 bpr 1306
/* kill tile */
10 reyssat 1307
void obj_killtile(objparm *pm)
1308
{
12473 bpr 1309
  if(tileimg) gdImageDestroy(tileimg);
1310
  tiled=0; tileimg=NULL;
10 reyssat 1311
}
1312
 
7675 bpr 1313
/* set style */
10 reyssat 1314
void obj_setstyle(objparm *pm)
1315
{
12473 bpr 1316
  int i,t;
1317
  t=pm->pcnt/3; if(t<=0) {
1318
    fly_error("too_few_parms"); return;
1319
  }
1320
  for(i=0;i<t;i++) {
1321
    if(pm->pd[3*i]<0 || pm->pd[3*i+1]<0 || pm->pd[3*i+2]<0)
1322
      pm->p[i]=gdTransparent;
1323
    else
1324
      pm->p[i]=getcolor(pm->pd[3*i],pm->pd[3*i+1],pm->pd[3*i+2]);
1325
  }
1326
  gdImageSetStyle(image,pm->p,t); styled=1;
10 reyssat 1327
}
1328
 
7675 bpr 1329
/* kill style */
10 reyssat 1330
void obj_killstyle(objparm *pm)
1331
{
12473 bpr 1332
  styled=0;
10 reyssat 1333
}
1334
 
7675 bpr 1335
/* set transparent */
10 reyssat 1336
void obj_transp(objparm *pm)
1337
{
12473 bpr 1338
  gdImageColorTransparent(image,pm->color[0]);
10 reyssat 1339
}
1340
 
7675 bpr 1341
/* set interlace */
10 reyssat 1342
void obj_interlace(objparm *pm)
1343
{
12473 bpr 1344
  gdImageInterlace(image,1);
10 reyssat 1345
}
1346
 
7675 bpr 1347
/* set linewidth */
10 reyssat 1348
void obj_linewidth(objparm *pm)
1349
{
12473 bpr 1350
  if(pm->pd[0]<1 || pm->pd[0]>255) fly_error("bad_parms");
17574 bpr 1351
  width=pm->pd[0];
17612 bpr 1352
  if(tikz_file) fprintf(tikz_file,"\\pgfsetlinewidth{%fpt}\n",width*0.7);
10 reyssat 1353
}
1354
 
8414 bpr 1355
/* set crosshairsize */
1356
void obj_crosshairsize(objparm *pm)
1357
{
12473 bpr 1358
  if(pm->pd[0]<1 || pm->pd[0]>255) fly_error("bad_parms");
1359
  else width2=pm->pd[0];
8414 bpr 1360
}
1361
 
7675 bpr 1362
/* set x range */
10 reyssat 1363
void obj_xrange(objparm *pm)
1364
{
12473 bpr 1365
  double dd;
1366
  dd=pm->pd[1]-pm->pd[0];
1367
  xstart=pm->pd[0]; xscale=sizex/dd;
10 reyssat 1368
}
1369
 
7675 bpr 1370
/* set y range */
10 reyssat 1371
void obj_yrange(objparm *pm)
1372
{
12473 bpr 1373
  double dd;
1374
  dd=pm->pd[1]-pm->pd[0];
1375
  ystart=pm->pd[1]; yscale=-sizey/dd;
10 reyssat 1376
}
1377
 
7675 bpr 1378
/* set x et y range */
10 reyssat 1379
void obj_range(objparm *pm)
1380
{
12473 bpr 1381
  double d1,d2;
1382
  d1=pm->pd[1]-pm->pd[0]; d2=pm->pd[3]-pm->pd[2];
1383
  xstart=pm->pd[0]; xscale=(sizex-1)/d1;
1384
  ystart=pm->pd[3]; yscale=-(sizey-1)/d2;
10 reyssat 1385
}
1386
 
7675 bpr 1387
/* set t range */
10 reyssat 1388
void obj_trange(objparm *pm)
1389
{
12473 bpr 1390
  /*double dd;
1391
  dd=pm->pd[1]-pm->pd[0];*/
1392
  tstart=pm->pd[0]; tend=pm->pd[1];
1393
  tranged=1;
10 reyssat 1394
}
1395
 
7675 bpr 1396
/* set tstep (plotting step) */
10 reyssat 1397
void obj_tstep(objparm *pm)
1398
{
12473 bpr 1399
  int dd;
1400
  dd=pm->pd[0];
1401
  if(dd<3) {
1402
    fly_error("bad_step"); return;
1403
  }
1404
  if(dd>2000) dd=2000;
1405
  tstep=dd;
10 reyssat 1406
}
1407
 
7675 bpr 1408
/* set plotjump (plot jump break threashold) */
10 reyssat 1409
void obj_plotjump(objparm *pm)
1410
{
12473 bpr 1411
  int dd;
1412
  dd=pm->pd[0];
1413
  if(dd<3) dd=3;
1414
  if(dd>MAX_SIZE) dd=MAX_SIZE;
1415
  plotjump=dd;
10 reyssat 1416
}
1417
 
7675 bpr 1418
/* plot a curve, either parametric or explicit */
6578 bpr 1419
void _obj_plot(objparm *pm,int dash)
10 reyssat 1420
{
12473 bpr 1421
  int i,j,n,dist,xx,yy,varpos;
1422
  char p1[MAX_LINELEN+1], p2[MAX_LINELEN+1];
1423
  char *varn, *pp;
1424
  double dc[2],t,v;
1425
  int ic[2],oc[2];
10 reyssat 1426
 
12473 bpr 1427
  n=itemnum(pm->str);
1428
  if(n<1) {
1429
    fly_error("bad_parms"); return;
1430
  }
1431
  fnd_item(pm->str,1,p1); fnd_item(pm->str,2,p2);
1432
  if(n==1 && !tranged) v=sizex/xscale/tstep;
1433
  else v=(tend-tstart)/tstep;
1434
  if(n==1) varn="x"; else varn="t";
1435
  for(pp=varchr(p1,varn); pp; pp=varchr(pp,varn)) {
1436
    string_modify(p1,pp,pp+strlen(varn),EV_T);
1437
    pp+=strlen(EV_T);
1438
  }
1439
  for(pp=varchr(p2,varn); pp; pp=varchr(pp,varn)) {
1440
    string_modify(p2,pp,pp+strlen(varn),EV_T);
7675 bpr 1441
      pp+=strlen(EV_T);
12473 bpr 1442
  }
1443
  varpos=eval_getpos(EV_T);
1444
  if(varpos<0) return; /* unknown error */
1445
  evalue_compile(p1); evalue_compile(p2);
1446
  if(vimg_enable) vimg_plotstart();
17933 bpr 1447
  if (tikz_file) fprintf(tikz_file,"\%\%begin plot\n\\draw\[%s]",
1448
    tikz_options(pm->color[0],-dash));
12473 bpr 1449
  for(i=j=0;i<=tstep;i++) {
1450
    if(n==1) {
1451
      if(tranged) t=tstart+i*v; else t=xstart+i*v;
1452
      eval_setval(varpos,t); dc[0]=t; dc[1]=strevalue(p1);
10 reyssat 1453
    }
17621 bpr 1454
    else {
1455
      t=tstart+i*v; eval_setval(varpos,t);
1456
      dc[0]=strevalue(p1); dc[1]=strevalue(p2);
10 reyssat 1457
    }
17621 bpr 1458
    if(!isfinite(dc[0]) || !isfinite(dc[1])) ic[0]=ic[1]=-BOUND;
1459
    else scale(dc,ic,1);
1460
    if(vimg_enable) vimg_plot1 (scale_buf[0],scale_buf[1]);
18019 bpr 1461
    if(j==0) {
1462
      gdImageSetPixel(image,ic[0],ic[1],pm->color[0]); j++;
1463
      if (tikz_file)
1464
        fprintf(tikz_file,"(%i,%i)rectangle(%i,%i)",
1465
          ic[0],flip(ic[1]),ic[0]+1,flip(ic[1]+1));
1466
    }
1467
    else {
1468
      xx=ic[0]-oc[0]; yy=ic[1]-oc[1];
1469
      dist=sqrt(xx*xx+yy*yy);
1470
      if(dist>0){
1471
        if(dist>plotjump || dist==1) {
1472
          gdImageSetPixel(image,ic[0],ic[1],pm->color[0]);
1473
          if (tikz_file)
1474
            fprintf(tikz_file,"(%i,%i)rectangle(%i,%i)",
1475
              ic[0],flip(ic[1]),ic[0]+1,flip(ic[1]+1));
1476
        }
1477
        else {
1478
          if (dash==1)
18105 georgesk 1479
            myDashedLine(image,oc[0],oc[1],ic[0],ic[1],pm->color[0]);
18019 bpr 1480
          else
1481
            gdImageLine(image,oc[0],oc[1],ic[0],ic[1],pm->color[0]);
1482
          if (tikz_file)
1483
            fprintf(tikz_file, "(%i,%i)--(%i,%i)",
17932 bpr 1484
                oc[0],flip(oc[1]),ic[0],flip(ic[1]));
18019 bpr 1485
        }
17621 bpr 1486
      }
1487
    }
18019 bpr 1488
    memmove(oc,ic,sizeof(oc));
12473 bpr 1489
  }
17932 bpr 1490
  if (tikz_file) fprintf(tikz_file,";\n\%\%end plot\n");
12473 bpr 1491
  if(vimg_enable) vimg_plotend();
10 reyssat 1492
}
1493
 
6578 bpr 1494
void obj_plot(objparm *pm) { _obj_plot( pm,0) ;}
1495
void obj_dplot(objparm *pm) { _obj_plot( pm,1) ; }
1496
 
7675 bpr 1497
/* set levelcurve granularity */
10 reyssat 1498
void obj_levelstep(objparm *pm)
1499
{
12473 bpr 1500
  int dd;
1501
  dd=pm->pd[0];
1502
  if(dd<1) return;
1503
  if(dd>16) dd=16;
1504
  lstep=dd;
10 reyssat 1505
}
1506
 
7675 bpr 1507
/* level curve */
10 reyssat 1508
void obj_levelcurve(objparm *pm)
1509
{
12473 bpr 1510
  char fn[MAX_LINELEN+1],tc[MAX_LINELEN+1];
1511
  int n,i;
1512
  double d;
1513
  leveldata *ld;
7615 bpr 1514
 
12473 bpr 1515
  ld=xmalloc(sizeof(leveldata)+16);
1516
  ld->xname="x"; ld->yname="y";
1517
  ld->xsize=sizex; ld->ysize=sizey; ld->datacnt=0;
1518
  ld->xrange[0]=xstart; ld->xrange[1]=sizex/xscale+xstart;
1519
  ld->yrange[0]=sizey/yscale+ystart; ld->yrange[1]=ystart;
1520
  ld->grain=lstep;
1521
  fnd_item(pm->str,1,fn); ld->fn=fn;
1522
  n=itemnum(pm->str);
1523
  if(n<=1) {ld->levelcnt=1; ld->levels[0]=0;}
1524
  else {
1525
    if(n>LEVEL_LIM+1) n=LEVEL_LIM+1;
1526
    for(i=0;i<n-1;i++) {
1527
      fnd_item(pm->str,i+2,tc);
1528
      d=strevalue(tc);
1529
      if(isfinite(d)) ld->levels[i]=d; else ld->levels[i]=0;
10 reyssat 1530
    }
12473 bpr 1531
    ld->levelcnt=n-1;
1532
  }
1533
  levelcurve(ld);
17932 bpr 1534
  if (tikz_file)
1535
    fprintf(tikz_file,"\%\%begin levelcurve\n\\draw\[%s]"
18065 bpr 1536
      ,tikz_options(pm->color[0],1));
12473 bpr 1537
  for(i=0;i<ld->datacnt;i++) {
1538
    gdImageSetPixel(image,ld->xdata[i],ld->ydata[i],pm->color[0]);
17584 bpr 1539
    if (tikz_file)
1540
      fprintf(tikz_file,
17933 bpr 1541
        "(%i,%i)rectangle(%i,%i)",
1542
        ld->xdata[i],flip(ld->ydata[i]),ld->xdata[i]+1,flip(ld->ydata[i]+1));
12473 bpr 1543
  }
17932 bpr 1544
  if (tikz_file) fprintf(tikz_file,";\n\%\%end levelcurve\n");
12473 bpr 1545
  free(ld);
10 reyssat 1546
}
1547
 
7675 bpr 1548
/* set animation step */
10 reyssat 1549
void obj_animstep(objparm *pm)
1550
{
12473 bpr 1551
  animstep=pm->pd[0];
1552
  setvar("animstep",pm->pd[0]);
10 reyssat 1553
}
1554
 
7675 bpr 1555
/* Starts a line counting */
10 reyssat 1556
void obj_linecount(objparm *pm)
1557
{
12473 bpr 1558
  linecnt=pm->pd[0];
10 reyssat 1559
}
1560
 
7675 bpr 1561
/* marks end of execution */
10 reyssat 1562
void obj_end(objparm *pm)
1563
{
12473 bpr 1564
  fly_error("successful_end_of_execution");
10 reyssat 1565
}
1566
 
7675 bpr 1567
/* output */
10 reyssat 1568
void obj_output(objparm *pm)
1569
{
12473 bpr 1570
  char *p, namebuf[1024];
1571
  p=find_word_start(pm->str); *find_word_end(p)=0;
1572
  snprintf(namebuf,sizeof(namebuf),"%s",imagefilename);
1573
  snprintf(imagefilename,sizeof(imagefilename),"%s",p);
1574
  output();
1575
  snprintf(imagefilename,sizeof(imagefilename),"%s",namebuf);
10 reyssat 1576
}
1577
 
7675 bpr 1578
/* vimgfile */
1024 bpr 1579
void obj_vimgfile(objparm *pm)
1580
{
12473 bpr 1581
  char *p;
1582
  p=find_word_start(pm->str); *find_word_end(p)=0;
1583
  snprintf(vimgfilename,sizeof(vimgfilename),"%s",p);
1584
  if(vimg_ready) vimg_close();
1024 bpr 1585
}
1586
 
7675 bpr 1587
/* vimg enable/disable */
1024 bpr 1588
void obj_vimg(objparm *pm)
1589
{
12473 bpr 1590
  vimg_enable=pm->pd[0];
1591
  if(vimg_enable>0 && vimg_ready==0) vimg_init();
1024 bpr 1592
}
1593
 
7675 bpr 1594
/* Set affine transformation */
10 reyssat 1595
void obj_affine(objparm *pm)
1596
{
12473 bpr 1597
  int i;
1598
  for(i=0;i<4;i++) matrix[i]=pm->pd[i];
1599
  transx=pm->pd[4]; transy=pm->pd[5];
1600
  transform=1;
10 reyssat 1601
}
1602
 
7675 bpr 1603
/* Set affine transformation */
10 reyssat 1604
void obj_rotation(objparm *pm)
1605
{
12473 bpr 1606
  double r;
1607
  r=M_PI*pm->pd[0]/180;
1608
  matrix[0]=matrix[3]=cos(r);
1609
  matrix[1]=-sin(r); matrix[2]=sin(r);
1610
  transform=1;
10 reyssat 1611
}
1612
 
8419 bpr 1613
/* Set linear transformation */
10 reyssat 1614
void obj_linear(objparm *pm)
1615
{
12473 bpr 1616
  int i;
1617
  for(i=0;i<4;i++) matrix[i]=pm->pd[i];
1618
  transform=1;
10 reyssat 1619
}
1620
 
8419 bpr 1621
/* Set translation transformation */
10 reyssat 1622
void obj_translation(objparm *pm)
1623
{
12473 bpr 1624
  transx=pm->pd[0]; transy=pm->pd[1];
10 reyssat 1625
}
1626
 
8419 bpr 1627
/* kill affine transformation */
10 reyssat 1628
void obj_killaffine(objparm *pm)
1629
{
12473 bpr 1630
  matrix[0]=matrix[3]=1;
1631
  matrix[1]=matrix[2]=transx=transy=0;
1632
  transform=0;
10 reyssat 1633
}
1634
 
8419 bpr 1635
/* kill affine transformation */
10 reyssat 1636
void obj_killlinear(objparm *pm)
1637
{
12473 bpr 1638
  matrix[0]=matrix[3]=1;
1639
  matrix[1]=matrix[2]=0;
1640
  transform=0;
10 reyssat 1641
}
1642
 
8419 bpr 1643
/* kill affine transformation */
10 reyssat 1644
void obj_killtranslation(objparm *pm)
1645
{
12473 bpr 1646
  transx=transy=0;
10 reyssat 1647
}
1648
 
1649
/***** Les modifs de Jean-Christophe Leger Fev 2006 *****/
1650
 
7615 bpr 1651
/* arguments: un numero de matrice entre 1 et JC_NB_MATRICES, une liste de 4 nombres reels pour la matrice */
10 reyssat 1652
void obj_setmatrix(objparm *pm)
1653
{
1654
  int nummatrix = (int) (pm->pd[0]);
1655
  if((nummatrix < 1) ||(nummatrix>JC_NB_MATRICES)) {
8195 bpr 1656
    fly_error("bad_matrix_number");
10 reyssat 1657
    return;
1658
  }
1659
  matrices_pavage[nummatrix][0] = pm->pd[1];
1660
  matrices_pavage[nummatrix][1] = pm->pd[2];
1661
  matrices_pavage[nummatrix][2] = pm->pd[3];
1662
  matrices_pavage[nummatrix][3] = pm->pd[4];
1663
}
1664
 
7615 bpr 1665
/* arguments: un numero de matrice entre 1 et JC_NB_MATRICES */
10 reyssat 1666
void obj_resetmatrix(objparm *pm)
1667
{
1668
  int nummatrix = (int) (pm->pd[0]);
1669
  if((nummatrix < 1) ||(nummatrix>JC_NB_MATRICES)) {
8195 bpr 1670
    fly_error("bad_matrix_number");
10 reyssat 1671
    return;
1672
  }
1673
  matrices_pavage[nummatrix][0] = 1;
1674
  matrices_pavage[nummatrix][1] = 0;
1675
  matrices_pavage[nummatrix][2] = 0;
1676
  matrices_pavage[nummatrix][3] = 1;
1677
 
1678
}
7615 bpr 1679
/* arguments: un numero de vecteur entre 1 et JC_NB_MATRICES, une liste de 2 nombres reels pour le vecteur */
10 reyssat 1680
void obj_setvector(objparm *pm)
1681
{
1682
  int nummatrix = (int) (pm->pd[0]);
1683
  if((nummatrix < 1) ||(nummatrix>JC_NB_MATRICES)) {
8195 bpr 1684
    fly_error("bad_vector_number");
10 reyssat 1685
    return;
1686
  }
1687
  vecteurs_pavage[nummatrix][0] = pm->pd[1];
1688
  vecteurs_pavage[nummatrix][1] = pm->pd[2];
1689
}
1690
 
7615 bpr 1691
/* arguments: un numero de matrice entre 1 et JC_NB_MATRICES */
10 reyssat 1692
void obj_resetvector(objparm *pm)
1693
{
1694
  int nummatrix = (int) (pm->pd[0]);
1695
  if((nummatrix < 1) ||(nummatrix>JC_NB_MATRICES)) {
8195 bpr 1696
    fly_error("bad_vector_number");
10 reyssat 1697
    return;
1698
  }
1699
  vecteurs_pavage[nummatrix][0] = 0;
1700
  vecteurs_pavage[nummatrix][1] = 0;
1701
}
1702
 
7615 bpr 1703
/* arguments: un numero de vecteur entre 1 et JC_NB_MATRICES, une liste de 6 nombres reels pour la matrice et le vecteur */
10 reyssat 1704
void obj_settransform(objparm *pm)
1705
{
1706
  int nummatrix = (int) (pm->pd[0]);
1707
  if((nummatrix < 1) ||(nummatrix>JC_NB_MATRICES)) {
8195 bpr 1708
    fly_error("bad_vector_number");
10 reyssat 1709
    return;
1710
  }
1711
  matrices_pavage[nummatrix][0] = pm->pd[1];
1712
  matrices_pavage[nummatrix][1] = pm->pd[2];
1713
  matrices_pavage[nummatrix][2] = pm->pd[3];
1714
  matrices_pavage[nummatrix][3] = pm->pd[4];
1715
  vecteurs_pavage[nummatrix][0] = pm->pd[5];
1716
  vecteurs_pavage[nummatrix][1] = pm->pd[6];
1717
}
1718
 
1719
 
7615 bpr 1720
/* arguments: un numero de matrice entre 1 et JC_NB_MATRICES */
10 reyssat 1721
void obj_resettransform(objparm *pm)
1722
{
1723
  int nummatrix = (int) (pm->pd[0]);
1724
  if((nummatrix < 1) ||(nummatrix>JC_NB_MATRICES)) {
8195 bpr 1725
    fly_error("bad_vector_number");
10 reyssat 1726
    return;
1727
  }
1728
  vecteurs_pavage[nummatrix][0] = 0;
1729
  vecteurs_pavage[nummatrix][1] = 0;
1730
  matrices_pavage[nummatrix][0] = 1;
1731
  matrices_pavage[nummatrix][1] = 0;
1732
  matrices_pavage[nummatrix][2] = 0;
1733
  matrices_pavage[nummatrix][3] = 1;
1734
}
1735
 
7615 bpr 1736
/* arguments: une liste de 6 nombres reels pour les coordonnees de l'origine et des vecteurs de base */
10 reyssat 1737
void obj_setparallelogram(objparm *pm)
1738
{
1739
  int i;
1740
  for(i=0;i<6;i++)  parallogram_fonda[i]=pm->pd[i];
1741
}
1742
 
1743
/* arguments :aucun */
1744
void obj_resetparallelogram(objparm *pm)
1745
{
1746
  parallogram_fonda[0]=0;
1747
  parallogram_fonda[1]=0;
1748
  parallogram_fonda[2]=100;
1749
  parallogram_fonda[3]=0;
1750
  parallogram_fonda[4]=0;
1751
  parallogram_fonda[5]=100;
1752
}
1753
 
1754
/* argument : la liste des numeros des matrices a faire agir, le nom du fichier de l'image a inclure */
1755
void obj_multicopy(objparm *pm)
1756
{
12473 bpr 1757
  char *pp,*pe,*cptr;
1758
  FILE *inf;
1759
  gdImagePtr insimg;
1760
  int i,j;
1761
  int imax,jmax;
1762
  int c; /* la couleur reperee */
1763
  int mat;
1764
  int nummatrices[JC_NB_MATRICES];
1765
  double pt[2]; /* les coordonnees math. du point repere dans le parallelogramme */
1766
  double ptr[2]; /* les coordonnees math. du point transforme */
1767
  int pti[2]; /* les coordonnees img du point a placer sur le canevas */
1768
  int t;
1769
  /* gestion palette de couleur de l'image a inserer */
1770
  int colorMap[gdMaxColors];
1771
  int comptmat=0; /* combien de matrices en tout ? */
7615 bpr 1772
 
12473 bpr 1773
  for (i=0; (i<gdMaxColors); i++) {
1774
    colorMap[i] = (-1);
1775
  }
10 reyssat 1776
 
12473 bpr 1777
  /* Gestion des parametres la liste est censee finir avec le nom du fichier */
1778
  t=pm->pcnt-1; /* il faut enlever le nom de fichier ! c'est le nombre de parametres en plus */
1779
  pp=find_word_start(pm->str);
1780
  /* visiblement find_word_start n'arrive pas a trouver le dernier mot dans un contexte ou le nombre de parameters est variable
10 reyssat 1781
     * on cherche donc l'emplacement de la derniere virgule:
1782
     * il y en a une car t>0, on retrouve ensuite le debut de mot
1783
     */
12473 bpr 1784
  for(pe=pp;*pe!=0;pe++);/* trouve la fin de la chaine */
1785
  if(t>0){
1786
    for(cptr = pe; cptr > pp && *cptr != ','; cptr--);
1787
    pp=find_word_start(cptr+1);
1788
  }
1789
  pe=find_word_end(pp);*pe=0; /* strip junk final */
1790
  //      printf("pp contient %s\n",pp);
10 reyssat 1791
 
1792
 
12473 bpr 1793
  inf=open4read(pp);
1794
  if(inf==NULL) {
1795
    fly_error("file_not_exist"); return;
1796
  }
1797
  insimg=gdImageCreateFromGif(inf); fclose(inf);
1798
  if(insimg==NULL) {
1799
    fly_error("bad_gif"); return;
1800
  }
10 reyssat 1801
 
12473 bpr 1802
  /* On recupere les numeros des matrices/vecteurs a faire agir,
1803
    * s'il n'y en a pas, on les fait toutes agir
1804
  */
1805
  for(i=0;i<t && i< JC_NB_MATRICES;i++) {
1806
    if(pm->pd[i]>=1 && pm->pd[i]<=JC_NB_MATRICES){
1807
      nummatrices[comptmat] = pm->pd[i];
1808
      comptmat++;
10 reyssat 1809
    }
12473 bpr 1810
  }
1811
  if(t<=0){
1812
    for(i=0;i<JC_NB_MATRICES;i++) {
1813
      nummatrices[i] = i+1;
10 reyssat 1814
    }
12473 bpr 1815
    comptmat=JC_NB_MATRICES;
1816
  }
10 reyssat 1817
 
7615 bpr 1818
 
12473 bpr 1819
  imax = gdImageSX(insimg);
1820
  jmax = gdImageSY(insimg);
10 reyssat 1821
 
12473 bpr 1822
  for(i=0;i<imax;i++){
1823
    for(j=0;j<jmax;j++){
1824
      int nc;
1825
      c=gdImageGetPixel(insimg,i,j);
1826
      /* Le code suivant est une copie du code dans gdImageCopy  Added 7/24/95: support transparent copies */
1827
      if (gdImageGetTransparent(insimg) != c) {
1828
        /* Have we established a mapping for this color? */
1829
        if (colorMap[c] == (-1)) {
1830
          /* If it's the same image, mapping is trivial, dans notre cas ca n'arrive jamais... */
1831
          if (image == insimg) {
1832
            nc = c;
1833
          } else {
1834
            /* First look for an exact match */
1835
            nc = gdImageColorExact(image,
1836
                   insimg->red[c], insimg->green[c],
1837
                           insimg->blue[c]);
1838
          }
1839
          if (nc == (-1)) {
1840
          /* No, so try to allocate it */
1841
            nc = gdImageColorAllocate(image,
1842
                             insimg->red[c], insimg->green[c],
7675 bpr 1843
                             insimg->blue[c]);
12473 bpr 1844
             /* If we're out of colors, go for the closest color */
1845
            if (nc == (-1)) {
1846
              nc = gdImageColorClosest(image,
7675 bpr 1847
                              insimg->red[c], insimg->green[c],
1848
                              insimg->blue[c]);
12473 bpr 1849
            }
1850
          }
1851
          colorMap[c] = nc;
1852
        }
10 reyssat 1853
 
12473 bpr 1854
        pt[0]= i*(parallogram_fonda[2])/(imax-1)+(jmax-j)*(parallogram_fonda[4])/(jmax-1)+parallogram_fonda[0];
1855
        pt[1]= i*(parallogram_fonda[3])/(imax-1)+(jmax-j)*(parallogram_fonda[5])/(jmax-1)+parallogram_fonda[1];
1856
        for(mat=0;mat<comptmat;mat++){
7675 bpr 1857
          double *matricecourante = matrices_pavage[nummatrices[mat]];
1858
          double *vecteurcourant = vecteurs_pavage[nummatrices[mat]];
1859
          ptr[0] = matricecourante[0]*pt[0]+matricecourante[1]*pt[1]+vecteurcourant[0];
1860
          ptr[1] = matricecourante[2]*pt[0]+matricecourante[3]*pt[1]+vecteurcourant[1];
1861
          scale(ptr,pti,1);
1862
          gdImageSetPixel(image,pti[0],pti[1],colorMap[c]);
12473 bpr 1863
        }
10 reyssat 1864
      }
1865
    }
12473 bpr 1866
  }
1867
  gdImageDestroy(insimg);
10 reyssat 1868
}
1869
 
1870
/**** Fin modifs JC Fev 06 ******/
1871
 
7675 bpr 1872
/* get color from value */
10 reyssat 1873
int calc_color(char *p, struct objtab *o)
1874
{
12473 bpr 1875
  int k, cc[3];
1876
  char buf[MAX_LINELEN+1];
1877
  for(k=0;k<3;k++) {
1878
    fnd_item(p,k+1,buf);
1879
    cc[k]=strevalue(buf);
1880
  }
1881
  collapse_item(p,3);
1882
  if(cc[0]==-1 && cc[1]==-1 && cc[2]==-255) {
10 reyssat 1883
 
12473 bpr 1884
    if(brushed && o->subst&1) return gdBrushed;
1885
    else return color_black;
1886
  }
1887
  if(cc[0]==-1 && cc[1]==-255 && cc[2]==-1) {
1888
    if(styled && o->subst&2)  return gdStyled;
1889
    else return color_black;
1890
  }
1891
  if(cc[0]==-255 && cc[1]==-1 && cc[2]==-1) {
1892
    if(tiled && o->fill_tag==1)  return gdTiled;
1893
    else return color_black;
1894
  }
1895
  return getcolor(cc[0],cc[1],cc[2]);
10 reyssat 1896
}
1897
 
7675 bpr 1898
/* Routine to parse parameters */
10 reyssat 1899
int parse_parms(char *p,objparm *pm,struct objtab *o)
1900
{
12473 bpr 1901
  char buf[MAX_LINELEN+1];
1902
  char *p1, *p2;
1903
  int j,t,c,c1,c2;
7615 bpr 1904
 
12473 bpr 1905
  c=o->color_pos;c1=c2=0;
1906
  pm->color[0]=pm->color[1]=0;
1907
  if(c>0) c1=c;
1908
  if(c<0) c2=-c;
1909
  c=c1+c2;
1910
  t=itemnum(p);if(t<o->required_parms+3*c) return -1;
1911
  if(c1>0 && t>o->required_parms+3*c) t=o->required_parms+3*c;
1912
  pm->pcnt=t-3*c;
1913
  if(pm->pcnt>MAX_PARMS) pm->pcnt=MAX_PARMS;
1914
  if(c2>0) {
1915
    for(j=0;j<2 && j<c2; j++) pm->color[j]=calc_color(p,o);
1916
  }
1917
  snprintf(buf,sizeof(buf),"%s",p);
1918
  for(j=0, p1=buf; j<pm->pcnt; j++, p1=p2) {
1919
    p2=find_item_end(p1); if(*p2) *p2++=0;
1920
    p1=find_word_start(p1);
1921
    if(*p1) pm->pd[j]=strevalue(p1); else pm->pd[j]=0;
1922
    if(!isfinite(pm->pd[j])) {
1923
        if(j<o->required_parms) return -1;
1924
        else {pm->pd[j]=0;break;}
10 reyssat 1925
    }
12473 bpr 1926
  }
1927
  collapse_item(p,o->required_parms);
1928
  if(c1>0) {
1929
    for(j=0;j<c1 && j<2; j++) pm->color[j]=calc_color(p,o);
1930
  }
1931
  if(width>1 && o->subst&1 && pm->color[0]!=gdBrushed
1932
      && pm->color[0]!=gdStyled && pm->color[0]!=gdTiled) {
1933
    pm->color[1]=pm->color[0];
1934
    pm->color[0]=widthcolor(width,pm->color[0]);
1935
  }
1936
  pm->fill=o->fill_tag;
18131 bpr 1937
  if(o->required_parms!=0){
1938
    if(dashed) {
1939
      if(pm->fill==1) pm->fill=2;
1940
      if(pm->fill==0) pm->fill=-1;
18159 bpr 1941
       if(noreset==0) dashed=0;
18131 bpr 1942
    }
1943
    if(filled) {
1944
      if(pm->fill==-1) pm->fill=2;
1945
      if(pm->fill==0) pm->fill=1;
18159 bpr 1946
      if(noreset==0) filled=0;
18131 bpr 1947
    }
1948
  }
12473 bpr 1949
  ovlstrcpy(pm->str,p); return 0;
10 reyssat 1950
}
1951
 
8068 bpr 1952
/* Create the struct objparm pm corresponding to the objparm p
1953
 * Execute a command. Returns 0 if OK.
1954
 */
10 reyssat 1955
int obj_main(char *p)
1956
{
12473 bpr 1957
  int i;
1958
  char *pp,*name,*pt;
1959
  char tbuf2[MAX_LINELEN+1];
1960
  struct objparm pm;
10 reyssat 1961
 
12473 bpr 1962
  p=find_word_start(p);
1963
  if(*p==exec_prefix_char || *p==0) return 0; /* comment */
1964
  name=p;
1965
  pp=find_name_end(p);
1966
  pt=find_word_start(pp); if(*pt=='=') *pt=' ';
1967
  if(*pt==':' && *(pt+1)=='=') *pt=*(pt+1)=' ';
1968
  pp=find_word_end(p);
1969
  if(*pp!=0) {
1970
    *(pp++)=0; pp=find_word_start(pp);
1971
  }
1972
  if(strlen(p)==1 || (strlen(p)==2 && isdigit(*(p+1)))) {
1973
    setvar(p,strevalue(pp)); return 0;
1974
  }
1975
  /* search the number of the object */
1976
  i=search_list(objtab,obj_no,sizeof(objtab[0]),name);
1977
  if(i<0) {
1978
    fly_error("bad_cmd"); return 1;
1979
  }
1980
  if(image==NULL && (objtab[i].color_pos || objtab[i].required_parms>2)) {
1981
    fly_error("image_not_defined"); return 1;
1982
  }
1983
  ovlstrcpy(tbuf2,pp);
1984
  if(objtab[i].color_pos || objtab[i].routine==obj_setstyle) {
1985
    substit(tbuf2);
1986
  }
1987
  if(parse_parms(tbuf2,&pm,objtab+i)!=0) fly_error("bad_parms");
1988
  else objtab[i].routine(&pm);
1989
  return 0;
10 reyssat 1990
}