WebSVN – wimsdev – Diff – /trunk/wims/src/Flydraw/objects.c

  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  */
 #include <errno.h>
 #include "flydraw.h"
+/* Tikz things */
+/* the_tiled,gdTiled , int the_tiled*/
+static char *tikz_options (int the_color, int the_fill)
+{
+  static char buf[100];
+  if (the_color == gdBrushed)
+    the_color = tikz_brushColor;
+  int r=gdImageRed(image,the_color);
+  int g=gdImageGreen(image,the_color);
+  int b=gdImageBlue(image,the_color);
+  sprintf(buf, "draw={rgb,255:red,%i;green,%i;blue,%i},cap=round",r,g,b);
+  if (the_color != tikz_brushColor) strcat(buf, ",thin");
+  if (the_fill == -1) strcat(buf, ",dashed");
+  if (the_fill == 1)
+    sprintf(buf+strlen(buf), ",fill={rgb,255:red,%i;green,%i;blue,%i}",r,g,b);
+  return buf;
+}
+#define flip(y) (sizey-(y))
 /* bug in gdImageFillToBorder */
 void patchgdImageFillToBorder (gdImagePtr im, int x, int y, int border, int color)
+{
   if(x>=im->sx || x<0 || y>=im->sy || y<0) return;
   gdImageFillToBorder(im,x,y,border,color);
 }
 void patchgdImageFill (gdImagePtr im, int x, int y, int color)
+{
   if(x>=im->sx || x<0 || y>=im->sy || y<0) return;
   gdImageFill(im,x,y,color);
 }
 #define DASHPIXELS 8
-void myDashedLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color);
 void myDashedLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color){
   /**
    * emulates gdImageDashedLine with gdImageSetStyle and gdImageLine
    * GK: As gdImageDashedLine is slightly broken in latest libgd libraries,
    * GK: I implemented an emulation named "myDashedLine"
   for (; i< DASHPIXELS; i++) styleDashed[i]=gdTransparent;
   gdImageSetStyle(im, styleDashed, DASHPIXELS);
   gdImageLine(im, x1, y1, x2, y2, gdStyled);
+}
 /* File opening: with security */
 FILE *open4read(char *n)
+{
   char *p, *p1, *p2, namebuf[2048];
   int t;
     snprintf(pbuf,sizeof(pbuf),"%s",p);
     p=find_word_start(pbuf); if(strstr(p,"..")!=NULL) return NULL;
     if(*n=='/' || strstr(n,"..")!=NULL) return NULL;
     /* prohibit unusual file/dir names */
     for(p1=p;*p1;p1++)
       if(!isalnum(*p1) && !isspace(*p1) && strchr("~_-/.",*p1)==NULL)
         return NULL;
     for(p1=n;*p1;p1++)
       if(!isalnum(*p1) && !isspace(*p1) && strchr("~_-/.",*p1)==NULL)
         return NULL;
     f=NULL;
+  }
   if(image!=NULL) {
     fly_error("size_already_defined"); return;
+  }
   image=gdImageCreate(sizex,sizey);
+  if(tikz_file) fprintf(tikz_file,"\\clip (0,0) rectangle (%i, %i);\n", sizex, sizey);
   if(image==NULL) fly_error("image_creation_failure");
   else {
     color_white=gdImageColorAllocate(image,255,255,255);
     color_black=gdImageColorAllocate(image,0,0,0);
     color_bounder=gdImageColorAllocate(image,1,2,3);
 /* solid line */
 void obj_line(objparm *pm)
+{
   scale(pm->pd,pm->p,2);
   gdImageLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],pm->color[0]);
+  if (tikz_file)
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]));
   if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
+}
 void _obj_arrow(objparm *pm, int twoside)
+{
+  }
   stem: if(pm->fill)
     myDashedLine(image,pm->p[0],pm->p[1],xx,yy,pm->color[0]);
   else
     gdImageLine(image,pm->p[0],pm->p[1],xx,yy,pm->color[0]);
