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

-/*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
+/*    CopyrOAight (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
  *  (at your option) any later version.
 #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;
   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;
   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)
                     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.);
+}
+typedef enum tikz_fill_options {grille, points, hatch, dhatch} tfo;
+int compar(const void *a, const void *b) {return *(int *)b - *(int *)a;}
+void tikz_fill(int x, int y, int nx, int ny, int the_color, tfo opt)
+{
+  char *to = tikz_options(the_color,1);
+  int numpix=sizex*sizey, top = 0, a, cy, lx, rx, seed, nt,ct=0, ct2=0;
+  printf("Pixels:%d\n",numpix);
+  int *stack = xmalloc(numpix*sizeof(int));
+  int *stack2 = xmalloc(numpix*sizeof(int));
+  if (nx==0) nx=1; if (ny==0) ny=1; nt = abs(nx*ny);
+  seed = gdImageGetPixel(image,x,y);
+  char *check = xmalloc(numpix);
+  while (numpix--) check[numpix]=0;
+  a=x+y*sizex;
+  check[a]=1;
+  stack[top++]=a;
+  while(top)
+    {
+      a = stack[--top];
+      x = a%sizex; y = a/sizex;
+      if (gdImageGetPixel(image,x,y) != seed) continue;
+      if (x>0 && !check[a-1]) {check[a-1]=1; stack[top++]=a-1;}
+      if (x+1<sizex && !check[a+1]) {check[a+1]=1; stack[top++]=a+1;}
+      if (y>0 && !check[a-sizex]) {check[a-sizex]=1; stack[top++]=a-sizex;}
+      if (y+1<sizey && !check[a+sizex]) {check[a+sizex]=1; stack[top++]=a+sizex;}
+      switch(opt)
+        {
+        case grille: if(((x%nx)!=(nx/2))&&((y%ny)!=(ny/2))) continue; break;
+        case points: if(x%nx!=nx/2||y%ny!=ny/2) continue; break;
+        case hatch: if(abs((ny*x-nx*y)%nt)!=nt/2) continue; break;
+        case dhatch: if((ny*x+nx*y)%nt!=nt/2 && abs((ny*x-nx*y)%nt)!=nt/2) continue; break;
+        default: break;
+        }
+      stack2[ct++]=a;
+    }
+  free(stack);
+  free(check);
+  if (ct==0) return;
+  qsort(stack2, ct, sizeof(int), compar);
+  cy=-1;
+  while (ct--)
+    {
+      a = stack2[ct];
+      x = a%sizex; y = a/sizex;
+      if (y != cy || x != rx+1)
+      {
+        if (cy >= 0)
+          fprintf(tikz_file,
+                  "\\draw\[%s] (%.2f,%.2f) rectangle (%.2f,%.2f);\n",
+                  to, lx-0.0,flip(cy-0.0),rx+0.0,flip(cy+0.0));
+        cy = y;
+        lx = rx = x;
+        ct2++;
+      }
+      else
+        rx++;
+    }
+  fprintf(tikz_file,
+          "\\draw\[%s] (%.2f,%.2f) rectangle (%.2f,%.2f);\n",
+          to, lx-0.0,flip(cy-0.0),rx+0.0,flip(cy+0.0));
+  free(stack2);
+}
 /* flood fill */
 void obj_fill(objparm *pm)
 {
   scale(pm->pd,pm->p,1);
+  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],1,1,pm->color[0],grille);
   patchgdImageFill(image,pm->p[0],pm->p[1],pm->color[0]);
 }
 /* flood fill to border*/
 void obj_fillb(objparm *pm)
+{
   scale(pm->pd,pm->p,1);
+  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],1,1,pm->color[0],grille);
   patchgdImageFillToBorder(image,pm->p[0],pm->p[1],pm->color[0],pm->color[1]);
 }
 gdImagePtr himg;
 int makehatchimage(int x, int y, int px, int py, int col)
+{
   int c1,c2,r,g,b;
       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;
+  }
+  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,pm->color[0],hatch);
   gdImageSetTile(image,himg);
   patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
   gdImageDestroy(himg);
   if(tiled) gdImageSetTile(image,tileimg);
