Mercurial > emacs
view src/ftxfont.c @ 90716:f5dc0b9a442c
(Finternal_char_font): Fix for the case of POSITION
being nil.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 07 Dec 2006 00:45:18 +0000 |
parents | c443c8a56b84 |
children | 5ed0717083a1 |
line wrap: on
line source
/* ftxfont.c -- FreeType font driver on X (without using XFT). Copyright (C) 2006 Free Software Foundation, Inc. Copyright (C) 2006 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #include <config.h> #include <stdio.h> #include <X11/Xlib.h> #include "lisp.h" #include "dispextern.h" #include "xterm.h" #include "frame.h" #include "blockinput.h" #include "character.h" #include "charset.h" #include "fontset.h" #include "font.h" /* FTX font driver. */ static Lisp_Object Qftx; /* Prototypes for helper function. */ static int ftxfont_create_gcs P_ ((FRAME_PTR, GC *, unsigned long, unsigned long)); static int ftxfont_draw_bitmap P_ ((FRAME_PTR, GC *, struct font *, unsigned, int, int, XPoint *, int, int *n)); static void ftxfont_draw_backgrond P_ ((FRAME_PTR, struct font *, GC, int, int, int)); static Font ftxfont_default_fid P_ ((FRAME_PTR)); /* Create 6 GCs for antialiasing by interpolating colors FOREGROUND and BACKGROUND. GCS[0] is closest to BACKGROUND, and GCS[5] is closest to FOREGROUND. */ static int ftxfont_create_gcs (f, gcs, foreground, background) FRAME_PTR f; GC *gcs; unsigned long foreground, background; { XColor colors[3]; XGCValues xgcv; int i; colors[0].pixel = foreground; colors[1].pixel = background; BLOCK_INPUT; XQueryColors (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), colors, 2); for (i = 1; i < 7; i++) { colors[2].red = (colors[0].red * i + colors[1].red * (8 - i)) / 8; colors[2].green = (colors[0].green * i + colors[1].green * (8 - i)) / 8; colors[2].blue = (colors[0].blue * i + colors[1].blue * (8 - i)) / 8; if (! x_alloc_nearest_color (f, FRAME_X_COLORMAP (f), &colors[2])) break; xgcv.foreground = colors[2].pixel; gcs[i - 1] = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), GCForeground, &xgcv); } UNBLOCK_INPUT; if (i < 7) { BLOCK_INPUT; for (i--; i >= 0; i--) XFreeGC (FRAME_X_DISPLAY (f), gcs[i]); UNBLOCK_INPUT; return -1; } return 0; } static int ftxfont_draw_bitmap (f, gc, font, code, x, y, p, size, n) FRAME_PTR f; GC *gc; struct font *font; unsigned code; int x, y; XPoint *p; int size, *n; { struct font_bitmap bitmap; unsigned char *b; int i, j; if (ftfont_driver.get_bitmap (font, code, &bitmap, size > 0x100 ? 1 : 8) < 0) return 0; for (i = 0, b = bitmap.buffer; i < bitmap.rows; i++, b += bitmap.pitch) { if (size > 0x100) { for (j = 0; j < bitmap.width; j++) if (b[j / 8] & (1 << (7 - (j % 8)))) { p[n[0]].x = x + bitmap.left + j; p[n[0]].y = y - bitmap.top + i; if (++n[0] == 0x400) { XDrawPoints (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc[0], p, size, CoordModeOrigin); n[0] = 0; } } } else { for (j = 0; j < bitmap.width; j++) { int idx = (b[j] >> 5) - 1; if (idx >= 0) { XPoint *pp = p + size * idx; pp[n[idx]].x = x + bitmap.left + j; pp[n[idx]].y = y - bitmap.top + i; if (++(n[idx]) == 0x100) { XDrawPoints (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc[idx], pp, size, CoordModeOrigin); n[idx] = 0; } } } } } if (ftfont_driver.free_bitmap) ftfont_driver.free_bitmap (font, &bitmap); return bitmap.advance; } static void ftxfont_draw_backgrond (f, font, gc, x, y, width) FRAME_PTR f; struct font *font; GC gc; int x, y, width; { XGCValues xgcv; XGetGCValues (FRAME_X_DISPLAY (f), gc, GCForeground | GCBackground, &xgcv); XSetForeground (FRAME_X_DISPLAY (f), gc, xgcv.background); XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, x, y - font->ascent, width, y + font->descent); XSetForeground (FRAME_X_DISPLAY (f), gc, xgcv.foreground); } /* Return the default Font ID on frame F. */ static Font ftxfont_default_fid (f) FRAME_PTR f; { static int fid_known; static Font fid; if (! fid_known) { fid = XLoadFont (FRAME_X_DISPLAY (f), "fixed"); if (! fid) { fid = XLoadFont (FRAME_X_DISPLAY (f), "*"); if (! fid) abort (); } fid_known = 1; } return fid; } /* Prototypes for font-driver methods. */ static Lisp_Object ftxfont_list P_ ((Lisp_Object, Lisp_Object)); static Lisp_Object ftxfont_match P_ ((Lisp_Object, Lisp_Object)); static struct font *ftxfont_open P_ ((FRAME_PTR, Lisp_Object, int)); static void ftxfont_close P_ ((FRAME_PTR, struct font *)); static int ftxfont_prepare_face (FRAME_PTR, struct face *); static void ftxfont_done_face (FRAME_PTR, struct face *); static int ftxfont_draw P_ ((struct glyph_string *, int, int, int, int, int)); struct font_driver ftxfont_driver; static Lisp_Object ftxfont_list (frame, spec) Lisp_Object frame; Lisp_Object spec; { Lisp_Object val = ftfont_driver.list (frame, spec); if (! NILP (val)) { int i; for (i = 0; i < ASIZE (val); i++) ASET (AREF (val, i), FONT_TYPE_INDEX, Qftx); } return val; } static Lisp_Object ftxfont_match (frame, spec) Lisp_Object frame; Lisp_Object spec; { Lisp_Object entity = ftfont_driver.match (frame, spec); if (VECTORP (entity)) ASET (entity, FONT_TYPE_INDEX, Qftx); return entity; } static struct font * ftxfont_open (f, entity, pixel_size) FRAME_PTR f; Lisp_Object entity; int pixel_size; { Display_Info *dpyinfo = FRAME_X_DISPLAY_INFO (f); struct font *font; XFontStruct *xfont = malloc (sizeof (XFontStruct)); if (! xfont) return NULL; font = ftfont_driver.open (f, entity, pixel_size); if (! font) { free (xfont); return NULL; } xfont->fid = ftxfont_default_fid (f); xfont->ascent = font->ascent; xfont->descent = font->descent; xfont->max_bounds.width = font->font.size; xfont->min_bounds.width = font->min_width; font->font.font = xfont; font->driver = &ftxfont_driver; dpyinfo->n_fonts++; /* Set global flag fonts_changed_p to non-zero if the font loaded has a character with a smaller width than any other character before, or if the font loaded has a smaller height than any other font loaded before. If this happens, it will make a glyph matrix reallocation necessary. */ if (dpyinfo->n_fonts == 1) { dpyinfo->smallest_font_height = font->font.height; dpyinfo->smallest_char_width = font->min_width; fonts_changed_p = 1; } else { if (dpyinfo->smallest_font_height > font->font.height) dpyinfo->smallest_font_height = font->font.height, fonts_changed_p |= 1; if (dpyinfo->smallest_char_width > font->min_width) dpyinfo->smallest_char_width = font->min_width, fonts_changed_p |= 1; } return font; } static void ftxfont_close (f, font) FRAME_PTR f; struct font *font; { ftfont_driver.close (f, font); FRAME_X_DISPLAY_INFO (f)->n_fonts--; } static int ftxfont_prepare_face (f, face) FRAME_PTR f; struct face *face; { struct font *font = (struct font *) face->font_info; GC gcs[6]; int i; face->extra = NULL; if (! font->scalable) return 0; if (ftxfont_create_gcs (f, gcs, face->foreground, face->background) < 0) /* Give up antialiasing. */ return 0; face->extra = malloc (sizeof (GC) * 7); if (! face->extra) return -1; for (i = 0; i < 6; i++) ((GC *) face->extra)[i] = gcs[i]; ((GC *) face->extra)[i] = face->gc; return 0; } static void ftxfont_done_face (f, face) FRAME_PTR f; struct face *face; { if (face->extra) { int i; BLOCK_INPUT; for (i = 0; i < 6; i++) XFreeGC (FRAME_X_DISPLAY (f), ((GC *) face->extra)[i]); UNBLOCK_INPUT; free (face->extra); face->extra = NULL; } } static int ftxfont_draw (s, from, to, x, y, with_background) struct glyph_string *s; int from, to, x, y, with_background; { FRAME_PTR f = s->f; struct face *face = s->face; struct font *font = (struct font *) face->font_info; XPoint p[0x700]; int n[7]; unsigned *code; int len = to - from; int i; GC *gcs; n[0] = n[1] = n[2] = n[3] = n[4] = n[5] = n[6] = 0; BLOCK_INPUT; if (with_background) ftxfont_draw_backgrond (f, font, s->gc, x, y, s->width); code = alloca (sizeof (unsigned) * len); for (i = 0; i < len; i++) code[i] = ((XCHAR2B_BYTE1 (s->char2b + from + i) << 8) | XCHAR2B_BYTE2 (s->char2b + from + i)); gcs = face->extra; if (gcs && face->gc != s->gc) { /* We are drawing for cursor or for mouse highlighting, and can't use the prepared GCs. */ XGCValues xgcv; unsigned long mask = GCForeground | GCBackground; gcs = alloca (sizeof (GC) * 7); XGetGCValues (FRAME_X_DISPLAY (f), s->gc, mask, &xgcv); if (ftxfont_create_gcs (f, gcs, xgcv.foreground, xgcv.background) < 0) gcs = NULL; gcs[6] = s->gc; } if (! gcs) { /* We are drawing with a bitmap font which doesn't use antialiasing. */ for (i = 0; i < len; i++) x += ftxfont_draw_bitmap (f, &s->gc, font, code[i], x, y, p, 0x700, n); if (n[0] > 0) XDrawPoints (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), s->gc, p, n[0], CoordModeOrigin); } else { /* We are drawing with a scalable font which use antialiasing. */ for (i = 0; i < len; i++) x += ftxfont_draw_bitmap (f, gcs, font, code[i], x, y, p, 0x100, n); for (i = 0; i < 7; i++) if (n[i] > 0) XDrawPoints (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gcs[i], p + 0x100 * i, n[i], CoordModeOrigin); if (face->gc != s->gc) for (i = 0; i < 6; i++) XFreeGC (FRAME_X_DISPLAY (f), gcs[i]); } UNBLOCK_INPUT; return len; } void syms_of_ftxfont () { DEFSYM (Qftx, "ftx"); ftxfont_driver = ftfont_driver; ftxfont_driver.type = Qftx; ftxfont_driver.list = ftxfont_list; ftxfont_driver.match = ftxfont_match; ftxfont_driver.open = ftxfont_open; ftxfont_driver.close = ftxfont_close; ftxfont_driver.prepare_face = ftxfont_prepare_face; ftxfont_driver.done_face = ftxfont_done_face; ftxfont_driver.draw = ftxfont_draw; register_font_driver (&ftxfont_driver, NULL); } /* arch-tag: 59bd3469-5330-413f-b29d-1aa36492abe8 (do not change this comment) */