Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
10 reyssat 1
/*    Copyright (C) 2002-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
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
 */
17
 
18
/* dvi 2 gif driver, dvi interpreter */
19
 
20
unsigned char *dvibuf, *dviptr;
21
int dvilen;
22
int pass, passstop;
23
int num, den, mag;
24
int minx, maxx,miny, maxy;
25
double dviratio;
26
int dvix, dviy;
27
int d_h,d_v,d_w,d_x,d_y,d_z;
28
int d_f;
29
int pageptr;
30
struct {
31
    int minx, maxx, miny, maxy;
32
} pagedata[MAX_PAGES];
33
 
34
struct {
35
    int h,v,w,x,y,z;
36
} dvistack[DVI_STACK_LIMIT];
37
int dvistackptr;
38
 
39
#define DVI_post_post   DVI_post
40
void DVI_post(void)
41
{
42
    passstop=-1; dviptr=dvibuf+dvilen;
43
}
44
 
45
void DVI_eop(void)
46
{
47
    if(pass==1) {
48
        pagedata[pageptr].minx=minx;
49
        pagedata[pageptr].maxx=maxx;
50
        pagedata[pageptr].miny=miny;
51
        pagedata[pageptr].maxy=maxy;
52
    }
53
    else saveimage();
54
    pageptr++;
55
    if(*outfile==0 || pageptr>=MAX_PAGES) {
56
        passstop=-1; dviptr=dvibuf+dvilen;
57
    }
58
    else passstop=0;
59
}
60
 
61
void DVI_bop(void)
62
{
63
    passstop=1; dvistackptr=0;
64
    d_h=d_v=d_w=d_x=d_y=d_z=0; d_f=-1;
65
    dviptr+=44;
66
    if(pass==1) {
67
        minx=miny=65536;
68
        maxx=maxy=-1;
69
    }
70
    else {
71
        char *p;
72
        maxx=pagedata[pageptr].maxx;
73
        minx=pagedata[pageptr].minx;
74
        maxy=pagedata[pageptr].maxy;
75
        miny=pagedata[pageptr].miny;
76
        if(maxx<=minx || maxy<=miny) error("Empty page.");
77
        createimage(maxx-minx,maxy-miny);
78
        currentcolor=color_black;
79
        p=getenv("w_instex_color");
80
        if(p!=NULL && *p!=0) makecolor(p);
81
    }
82
}
83
 
84
void DVI_nop(void) {}
85
 
86
int DVI_put(int p)
87
{
88
    int cc, ct, x1, x2, y1, y2;
89
    if(d_f<0) error("Bad dvi: trying to put non-existing font.");
90
    if(p==0) cc=*dviptr; else cc=texint(dviptr+1,p);
91
    dviptr+=p;
92
    if(cc<wfont[d_f].bc || cc>wfont[d_f].ec) return -1;
93
    dvix=rint(dviratio*d_h); dviy=rint(dviratio*d_v);
94
    if(pass==1) {
95
        ct=cc-wfont[d_f].bc;
96
        x1=dvix+wfont[d_f].fh[ct].xstart; y1=dviy+wfont[d_f].fh[ct].ystart;
97
        x2=x1+wfont[d_f].fh[ct].xmax; y2=y1+wfont[d_f].fh[ct].ymax;
98
        if(minx>x1) minx=x1; if(miny>y1) miny=y1;
99
        if(maxx<x2) maxx=x2; if(maxy<y2) maxy=y2;
100
    }
101
    else {
102
        paintfont(wfont+d_f,cc,dvix-minx,dviy-miny,currentcolor);
103
    }
104
    return cc;
105
}
106
 
107
void DVI_set(int p)
108
{
109
    int cc;
110
    cc=DVI_put(p);
111
    if(cc<0) return;
112
    d_h+=wfont[d_f].fh[cc-wfont[d_f].bc].w;
113
}
114
 
115
int DVI_put_rule(void)
116
{
117
    int xxx, xx, yy, x1, y1, x2, y2, xx1, xx2, yy1, yy2;
118
    yy=texint(dviptr+1,4); xx=texint(dviptr+5,4); dviptr+=8;
119
    if(xx<=0 || yy<=0) return xx;
120
    xxx=xx;
121
    if(xx>=0) {xx=rint(dviratio*xx+blacker); if(xx>0) xx--;}
122
    else {xx=rint(dviratio*xx-blacker); if(xx<0) xx--;}
123
    if(yy>=0) {yy=rint(dviratio*yy+blacker); if(yy>0) yy--;}
124
    else {yy=rint(dviratio*yy-blacker); if(yy<0) yy--;}
125
    if(pass==1) {
126
        x1=rint(dviratio*d_h); y2=rint(dviratio*d_v);
127
        x2=x1+xx; y1=y2-yy;
128
        if(x1<x2) {xx1=x1; xx2=x2;} else {xx1=x2; xx2=x1;}
129
        if(y1<y2) {yy1=y1; yy2=y2;} else {yy1=y2; yy2=y1;}
130
        if(minx>x1) minx=x1; if(miny>y1) miny=y1;
131
        if(maxx<x2) maxx=x2; if(maxy<y2) maxy=y2;
132
    }
133
    else {
134
        x1=rint(dviratio*d_h)-minx; y1=rint(dviratio*d_v)-miny;
135
        x2=x1+xx; y2=y1-yy;
136
        if(x1<x2) {xx1=x1; xx2=x2;} else {xx1=x2; xx2=x1;}
137
        if(y1<y2) {yy1=y1; yy2=y2;} else {yy1=y2; yy2=y1;}
138
        gdImageFilledRectangle(image,xx1,yy1,xx2,yy2,currentcolor);
139
    }
140
    return xxx;
141
}
142
 