+  if(tikz_file) {
+    if (twoside) fprintf(tikz_file,"\\draw\[%s,<->] (%i,%i) -- (%i,%i);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]));
+    else fprintf(tikz_file,"\\draw\[%s,->] (%i,%i) -- (%i,%i);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]));}
+    /*FIXME ne tient pas compte de la largeur de la fleche */
   if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
+}
 /* Arrow */
 void obj_arrow(objparm *pm)
   scale(pm->pd,pm->p,1);
   if(pm->fill)
     myDashedLine(image,0,pm->p[1],sizex,pm->p[1],pm->color[0]);
   else
     gdImageLine(image,0,pm->p[1],sizex,pm->p[1],pm->color[0]);
+  if (tikz_file)
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+      tikz_options(pm->color[0],pm->fill),0,flip(pm->p[1]),sizex,flip(pm->p[1]));
+}
+/* tikzfile */
+void obj_tikzfile(objparm *pm)
+{
+  char *p;
+  if(tikz_file){
+    fprintf(tikz_file,"\\end{tikzpicture}\n\\end{document}\n");
+    fclose(tikz_file);
+  }
+  p=find_word_start(pm->str); *find_word_end(p)=0;
+  snprintf(tikzfilename,sizeof(tikzfilename),"%s",p);
+  tikz_file=fopen(tikzfilename,"w");
+  if(!tikz_file)
+    fly_error("tikz_nopen");
+  fprintf(tikz_file,"\\documentclass\[11pt]{article}\n\\usepackage{tikz}\n\\begin{document}\n\\begin{tikzpicture}\[scale=0.0254]\n");
+}
 /* vertical line */
 void obj_vline(objparm *pm)
+{
   scale(pm->pd,pm->p,1);
   if(pm->fill)
     myDashedLine(image,pm->p[0],0,pm->p[0],sizey,pm->color[0]);
   else
     gdImageLine(image,pm->p[0],0,pm->p[0],sizey,pm->color[0]);
+  if (tikz_file)
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[0],0,pm->p[0],sizey);
+}
 /* dashed line */
 void obj_dline(objparm *pm)
+{
   scale(pm->pd,pm->p,2);
   myDashedLine(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3], pm->color[0]);
+  if (tikz_file)
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+      tikz_options(pm->color[0],-1),
+      pm->p[0],flip(pm->p[1]),pm->p[2],flip(pm->p[3]));
 }
 /* parallel lines.
  * x1,y1,x2,y2,xv,yv,n,color */
 void obj_parallel(objparm *pm)
 {
   int i, n, xi,yi;
   double xv,yv;
   n=pm->pd[6]; if(n<0) return; if(n>256) n=256;
   scale(pm->pd,pm->p,3);
   scale2(pm->pd[4],pm->pd[5],&xv,&yv);
   for(i=0;i<n;i++) {
     xi=rint(i*xv); yi=rint(i*yv);
     gdImageLine(image,pm->p[0]+xi,pm->p[1]+yi,pm->p[2]+xi,pm->p[3]+yi,
               pm->color[0]);
+    if (tikz_file)
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),
+        pm->p[0]+xi,flip(pm->p[1]+yi),pm->p[2]+xi,flip(pm->p[3]+yi));
     if(vimg_enable) vimg_line(scale_buf[0]+i*(scale_buf[4]-transx),
         scale_buf[1]+i*(scale_buf[5]-transy),
         scale_buf[2]+i*(scale_buf[4]-transx),
         scale_buf[3]+i*(scale_buf[5]-transy));
+  }
 /* rectangle */
 void obj_rect(objparm *pm)