+}
   int nx,ny, c;
   scale(pm->pd,pm->p,1);
   nx=pm->pd[2]; ny=pm->pd[3]; nx=abs(nx); ny=abs(ny);
   if(nx==0 && ny==0) {fly_error("bad grid size"); return;}
   c=makehatchimage(nx,ny,pm->p[0],pm->p[1],pm->color[0]);
+  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,pm->color[0],grille);
   gdImageLine(himg,0,ny/2,nx-1,ny/2,c); gdImageLine(himg,nx/2,0,nx/2,ny-1,c);
   gdImageSetTile(image,himg);
   patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
   gdImageDestroy(himg);
   if(tiled) gdImageSetTile(image,tileimg);
+}
 /* flood fill with double hatching */
 void obj_diafill(objparm *pm)
 {
   int nx,ny, c;
   scale(pm->pd,pm->p,1);
   nx=pm->pd[2]; ny=pm->pd[3]; nx=abs(nx); ny=abs(ny);
   if(nx==0 && ny==0) {fly_error("bad grid size"); return;}
   c=makehatchimage(nx,ny,pm->p[0],pm->p[1],pm->color[0]);
+  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,pm->color[0],dhatch);
   gdImageLine(himg,0,0,nx-1,ny-1,c); gdImageLine(himg,0,ny-1,nx-1,0,c);
   gdImageSetTile(image,himg);
   patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
   gdImageDestroy(himg);
   if(tiled) gdImageSetTile(image,tileimg);
+}
-/* flood fill with double hatching */
+/* flood fill with dots */
 void obj_dotfill(objparm *pm)
+{
   int nx,ny, c;
   scale(pm->pd,pm->p,1);
   nx=pm->pd[2]; ny=pm->pd[3]; nx=abs(nx); ny=abs(ny);
   if(nx==0 && ny==0) {fly_error("bad grid size"); return;}
   c=makehatchimage(nx,ny,pm->p[0],pm->p[1],pm->color[0]);
+  if (tikz_file) tikz_fill(pm->p[0],pm->p[1],nx,ny,pm->color[0],points);
   gdImageSetPixel(himg,nx/2,ny/2,c);
   gdImageSetTile(image,himg);
   patchgdImageFill(image,pm->p[0],pm->p[1],gdTiled);
   gdImageDestroy(himg);
   if(tiled) gdImageSetTile(image,tileimg);
 }
 struct {
   char *name;
   gdFontPtr *fpt;
 } fonttab[]={
+{
   char *pp, *pe, *p2;
   int i;
   pp=pm->str; pe=strchr(pp,','); if(pe==NULL) {
     fly_error("too_few_parms"); return;
   }
   *pe++=0; pp=find_word_start(pp); *find_word_end(pp)=0;
   pe=find_word_start(pe); strip_trailing_spaces(pe);
   if(*pp) {
     for(i=0;i<fonttab_no && strcmp(pp,fonttab[i].name)!=0; i++);
     if(i>=fonttab_no) i=1;
   else i=1;
   scale(pm->pd,pm->p,1);
   if(*pe=='"') {
     p2=strchr(pe+1,'"');
     if(p2 && *(p2+1)==0) {*p2=0; pe++;}
   }
   if(pm->fill){
     gdImageStringUp(image,*(fonttab[i].fpt),pm->p[0],pm->p[1], (unsigned char*) pe,
         pm->color[0]);
     if(tikz_file) fprintf(tikz_file,"\\draw[%s] (%i,%i) node[font=\\%s,rotate=90] {%s};\n",
       tikz_options(pm->color[0],pm->fill),pm->p[0],flip(pm->p[1]),fonttab[i].name,(unsigned char*) pe);
   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)
+{
   char *pp;
   FILE *inf;
   gdImagePtr insimg;
   pp=find_word_start(pm->str);*find_word_end(pp)=0;
   inf=open4read(pp);
   if(inf==NULL) {
-    fly_error("file_not_exist"); return;
+    fly_error("file_does_not_exist"); return;
+  }
   insimg=gdImageCreateFromGif(inf); fclose(inf);
   if(insimg==NULL) {
     fly_error("bad_gif"); return;
+  }

Subversion Repositories wimsdev

(root)/trunk/wims/src/Flydraw/objects.c – Rev 17587 → 17599