143
void DVI_set_rule(void)
144
{
145
    d_h+=DVI_put_rule();
146
}
147
 
148
void DVI_fnt_num(int p)
149
{
150
    int fnum;
151
    if(p==0) fnum=*dviptr-171; else fnum=texint(dviptr+1,p);
152
    dviptr+=p;
153
    for(d_f=0; d_f<fontcnt && wfont[d_f].num!=fnum; d_f++);
154
    if(d_f>=fontcnt) error("Bad dvi: using font before defining it.");
155
}
156
 
157
void DVI_fnt_def(int p)
158
{
159
    int i, fnum, fdensity;
160
    char fname[1024];
161
    unsigned long int c,s,d,a,l;
162
    double fratio;
163
    union { unsigned long c; char C[4]; } U;
164
 
165
    if(fontcnt>=FONT_NUMBER_LIMIT) error("Font number exceeded design capacity.");
166
    fnum=texint(++dviptr,p); dviptr+=p;
167
    for (i = 0; i <= 3; i++) U.C[i] = dviptr[i];
168
    c=U.c; dviptr+=4;
169
    s=texint(dviptr,4); dviptr+=4;
170
    d=texint(dviptr,4); dviptr+=4;
171
    a=*dviptr++; l=*dviptr++;
172
    if(a+l>1000 || a+l<1) error("Bad dvi: bad font name.");
173
    memmove(fname,dviptr,a+l); fname[a+l]=0; dviptr+=a+l-1;
174
    if(pass==1) {
175
        fdensity=(double) density*((double) s/d);
176
        if(loadfont(fname, c, fdensity, wfont+fontcnt)==NULL) {
8100 bpr 177
            if(loadfont("cmr10",0,fdensity,wfont+fontcnt)==NULL)
10 reyssat 178
              error("Font panick: even cmr10 cannot be found.");
179
            else fprintf(stderr,"Font %s not found; replace by cmr10.\n",fname);
180
        }
181
        wfont[fontcnt].num=fnum;
182
        fratio=(double) s/wfont[fontcnt].designsize*d/65536;
183
        for(i=0;i<wfont[fontcnt].cnt; i++)
184
          wfont[fontcnt].fh[i].w=fratio*wfont[fontcnt].fh[i].w;
185
        fontcnt++;
186
    }
187
}
188
 
189
void DVI_push(void)
190
{
191
    if(dvistackptr>=DVI_STACK_LIMIT) error("dvi stack overflow.");
192
    dvistack[dvistackptr].h=d_h;
193
    dvistack[dvistackptr].v=d_v;
194
    dvistack[dvistackptr].w=d_w;
195
    dvistack[dvistackptr].x=d_x;
196
    dvistack[dvistackptr].y=d_y;
197
    dvistack[dvistackptr].z=d_z;
198
    dvistackptr++;
199
}
200
 
201
void DVI_pop(void)
202
{
203
    if(dvistackptr<=0) error("Bad dvi file: dvi stack underflow.");
204
    dvistackptr--;
205
    d_h=dvistack[dvistackptr].h;
206
    d_v=dvistack[dvistackptr].v;
207
    d_w=dvistack[dvistackptr].w;
208
    d_x=dvistack[dvistackptr].x;
209
    d_y=dvistack[dvistackptr].y;
210
    d_z=dvistack[dvistackptr].z;
211
}
212
 
213
void DVI_move(int *hv, int p)
214
{
215
    int t;
216
    t=texintsigned(dviptr+1,p); dviptr+=p;
217
    *hv+=t;
218
}
219
 
220
void DVI_move2(int *hv, int *xyz, int p)
221
{
222
    if(p>0) *xyz=texintsigned(dviptr+1,p);
223
    *hv+=*xyz;
224
    dviptr+=p;
225
}
226
 
227
void DVI_xxx(int p)
228
{
229
    int i, t;
230
    char *pp, buf[1024];
8100 bpr 231
 
10 reyssat 232
    t=texint(dviptr+1,p);
233
    if(pass<2 || t>1000) {dviptr+=t+p; return;}
234
    memmove(buf,dviptr+1+1,t); buf[t]=0;
235
    dviptr+=t+p;
236
    for(i=0;i<t;i++) buf[i]=tolower(buf[i]);
237
    if(strncmp(buf,"color",5)!=0) return;
238
    pp=find_word_start(buf+5); if(*pp!='=') return;
239
    makecolor(pp+1);
240
}
241
 
