Subversion Repositories wimsdev

Rev

Rev 8195 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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, gf font loader and processor */
  19. #include "texgif.h"
  20.  
  21. #define gf_paint_0      0
  22. #define gf_paint1       64
  23. #define gf_paint2       65
  24. #define gf_paint3       66
  25. #define gf_boc          67
  26. #define gf_boc1         68
  27. #define gf_eoc          69
  28. #define gf_skip0        70
  29. #define gf_skip1        71
  30. #define gf_skip2        72
  31. #define gf_skip3        73
  32. #define gf_new_row_0    74
  33. #define gf_xxx1         239
  34. #define gf_xxx2         240
  35. #define gf_xxx3         241
  36. #define gf_xxx4         242
  37. #define gf_yyy          243
  38. #define gf_no_op        244
  39. #define gf_char_loc     245
  40. #define gf_char_loc0    246
  41. #define gf_pre          247
  42. #define gf_post         248
  43. #define gf_post_post    249
  44.  
  45. int g;
  46. FONTHEADER *fh;
  47. int brush, x,y,xmax,ymax,thischar,xsize,charsize,charcnt,charpos;
  48. int chswitch;
  49. long int datapos;
  50. char *onechar;
  51. unsigned char *gfbuf;
  52. int gfbuflen;
  53. FILE *fontf;
  54.  
  55. void GF_eoc(void)
  56. {
  57.     if(onechar==NULL) return;
  58.     fwrite(onechar,1,charsize,fontf); datapos+=charsize;
  59.     free(onechar); onechar=NULL;
  60. }
  61.  
  62. void GF_boc(int p)
  63. {
  64.     unsigned char cc;
  65.     int min_m, min_n, max_m, max_n, del_m, del_n;
  66.     if(!chswitch) return;
  67.     if(p==0) {
  68.         cc=texint(gfbuf+(++g),4); g+=8;
  69.         min_m=texint(gfbuf+g,4); g+=4;
  70.         max_m=texint(gfbuf+g,4); g+=4;
  71.         min_n=texint(gfbuf+g,4); g+=4;
  72.         max_n=texint(gfbuf+g,4); g+=4;
  73.         del_m=max_m-min_m; del_n=max_n-min_n;
  74.         g--;
  75.     }
  76.     else {
  77.         cc=gfbuf[++g];
  78.         del_m=gfbuf[++g]; max_m=gfbuf[++g];
  79.         del_n=gfbuf[++g]; max_n=gfbuf[++g];
  80.         min_m=max_m-del_m; min_n=max_n-del_n;
  81.     }
  82.     if(cc>tfm.ec || cc<tfm.bc) return;
  83.     charpos=cc-tfm.bc;
  84.     if(del_m<0) del_m=0;
  85.     if(del_n<0) del_n=0;
  86.     if(del_m>=MAX_FONT_X-1) del_m=MAX_FONT_X-2;
  87.     if(del_n>=MAX_FONT_Y-1) del_n=MAX_FONT_Y-2;
  88.     x=y=0; xmax=del_m+1; ymax=del_n+1;
  89.     fh[charpos].xstart=min_m; fh[charpos].ystart=-max_n;
  90.     fh[charpos].xmax=xmax; fh[charpos].ymax=ymax;
  91.     brush=0; thischar=cc;
  92.     xsize=(xmax+7)/8; charsize=xsize*ymax;
  93.     onechar=xmalloc(charsize+1024);
  94.     memset(onechar,0,charsize+1024);
  95.     fh[charpos].start=datapos;
  96.     fh[charpos].w=tfm.f[cc].w;
  97. }
  98.  
  99. void GF_paint(int p)
  100. {
  101.     int i;
  102.     if(onechar==NULL) return;
  103.     if(brush) for(i=x;i<p+x && i<xmax;i++) {
  104.         onechar[y*xsize+(i>>3)]|=(1<<(i&7));
  105.     }
  106.     x+=p; if(x>xmax) x=xmax;
  107.     brush^=1;
  108. }
  109.  
  110. void GF_new_row(int p)
  111. {
  112.     y++; if(y>ymax) y=ymax;
  113.     x=p; if(x>xmax) x=xmax;
  114.     brush=1;
  115. }
  116.  
  117. void GF_skip(int p)
  118. {
  119.     if(p>0) p=texint(gfbuf+(++g),p);
  120.     p++; y+=p; if(y>ymax) y=ymax;
  121.     x=0; brush=0;
  122. }
  123.  
  124. void GF_xxx(int p)
  125. {
  126.     unsigned int t;
  127.     t=texint(gfbuf+(++g),p);
  128.     g+=p+t-1;
  129. }
  130.  
  131. void GF_yyy(void)
  132. {
  133.     g+=4;
  134. }
  135.  
  136. void GF_char_loc(int p)
  137. {
  138.     if(p==0) g+=1+1+4+4;
  139.     else g+=1+4+4+4+4;
  140. }
  141.  
  142. void GF_post(void)
  143. {
  144.     chswitch=0;
  145. }
  146.  
  147. void GF_post_post(void)
  148. {
  149.     g=gfbuflen; chswitch=0;
  150. }
  151.  
  152. void loadgf(char *fname, int density)
  153. {
  154.     int len;
  155.     char namebuf[128];
  156.  
  157.     snprintf(namebuf,sizeof(namebuf),"%s/texgf.%dgf",tmpdir,density);
  158.     len=getfile(namebuf,&gfbuf);
  159.     if(len<=0) {
  160.         texgif_error("Metafont failed.");
  161.     }
  162.     gfbuflen=len;
  163. }
  164.  
  165. void makegf(char *fontname, int density)
  166. {
  167.     call_sh("mkdir -p %s\n\
  168. cd %s\n\
  169. rm -f texgf.* 2>/dev/null\n\
  170. cat >texgf.mf <<@\n\
  171. batchmode;\n\
  172. mode_def texgf =\n\
  173.         mode_param (pixels_per_inch, %d);\n\
  174.         mode_param (blacker, %f);\n\
  175.         mode_param (fillin, 0);\n\
  176.         mode_param (o_correction, 0);\n\
  177.         mode_common_setup_;\n\
  178. enddef;\n\
  179. mode = texgf;\n\
  180. input %s;\n\
  181. @\n\
  182. mf texgf </dev/null || mf-nowin texgf </dev/null\n\
  183. ", fontdir, tmpdir, density, pow((double)density/100,0.75)*blacker, fontname);
  184. }
  185.  
  186. void gf2font(char *fontname,int density)
  187. {
  188.     unsigned char cc;
  189.     char namebuf[1024];
  190.     char tmpname[1024];
  191.  
  192.     if((gfbuf[0]&255)!=gf_pre || (gfbuf[1]&255)!=131) return;
  193.     g=3+(gfbuf[2]&255);
  194.     if(gfbuflen<=g) return;
  195.     if(tfm.ec==0 && tfm.bc==0) return;
  196.     charcnt=tfm.ec-tfm.bc+1;
  197.     fh=xmalloc(charcnt*sizeof(FONTHEADER)+256);
  198.     memset(fh,0,charcnt*sizeof(FONTHEADER));
  199.     snprintf(tmpname,sizeof(tmpname),"%s/wims.fonttmp",tmpdir);
  200.     fontf=fopen(tmpname,"w"); if(fontf==NULL) return;
  201.     brush=0; x=y=xmax=ymax=datapos=0; onechar=NULL; chswitch=1;
  202.     for(;g<gfbuflen;g++) {
  203.         cc=gfbuf[g];
  204.         if(cc<=63) {GF_paint(cc); continue;}
  205.         if(cc>=74 && cc<=238) {GF_new_row(cc-74); continue;}
  206.         switch(cc) {
  207.             case gf_boc:        GF_boc(0); break;
  208.             case gf_boc1:       GF_boc(1); break;
  209.             case gf_eoc:        GF_eoc(); break;
  210.             case gf_skip0:      GF_skip(0); break;
  211.             case gf_skip1:      GF_skip(1); break;
  212.             case gf_skip2:      GF_skip(2); break;
  213.             case gf_skip3:      GF_skip(3); break;
  214.             case gf_char_loc:   GF_char_loc(1); break;
  215.             case gf_char_loc0:  GF_char_loc(0); break;
  216.             case gf_xxx1:       GF_xxx(1); break;
  217.             case gf_xxx2:       GF_xxx(2); break;
  218.             case gf_xxx3:       GF_xxx(3); break;
  219.             case gf_xxx4:       GF_xxx(4); break;
  220.             case gf_yyy:        GF_yyy(); break;
  221.  
  222.             default: break;
  223.         }
  224.     }
  225.     fclose(fontf);
  226.     snprintf(namebuf,sizeof(namebuf),"%s/%s.font",
  227.              tmpdir,fontname);
  228.     fontf=fopen(namebuf,"w"); if(fontf!=NULL) {
  229.         fwrite(&(tfm.checksum),sizeof(int),1,fontf);
  230.         fwrite(&(tfm.designsize),sizeof(int),1,fontf);
  231.         fwrite(&(tfm.bc),sizeof(int),1,fontf);
  232.         fwrite(&(tfm.ec),sizeof(int),1,fontf);
  233.         fwrite(fh,sizeof(FONTHEADER),charcnt,fontf);
  234.         fclose(fontf);
  235.         call_sh("cat %s >>%s; mkdir -p %s/%d; mv -f %s %s/%d",
  236.                 tmpname,namebuf,fontdir,density,namebuf,fontdir,density);
  237.         unlink(tmpname);
  238.     }
  239.     free(fh);
  240. }
  241.  
  242.