#include <u.h>
#include <libc.h>
#include <libg.h>
#include "system.h"
#include "stdio.h"
#include "defines.h"
#include "object.h"
#include "dict.h"
#include "njerq.h"
#include "font.h"
#include "map.h"
#define MAXCH 100               /*max height/width of char bitmap*/
char *tnames[] = { "SSn", "Rn", "Bn", "In", "BIn", "Hn", "HIn", "HBn", "HBOn","CWn", 0};
extern struct dict *Systemdict;
extern struct pstring se_tab[], sye_tab[];
#ifdef VAX
extern unsigned char bytemap[256];
#endif
extern struct object FontMatrix, ImageMatrix, FontBBox, Encoding, Buildchar,
       FontType, BHeight, Chardata, none, FID, FontDirectory, CharStrings,
       SCharstrings, Charstrings, FontInfo, Fontinfo;
struct object blank, zero;
int findex;
int  dontcache, dontoutput;
int maxw, stdflag, width;
char *outname;
void main(int, char *[]), initfont(void);
int getwidths(char *, double[]);
void mkchar(myFont *, int, struct object, double, double[], int);
myFont *getfont(char[], int);
struct object getbits(myFont *, int);
int fnum;
double widths[256];

void
main(int argc, char *argv[]){
       char **t;
       int i;
       if(argc == 2 && *argv[1] == '-'){
               fprintf(stderr,"specify font number from:\n");
               for(t=tnames, i=0;*t != 0;t++, i++)
                       fprintf(stderr,"%s %d\n",*t,i);
               exits("error");
       }
       if(argc == 2 && *argv[1] >= '0' && *argv[1] <= '9')
               fnum = atoi(argv[1]);
       else fnum = -1;
       init((char *)0);
       exits("");
}
void
initfont(void)
{
       struct fonttab *fonttbl;
       int *fontbits;
       unsigned char *cp;
       char namebuf[50], *p, *charname;
       static struct object cnames[256];
       myFont *fp;
       Fontchar *fc;
       double base;
       int k, j, n, index, i;
       for(j=0;j<256;j++){
               if(se_tab[j].length != 0)
                       cnames[j] = pckname(se_tab[j],XA_LITERAL);
       }
       if(fnum < 0)k=0;
       else k=fnum;
       for(; tnames[k] != 0 && k <= fnum; k++){
findex=0;
fprintf(stderr,"%s ",tnames[k]);
               sprintf(namebuf,"%s.16.1",tnames[k]);
               fp = getfont(namebuf, 0);
               getwidths(tnames[k],widths);
               if(fp == (myFont *)0){
                       fprintf(stderr,"can't open file %s.16.1\n", tnames[k]);
                       exits("error");
               }
               base = (double)fp->height;
fprintf(stderr,"%d %d %d\n",fp->height,maxw,fp->ascent);
               if(!k){
                       for(j=0;j<256;j++){
                               if(sye_tab[j].length != 0)
                               mkchar(fp,j,pckname(sye_tab[j],XA_LITERAL),base,widths,j);
                       }
               }
               else{
                       for(j=0;j<256;j++){
                               if(se_tab[j].length != 0)
                               mkchar(fp,j,cnames[j],base,widths,j);
                       }
               }
       }
}
void
mkchar(myFont *fp, int j,struct object charname,
double base, double wid[], int rind)
{
       Fontchar *fc;
       struct object chardata;
       int sleft, rheight;

       fc = fp->info + j;
       if(fc->width == 0){
               return;
       }
       rheight = fc->bottom-fc->top+1;
       if(base-(double)(fc->top) < rheight)
               rheight = (int)(base-(double)(fc->top));
fprintf(stderr,"char %d %s index %d ",rind,charname.value.v_string.chars,findex);
#ifdef AHMDAL
       if(fc->left&0200)sleft=fc->left - 256;
       else sleft=fc->left;
       sleft = fc->left;
fprintf(stderr,"%d %d %d %f %f ",fc->width+abs(sleft),rheight,sleft,
       wid[j],base-(double)(fc->top));
#else
fprintf(stderr,"%d %d %d %f %f ",fc->width+abs(fc->left),rheight,fc->left,
       wid[j],base-(double)(fc->top));
#endif
       getbits(fp,j);
}
int junk=0;
struct object
getbits(myFont *fp, int c)
{
       unsigned char bits[500], *bt;
       unsigned char *ch;
       struct object obj;
       int j, k,size,height,l=0;
       unsigned int cbits;
       unsigned char  *cx;
       static Bitmap *b;
       Fontchar *fc;
       Word *sp;
       int sleft;
       if(b == (Bitmap *)0)b=balloc(Rect(0, 0, MAXCH,MAXCH),0);
       else rectf(b, Rect(0, 0, MAXCH,MAXCH),Zero);
       fc = fp->info+c;
       height = fc->bottom - fc->top + 1;
       bitblt(b,Pt(0,0),fp->bits, Rect(fc->x,fc->top,(fc+1)->x,fc->bottom),S);
       bt = bits;
       sp = b->base;
#ifdef AHMDAL
       if(fc->left&0200)sleft = fc->left-256;
       else sleft = fc->left;
       sleft = fc->left;
#else
       sleft = fc->left;
#endif
       for(k=height;k>0;k--){
               ch = (unsigned char *)sp;
               for(j=0;j < (int)(fc->width+abs(sleft)+7)/8; j++,ch++){
#ifdef VAX
                       *bt++ = bytemap[*ch];   /* map only for vax */
#else
                       *bt++ = *ch;
               }
               sp += b->width;
       }
       size = bt-bits;
fprintf(stderr,"%d %d %d\n",size,(fc+1)->x-fc->x,(int)(fc->width+abs(fc->left)+7)/8);
       obj = makestring(size);
       ch =obj.value.v_string.chars;
       cx =(unsigned char *) &cbits;
       for(k=j=0, bt=bits;k<size;k++){
               *ch++ = *bt++;
               *cx++ = *(ch-1);
j++;
if(!(j%4)){l++;findex++;
if(!(l%6))fprintf(stderr,"\n0x%x,",cbits);
else fprintf(stderr,"0x%x,", cbits); j=0;cx =(unsigned char *) &cbits;}
       }
if(j%4){fprintf(stderr,"0x%x,\n",cbits);findex++;}
else fprintf(stderr,"\n");
       return(obj);
}
int
getwidths(char *s, double wid[])
{
       char buf[100];
       FILE *fin;
       int i;
       int x;
       sprintf(buf,"%s.widths.24",s,s);
       if((fin = fopen(buf,"r")) == NULL){
               fprintf(stderr,"can't open file %s\n",buf);
               return(0);
       }
       while(1){
               if(fgets(buf,50,fin) == 0)break;
               i=atoi(buf);
               wid[i] = atof(buf+3);
               if(maxw < wid[i])maxw = wid[i];
       }
       fclose(fin);
       return(1);
}

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.