+{
   int x1,y1,x2,y2;
   scale(pm->pd,pm->p,2);
   x1=min(pm->p[0],pm->p[2]); x2=max(pm->p[0],pm->p[2]);
   y1=min(pm->p[1],pm->p[3]); y2=max(pm->p[1],pm->p[3]);
   if(pm->fill)
     gdImageFilledRectangle(image,x1,y1,x2,y2,pm->color[0]);
   else
     gdImageRectangle(image,x1,y1,x2,y2,pm->color[0]);
+  if(tikz_file){
+      fprintf(tikz_file,
+        "\\draw\[%s] (%i,%i) rectangle (%i,%i);\n",
+        tikz_options(pm->color[0],pm->fill),x1,flip(y1),x2,flip(y2));
+  }
   if(vimg_enable) vimg_rect(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
+}
 /* square */
 void obj_square(objparm *pm)
     gdImageFilledRectangle(image,pm->p[0],pm->p[1],
                pm->p[0]+w,pm->p[1]+h,pm->color[0]);
   else
     gdImageRectangle(image,pm->p[0],pm->p[1],
                pm->p[0]+w,pm->p[1]+h,pm->color[0]);
+  if(tikz_file){
+    fprintf(tikz_file,
+      "\\draw\[%s] (%i,%i) rectangle (%i,%i);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),
+      pm->p[0]+w,flip(pm->p[1]+h));
+  }
   if(vimg_enable) vimg_rect(scale_buf[0],scale_buf[1],
                       scale_buf[0]+pm->pd[2],scale_buf[1]+pm->pd[2]);
+}
 /* triangle */
   scale(pm->pd,pm->p,3);
   if(pm->fill)
     gdImageFilledPolygon(image,(gdPointPtr) pm->p,3,pm->color[0]);
   else
     gdImagePolygon(image,(gdPointPtr) pm->p,3,pm->color[0]);
+  if (tikz_file)
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i) -- (%i, %i) -- cycle;\n",
+      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]));
   if(vimg_enable) vimg_polyline(scale_buf,3,1);
+}
 /* polygon */
 void obj_poly(objparm *pm)
+{
-  int cnt;
+  int cnt,i;
   cnt=(pm->pcnt)/2;
   scale(pm->pd,pm->p,cnt);
   if(pm->fill)
     gdImageFilledPolygon(image,(gdPointPtr) pm->p,cnt,pm->color[0]);
   else
     gdImagePolygon(image,(gdPointPtr) pm->p,cnt,pm->color[0]);
+    if(tikz_file)
+      for (i= 0; i<cnt; i++)
+        fprintf(tikz_file,"\\draw\[%s] (%i,%i)--(%i,%i);\n",
+        tikz_options(pm->color[0],pm->fill),
+        pm->p[2*i],flip(pm->p[2*i+1]),
+        pm->p[2*((i+1)%cnt)],flip(pm->p[2*((i+1)%cnt)+1]));
   if(vimg_enable) vimg_polyline(scale_buf,cnt,1);
+}
 /* rays */
 void obj_rays(objparm *pm)
   int i, n;
   n=(pm->pcnt)/2;
   scale(pm->pd,pm->p,n);
   for(i=2;i<2*n;i+=2) {
     gdImageLine(image,pm->p[0],pm->p[1],pm->p[i],pm->p[i+1],pm->color[0]);
+    if (tikz_file)
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[i],flip(pm->p[i+1]));
     if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],
                         scale_buf[i],scale_buf[i+1]);
+  }
+}
 /* crosshair */
 void obj_crosshair(objparm *pm)
+{
   scale(pm->pd,pm->p,2);
   gdImageLine(image,pm->p[0]+width2,pm->p[1]+width2,pm->p[0]-width2,pm->p[1]-width2,pm->color[0]);
   gdImageLine(image,pm->p[0]-width2,pm->p[1]+width2,pm->p[0]+width2,pm->p[1]-width2,pm->color[0]);
+  if (tikz_file){
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+      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));
+    fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+      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));
+  }
+}
 /* crosshairs */
 void obj_crosshairs(objparm *pm)
 {
   int i, n;
   n=(pm->pcnt)/2;
   scale(pm->pd,pm->p,n);
   for(i=0;i<2*n;i+=2) {
     gdImageLine(image,pm->p[i]+width2,pm->p[i+1]+width2,pm->p[i]-width2,pm->p[i+1]-width2,pm->color[0]);
     gdImageLine(image,pm->p[i]-width2,pm->p[i+1]+width2,pm->p[i]+width2,pm->p[i+1]-width2,pm->color[0]);
+    if (tikz_file){
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),pm->p[i]+width2,flip(pm->p[i+1]+width2),pm->p[i]-width2,flip(pm->p[i+1]-width2));
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),pm->p[i]-width2,flip(pm->p[i+1]+width2),pm->p[i]+width2,flip(pm->p[i+1]-width2));
+    }
   }
