1 76193d7c 2003-09-30 devnull #include <u.h>
  2 76193d7c 2003-09-30 devnull #include <libc.h>
  3 76193d7c 2003-09-30 devnull #include <draw.h>
  4 76193d7c 2003-09-30 devnull 
  5 76193d7c 2003-09-30 devnull /*
  6 76193d7c 2003-09-30 devnull  * Default version: treat as file name
  7 76193d7c 2003-09-30 devnull  */
  8 76193d7c 2003-09-30 devnull 
  9 9b4a2324 2009-07-09 rsc int _fontpipe(char*);
 10 9b4a2324 2009-07-09 rsc 
 11 77f23268 2015-02-17 rsc static void scalesubfont(Subfont*, int);
 12 77f23268 2015-02-17 rsc 
 13 76193d7c 2003-09-30 devnull Subfont*
 14 213fc4f6 2015-02-17 rsc _getsubfont(Display *d, char *name)
 15 76193d7c 2003-09-30 devnull {
 16 76193d7c 2003-09-30 devnull 	int fd;
 17 76193d7c 2003-09-30 devnull 	Subfont *f;
 18 213fc4f6 2015-02-17 rsc 	int scale;
 19 213fc4f6 2015-02-17 rsc 	char *fname;
 20 213fc4f6 2015-02-17 rsc 	
 21 213fc4f6 2015-02-17 rsc 	scale = parsefontscale(name, &fname);
 22 213fc4f6 2015-02-17 rsc 	fd = open(fname, OREAD);
 23 213fc4f6 2015-02-17 rsc 	if(fd < 0 && strncmp(fname, "/mnt/font/", 10) == 0)
 24 213fc4f6 2015-02-17 rsc 		fd = _fontpipe(fname+10);
 25 76193d7c 2003-09-30 devnull 
 26 76193d7c 2003-09-30 devnull 	if(fd < 0){
 27 213fc4f6 2015-02-17 rsc 		fprint(2, "getsubfont: can't open %s: %r\n", fname);
 28 76193d7c 2003-09-30 devnull 		return 0;
 29 76193d7c 2003-09-30 devnull 	}
 30 76193d7c 2003-09-30 devnull 	/*
 31 76193d7c 2003-09-30 devnull 	 * unlock display so i/o happens with display released, unless
 32 76193d7c 2003-09-30 devnull 	 * user is doing his own locking, in which case this could break things.
 33 76193d7c 2003-09-30 devnull 	 * _getsubfont is called only from string.c and stringwidth.c,
 34 76193d7c 2003-09-30 devnull 	 * which are known to be safe to have this done.
 35 76193d7c 2003-09-30 devnull 	 */
 36 4e206880 2004-04-25 devnull 	if(d && d->locking == 0)
 37 76193d7c 2003-09-30 devnull 		unlockdisplay(d);
 38 4e206880 2004-04-25 devnull 	f = readsubfont(d, name, fd, d && d->locking==0);
 39 4e206880 2004-04-25 devnull 	if(d && d->locking == 0)
 40 76193d7c 2003-09-30 devnull 		lockdisplay(d);
 41 76193d7c 2003-09-30 devnull 	if(f == 0)
 42 76193d7c 2003-09-30 devnull 		fprint(2, "getsubfont: can't read %s: %r\n", name);
 43 76193d7c 2003-09-30 devnull 	close(fd);
 44 213fc4f6 2015-02-17 rsc 	if(scale > 1)
 45 213fc4f6 2015-02-17 rsc 		scalesubfont(f, scale);
 46 76193d7c 2003-09-30 devnull 	return f;
 47 76193d7c 2003-09-30 devnull }
 48 77f23268 2015-02-17 rsc 
 49 77f23268 2015-02-17 rsc static void
 50 77f23268 2015-02-17 rsc scalesubfont(Subfont *f, int scale)
 51 77f23268 2015-02-17 rsc {
 52 77f23268 2015-02-17 rsc 	Image *i;
 53 77f23268 2015-02-17 rsc 	Rectangle r, r2;
 54 77f23268 2015-02-17 rsc 	int y, x, x2, j;
 55 77f23268 2015-02-17 rsc 	uchar *src, *dst;
 56 77f23268 2015-02-17 rsc 	int srcn, dstn, n, mask, v, pack;
 57 77f23268 2015-02-17 rsc 	
 58 77f23268 2015-02-17 rsc 	r = f->bits->r;
 59 77f23268 2015-02-17 rsc 	r2 = r;
 60 77f23268 2015-02-17 rsc 	r2.min.x *= scale;
 61 77f23268 2015-02-17 rsc 	r2.min.y *= scale;
 62 77f23268 2015-02-17 rsc 	r2.max.x *= scale;
 63 77f23268 2015-02-17 rsc 	r2.max.y *= scale;
 64 77f23268 2015-02-17 rsc 	
 65 77f23268 2015-02-17 rsc 	srcn = bytesperline(r, f->bits->depth);
 66 77f23268 2015-02-17 rsc 	src = malloc(srcn);
 67 77f23268 2015-02-17 rsc 	dstn = bytesperline(r2, f->bits->depth);
 68 77f23268 2015-02-17 rsc 	dst = malloc(dstn+1);
 69 77f23268 2015-02-17 rsc 	i = allocimage(f->bits->display, r2, f->bits->chan, 0, DBlack);
 70 77f23268 2015-02-17 rsc 	for(y=r.min.y; y < r.max.y; y++) {
 71 77f23268 2015-02-17 rsc 		n = unloadimage(f->bits, Rect(r.min.x, y, r.max.x, y+1), src, srcn);
 72 77f23268 2015-02-17 rsc 		if(n != srcn)
 73 77f23268 2015-02-17 rsc 			sysfatal("scalesubfont: bad unload: %d < %d: %r", n, srcn);
 74 77f23268 2015-02-17 rsc 		memset(dst, 0, dstn+1);
 75 77f23268 2015-02-17 rsc 		pack = 8 / f->bits->depth;
 76 77f23268 2015-02-17 rsc 		mask = (1<<f->bits->depth) - 1;
 77 77f23268 2015-02-17 rsc 		for(x=0; x<Dx(r); x++) {
 78 77f23268 2015-02-17 rsc 			v = ((src[x/pack] << ((x%pack)*f->bits->depth)) >> (8 - f->bits->depth)) & mask;
 79 77f23268 2015-02-17 rsc 			for(j=0; j<scale; j++) {
 80 77f23268 2015-02-17 rsc 				x2 = x*scale+j;
 81 77f23268 2015-02-17 rsc 				dst[x2/pack] |= v << (8 - f->bits->depth) >> ((x2%pack)*f->bits->depth);
 82 77f23268 2015-02-17 rsc 			}
 83 77f23268 2015-02-17 rsc 		}
 84 77f23268 2015-02-17 rsc 		if(dst[dstn] != 0)
 85 77f23268 2015-02-17 rsc 			sysfatal("overflow dst");
 86 77f23268 2015-02-17 rsc 		for(j=0; j<scale; j++)
 87 77f23268 2015-02-17 rsc 			loadimage(i, Rect(r2.min.x, y*scale+j, r2.max.x, y*scale+j+1), dst, dstn);
 88 77f23268 2015-02-17 rsc 	}
 89 77f23268 2015-02-17 rsc 	freeimage(f->bits);
 90 77f23268 2015-02-17 rsc 	f->bits = i;
 91 77f23268 2015-02-17 rsc 	f->height *= scale;
 92 77f23268 2015-02-17 rsc 	f->ascent *= scale;
 93 77f23268 2015-02-17 rsc 	
 94 77f23268 2015-02-17 rsc 	for(j=0; j<f->n; j++) {
 95 77f23268 2015-02-17 rsc 		f->info[j].x *= scale;
 96 77f23268 2015-02-17 rsc 		f->info[j].top *= scale;
 97 77f23268 2015-02-17 rsc 		f->info[j].bottom *= scale;
 98 77f23268 2015-02-17 rsc 		f->info[j].left *= scale;
 99 77f23268 2015-02-17 rsc 		f->info[j].width *= scale;
100 77f23268 2015-02-17 rsc 	}
101 77f23268 2015-02-17 rsc }