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

         /* 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(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
+}
-        /* Arrow */
-void obj_arrow(objparm *pm)
+void _obj_arrow(objparm *pm, int twoside)
+{
     int l,ii[6],xx,yy;
     double dx,dy,length,dd[6];
     scale(pm->pd,pm->p,2);
     xx=ii[0]=pm->p[2];yy=ii[1]=pm->p[3];
     dd[4]=dd[0]-dd[1]*fat; dd[5]=dd[1]+dd[0]*fat;
     ii[2]=rint(dd[2])+ii[0]; ii[3]=rint(dd[3])+ii[1];
     ii[4]=rint(dd[4])+ii[0]; ii[5]=rint(dd[5])+ii[1];
     gdImageFilledPolygon(image,(gdPointPtr) ii,3,pm->color[0]);
     xx=rint(dd[0])+ii[0];yy=rint(dd[1])+ii[1];
+    if(twoside) {
+        ii[0]=pm->p[0]; ii[1]=pm->p[1];
+        ii[2]=-rint(dd[2])+ii[0]; ii[3]=-rint(dd[3])+ii[1];
+        ii[4]=-rint(dd[4])+ii[0]; ii[5]=-rint(dd[5])+ii[1];
+        gdImageFilledPolygon(image,(gdPointPtr) ii,3,pm->color[0]);
+    }
     stem: if(pm->fill)
       gdImageDashedLine(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(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
+}
+        /* Arrow */
+void obj_arrow(objparm *pm)
+{
+    _obj_arrow(pm,0);
+}
+        /* 2-sided arrow */
+void obj_arrow2(objparm *pm)
+{
+    _obj_arrow(pm,1);
+}
         /* horizontal line */
 void obj_hline(objparm *pm)
+{
     scale(pm->pd,pm->p,1);
     if(pm->fill)
       gdImageDashedLine(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]);
+}
         /* vertical line */
 void obj_vline(objparm *pm)
     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(vimg_enable) vimg_line(scale_buf[0]+xi,scale_buf[1]+yi,
+                                  scale_buf[2]+xi,scale_buf[3]+yi);
+    }
+}
         /* rectangle */
 void obj_rect(objparm *pm)
     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(vimg_enable) vimg_rect(scale_buf[0],scale_buf[1],scale_buf[2],scale_buf[3]);
+}
         /* square */
 void obj_square(objparm *pm)
+{
     int w,h;
     scale(pm->pd,pm->p,1);
     w=rint(pm->pd[2]); h=rint(pm->pd[2]);
     if(pm->fill)
       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(vimg_enable) vimg_rect(scale_buf[0],scale_buf[1],
+                              scale_buf[0]+pm->pd[2],scale_buf[1]+pm->pd[2]);
+}
         /* triangle */
 void obj_triangle(objparm *pm)
+{
     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(vimg_enable) vimg_polyline(scale_buf,3,1);
+}
         /* polygon */
 void obj_poly(objparm *pm)
 {
     int cnt;
     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(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)
+    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]);
+        gdImageLine(image,pm->p[0],pm->p[1],pm->p[i],pm->p[i+1],pm->color[0]);
+        if(vimg_enable) vimg_line(scale_buf[0],scale_buf[1],
+                                  scale_buf[i],scale_buf[i+1]);
+    }
+}
         /* 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)
       gdImageLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
+    if(vimg_enable) vimg_polyline(scale_buf,n,0);
+}
         /* 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)
       gdImageDashedLine(image,pm->p[i-2],pm->p[i-1],pm->p[i],pm->p[i+1],pm->color[0]);
+    if(vimg_enable) vimg_polyline(scale_buf,n,0);
+}
         /* points */
 void obj_points(objparm *pm)
+{
     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]);
         }
+    }
+}
         /* arc */
 void obj_arc(objparm *pm)