+}
 /* segments */
 void obj_lines(objparm *pm)
+{
   int i, n;
   n=(pm->pcnt)/2;
   scale(pm->pd,pm->p,n);
-  for(i=2;i<2*n;i+=2)
+  for(i=2;i<2*n;i+=2){
     gdImageLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
+    if (tikz_file){
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),pm->p[i-2],flip(pm->p[i-1]),pm->p[i],flip(pm->p[i+1]));
+    }
-  if(vimg_enable) vimg_polyline(scale_buf,n,0);
+    if(vimg_enable) vimg_polyline(scale_buf,n,0);
+  }
+}
 /*segments from x1,y1 to x2,y2, x3,y3 to x4,y4, etc */
 void obj_segments(objparm *pm)
+{
   int i, n;
   n=(pm->pcnt)/4;
   scale(pm->pd,pm->p,2*n);
-  for(i=0;i<4*n;i+=4)
+  for(i=0;i<4*n;i+=4){
     gdImageLine(image,pm->p[i],pm->p[i+1],pm->p[i+2],pm->p[i+3],pm->color[0]);
+    if (tikz_file){
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),pm->p[i],flip(pm->p[i+1]),pm->p[i+2],flip(pm->p[i+3]));
+    }
+  }
+}
 /* segments */
 void obj_dlines(objparm *pm)
 {
   int i, n;
   n=(pm->pcnt)/2;
   scale(pm->pd,pm->p,n);
   for(i=2;i<2*n;i+=2)
     myDashedLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
+    if (tikz_file){
+      fprintf(tikz_file, "\\draw\[%s] (%i, %i) -- (%i, %i);\n",
+        tikz_options(pm->color[0],pm->fill),pm->p[i-2],flip(pm->p[i-1]),pm->p[i],flip(pm->p[i+1]));
+    }
   if(vimg_enable) vimg_polyline(scale_buf,n,0);
+}
 /* points */
 void obj_points(objparm *pm)
+{
   int i, n;
   n=(pm->pcnt)/2;
   scale(pm->pd,pm->p,n);
-  for(i=0;i<2*n;i+=2)
+  for(i=0;i<2*n;i+=2){
     gdImageSetPixel(image,pm->p[i],pm->p[i+1],pm->color[0]);
+    if(tikz_file) fprintf(tikz_file, "\\draw\[%s] (%i, %i) circle (0pt);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[i],flip(pm->p[i+1]));
+  }
+}
 /* lattice.
  * x0,y0,xv1,yv1,xv2,yv2,n1,n2,color */
 void obj_lattice(objparm *pm)
 {
   int n1,n2,i1,i2,xi1,yi1,xi2,yi2;
   double xv1,xv2,yv1,yv2;
   n1=pm->pd[6];n2=pm->pd[7]; if(n1<0 || n2<0) return;
   if(n1>256) n1=256;
   if(n2>256) n2=256;
   scale(pm->pd,pm->p,1);
   scale2(pm->pd[2],pm->pd[3],&xv1,&yv1);
   scale2(pm->pd[4],pm->pd[5],&xv2,&yv2);
   for(i1=0;i1<n1;i1++) {
     xi1=rint(i1*xv1)+pm->p[0]; yi1=rint(i1*yv1)+pm->p[1];
     for(i2=0;i2<n2;i2++) {
       xi2=i2*xv2+xi1;yi2=i2*yv2+yi1;
       gdImageSetPixel(image,xi2,yi2,pm->color[0]);
+      if(tikz_file) fprintf(tikz_file,"\\draw[%s] (%i,%i) circle (0pt);\n",
+        tikz_options(pm->color[0],0),xi2,flip(yi2));
+    }
+  }
+}
 /* arc */
+{
   scale(pm->pd,pm->p,1);
   pm->p[2]=rint(pm->pd[2]*xscale); pm->p[3]=rint(pm->pd[3]*yscale);
   gdImageArc(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],
            pm->pd[4],pm->pd[5],pm->color[0]);
+  if(tikz_file) {
+      fprintf(tikz_file,
+    "\\draw\[%s, domain=%f:%f] plot ({%i+%f*cos(\\x)}, {%i+%f*sin(\\x)});\n",
+    tikz_options(pm->color[0],pm->fill),
+      pm->pd[4],pm->pd[5],pm->p[0],pm->p[2]*0.5,flip(pm->p[1]),pm->p[3]*(-0.5));
+  }
+  /*FIXME echelle mauvaise*/
   if(vimg_enable) vimg_arc(scale_buf[0],scale_buf[1],
 .5*pm->pd[2],0.5*pm->pd[3],pm->pd[4],pm->pd[5]);
+}
 /* Ellipse: centre 0,1, width 2, hight 3, color 4,5,6 */
              color_bounder);
     patchgdImageFillToBorder(image,pm->p[0],pm->p[1],
                     color_bounder,pm->color[0]);
