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 |