242
#include "dvicmd.c"
243
 
244
        /* load and interprete dvi file */
245
void dvi(void)
246
{
247
    unsigned char cc, *startpoint;
248
    char namebuf[1024];
8100 bpr 249
 
10 reyssat 250
    snprintf(namebuf,sizeof(namebuf),"%s/texgif.dvi",tmpdir);
251
    dvilen=getfile(namebuf,&dvibuf);
252
    if(dvilen<=0) error("dvi file not found.");
253
    dviptr=dvibuf; fontcnt=0;
254
    if(*dviptr++!=dvi_pre || *dviptr++!=2) {
255
        /* baddvi: */ error("Bad dvi file header.");
256
    }
257
    num=texint(dviptr,4); dviptr+=4;
258
    den=texint(dviptr,4); dviptr+=4;
259
    mag=texint(dviptr,4); dviptr+=4;
260
    cc=*dviptr++; dviptr+=cc; startpoint=dviptr;
261
    density=rint((double) compressratio*mag*basedensity/1000);
262
    dviratio=(double) num/den*density/254000;
263
printf("dvi file: num=%d, den=%d, ratio=%f, mag=%d, density=%d\n",
264
       num,den,dviratio, mag, density);
265
    for(pass=1; pass<=2; pass++) {
266
        passstop=0; d_f=-1; pageptr=0;
267
        for(dviptr=startpoint; dviptr<dvibuf+dvilen && passstop>=0; dviptr++) {
268
            if(*dviptr<128) {
269
                DVI_set(0); continue;
270
            }
271
            if(*dviptr>=171 && *dviptr<=234) {
272
                DVI_fnt_num(0); continue;
273
            }
274
            switch(*dviptr) {
275
                case dvi_set1: case dvi_set2: case dvi_set3:
276
                case dvi_set4: DVI_set(*dviptr-dvi_set1+1); break;
277
                case dvi_set_rule: DVI_set_rule(); break;
8100 bpr 278
 
10 reyssat 279
                case dvi_put1: case dvi_put2: case dvi_put3:
280
                case dvi_put4: DVI_put(*dviptr-dvi_put1+1); break;
281
                case dvi_put_rule: DVI_put_rule(); break;
8100 bpr 282
 
10 reyssat 283
                case dvi_nop: DVI_nop(); break;
284
                case dvi_bop: DVI_bop(); break;
285
                case dvi_eop: DVI_eop(); break;
286
                case dvi_push: DVI_push(); break;
287
                case dvi_pop: DVI_pop(); break;
8100 bpr 288
 
10 reyssat 289
                case dvi_right1: case dvi_right2: case dvi_right3:
290
                case dvi_right4: DVI_move(&d_h, *dviptr-dvi_right1+1); break;
8100 bpr 291
 
10 reyssat 292
                case dvi_w0: case dvi_w1: case dvi_w2: case dvi_w3:
293
                case dvi_w4: DVI_move2(&d_h, &d_w, *dviptr-dvi_w0); break;
294
                case dvi_x0: case dvi_x1: case dvi_x2: case dvi_x3:
295
                case dvi_x4: DVI_move2(&d_h, &d_x, *dviptr-dvi_x0); break;
8100 bpr 296
 
10 reyssat 297
                case dvi_down1: case dvi_down2: case dvi_down3:
298
                case dvi_down4: DVI_move(&d_v, *dviptr-dvi_down1+1); break;
8100 bpr 299
 
10 reyssat 300
                case dvi_y0: case dvi_y1: case dvi_y2: case dvi_y3:
301
                case dvi_y4: DVI_move2(&d_v, &d_y, *dviptr-dvi_y0); break;
302
                case dvi_z0: case dvi_z1: case dvi_z2: case dvi_z3:
303
                case dvi_z4: DVI_move2(&d_v, &d_z, *dviptr-dvi_z0); break;
8100 bpr 304
 
10 reyssat 305
                case dvi_fnt1: case dvi_fnt2: case dvi_fnt3:
306
                case dvi_fnt4: DVI_fnt_num(*dviptr-dvi_fnt1+1); break;
8100 bpr 307
 
10 reyssat 308
                case dvi_xxx1: case dvi_xxx2: case dvi_xxx3:
309
                case dvi_xxx4: DVI_xxx(*dviptr-dvi_xxx1+1); break;
8100 bpr 310
 
10 reyssat 311
                case dvi_fnt_def1: case dvi_fnt_def2: case dvi_fnt_def3:
312
                case dvi_fnt_def4: DVI_fnt_def(*dviptr-dvi_fnt_def1+1); break;
8100 bpr 313
 
10 reyssat 314
                case dvi_pre: error("Bad dvi file: pre within file.");
315
                case dvi_post: DVI_post(); break;
316
                case dvi_post_post: DVI_post_post(); break;
8100 bpr 317
 
10 reyssat 318
                default: error("Bad dvi file: unknown command.");
319
            }
320
        }
321
    }
322
    free(dvibuf);
323
}
324