+  }
   gdImageArc(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],0,360,pm->color[0]);
+  if(tikz_file) fprintf(tikz_file,"\\draw\[%s] (%i,%i) ellipse (%f and %f);\n\n",
+    tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2]/2.,pm->p[3]/2.);
-    if(vimg_enable) vimg_ellipse(scale_buf[0],scale_buf[1],0.5*pm->pd[2],0.5*pm->pd[3]);
+  if(vimg_enable) vimg_ellipse(scale_buf[0],scale_buf[1],0.5*pm->pd[2],0.5*pm->pd[3]);
+}
 /* Circle */
 void obj_circle(objparm *pm)
+{
              color_bounder);
     patchgdImageFillToBorder(image,pm->p[0],pm->p[1],
                     color_bounder,pm->color[0]);
+  }
   gdImageArc(image,pm->p[0],pm->p[1],pm->p[2],pm->p[3],0,360,pm->color[0]);
+  if(tikz_file) fprintf(tikz_file, "\\draw\[%s] (%i, %i) circle (%f);\n",
+      tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),pm->p[2]/2.);
+}
 /* flood fill */
 void obj_fill(objparm *pm)
+{
         gdImageLine(himg,0,ay,ax-1,2*ay-1,c);
+      }
       break;
+    }
     case 2: gdImageLine(himg,0,ay/2,ax-1,ay/2,c); break;
-      case 3: gdImageLine(himg,ax/2,0,ax/2,ay-1,c); break;
+    case 3: gdImageLine(himg,ax/2,0,ax/2,ay-1,c); break;
+  }
   gdImageSetTile(image,himg);
   patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
   gdImageDestroy(himg);
   if(tiled) gdImageSetTile(image,tileimg);
 /* point */
 void obj_point(objparm *pm)
+{
   scale(pm->pd,pm->p,1);
   gdImageSetPixel(image,pm->p[0],pm->p[1],pm->color[0]);
+  if(tikz_file) fprintf(tikz_file,"\\draw[%s] (%i,%i) circle (0pt);\n",
+    tikz_options(pm->color[0],0),pm->p[0],flip(pm->p[1]));
+}
 /* copy an image file */
 void obj_copy(objparm *pm)
+{
 /* set linewidth */
 void obj_linewidth(objparm *pm)
+{
   if(pm->pd[0]<1 || pm->pd[0]>255) fly_error("bad_parms");
-  else width=pm->pd[0];
+  width=pm->pd[0];
+  if(tikz_file) fprintf(tikz_file,"\\pgfsetlinewidth{%f}\n",width*0.7);
+}
 /* set crosshairsize */
 void obj_crosshairsize(objparm *pm)
+{

Subversion Repositories wimsdev

(root)/trunk/wims/src/Flydraw/objects.c – Rev 16344 → 17574