Subversion Repositories wimsdev

Rev

Rev 8134 | Rev 8195 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8134 Rev 8158
Line 24... Line 24...
24 
 
 24 
 
25 
char imagefilename[1024];
 25 
char imagefilename[1024];
26 
char vimgfilename[1024];
 26 
char vimgfilename[1024];
27 
int sizex, sizey, saved;
 27 
int sizex, sizey, saved;
28 
gdImagePtr image=NULL, brushimg=NULL, tileimg=NULL, wimg=NULL;
 28 
gdImagePtr image=NULL, brushimg=NULL, tileimg=NULL, wimg=NULL;
29 
int brushed=0,tiled=0,styled=0,width=1, savew=1, wcolor=-1;
 29 
int brushed=0, tiled=0, styled=0, width=1, savew=1, wcolor=-1;
30 
int color_white,color_black,color_bounder;
 30 
int color_white, color_black, color_bounder, color_frame;
31 
int linecnt=-100000;
 31 
int linecnt=-100000;
32 
int tranged=0;
 32 
int tranged=0;
33 
double xscale=1,yscale=1,xstart=0,ystart=0;
 33 
double xscale=1, yscale=1, xstart=0, ystart=0;
34 
double tstart=0,tend=1,tstep=100,plotjump=200;
 34 
double tstart=0, tend=1, tstep=100, plotjump=200;
35 
double animstep=0;
 35 
double animstep=0;
36 
int transform=0;  /* transformation indicator */
 36 
int transform=0;  /* transformation indicator */
37 
double transx=0,transy=0; /* translation vector */
 37 
double transx=0, transy=0; /* translation vector */
38 
int lstep=4;
 38 
int lstep=4;
39 
ev_variable vartab[MAX_VARS];
 39 
ev_variable vartab[MAX_VARS];
40 
char varnamebuf[MAX_VARNAMEBUF], *varnameptr=varnamebuf;
 40 
char varnamebuf[MAX_VARNAMEBUF], *varnameptr=varnamebuf;
41 
int varcnt;
 41 
int varcnt;
42 
int vimg=0; /* 0: no vector image output.
 42 
int vimg=0; /* 0: no vector image output.
Line 68... Line 68...
68 
    FILE *out;
 68 
    FILE *out;
69 
 
 69 
 
70 
    if(!image) return;
 70 
    if(!image) return;
71 
    if(imagefilename[0]) {
 71 
    if(imagefilename[0]) {
72 
      out=fopen(imagefilename,"wb");
 72 
      out=fopen(imagefilename,"wb");
73 
      if(out!=NULL) {gdImageGif(image,out); fclose(out); }
 73 
      if(out!=NULL) {gdImageGif(image, out); fclose(out); }
74 
    }
 74 
    }
75 
    else gdImageGif(image,stdout);
 75 
    else gdImageGif(image, stdout);
76 
    saved=1;
 76 
    saved=1;
77 
}
 77 
}
78 
 
 78 
 
79 
/* substitute variable names by their environment strings
 79 
/* substitute variable names by their environment strings
80 
 * The buffer pointed to by p must have enough space
 80 
 * The buffer pointed to by p must have enough space