1 9c611279 2012-10-21 rsc #include <u.h>
  2 9c611279 2012-10-21 rsc 
  3 9c611279 2012-10-21 rsc #include <fontconfig/fontconfig.h>
  4 9c611279 2012-10-21 rsc #include <ft2build.h>
  5 9c611279 2012-10-21 rsc #include FT_FREETYPE_H
  6 9c611279 2012-10-21 rsc 
  7 9c611279 2012-10-21 rsc #include <libc.h>
  8 9c611279 2012-10-21 rsc #include <draw.h>
  9 9c611279 2012-10-21 rsc #include <memdraw.h>
 10 9c611279 2012-10-21 rsc #include "a.h"
 11 9c611279 2012-10-21 rsc 
 12 9c611279 2012-10-21 rsc static FcConfig    *fc;
 13 9c611279 2012-10-21 rsc static FT_Library  lib;
 14 9c611279 2012-10-21 rsc static int         dpi = 96;
 15 9c611279 2012-10-21 rsc 
 16 9c611279 2012-10-21 rsc void
 17 9c611279 2012-10-21 rsc loadfonts(void)
 18 9c611279 2012-10-21 rsc {
 19 9c611279 2012-10-21 rsc 	int i;
 20 9c611279 2012-10-21 rsc 	FT_Error e;
 21 9c611279 2012-10-21 rsc 	FcFontSet *sysfonts;
 22 9c611279 2012-10-21 rsc 
 23 9c611279 2012-10-21 rsc 	if(!FcInit() || (fc=FcInitLoadConfigAndFonts()) == NULL) {
 24 9c611279 2012-10-21 rsc 		fprint(2, "fontconfig initialization failed\n");
 25 9c611279 2012-10-21 rsc 		exits("fontconfig failed");
 26 9c611279 2012-10-21 rsc 	}
 27 9c611279 2012-10-21 rsc 
 28 9c611279 2012-10-21 rsc 	e = FT_Init_FreeType(&lib);
 29 9c611279 2012-10-21 rsc 	if(e) {
 30 9c611279 2012-10-21 rsc 		fprint(2, "freetype initialization failed: %d\n", e);
 31 9c611279 2012-10-21 rsc 		exits("freetype failed");
 32 9c611279 2012-10-21 rsc 	}
 33 9c611279 2012-10-21 rsc 
 34 9c611279 2012-10-21 rsc 	sysfonts = FcConfigGetFonts(fc, FcSetSystem);
 35 9c611279 2012-10-21 rsc 
 36 9c611279 2012-10-21 rsc 	xfont = emalloc9p(sysfonts->nfont*sizeof xfont[0]);
 37 9c611279 2012-10-21 rsc 	memset(xfont, 0, sysfonts->nfont*sizeof xfont[0]);
 38 9c611279 2012-10-21 rsc 	for(i=0; i<sysfonts->nfont; i++) {
 39 9c611279 2012-10-21 rsc 		FcChar8 *fullname, *fontfile;
 40 9c611279 2012-10-21 rsc 		int index;
 41 9c611279 2012-10-21 rsc 		FcPattern *pat = sysfonts->fonts[i];
 42 9c611279 2012-10-21 rsc 
 43 c82e11b2 2018-11-14 rsc 		if(FcPatternGetString(pat, FC_POSTSCRIPT_NAME, 0, &fullname) != FcResultMatch ||
 44 9c611279 2012-10-21 rsc 		   FcPatternGetString(pat, FC_FILE, 0, &fontfile) != FcResultMatch     ||
 45 9c611279 2012-10-21 rsc 		   FcPatternGetInteger(pat, FC_INDEX, 0, &index) != FcResultMatch)
 46 9c611279 2012-10-21 rsc 			continue;
 47 9c611279 2012-10-21 rsc 
 48 9c611279 2012-10-21 rsc 		xfont[nxfont].name     = strdup((char*)fullname);
 49 9c611279 2012-10-21 rsc 		xfont[nxfont].fontfile = strdup((char*)fontfile);
 50 9c611279 2012-10-21 rsc 		xfont[nxfont].index    = index;
 51 9c611279 2012-10-21 rsc 		nxfont++;
 52 9c611279 2012-10-21 rsc 	}
 53 9c611279 2012-10-21 rsc 
 54 9c611279 2012-10-21 rsc 	FcFontSetDestroy(sysfonts);
 55 9c611279 2012-10-21 rsc }
 56 9c611279 2012-10-21 rsc 
 57 9c611279 2012-10-21 rsc void
 58 9c611279 2012-10-21 rsc load(XFont *f)
 59 9c611279 2012-10-21 rsc {
 60 9c611279 2012-10-21 rsc 	FT_Face face;
 61 9c611279 2012-10-21 rsc 	FT_Error e;
 62 9c611279 2012-10-21 rsc 	FT_ULong charcode;
 63 9c611279 2012-10-21 rsc 	FT_UInt glyph_index;
 64 c3d31bac 2020-06-04 noreply 	int i;
 65 9c611279 2012-10-21 rsc 
 66 9c611279 2012-10-21 rsc 	if(f->loaded)
 67 9c611279 2012-10-21 rsc 		return;
 68 9c611279 2012-10-21 rsc 
 69 9c611279 2012-10-21 rsc 	e = FT_New_Face(lib, f->fontfile, f->index, &face);
 70 9c611279 2012-10-21 rsc 	if(e){
 71 9c611279 2012-10-21 rsc 		fprint(2, "load failed for %s (%s) index:%d\n", f->name, f->fontfile, f->index);
 72 9c611279 2012-10-21 rsc 		return;
 73 9c611279 2012-10-21 rsc 	}
 74 9c611279 2012-10-21 rsc 	if(!FT_IS_SCALABLE(face)) {
 75 9c611279 2012-10-21 rsc 		fprint(2, "%s is a non scalable font, skipping\n", f->name);
 76 9c611279 2012-10-21 rsc 		FT_Done_Face(face);
 77 48da9bd7 2018-10-05 0intro 		f->loaded = 1;
 78 9c611279 2012-10-21 rsc 		return;
 79 9c611279 2012-10-21 rsc 	}
 80 9c611279 2012-10-21 rsc 	f->unit = face->units_per_EM;
 81 ed959cfb 2018-11-14 rsc 	f->height = (int)((face->ascender - face->descender) * 1.35);
 82 2c70acc3 2020-05-30 noreply 	f->originy = face->descender * 1.35; // bbox.yMin (or descender)  is negative, because the baseline is y-coord 0
 83 9c611279 2012-10-21 rsc 
 84 9c611279 2012-10-21 rsc 	for(charcode=FT_Get_First_Char(face, &glyph_index); glyph_index != 0;
 85 9c611279 2012-10-21 rsc 		charcode=FT_Get_Next_Char(face, charcode, &glyph_index)) {
 86 9c611279 2012-10-21 rsc 
 87 775cb933 2015-08-27 rsc 		int idx = charcode/SubfontSize;
 88 9c611279 2012-10-21 rsc 
 89 5f0fa185 2020-05-30 rsc 		if(charcode > Runemax)
 90 9c611279 2012-10-21 rsc 			break;
 91 9c611279 2012-10-21 rsc 
 92 5f0fa185 2020-05-30 rsc 		if(!f->range[idx])
 93 9c611279 2012-10-21 rsc 			f->range[idx] = 1;
 94 9c611279 2012-10-21 rsc 	}
 95 5f0fa185 2020-05-30 rsc 	FT_Done_Face(face);
 96 5f0fa185 2020-05-30 rsc 
 97 48da9bd7 2018-10-05 0intro 	// libdraw expects U+0000 to be present
 98 5f0fa185 2020-05-30 rsc 	if(!f->range[0])
 99 48da9bd7 2018-10-05 0intro 		f->range[0] = 1;
100 5f0fa185 2020-05-30 rsc 
101 5f0fa185 2020-05-30 rsc 	// fix up file list
102 5f0fa185 2020-05-30 rsc 	for(i=0; i<nelem(f->range); i++)
103 5f0fa185 2020-05-30 rsc 		if(f->range[i])
104 5f0fa185 2020-05-30 rsc 			f->file[f->nfile++] = i;
105 5f0fa185 2020-05-30 rsc 
106 9c611279 2012-10-21 rsc 	f->loaded = 1;
107 9c611279 2012-10-21 rsc }
108 9c611279 2012-10-21 rsc 
109 9c611279 2012-10-21 rsc Memsubfont*
110 32dc15fa 2015-02-17 rsc mksubfont(XFont *xf, char *name, int lo, int hi, int size, int antialias)
111 9c611279 2012-10-21 rsc {
112 9c611279 2012-10-21 rsc 	FT_Face face;
113 9c611279 2012-10-21 rsc 	FT_Error e;
114 9c611279 2012-10-21 rsc 	Memimage *m, *mc, *m1;
115 9c611279 2012-10-21 rsc 	double pixel_size;
116 48da9bd7 2018-10-05 0intro 	int w, x, y, y0;
117 9c611279 2012-10-21 rsc 	int i;
118 9c611279 2012-10-21 rsc 	Fontchar *fc, *fc0;
119 9c611279 2012-10-21 rsc 	Memsubfont *sf;
120 63002b3e 2014-03-03 0intro 	//Point rect_points[4];
121 9c611279 2012-10-21 rsc 
122 9c611279 2012-10-21 rsc 	e = FT_New_Face(lib, xf->fontfile, xf->index, &face);
123 9c611279 2012-10-21 rsc 	if(e){
124 9c611279 2012-10-21 rsc 		fprint(2, "load failed for %s (%s) index:%d\n", xf->name, xf->fontfile, xf->index);
125 9c611279 2012-10-21 rsc 		return nil;
126 9c611279 2012-10-21 rsc 	}
127 9c611279 2012-10-21 rsc 
128 9c611279 2012-10-21 rsc 	e = FT_Set_Char_Size(face, 0, size<<6, dpi, dpi);
129 9c611279 2012-10-21 rsc 	if(e){
130 9c611279 2012-10-21 rsc 		fprint(2, "FT_Set_Char_Size failed\n");
131 9c611279 2012-10-21 rsc 		FT_Done_Face(face);
132 9c611279 2012-10-21 rsc 		return nil;
133 9c611279 2012-10-21 rsc 	}
134 9c611279 2012-10-21 rsc 
135 9c611279 2012-10-21 rsc 	pixel_size = (dpi*size)/72.0;
136 48da9bd7 2018-10-05 0intro 	w = x = (int)((face->max_advance_width) * pixel_size/xf->unit + 0.99999999);
137 9c611279 2012-10-21 rsc 	y = (int)((face->ascender - face->descender) * pixel_size/xf->unit + 0.99999999);
138 9c611279 2012-10-21 rsc 	y0 = (int)(-face->descender * pixel_size/xf->unit + 0.99999999);
139 9c611279 2012-10-21 rsc 
140 48da9bd7 2018-10-05 0intro 	m = allocmemimage(Rect(0, 0, x*(hi+1-lo)+1, y+1), antialias ? GREY8 : GREY1);
141 9c611279 2012-10-21 rsc 	if(m == nil) {
142 9c611279 2012-10-21 rsc 		FT_Done_Face(face);
143 9c611279 2012-10-21 rsc 		return nil;
144 9c611279 2012-10-21 rsc 	}
145 48da9bd7 2018-10-05 0intro 	mc = allocmemimage(Rect(0, 0, x+1, y+1), antialias ? GREY8 : GREY1);
146 9c611279 2012-10-21 rsc 	if(mc == nil) {
147 9c611279 2012-10-21 rsc 		freememimage(m);
148 9c611279 2012-10-21 rsc 		FT_Done_Face(face);
149 9c611279 2012-10-21 rsc 		return nil;
150 9c611279 2012-10-21 rsc 	}
151 9c611279 2012-10-21 rsc 	memfillcolor(m, DBlack);
152 9c611279 2012-10-21 rsc 	memfillcolor(mc, DBlack);
153 9c611279 2012-10-21 rsc 	fc = malloc((hi+2 - lo) * sizeof fc[0]);
154 9c611279 2012-10-21 rsc 	sf = malloc(sizeof *sf);
155 9c611279 2012-10-21 rsc 	if(fc == nil || sf == nil) {
156 9c611279 2012-10-21 rsc 		freememimage(m);
157 9c611279 2012-10-21 rsc 		freememimage(mc);
158 9c611279 2012-10-21 rsc 		free(fc);
159 9c611279 2012-10-21 rsc 		free(sf);
160 9c611279 2012-10-21 rsc 		FT_Done_Face(face);
161 9c611279 2012-10-21 rsc 		return nil;
162 9c611279 2012-10-21 rsc 	}
163 9c611279 2012-10-21 rsc 	fc0 = fc;
164 9c611279 2012-10-21 rsc 
165 9c611279 2012-10-21 rsc 	//rect_points[0] = mc->r.min;
166 9c611279 2012-10-21 rsc 	//rect_points[1] = Pt(mc->r.max.x, mc->r.min.y);
167 9c611279 2012-10-21 rsc 	//rect_points[2] = mc->r.max;
168 9c611279 2012-10-21 rsc 	//rect_points[3] = Pt(mc->r.min.x, mc->r.max.y);
169 9c611279 2012-10-21 rsc 
170 9c611279 2012-10-21 rsc 	x = 0;
171 9c611279 2012-10-21 rsc 	for(i=lo; i<=hi; i++, fc++) {
172 48da9bd7 2018-10-05 0intro 		int k, r;
173 9c611279 2012-10-21 rsc 		int advance;
174 9c611279 2012-10-21 rsc 
175 9c611279 2012-10-21 rsc 		memfillcolor(mc, DBlack);
176 9c611279 2012-10-21 rsc 
177 48da9bd7 2018-10-05 0intro 		fc->x = x;
178 48da9bd7 2018-10-05 0intro 		fc->top = 0;
179 48da9bd7 2018-10-05 0intro 		fc->bottom = Dy(m->r);
180 48da9bd7 2018-10-05 0intro 		e = 1;
181 48da9bd7 2018-10-05 0intro 		k = FT_Get_Char_Index(face, i);
182 48da9bd7 2018-10-05 0intro 		if(k != 0) {
183 cc48e73a 2020-01-13 rsc 			e = FT_Load_Glyph(face, k, FT_LOAD_RENDER|FT_LOAD_NO_AUTOHINT|(antialias ? 0:FT_LOAD_TARGET_MONO));
184 48da9bd7 2018-10-05 0intro 		}
185 48da9bd7 2018-10-05 0intro 		if(e || face->glyph->advance.x <= 0) {
186 48da9bd7 2018-10-05 0intro 			fc->width = 0;
187 48da9bd7 2018-10-05 0intro 			fc->left = 0;
188 48da9bd7 2018-10-05 0intro 			if(i == 0) {
189 48da9bd7 2018-10-05 0intro 				drawpjw(m, fc, x, w, y, y - y0);
190 48da9bd7 2018-10-05 0intro 				x += fc->width;
191 48da9bd7 2018-10-05 0intro 			}
192 48da9bd7 2018-10-05 0intro 			continue;
193 48da9bd7 2018-10-05 0intro 		}
194 9c611279 2012-10-21 rsc 
195 48da9bd7 2018-10-05 0intro 		FT_Bitmap *bitmap = &face->glyph->bitmap;
196 48da9bd7 2018-10-05 0intro 		uchar *base = byteaddr(mc, mc->r.min);
197 48da9bd7 2018-10-05 0intro 		advance = (face->glyph->advance.x+32) >> 6;
198 9c611279 2012-10-21 rsc 
199 48da9bd7 2018-10-05 0intro 		for(r=0; r < bitmap->rows; r++)
200 48da9bd7 2018-10-05 0intro 			memmove(base + r*mc->width*sizeof(u32int), bitmap->buffer + r*bitmap->pitch, bitmap->pitch);
201 9c611279 2012-10-21 rsc 
202 48da9bd7 2018-10-05 0intro 		memimagedraw(m, Rect(x, 0, x + advance, y), mc,
203 48da9bd7 2018-10-05 0intro 			Pt(-face->glyph->bitmap_left, -(y - y0 - face->glyph->bitmap_top)),
204 48da9bd7 2018-10-05 0intro 			memopaque, ZP, S);
205 9c611279 2012-10-21 rsc 
206 9c611279 2012-10-21 rsc 		fc->width = advance;
207 48da9bd7 2018-10-05 0intro 		fc->left = 0;
208 9c611279 2012-10-21 rsc 		x += advance;
209 9c611279 2012-10-21 rsc 
210 9c611279 2012-10-21 rsc #ifdef DEBUG_FT_BITMAP
211 9c611279 2012-10-21 rsc 		for(r=0; r < bitmap->rows; r++) {
212 9c611279 2012-10-21 rsc 			int c;
213 9c611279 2012-10-21 rsc 			uchar *span = bitmap->buffer+(r*bitmap->pitch);
214 9c611279 2012-10-21 rsc 			for(c = 0; c < bitmap->width; c++) {
215 9c611279 2012-10-21 rsc 				fprint(1, "%02x", span[c]);
216 9c611279 2012-10-21 rsc 			}
217 9c611279 2012-10-21 rsc 			fprint(1,"\n");
218 9c611279 2012-10-21 rsc 		}
219 9c611279 2012-10-21 rsc #endif
220 9c611279 2012-10-21 rsc 
221 9c611279 2012-10-21 rsc #ifdef DEBUG_9_BITMAP
222 9c611279 2012-10-21 rsc 		for(r=0; r < mc->r.max.y; r++) {
223 9c611279 2012-10-21 rsc 			int c;
224 9c611279 2012-10-21 rsc 			uchar *span = base+(r*mc->width*sizeof(u32int));
225 9c611279 2012-10-21 rsc 			for(c = 0; c < Dx(mc->r); c++) {
226 9c611279 2012-10-21 rsc 				fprint(1, "%02x", span[c]);
227 9c611279 2012-10-21 rsc 			}
228 9c611279 2012-10-21 rsc 			fprint(1,"\n");
229 9c611279 2012-10-21 rsc 		}
230 9c611279 2012-10-21 rsc #endif
231 9c611279 2012-10-21 rsc 	}
232 9c611279 2012-10-21 rsc 	fc->x = x;
233 9c611279 2012-10-21 rsc 
234 9c611279 2012-10-21 rsc 	// round up to 32-bit boundary
235 9c611279 2012-10-21 rsc 	// so that in-memory data is same
236 9c611279 2012-10-21 rsc 	// layout as in-file data.
237 48da9bd7 2018-10-05 0intro 	if(x == 0)
238 48da9bd7 2018-10-05 0intro 		x = 1;
239 48da9bd7 2018-10-05 0intro 	if(y == 0)
240 48da9bd7 2018-10-05 0intro 		y = 1;
241 9c611279 2012-10-21 rsc 	if(antialias)
242 9c611279 2012-10-21 rsc 		x += -x & 3;
243 9c611279 2012-10-21 rsc 	else
244 9c611279 2012-10-21 rsc 		x += -x & 31;
245 9c611279 2012-10-21 rsc 	m1 = allocmemimage(Rect(0, 0, x, y), antialias ? GREY8 : GREY1);
246 9c611279 2012-10-21 rsc 	memimagedraw(m1, m1->r, m, m->r.min, memopaque, ZP, S);
247 9c611279 2012-10-21 rsc 	freememimage(m);
248 a3ec102d 2018-03-27 0intro 	freememimage(mc);
249 9c611279 2012-10-21 rsc 
250 9c611279 2012-10-21 rsc 	sf->name = nil;
251 9c611279 2012-10-21 rsc 	sf->n = hi+1 - lo;
252 9c611279 2012-10-21 rsc 	sf->height = Dy(m1->r);
253 9c611279 2012-10-21 rsc 	sf->ascent = Dy(m1->r) - y0;
254 9c611279 2012-10-21 rsc 	sf->info = fc0;
255 9c611279 2012-10-21 rsc 	sf->bits = m1;
256 9c611279 2012-10-21 rsc 
257 9c611279 2012-10-21 rsc 	FT_Done_Face(face);
258 9c611279 2012-10-21 rsc 	return sf;
259 9c611279 2012-10-21 rsc }