+{
     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(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 */
 void obj_ellipse(objparm *pm)
+{
                    color_bounder);
         gdImageFillToBorder(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(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)
+{
       {"giant", &gdFontGiant},
       {"huge",  &gdFontGiant}
 };
 #define fonttab_no (sizeof(fonttab)/sizeof(fonttab[0]))
         /* string */
 void obj_string(objparm *pm)
+{
     char *pp, *pe, *p2;
     int i;
     gdImageSetPixel(image,pm->p[0],pm->p[1],pm->color[0]);
+}
         /* 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) {
         error("file_not_exist"); return;
+    }
     insimg=gdImageCreateFromGif(inf); fclose(inf);
     if(insimg==NULL) {
     else
       gdImageCopyResized(image,insimg,pm->p[4],pm->p[5],pm->pd[0],pm->pd[1],
                          pm->p[6]-pm->p[4]+1,pm->p[7]-pm->p[5]+1,
                          pm->pd[2]-pm->pd[0]+1,pm->pd[3]-pm->pd[1]+1);
     gdImageDestroy(insimg);
 }
         /* set brush or tile */
 void obj_setbrush(objparm *pm)
+{
     char *pp;
         if(pm->pd[3*i]<0 || pm->pd[3*i+1]<0 || pm->pd[3*i+2]<0)
           pm->p[i]=gdTransparent;
         else
           pm->p[i]=getcolor(pm->pd[3*i],pm->pd[3*i+1],pm->pd[3*i+2]);
+    }
     gdImageSetStyle(image,pm->p,t); styled=1;
 }
         /* kill style */
 void obj_killstyle(objparm *pm)
+{
     styled=0;
     gdImageInterlace(image,1);
+}
         /* set linewidth */
 void obj_linewidth(objparm *pm)
 {
     if(pm->pd[0]<1 || pm->pd[0]>255) error("bad_parms");
     else width=pm->pd[0];
 }
         /* set x range */
 void obj_xrange(objparm *pm)
+{
     double dd;
     dd=pm->pd[1]-pm->pd[0];
     xstart=pm->pd[0]; xscale=sizex/dd;
 }
         /* set y range */
 void obj_yrange(objparm *pm)
+{
     double dd;
         pp+=strlen(EV_T);
+    }
     varpos=eval_getpos(EV_T);
     if(varpos<0) return; /* unknown error */
     evalue_compile(p1); evalue_compile(p2);
+    if(vimg_enable) vimg_plotstart();
     for(i=j=0;i<=tstep;i++) {
         if(n==1) {
             if(tranged) t=tstart+i*v; else t=xstart+i*v;
             eval_setval(varpos,t); dc[0]=t; dc[1]=evalue(p1);
+        }
             t=tstart+i*v; eval_setval(varpos,t);
             dc[0]=evalue(p1); dc[1]=evalue(p2);
+        }
         if(!finite(dc[0]) || !finite(dc[1])) ic[0]=ic[1]=-BOUND;
         else scale(dc,ic,1);
+        if(vimg_enable) vimg_plot1 (scale_buf[0],scale_buf[1]);
         if(j==0) {
             gdImageSetPixel(image,ic[0],ic[1],pm->color[0]); j++;
+        }
         else {
             xx=ic[0]-oc[0]; yy=ic[1]-oc[1];
+            }
+        }
         memmove(oc,ic,sizeof(oc));
+    }
+    if(vimg_enable) vimg_plotend();
+}
         /* set levelcurve granularity */
 void obj_levelstep(objparm *pm)
+{
     p=find_word_start(pm->str); *find_word_end(p)=0;
     snprintf(namebuf,sizeof(namebuf),"%s",imagefilename);
     snprintf(imagefilename,sizeof(imagefilename),"%s",p);
     output();
     snprintf(imagefilename,sizeof(imagefilename),"%s",namebuf);
+}
+        /* vimgfile */
+void obj_vimgfile(objparm *pm)
+{
+    char *p;
+    p=find_word_start(pm->str); *find_word_end(p)=0;
+    snprintf(vimgfilename,sizeof(vimgfilename),"%s",p);
+    if(vimg_ready) vimg_close();
+}
+        /* vimg enable/disable */
+void obj_vimg(objparm *pm)
+{
+    vimg_enable=pm->pd[0];
+    if(vimg_enable>0 && vimg_ready==0) {
+        vimg_init();
+    }
+}
         /* Set affine transformation */
 void obj_affine(objparm *pm)
+{

Subversion Repositories wimsdev

(root)/trunk/wims/src/Flydraw/objects.c – Rev 10 → 1024