xemacs-beta: src/fontcolor-msw.c annotate

annotate src/fontcolor-msw.c @ 5442:8d3d05ffbb43

author	Mats Lidell <matsl@xemacs.org>
date	Sun, 12 Dec 2010 00:38:54 +0100
parents	308d34e9f07d
children	0af042a0c116

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 /* mswindows-specific Lisp objects.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 Copyright (C) 1995 Board of Trustees, University of Illinois.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4 Copyright (C) 1995 Tinker Systems.
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	5 Copyright (C) 1995, 1996, 2000, 2001, 2002, 2004, 2005, 2010 Ben Wing.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 Copyright (C) 1995 Sun Microsystems, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 Copyright (C) 1997 Jonathan Harris.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5256 diff changeset	11 XEmacs is free software: you can redistribute it and/or modify it
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12 under the terms of the GNU General Public License as published by the
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5256 diff changeset	13 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5256 diff changeset	14 option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	19 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5256 diff changeset	22 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26 /* Authorship:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	28 This file created by Jonathan Harris, November 1997 for 21.0; based
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	29 heavily on fontcolor-x.c (see authorship there). Much further work
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	30 by Ben Wing.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	31 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	33 /* This function Mule-ized by Ben Wing, 3-24-02. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	35 /* TODO: palette handling */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	37 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	38 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	39
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	40 #include "console-msw-impl.h"
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	41 #include "fontcolor-msw-impl.h"
800 a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben] ben parents: 793 diff changeset	42
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 #include "buffer.h"
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	44 #include "charset.h"
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	45 #include "device-impl.h"
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	46 #include "elhash.h"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	47 #include "insdel.h"
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	48 #include "opaque.h"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	49
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	50 typedef struct colormap_t
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	51 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	52 const Ascbyte *name;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	53 COLORREF colorref;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	54 } colormap_t;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	55
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	56 /* Colors from X11R6 "XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp" */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	57 /* MSWindows tends to round up the numbers in its palette, ie where X uses
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	58 * 127, MSWindows uses 128. Colors commented as "Adjusted" are tweaked to
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	59 * match the Windows standard palette to increase the likelihood of
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	60 * mswindows_color_to_string() finding a named match.
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	61
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	62 Sorted case-insensitively by the string name of the color.
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	63
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	64 */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	65 static const colormap_t mswindows_X_color_map[] =
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	66 {
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	67 {"AliceBlue" , PALETTERGB (240, 248, 255) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	68 {"AntiqueWhite" , PALETTERGB (250, 235, 215) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	69 {"AntiqueWhite1" , PALETTERGB (255, 239, 219) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	70 {"AntiqueWhite2" , PALETTERGB (238, 223, 204) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	71 {"AntiqueWhite3" , PALETTERGB (205, 192, 176) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	72 {"AntiqueWhite4" , PALETTERGB (139, 131, 120) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	73 {"aquamarine" , PALETTERGB (127, 255, 212) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	74 {"aquamarine1" , PALETTERGB (127, 255, 212) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	75 {"aquamarine2" , PALETTERGB (118, 238, 198) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	76 {"aquamarine3" , PALETTERGB (102, 205, 170) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	77 {"aquamarine4" , PALETTERGB (69, 139, 116) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	78 {"azure" , PALETTERGB (240, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	79 {"azure1" , PALETTERGB (240, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	80 {"azure2" , PALETTERGB (224, 238, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	81 {"azure3" , PALETTERGB (193, 205, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	82 {"azure4" , PALETTERGB (131, 139, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	83 {"beige" , PALETTERGB (245, 245, 220) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	84 {"bisque" , PALETTERGB (255, 228, 196) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	85 {"bisque1" , PALETTERGB (255, 228, 196) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	86 {"bisque2" , PALETTERGB (238, 213, 183) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	87 {"bisque3" , PALETTERGB (205, 183, 158) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	88 {"bisque4" , PALETTERGB (139, 125, 107) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	89 {"black" , PALETTERGB (0, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	90 {"BlanchedAlmond" , PALETTERGB (255, 235, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	91 {"blue" , PALETTERGB (0, 0, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	92 {"blue1" , PALETTERGB (0, 0, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	93 {"blue2" , PALETTERGB (0, 0, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	94 {"blue3" , PALETTERGB (0, 0, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	95 {"blue4" , PALETTERGB (0, 0, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	96 {"BlueViolet" , PALETTERGB (138, 43, 226) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	97 {"brown" , PALETTERGB (165, 42, 42) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	98 {"brown1" , PALETTERGB (255, 64, 64) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	99 {"brown2" , PALETTERGB (238, 59, 59) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	100 {"brown3" , PALETTERGB (205, 51, 51) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	101 {"brown4" , PALETTERGB (139, 35, 35) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	102 {"burlywood" , PALETTERGB (222, 184, 135) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	103 {"burlywood1" , PALETTERGB (255, 211, 155) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	104 {"burlywood2" , PALETTERGB (238, 197, 145) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	105 {"burlywood3" , PALETTERGB (205, 170, 125) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	106 {"burlywood4" , PALETTERGB (139, 115, 85) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	107 {"CadetBlue" , PALETTERGB (95, 158, 160) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	108 {"CadetBlue1" , PALETTERGB (152, 245, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	109 {"CadetBlue2" , PALETTERGB (144, 220, 240) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	110 {"CadetBlue3" , PALETTERGB (122, 197, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	111 {"CadetBlue4" , PALETTERGB (83, 134, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	112 {"chartreuse" , PALETTERGB (127, 255, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	113 {"chartreuse1" , PALETTERGB (127, 255, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	114 {"chartreuse2" , PALETTERGB (118, 238, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	115 {"chartreuse3" , PALETTERGB (102, 205, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	116 {"chartreuse4" , PALETTERGB (69, 139, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	117 {"chocolate" , PALETTERGB (210, 105, 30) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	118 {"chocolate1" , PALETTERGB (255, 127, 36) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	119 {"chocolate2" , PALETTERGB (238, 118, 33) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	120 {"chocolate3" , PALETTERGB (205, 102, 29) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	121 {"chocolate4" , PALETTERGB (139, 69, 19) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	122 {"coral" , PALETTERGB (255, 127, 80) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	123 {"coral1" , PALETTERGB (255, 114, 86) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	124 {"coral2" , PALETTERGB (238, 106, 80) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	125 {"coral3" , PALETTERGB (205, 91, 69) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	126 {"coral4" , PALETTERGB (139, 62, 47) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	127 {"CornflowerBlue" , PALETTERGB (100, 149, 237) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	128 {"cornsilk" , PALETTERGB (255, 248, 220) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	129 {"cornsilk1" , PALETTERGB (255, 248, 220) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	130 {"cornsilk2" , PALETTERGB (238, 232, 205) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	131 {"cornsilk3" , PALETTERGB (205, 200, 177) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	132 {"cornsilk4" , PALETTERGB (139, 136, 120) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	133 {"cyan" , PALETTERGB (0, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	134 {"cyan1" , PALETTERGB (0, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	135 {"cyan2" , PALETTERGB (0, 238, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	136 {"cyan3" , PALETTERGB (0, 205, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	137 {"cyan4" , PALETTERGB (0, 139, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	138 {"DarkBlue" , PALETTERGB (0, 0, 128) }, /* Adjusted == Navy */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	139 {"DarkCyan" , PALETTERGB (0, 128, 128) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	140 {"DarkGoldenrod" , PALETTERGB (184, 134, 11) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	141 {"DarkGoldenrod1" , PALETTERGB (255, 185, 15) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	142 {"DarkGoldenrod2" , PALETTERGB (238, 173, 14) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	143 {"DarkGoldenrod3" , PALETTERGB (205, 149, 12) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	144 {"DarkGoldenrod4" , PALETTERGB (139, 101, 8) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	145 {"DarkGray" , PALETTERGB (169, 169, 169) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	146 {"DarkGreen" , PALETTERGB (0, 128, 0) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	147 {"DarkGrey" , PALETTERGB (169, 169, 169) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	148 {"DarkKhaki" , PALETTERGB (189, 183, 107) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	149 {"DarkMagenta" , PALETTERGB (128, 0, 128) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	150 {"DarkOliveGreen" , PALETTERGB (85, 107, 47) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	151 {"DarkOliveGreen1" , PALETTERGB (202, 255, 112) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	152 {"DarkOliveGreen2" , PALETTERGB (188, 238, 104) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	153 {"DarkOliveGreen3" , PALETTERGB (162, 205, 90) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	154 {"DarkOliveGreen4" , PALETTERGB (110, 139, 61) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	155 {"DarkOrange" , PALETTERGB (255, 140, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	156 {"DarkOrange1" , PALETTERGB (255, 127, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	157 {"DarkOrange2" , PALETTERGB (238, 118, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	158 {"DarkOrange3" , PALETTERGB (205, 102, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	159 {"DarkOrange4" , PALETTERGB (139, 69, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	160 {"DarkOrchid" , PALETTERGB (153, 50, 204) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	161 {"DarkOrchid1" , PALETTERGB (191, 62, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	162 {"DarkOrchid2" , PALETTERGB (178, 58, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	163 {"DarkOrchid3" , PALETTERGB (154, 50, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	164 {"DarkOrchid4" , PALETTERGB (104, 34, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	165 {"DarkRed" , PALETTERGB (128, 0, 0) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	166 {"DarkSalmon" , PALETTERGB (233, 150, 122) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	167 {"DarkSeaGreen" , PALETTERGB (143, 188, 143) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	168 {"DarkSeaGreen1" , PALETTERGB (193, 255, 193) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	169 {"DarkSeaGreen2" , PALETTERGB (180, 238, 180) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	170 {"DarkSeaGreen3" , PALETTERGB (155, 205, 155) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	171 {"DarkSeaGreen4" , PALETTERGB (105, 139, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	172 {"DarkSlateBlue" , PALETTERGB (72, 61, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	173 {"DarkSlateGray" , PALETTERGB (47, 79, 79) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	174 {"DarkSlateGray1" , PALETTERGB (151, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	175 {"DarkSlateGray2" , PALETTERGB (141, 238, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	176 {"DarkSlateGray3" , PALETTERGB (121, 205, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	177 {"DarkSlateGray4" , PALETTERGB (82, 139, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	178 {"DarkSlateGrey" , PALETTERGB (47, 79, 79) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	179 {"DarkTurquoise" , PALETTERGB (0, 206, 209) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	180 {"DarkViolet" , PALETTERGB (148, 0, 211) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	181 {"DarkYellow" , PALETTERGB (128, 128, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	182 {"DeepPink" , PALETTERGB (255, 20, 147) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	183 {"DeepPink1" , PALETTERGB (255, 20, 147) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	184 {"DeepPink2" , PALETTERGB (238, 18, 137) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	185 {"DeepPink3" , PALETTERGB (205, 16, 118) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	186 {"DeepPink4" , PALETTERGB (139, 10, 80) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	187 {"DeepSkyBlue" , PALETTERGB (0, 191, 255) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	188 {"DeepSkyBlue1" , PALETTERGB (0, 191, 255) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	189 {"DeepSkyBlue2" , PALETTERGB (0, 178, 238) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	190 {"DeepSkyBlue3" , PALETTERGB (0, 154, 205) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	191 {"DeepSkyBlue4" , PALETTERGB (0, 104, 139) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	192 {"DimGray" , PALETTERGB (105, 105, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	193 {"DimGrey" , PALETTERGB (105, 105, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	194 {"DodgerBlue" , PALETTERGB (30, 144, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	195 {"DodgerBlue1" , PALETTERGB (30, 144, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	196 {"DodgerBlue2" , PALETTERGB (28, 134, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	197 {"DodgerBlue3" , PALETTERGB (24, 116, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	198 {"DodgerBlue4" , PALETTERGB (16, 78, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	199 {"firebrick" , PALETTERGB (178, 34, 34) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	200 {"firebrick1" , PALETTERGB (255, 48, 48) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	201 {"firebrick2" , PALETTERGB (238, 44, 44) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	202 {"firebrick3" , PALETTERGB (205, 38, 38) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	203 {"firebrick4" , PALETTERGB (139, 26, 26) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	204 {"FloralWhite" , PALETTERGB (255, 250, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	205 {"ForestGreen" , PALETTERGB (34, 139, 34) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	206 {"gainsboro" , PALETTERGB (220, 220, 220) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	207 {"GhostWhite" , PALETTERGB (248, 248, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	208 {"gold" , PALETTERGB (255, 215, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	209 {"gold1" , PALETTERGB (255, 215, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	210 {"gold2" , PALETTERGB (238, 201, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	211 {"gold3" , PALETTERGB (205, 173, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	212 {"gold4" , PALETTERGB (139, 117, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	213 {"goldenrod" , PALETTERGB (218, 165, 32) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	214 {"goldenrod1" , PALETTERGB (255, 193, 37) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	215 {"goldenrod2" , PALETTERGB (238, 180, 34) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	216 {"goldenrod3" , PALETTERGB (205, 155, 29) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	217 {"goldenrod4" , PALETTERGB (139, 105, 20) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	218 {"gray" , PALETTERGB (190, 190, 190) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	219 {"gray0" , PALETTERGB (0, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	220 {"gray1" , PALETTERGB (3, 3, 3) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	221 {"gray10" , PALETTERGB (26, 26, 26) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	222 {"gray100" , PALETTERGB (255, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	223 {"gray11" , PALETTERGB (28, 28, 28) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	224 {"gray12" , PALETTERGB (31, 31, 31) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	225 {"gray13" , PALETTERGB (33, 33, 33) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	226 {"gray14" , PALETTERGB (36, 36, 36) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	227 {"gray15" , PALETTERGB (38, 38, 38) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	228 {"gray16" , PALETTERGB (41, 41, 41) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	229 {"gray17" , PALETTERGB (43, 43, 43) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	230 {"gray18" , PALETTERGB (46, 46, 46) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	231 {"gray19" , PALETTERGB (48, 48, 48) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	232 {"gray2" , PALETTERGB (5, 5, 5) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	233 {"gray20" , PALETTERGB (51, 51, 51) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	234 {"gray21" , PALETTERGB (54, 54, 54) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	235 {"gray22" , PALETTERGB (56, 56, 56) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	236 {"gray23" , PALETTERGB (59, 59, 59) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	237 {"gray24" , PALETTERGB (61, 61, 61) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	238 {"gray25" , PALETTERGB (64, 64, 64) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	239 {"gray26" , PALETTERGB (66, 66, 66) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	240 {"gray27" , PALETTERGB (69, 69, 69) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	241 {"gray28" , PALETTERGB (71, 71, 71) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	242 {"gray29" , PALETTERGB (74, 74, 74) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	243 {"gray3" , PALETTERGB (8, 8, 8) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	244 {"gray30" , PALETTERGB (77, 77, 77) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	245 {"gray31" , PALETTERGB (79, 79, 79) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	246 {"gray32" , PALETTERGB (82, 82, 82) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	247 {"gray33" , PALETTERGB (84, 84, 84) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	248 {"gray34" , PALETTERGB (87, 87, 87) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	249 {"gray35" , PALETTERGB (89, 89, 89) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	250 {"gray36" , PALETTERGB (92, 92, 92) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	251 {"gray37" , PALETTERGB (94, 94, 94) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	252 {"gray38" , PALETTERGB (97, 97, 97) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	253 {"gray39" , PALETTERGB (99, 99, 99) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	254 {"gray4" , PALETTERGB (10, 10, 10) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	255 {"gray40" , PALETTERGB (102, 102, 102) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	256 {"gray41" , PALETTERGB (105, 105, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	257 {"gray42" , PALETTERGB (107, 107, 107) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	258 {"gray43" , PALETTERGB (110, 110, 110) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	259 {"gray44" , PALETTERGB (112, 112, 112) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	260 {"gray45" , PALETTERGB (115, 115, 115) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	261 {"gray46" , PALETTERGB (117, 117, 117) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	262 {"gray47" , PALETTERGB (120, 120, 120) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	263 {"gray48" , PALETTERGB (122, 122, 122) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	264 {"gray49" , PALETTERGB (125, 125, 125) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	265 {"gray5" , PALETTERGB (13, 13, 13) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	266 {"gray50" , PALETTERGB (128, 128, 128) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	267 {"gray51" , PALETTERGB (130, 130, 130) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	268 {"gray52" , PALETTERGB (133, 133, 133) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	269 {"gray53" , PALETTERGB (135, 135, 135) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	270 {"gray54" , PALETTERGB (138, 138, 138) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	271 {"gray55" , PALETTERGB (140, 140, 140) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	272 {"gray56" , PALETTERGB (143, 143, 143) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	273 {"gray57" , PALETTERGB (145, 145, 145) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	274 {"gray58" , PALETTERGB (148, 148, 148) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	275 {"gray59" , PALETTERGB (150, 150, 150) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	276 {"gray6" , PALETTERGB (15, 15, 15) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	277 {"gray60" , PALETTERGB (153, 153, 153) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	278 {"gray61" , PALETTERGB (156, 156, 156) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	279 {"gray62" , PALETTERGB (158, 158, 158) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	280 {"gray63" , PALETTERGB (161, 161, 161) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	281 {"gray64" , PALETTERGB (163, 163, 163) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	282 {"gray65" , PALETTERGB (166, 166, 166) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	283 {"gray66" , PALETTERGB (168, 168, 168) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	284 {"gray67" , PALETTERGB (171, 171, 171) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	285 {"gray68" , PALETTERGB (173, 173, 173) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	286 {"gray69" , PALETTERGB (176, 176, 176) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	287 {"gray7" , PALETTERGB (18, 18, 18) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	288 {"gray70" , PALETTERGB (179, 179, 179) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	289 {"gray71" , PALETTERGB (181, 181, 181) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	290 {"gray72" , PALETTERGB (184, 184, 184) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	291 {"gray73" , PALETTERGB (186, 186, 186) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	292 {"gray74" , PALETTERGB (189, 189, 189) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	293 {"gray75" , PALETTERGB (192, 192, 192) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	294 {"gray76" , PALETTERGB (194, 194, 194) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	295 {"gray77" , PALETTERGB (196, 196, 196) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	296 {"gray78" , PALETTERGB (199, 199, 199) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	297 {"gray79" , PALETTERGB (201, 201, 201) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	298 {"gray8" , PALETTERGB (20, 20, 20) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	299 {"gray80" , PALETTERGB (204, 204, 204) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	300 {"gray81" , PALETTERGB (207, 207, 207) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	301 {"gray82" , PALETTERGB (209, 209, 209) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	302 {"gray83" , PALETTERGB (212, 212, 212) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	303 {"gray84" , PALETTERGB (214, 214, 214) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	304 {"gray85" , PALETTERGB (217, 217, 217) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	305 {"gray86" , PALETTERGB (219, 219, 219) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	306 {"gray87" , PALETTERGB (222, 222, 222) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	307 {"gray88" , PALETTERGB (224, 224, 224) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	308 {"gray89" , PALETTERGB (227, 227, 227) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	309 {"gray9" , PALETTERGB (23, 23, 23) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	310 {"gray90" , PALETTERGB (229, 229, 229) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	311 {"gray91" , PALETTERGB (232, 232, 232) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	312 {"gray92" , PALETTERGB (235, 235, 235) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	313 {"gray93" , PALETTERGB (237, 237, 237) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	314 {"gray94" , PALETTERGB (240, 240, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	315 {"gray95" , PALETTERGB (242, 242, 242) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	316 {"gray96" , PALETTERGB (245, 245, 245) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	317 {"gray97" , PALETTERGB (247, 247, 247) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	318 {"gray98" , PALETTERGB (250, 250, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	319 {"gray99" , PALETTERGB (252, 252, 252) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	320 {"green" , PALETTERGB (0, 255, 0) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	321 {"green1" , PALETTERGB (0, 255, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	322 {"green2" , PALETTERGB (0, 238, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	323 {"green3" , PALETTERGB (0, 205, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	324 {"green4" , PALETTERGB (0, 139, 0) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	325 {"GreenYellow" , PALETTERGB (173, 255, 47) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	326 {"grey" , PALETTERGB (190, 190, 190) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	327 {"grey0" , PALETTERGB (0, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	328 {"grey1" , PALETTERGB (3, 3, 3) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	329 {"grey10" , PALETTERGB (26, 26, 26) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	330 {"grey100" , PALETTERGB (255, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	331 {"grey11" , PALETTERGB (28, 28, 28) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	332 {"grey12" , PALETTERGB (31, 31, 31) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	333 {"grey13" , PALETTERGB (33, 33, 33) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	334 {"grey14" , PALETTERGB (36, 36, 36) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	335 {"grey15" , PALETTERGB (38, 38, 38) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	336 {"grey16" , PALETTERGB (41, 41, 41) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	337 {"grey17" , PALETTERGB (43, 43, 43) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	338 {"grey18" , PALETTERGB (46, 46, 46) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	339 {"grey19" , PALETTERGB (48, 48, 48) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	340 {"grey2" , PALETTERGB (5, 5, 5) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	341 {"grey20" , PALETTERGB (51, 51, 51) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	342 {"grey21" , PALETTERGB (54, 54, 54) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	343 {"grey22" , PALETTERGB (56, 56, 56) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	344 {"grey23" , PALETTERGB (59, 59, 59) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	345 {"grey24" , PALETTERGB (61, 61, 61) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	346 {"grey25" , PALETTERGB (64, 64, 64) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	347 {"grey26" , PALETTERGB (66, 66, 66) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	348 {"grey27" , PALETTERGB (69, 69, 69) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	349 {"grey28" , PALETTERGB (71, 71, 71) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	350 {"grey29" , PALETTERGB (74, 74, 74) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	351 {"grey3" , PALETTERGB (8, 8, 8) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	352 {"grey30" , PALETTERGB (77, 77, 77) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	353 {"grey31" , PALETTERGB (79, 79, 79) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	354 {"grey32" , PALETTERGB (82, 82, 82) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	355 {"grey33" , PALETTERGB (84, 84, 84) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	356 {"grey34" , PALETTERGB (87, 87, 87) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	357 {"grey35" , PALETTERGB (89, 89, 89) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	358 {"grey36" , PALETTERGB (92, 92, 92) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	359 {"grey37" , PALETTERGB (94, 94, 94) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	360 {"grey38" , PALETTERGB (97, 97, 97) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	361 {"grey39" , PALETTERGB (99, 99, 99) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	362 {"grey4" , PALETTERGB (10, 10, 10) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	363 {"grey40" , PALETTERGB (102, 102, 102) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	364 {"grey41" , PALETTERGB (105, 105, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	365 {"grey42" , PALETTERGB (107, 107, 107) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	366 {"grey43" , PALETTERGB (110, 110, 110) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	367 {"grey44" , PALETTERGB (112, 112, 112) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	368 {"grey45" , PALETTERGB (115, 115, 115) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	369 {"grey46" , PALETTERGB (117, 117, 117) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	370 {"grey47" , PALETTERGB (120, 120, 120) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	371 {"grey48" , PALETTERGB (122, 122, 122) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	372 {"grey49" , PALETTERGB (125, 125, 125) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	373 {"grey5" , PALETTERGB (13, 13, 13) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	374 {"grey50" , PALETTERGB (128, 128, 128) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	375 {"grey51" , PALETTERGB (130, 130, 130) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	376 {"grey52" , PALETTERGB (133, 133, 133) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	377 {"grey53" , PALETTERGB (135, 135, 135) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	378 {"grey54" , PALETTERGB (138, 138, 138) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	379 {"grey55" , PALETTERGB (140, 140, 140) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	380 {"grey56" , PALETTERGB (143, 143, 143) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	381 {"grey57" , PALETTERGB (145, 145, 145) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	382 {"grey58" , PALETTERGB (148, 148, 148) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	383 {"grey59" , PALETTERGB (150, 150, 150) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	384 {"grey6" , PALETTERGB (15, 15, 15) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	385 {"grey60" , PALETTERGB (153, 153, 153) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	386 {"grey61" , PALETTERGB (156, 156, 156) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	387 {"grey62" , PALETTERGB (158, 158, 158) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	388 {"grey63" , PALETTERGB (161, 161, 161) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	389 {"grey64" , PALETTERGB (163, 163, 163) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	390 {"grey65" , PALETTERGB (166, 166, 166) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	391 {"grey66" , PALETTERGB (168, 168, 168) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	392 {"grey67" , PALETTERGB (171, 171, 171) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	393 {"grey68" , PALETTERGB (173, 173, 173) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	394 {"grey69" , PALETTERGB (176, 176, 176) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	395 {"grey7" , PALETTERGB (18, 18, 18) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	396 {"grey70" , PALETTERGB (179, 179, 179) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	397 {"grey71" , PALETTERGB (181, 181, 181) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	398 {"grey72" , PALETTERGB (184, 184, 184) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	399 {"grey73" , PALETTERGB (186, 186, 186) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	400 {"grey74" , PALETTERGB (189, 189, 189) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	401 {"grey75" , PALETTERGB (192, 192, 192) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	402 {"grey76" , PALETTERGB (194, 194, 194) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	403 {"grey77" , PALETTERGB (196, 196, 196) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	404 {"grey78" , PALETTERGB (199, 199, 199) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	405 {"grey79" , PALETTERGB (201, 201, 201) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	406 {"grey8" , PALETTERGB (20, 20, 20) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	407 {"grey80" , PALETTERGB (204, 204, 204) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	408 {"grey81" , PALETTERGB (207, 207, 207) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	409 {"grey82" , PALETTERGB (209, 209, 209) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	410 {"grey83" , PALETTERGB (212, 212, 212) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	411 {"grey84" , PALETTERGB (214, 214, 214) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	412 {"grey85" , PALETTERGB (217, 217, 217) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	413 {"grey86" , PALETTERGB (219, 219, 219) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	414 {"grey87" , PALETTERGB (222, 222, 222) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	415 {"grey88" , PALETTERGB (224, 224, 224) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	416 {"grey89" , PALETTERGB (227, 227, 227) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	417 {"grey9" , PALETTERGB (23, 23, 23) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	418 {"grey90" , PALETTERGB (229, 229, 229) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	419 {"grey91" , PALETTERGB (232, 232, 232) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	420 {"grey92" , PALETTERGB (235, 235, 235) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	421 {"grey93" , PALETTERGB (237, 237, 237) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	422 {"grey94" , PALETTERGB (240, 240, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	423 {"grey95" , PALETTERGB (242, 242, 242) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	424 {"grey96" , PALETTERGB (245, 245, 245) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	425 {"grey97" , PALETTERGB (247, 247, 247) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	426 {"grey98" , PALETTERGB (250, 250, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	427 {"grey99" , PALETTERGB (252, 252, 252) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	428 {"honeydew" , PALETTERGB (240, 255, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	429 {"honeydew1" , PALETTERGB (240, 255, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	430 {"honeydew2" , PALETTERGB (224, 238, 224) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	431 {"honeydew3" , PALETTERGB (193, 205, 193) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	432 {"honeydew4" , PALETTERGB (131, 139, 131) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	433 {"HotPink" , PALETTERGB (255, 105, 180) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	434 {"HotPink1" , PALETTERGB (255, 110, 180) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	435 {"HotPink2" , PALETTERGB (238, 106, 167) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	436 {"HotPink3" , PALETTERGB (205, 96, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	437 {"HotPink4" , PALETTERGB (139, 58, 98) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	438 {"IndianRed" , PALETTERGB (205, 92, 92) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	439 {"IndianRed1" , PALETTERGB (255, 106, 106) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	440 {"IndianRed2" , PALETTERGB (238, 99, 99) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	441 {"IndianRed3" , PALETTERGB (205, 85, 85) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	442 {"IndianRed4" , PALETTERGB (139, 58, 58) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	443 {"ivory" , PALETTERGB (255, 255, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	444 {"ivory1" , PALETTERGB (255, 255, 240) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	445 {"ivory2" , PALETTERGB (240, 240, 208) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	446 {"ivory3" , PALETTERGB (205, 205, 193) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	447 {"ivory4" , PALETTERGB (139, 139, 131) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	448 {"khaki" , PALETTERGB (240, 230, 140) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	449 {"khaki1" , PALETTERGB (255, 246, 143) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	450 {"khaki2" , PALETTERGB (238, 230, 133) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	451 {"khaki3" , PALETTERGB (205, 198, 115) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	452 {"khaki4" , PALETTERGB (139, 134, 78) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	453 {"lavender" , PALETTERGB (230, 230, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	454 {"LavenderBlush" , PALETTERGB (255, 240, 245) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	455 {"LavenderBlush1" , PALETTERGB (255, 240, 245) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	456 {"LavenderBlush2" , PALETTERGB (238, 224, 229) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	457 {"LavenderBlush3" , PALETTERGB (205, 193, 197) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	458 {"LavenderBlush4" , PALETTERGB (139, 131, 134) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	459 {"LawnGreen" , PALETTERGB (124, 252, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	460 {"LemonChiffon" , PALETTERGB (255, 250, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	461 {"LemonChiffon1" , PALETTERGB (255, 250, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	462 {"LemonChiffon2" , PALETTERGB (238, 233, 191) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	463 {"LemonChiffon3" , PALETTERGB (205, 201, 165) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	464 {"LemonChiffon4" , PALETTERGB (139, 137, 112) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	465 {"LightBlue" , PALETTERGB (173, 216, 230) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	466 {"LightBlue1" , PALETTERGB (191, 239, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	467 {"LightBlue2" , PALETTERGB (178, 223, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	468 {"LightBlue3" , PALETTERGB (154, 192, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	469 {"LightBlue4" , PALETTERGB (104, 131, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	470 {"LightCoral" , PALETTERGB (240, 128, 128) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	471 {"LightCyan" , PALETTERGB (224, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	472 {"LightCyan1" , PALETTERGB (224, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	473 {"LightCyan2" , PALETTERGB (209, 238, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	474 {"LightCyan3" , PALETTERGB (180, 205, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	475 {"LightCyan4" , PALETTERGB (122, 139, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	476 {"LightGoldenrod" , PALETTERGB (238, 221, 130) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	477 {"LightGoldenrod1" , PALETTERGB (255, 236, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	478 {"LightGoldenrod2" , PALETTERGB (238, 220, 130) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	479 {"LightGoldenrod3" , PALETTERGB (205, 190, 112) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	480 {"LightGoldenrod4" , PALETTERGB (139, 129, 76) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	481 {"LightGoldenrodYellow", PALETTERGB (250, 250, 210) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	482 {"LightGray" , PALETTERGB (211, 211, 211) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	483 {"LightGreen" , PALETTERGB (144, 238, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	484 {"LightGrey" , PALETTERGB (211, 211, 211) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	485 {"LightPink" , PALETTERGB (255, 182, 193) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	486 {"LightPink1" , PALETTERGB (255, 174, 185) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	487 {"LightPink2" , PALETTERGB (238, 162, 173) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	488 {"LightPink3" , PALETTERGB (205, 140, 149) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	489 {"LightPink4" , PALETTERGB (139, 95, 101) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	490 {"LightSalmon" , PALETTERGB (255, 160, 122) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	491 {"LightSalmon1" , PALETTERGB (255, 160, 122) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	492 {"LightSalmon2" , PALETTERGB (238, 149, 114) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	493 {"LightSalmon3" , PALETTERGB (205, 129, 98) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	494 {"LightSalmon4" , PALETTERGB (139, 87, 66) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	495 {"LightSeaGreen" , PALETTERGB (32, 178, 170) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	496 {"LightSkyBlue" , PALETTERGB (135, 206, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	497 {"LightSkyBlue1" , PALETTERGB (176, 226, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	498 {"LightSkyBlue2" , PALETTERGB (164, 211, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	499 {"LightSkyBlue3" , PALETTERGB (141, 182, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	500 {"LightSkyBlue4" , PALETTERGB (96, 123, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	501 {"LightSlateBlue" , PALETTERGB (132, 112, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	502 {"LightSlateGray" , PALETTERGB (119, 136, 153) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	503 {"LightSlateGrey" , PALETTERGB (119, 136, 153) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	504 {"LightSteelBlue" , PALETTERGB (176, 196, 222) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	505 {"LightSteelBlue1" , PALETTERGB (202, 225, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	506 {"LightSteelBlue2" , PALETTERGB (188, 210, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	507 {"LightSteelBlue3" , PALETTERGB (162, 181, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	508 {"LightSteelBlue4" , PALETTERGB (110, 123, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	509 {"LightYellow" , PALETTERGB (255, 255, 224) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	510 {"LightYellow" , PALETTERGB (255, 255, 225) }, /* Adjusted */
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	511 {"LightYellow1" , PALETTERGB (255, 255, 224) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	512 {"LightYellow2" , PALETTERGB (238, 238, 209) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	513 {"LightYellow3" , PALETTERGB (205, 205, 180) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	514 {"LightYellow4" , PALETTERGB (139, 139, 122) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	515 {"LimeGreen" , PALETTERGB (50, 205, 50) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	516 {"linen" , PALETTERGB (250, 240, 230) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	517 {"magenta" , PALETTERGB (255, 0, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	518 {"magenta1" , PALETTERGB (255, 0, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	519 {"magenta2" , PALETTERGB (238, 0, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	520 {"magenta3" , PALETTERGB (205, 0, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	521 {"magenta4" , PALETTERGB (139, 0, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	522 {"maroon" , PALETTERGB (176, 48, 96) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	523 {"maroon1" , PALETTERGB (255, 52, 179) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	524 {"maroon2" , PALETTERGB (238, 48, 167) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	525 {"maroon3" , PALETTERGB (205, 41, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	526 {"maroon4" , PALETTERGB (139, 28, 98) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	527 {"MediumAquamarine" , PALETTERGB (102, 205, 170) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	528 {"MediumBlue" , PALETTERGB (0, 0, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	529 {"MediumOrchid" , PALETTERGB (186, 85, 211) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	530 {"MediumOrchid1" , PALETTERGB (224, 102, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	531 {"MediumOrchid2" , PALETTERGB (209, 95, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	532 {"MediumOrchid3" , PALETTERGB (180, 82, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	533 {"MediumOrchid4" , PALETTERGB (122, 55, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	534 {"MediumPurple" , PALETTERGB (147, 112, 219) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	535 {"MediumPurple1" , PALETTERGB (171, 130, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	536 {"MediumPurple2" , PALETTERGB (159, 121, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	537 {"MediumPurple3" , PALETTERGB (137, 104, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	538 {"MediumPurple4" , PALETTERGB (93, 71, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	539 {"MediumSeaGreen" , PALETTERGB (60, 179, 113) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	540 {"MediumSlateBlue" , PALETTERGB (123, 104, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	541 {"MediumSpringGreen" , PALETTERGB (0, 250, 154) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	542 {"MediumTurquoise" , PALETTERGB (72, 209, 204) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	543 {"MediumVioletRed" , PALETTERGB (199, 21, 133) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	544 {"MidnightBlue" , PALETTERGB (25, 25, 112) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	545 {"MintCream" , PALETTERGB (245, 255, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	546 {"MistyRose" , PALETTERGB (255, 228, 225) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	547 {"MistyRose1" , PALETTERGB (255, 228, 225) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	548 {"MistyRose2" , PALETTERGB (238, 213, 210) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	549 {"MistyRose3" , PALETTERGB (205, 183, 181) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	550 {"MistyRose4" , PALETTERGB (139, 125, 123) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	551 {"moccasin" , PALETTERGB (255, 228, 181) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	552 {"NavajoWhite" , PALETTERGB (255, 222, 173) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	553 {"NavajoWhite1" , PALETTERGB (255, 222, 173) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	554 {"NavajoWhite2" , PALETTERGB (238, 207, 161) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	555 {"NavajoWhite3" , PALETTERGB (205, 179, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	556 {"NavajoWhite4" , PALETTERGB (139, 121, 94) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	557 {"navy" , PALETTERGB (0, 0, 128) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	558 {"NavyBlue" , PALETTERGB (0, 0, 128) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	559 {"OldLace" , PALETTERGB (253, 245, 230) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	560 {"OliveDrab" , PALETTERGB (107, 142, 35) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	561 {"OliveDrab1" , PALETTERGB (192, 255, 62) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	562 {"OliveDrab2" , PALETTERGB (179, 238, 58) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	563 {"OliveDrab3" , PALETTERGB (154, 205, 50) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	564 {"OliveDrab4" , PALETTERGB (105, 139, 34) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	565 {"orange" , PALETTERGB (255, 165, 0) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	566 {"orange1" , PALETTERGB (255, 165, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	567 {"orange2" , PALETTERGB (238, 154, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	568 {"orange3" , PALETTERGB (205, 133, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	569 {"orange4" , PALETTERGB (139, 90, 0) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	570 {"OrangeRed" , PALETTERGB (255, 69, 0) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	571 {"OrangeRed1" , PALETTERGB (255, 69, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	572 {"OrangeRed2" , PALETTERGB (238, 64, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	573 {"OrangeRed3" , PALETTERGB (205, 55, 0) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	574 {"OrangeRed4" , PALETTERGB (139, 37, 0) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	575 {"orchid" , PALETTERGB (218, 112, 214) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	576 {"orchid1" , PALETTERGB (255, 131, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	577 {"orchid2" , PALETTERGB (238, 122, 233) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	578 {"orchid3" , PALETTERGB (205, 105, 201) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	579 {"orchid4" , PALETTERGB (139, 71, 137) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	580 {"PaleGoldenrod" , PALETTERGB (238, 232, 170) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	581 {"PaleGreen" , PALETTERGB (152, 251, 152) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	582 {"PaleGreen1" , PALETTERGB (154, 255, 154) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	583 {"PaleGreen2" , PALETTERGB (144, 238, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	584 {"PaleGreen3" , PALETTERGB (124, 205, 124) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	585 {"PaleGreen4" , PALETTERGB (84, 139, 84) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	586 {"PaleTurquoise" , PALETTERGB (175, 238, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	587 {"PaleTurquoise1" , PALETTERGB (187, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	588 {"PaleTurquoise2" , PALETTERGB (174, 238, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	589 {"PaleTurquoise3" , PALETTERGB (150, 205, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	590 {"PaleTurquoise4" , PALETTERGB (102, 139, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	591 {"PaleVioletRed" , PALETTERGB (219, 112, 147) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	592 {"PaleVioletRed1" , PALETTERGB (255, 130, 171) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	593 {"PaleVioletRed2" , PALETTERGB (238, 121, 159) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	594 {"PaleVioletRed3" , PALETTERGB (205, 104, 137) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	595 {"PaleVioletRed4" , PALETTERGB (139, 71, 93) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	596 {"PaleYellow" , PALETTERGB (255, 255, 128) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	597 {"PapayaWhip" , PALETTERGB (255, 239, 213) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	598 {"PeachPuff" , PALETTERGB (255, 218, 185) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	599 {"PeachPuff1" , PALETTERGB (255, 218, 185) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	600 {"PeachPuff2" , PALETTERGB (238, 203, 173) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	601 {"PeachPuff3" , PALETTERGB (205, 175, 149) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	602 {"PeachPuff4" , PALETTERGB (139, 119, 101) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	603 {"peru" , PALETTERGB (205, 133, 63) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	604 {"pink" , PALETTERGB (255, 192, 203) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	605 {"pink1" , PALETTERGB (255, 181, 197) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	606 {"pink2" , PALETTERGB (238, 169, 184) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	607 {"pink3" , PALETTERGB (205, 145, 158) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	608 {"pink4" , PALETTERGB (139, 99, 108) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	609 {"plum" , PALETTERGB (221, 160, 221) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	610 {"plum1" , PALETTERGB (255, 187, 255) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	611 {"plum2" , PALETTERGB (238, 174, 238) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	612 {"plum3" , PALETTERGB (205, 150, 205) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	613 {"plum4" , PALETTERGB (139, 102, 139) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	614 {"PowderBlue" , PALETTERGB (176, 224, 230) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	615 {"purple" , PALETTERGB (160, 32, 240) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	616 {"purple1" , PALETTERGB (155, 48, 255) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	617 {"purple2" , PALETTERGB (145, 44, 238) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	618 {"purple3" , PALETTERGB (125, 38, 205) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	619 {"purple4" , PALETTERGB (85, 26, 139) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	620 {"red" , PALETTERGB (255, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	621 {"red1" , PALETTERGB (255, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	622 {"red2" , PALETTERGB (238, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	623 {"red3" , PALETTERGB (205, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	624 {"red4" , PALETTERGB (139, 0, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	625 {"RosyBrown" , PALETTERGB (188, 143, 143) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	626 {"RosyBrown1" , PALETTERGB (255, 193, 193) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	627 {"RosyBrown2" , PALETTERGB (238, 180, 180) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	628 {"RosyBrown3" , PALETTERGB (205, 155, 155) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	629 {"RosyBrown4" , PALETTERGB (139, 105, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	630 {"RoyalBlue" , PALETTERGB (65, 105, 225) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	631 {"RoyalBlue1" , PALETTERGB (72, 118, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	632 {"RoyalBlue2" , PALETTERGB (67, 110, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	633 {"RoyalBlue3" , PALETTERGB (58, 95, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	634 {"RoyalBlue4" , PALETTERGB (39, 64, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	635 {"SaddleBrown" , PALETTERGB (139, 69, 19) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	636 {"salmon" , PALETTERGB (250, 128, 114) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	637 {"salmon1" , PALETTERGB (255, 140, 105) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	638 {"salmon2" , PALETTERGB (238, 130, 98) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	639 {"salmon3" , PALETTERGB (205, 112, 84) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	640 {"salmon4" , PALETTERGB (139, 76, 57) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	641 {"SandyBrown" , PALETTERGB (244, 164, 96) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	642 {"SeaGreen" , PALETTERGB (46, 139, 87) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	643 {"SeaGreen1" , PALETTERGB (84, 255, 159) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	644 {"SeaGreen2" , PALETTERGB (78, 238, 148) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	645 {"SeaGreen3" , PALETTERGB (67, 205, 128) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	646 {"SeaGreen4" , PALETTERGB (46, 139, 87) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	647 {"seashell" , PALETTERGB (255, 245, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	648 {"seashell1" , PALETTERGB (255, 245, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	649 {"seashell2" , PALETTERGB (238, 229, 222) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	650 {"seashell3" , PALETTERGB (205, 197, 191) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	651 {"seashell4" , PALETTERGB (139, 134, 130) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	652 {"sienna" , PALETTERGB (160, 82, 45) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	653 {"sienna1" , PALETTERGB (255, 130, 71) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	654 {"sienna2" , PALETTERGB (238, 121, 66) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	655 {"sienna3" , PALETTERGB (205, 104, 57) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	656 {"sienna4" , PALETTERGB (139, 71, 38) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	657 {"SkyBlue" , PALETTERGB (135, 206, 235) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	658 {"SkyBlue1" , PALETTERGB (135, 206, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	659 {"SkyBlue2" , PALETTERGB (126, 192, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	660 {"SkyBlue3" , PALETTERGB (108, 166, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	661 {"SkyBlue4" , PALETTERGB (74, 112, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	662 {"SlateBlue" , PALETTERGB (106, 90, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	663 {"SlateBlue1" , PALETTERGB (131, 111, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	664 {"SlateBlue2" , PALETTERGB (122, 103, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	665 {"SlateBlue3" , PALETTERGB (105, 89, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	666 {"SlateBlue4" , PALETTERGB (71, 60, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	667 {"SlateGray" , PALETTERGB (112, 128, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	668 {"SlateGray1" , PALETTERGB (198, 226, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	669 {"SlateGray2" , PALETTERGB (185, 211, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	670 {"SlateGray3" , PALETTERGB (159, 182, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	671 {"SlateGray4" , PALETTERGB (108, 123, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	672 {"SlateGrey" , PALETTERGB (112, 128, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	673 {"snow" , PALETTERGB (255, 250, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	674 {"snow1" , PALETTERGB (255, 250, 250) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	675 {"snow2" , PALETTERGB (238, 233, 233) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	676 {"snow3" , PALETTERGB (205, 201, 201) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	677 {"snow4" , PALETTERGB (139, 137, 137) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	678 {"SpringGreen" , PALETTERGB (0, 255, 127) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	679 {"SpringGreen1" , PALETTERGB (0, 255, 127) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	680 {"SpringGreen2" , PALETTERGB (0, 238, 118) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	681 {"SpringGreen3" , PALETTERGB (0, 205, 102) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	682 {"SpringGreen4" , PALETTERGB (0, 139, 69) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	683 {"SteelBlue" , PALETTERGB (70, 130, 180) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	684 {"SteelBlue1" , PALETTERGB (99, 184, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	685 {"SteelBlue2" , PALETTERGB (92, 172, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	686 {"SteelBlue3" , PALETTERGB (79, 148, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	687 {"SteelBlue4" , PALETTERGB (54, 100, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	688 {"tan" , PALETTERGB (210, 180, 140) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	689 {"tan1" , PALETTERGB (255, 165, 79) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	690 {"tan2" , PALETTERGB (238, 154, 73) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	691 {"tan3" , PALETTERGB (205, 133, 63) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	692 {"tan4" , PALETTERGB (139, 90, 43) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	693 {"thistle" , PALETTERGB (216, 191, 216) },
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	694 {"thistle1" , PALETTERGB (255, 225, 255) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	695 {"thistle2" , PALETTERGB (238, 210, 238) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	696 {"thistle3" , PALETTERGB (205, 181, 205) },
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	697 {"thistle4" , PALETTERGB (139, 123, 139) },
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	698 {"tomato" , PALETTERGB (255, 99, 71) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	699 {"tomato1" , PALETTERGB (255, 99, 71) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	700 {"tomato2" , PALETTERGB (238, 92, 66) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	701 {"tomato3" , PALETTERGB (205, 79, 57) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	702 {"tomato4" , PALETTERGB (139, 54, 38) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	703 {"turquoise" , PALETTERGB (64, 224, 208) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	704 {"turquoise1" , PALETTERGB (0, 245, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	705 {"turquoise2" , PALETTERGB (0, 229, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	706 {"turquoise3" , PALETTERGB (0, 197, 205) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	707 {"turquoise4" , PALETTERGB (0, 134, 139) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	708 {"violet" , PALETTERGB (238, 130, 238) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	709 {"VioletRed" , PALETTERGB (208, 32, 144) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	710 {"VioletRed1" , PALETTERGB (255, 62, 150) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	711 {"VioletRed2" , PALETTERGB (238, 58, 140) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	712 {"VioletRed3" , PALETTERGB (205, 50, 120) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	713 {"VioletRed4" , PALETTERGB (139, 34, 82) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	714 {"wheat" , PALETTERGB (245, 222, 179) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	715 {"wheat1" , PALETTERGB (255, 231, 186) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	716 {"wheat2" , PALETTERGB (238, 216, 174) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	717 {"wheat3" , PALETTERGB (205, 186, 150) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	718 {"wheat4" , PALETTERGB (139, 126, 102) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	719 {"white" , PALETTERGB (255, 255, 255) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	720 {"WhiteSmoke" , PALETTERGB (245, 245, 245) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	721 {"yellow" , PALETTERGB (255, 255, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	722 {"yellow1" , PALETTERGB (255, 255, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	723 {"yellow2" , PALETTERGB (238, 238, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	724 {"yellow3" , PALETTERGB (205, 205, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	725 {"yellow4" , PALETTERGB (139, 139, 0) },
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	726 {"YellowGreen" , PALETTERGB (154, 205, 50) }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	727 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	728
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	729
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	730 typedef struct fontmap_t
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	731 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	732 const Ascbyte *name;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	733 int value;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	734 } fontmap_t;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	735
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	736 /* Default weight first, preferred names listed before synonyms */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	737 static const fontmap_t fontweight_map[] =
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	738 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	739 {"Regular" , FW_REGULAR}, /* The standard font weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	740 {"Thin" , FW_THIN},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	741 {"Extra Light" , FW_EXTRALIGHT},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	742 {"Ultra Light" , FW_ULTRALIGHT},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	743 {"Light" , FW_LIGHT},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	744 {"Normal" , FW_NORMAL},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	745 {"Medium" , FW_MEDIUM},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	746 {"Semi Bold" , FW_SEMIBOLD},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	747 {"Demi Bold" , FW_DEMIBOLD},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	748 {"Bold" , FW_BOLD}, /* The standard bold font weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	749 {"Extra Bold" , FW_EXTRABOLD},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	750 {"Ultra Bold" , FW_ULTRABOLD},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	751 {"Heavy" , FW_HEAVY},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	752 {"Black" , FW_BLACK}
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	753 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	754
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	755 /* Default charset must be listed first, no synonyms allowed because these
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	756 * names are matched against the names reported by win32 by match_font() */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	757 static const fontmap_t charset_map[] =
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	758 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	759 {"Western" , ANSI_CHARSET}, /* Latin 1 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	760 {"Central European" , EASTEUROPE_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	761 {"Cyrillic" , RUSSIAN_CHARSET},
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	762 {"Greek" , GREEK_CHARSET},
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	763 {"Turkish" , TURKISH_CHARSET},
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	764 {"Hebrew" , HEBREW_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	765 {"Arabic" , ARABIC_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	766 {"Baltic" , BALTIC_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	767 {"Viet Nam" , VIETNAMESE_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	768 {"Thai" , THAI_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	769 {"Japanese" , SHIFTJIS_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	770 {"Korean" , HANGEUL_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	771 {"Simplified Chinese" , GB2312_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	772 {"Traditional Chinese", CHINESEBIG5_CHARSET},
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	773
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	774 {"Symbol" , SYMBOL_CHARSET},
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	775 {"Mac" , MAC_CHARSET},
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	776 {"Korean Johab" , JOHAB_CHARSET},
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	777 {"OEM/DOS" , OEM_CHARSET}
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	778 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	779
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	780 #ifdef MULE
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	781
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	782 typedef struct unicode_subrange_raw_t
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	783 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	784 int subrange_bit;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	785 int start; /* first Unicode codepoint */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	786 int end; /* last Unicode codepoint */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	787 } unicode_subrange_raw_t;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	789 /* This table comes from MSDN, Unicode Subset Bitfields [Platform SDK
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	790 Documentation, Base Services, International Features, Unicode and
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	791 Character Sets, Unicode and Character Set Reference, Unicode and
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	792 Character Set Constants]. We preprocess it at startup time into an
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	793 array of unicode_subrange_t.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	794 */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	795
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	796 static const unicode_subrange_raw_t unicode_subrange_raw_map[] =
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	797 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	798 {0, 0x0020, 0x007e}, /* Basic Latin */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	799 {1, 0x00a0, 0x00ff}, /* Latin-1 Supplement */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	800 {2, 0x0100, 0x017f}, /* Latin Extended-A */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	801 {3, 0x0180, 0x024f}, /* Latin Extended-B */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	802 {4, 0x0250, 0x02af}, /* IPA Extensions */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	803 {5, 0x02b0, 0x02ff}, /* Spacing Modifier Letters */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	804 {6, 0x0300, 0x036f}, /* Combining Diacritical Marks */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	805 {7, 0x0370, 0x03ff}, /* Basic Greek */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	806 /* 8 Reserved */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	807 {9, 0x0400, 0x04ff}, /* Cyrillic */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	808 {10, 0x0530, 0x058f}, /* Armenian */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	809 {11, 0x0590, 0x05ff}, /* Basic Hebrew */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	810 /* 12 Reserved */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	811 {13, 0x0600, 0x06ff}, /* Basic Arabic */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	812 /* 14 Reserved */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	813 {15, 0x0900, 0x097f}, /* Devanagari */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	814 {16, 0x0980, 0x09ff}, /* Bengali */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	815 {17, 0x0a00, 0x0a7f}, /* Gurmukhi */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	816 {18, 0x0a80, 0x0aff}, /* Gujarati */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	817 {19, 0x0b00, 0x0b7f}, /* Oriya */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	818 {20, 0x0b80, 0x0bff}, /* Tamil */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	819 {21, 0x0c00, 0x0c7f}, /* Telugu */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	820 {22, 0x0c80, 0x0cff}, /* Kannada */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	821 {23, 0x0d00, 0x0d7f}, /* Malayalam */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	822 {24, 0x0e00, 0x0e7f}, /* Thai */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	823 {25, 0x0e80, 0x0eff}, /* Lao */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	824 {26, 0x10a0, 0x10ff}, /* Basic Georgian */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	825 /* 27 Reserved */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	826 {28, 0x1100, 0x11ff}, /* Hangul Jamo */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	827 {29, 0x1e00, 0x1eff}, /* Latin Extended Additional */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	828 {30, 0x1f00, 0x1fff}, /* Greek Extended */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	829 {31, 0x2000, 0x206f}, /* General Punctuation */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	830 {32, 0x2070, 0x209f}, /* Subscripts and Superscripts */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	831 {33, 0x20a0, 0x20cf}, /* Currency Symbols */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	832 {34, 0x20d0, 0x20ff}, /* Combining Diacritical Marks for Symbols */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	833 {35, 0x2100, 0x214f}, /* Letter-like Symbols */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	834 {36, 0x2150, 0x218f}, /* Number Forms */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	835 {37, 0x2190, 0x21ff}, /* Arrows */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	836 {38, 0x2200, 0x22ff}, /* Mathematical Operators */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	837 {39, 0x2300, 0x23ff}, /* Miscellaneous Technical */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	838 {40, 0x2400, 0x243f}, /* Control Pictures */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	839 {41, 0x2440, 0x245f}, /* Optical Character Recognition */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	840 {42, 0x2460, 0x24ff}, /* Enclosed Alphanumerics */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	841 {43, 0x2500, 0x257f}, /* Box Drawing */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	842 {44, 0x2580, 0x259f}, /* Block Elements */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	843 {45, 0x25a0, 0x25ff}, /* Geometric Shapes */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	844 {46, 0x2600, 0x26ff}, /* Miscellaneous Symbols */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	845 {47, 0x2700, 0x27bf}, /* Dingbats */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	846 {48, 0x3000, 0x303f}, /* Chinese, Japanese, and Korean (CJK) Symbols and Punctuation */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	847 {49, 0x3040, 0x309f}, /* Hiragana */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	848 {50, 0x30a0, 0x30ff}, /* Katakana */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	849 {51, 0x3100, 0x312f}, /* Bopomofo */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	850 {51, 0x31a0, 0x31bf}, /* Extended Bopomofo */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	851 {52, 0x3130, 0x318f}, /* Hangul Compatibility Jamo */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	852 {53, 0x3190, 0x319f}, /* CJK Miscellaneous */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	853 {54, 0x3200, 0x32ff}, /* Enclosed CJK Letters and Months */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	854 {55, 0x3300, 0x33ff}, /* CJK Compatibility */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	855 {56, 0xac00, 0xd7a3}, /* Hangul */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	856 {57, 0xd800, 0xdfff}, /* Surrogates. Note that setting this bit implies that there is at least one codepoint beyond the Basic Multilingual Plane that is supported by this font. */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	857 /* 58 Reserved */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	858 {59, 0x4e00, 0x9fff}, /* CJK Unified Ideographs */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	859 {59, 0x2e80, 0x2eff}, /* CJK Radicals Supplement */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	860 {59, 0x2f00, 0x2fdf}, /* Kangxi Radicals */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	861 {59, 0x2ff0, 0x2fff}, /* Ideographic Description */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	862 {59, 0x3400, 0x4dbf}, /* CJK Unified Ideograph Extension A */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	863 {60, 0xe000, 0xf8ff}, /* Private Use Area */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	864 {61, 0xf900, 0xfaff}, /* CJK Compatibility Ideographs */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	865 {62, 0xfb00, 0xfb4f}, /* Alphabetic Presentation Forms */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	866 {63, 0xfb50, 0xfdff}, /* Arabic Presentation Forms-A */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	867 {64, 0xfe20, 0xfe2f}, /* Combining Half Marks */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	868 {65, 0xfe30, 0xfe4f}, /* CJK Compatibility Forms */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	869 {66, 0xfe50, 0xfe6f}, /* Small Form Variants */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	870 {67, 0xfe70, 0xfefe}, /* Arabic Presentation Forms-B */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	871 {68, 0xff00, 0xffef}, /* Halfwidth and Fullwidth Forms */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	872 {69, 0xfff0, 0xfffd}, /* Specials */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	873 {70, 0x0f00, 0x0fcf}, /* Tibetan */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	874 {71, 0x0700, 0x074f}, /* Syriac */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	875 {72, 0x0780, 0x07bf}, /* Thaana */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	876 {73, 0x0d80, 0x0dff}, /* Sinhala */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	877 {74, 0x1000, 0x109f}, /* Myanmar */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	878 {75, 0x1200, 0x12bf}, /* Ethiopic */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	879 {76, 0x13a0, 0x13ff}, /* Cherokee */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	880 {77, 0x1400, 0x14df}, /* Canadian Aboriginal Syllabics */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	881 {78, 0x1680, 0x169f}, /* Ogham */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	882 {79, 0x16a0, 0x16ff}, /* Runic */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	883 {80, 0x1780, 0x17ff}, /* Khmer */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	884 {81, 0x1800, 0x18af}, /* Mongolian */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	885 {82, 0x2800, 0x28ff}, /* Braille */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	886 {83, 0xa000, 0xa48c}, /* Yi, Yi Radicals */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	887 /* 84-122 Reserved */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	888 /* 123 Windows 2000/XP: Layout progress: horizontal from right to left */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	889 /* 124 Windows 2000/XP: Layout progress: vertical before horizontal */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	890 /* 125 Windows 2000/XP: Layout progress: vertical bottom to top */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	891 /* 126 Reserved; must be 0 */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	892 /* 127 Reserved; must be 1 */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	893 };
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	894
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	895 typedef struct unicode_subrange_t
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	896 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	897 int no_subranges;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	898 const unicode_subrange_raw_t *subranges;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	899 } unicode_subrange_t;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	900
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	901 unicode_subrange_t *unicode_subrange_table;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	902
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	903 /* Hash table mapping font specs (strings) to font signature data
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	904 (FONTSIGNATURE structures stored in opaques), as determined by
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	905 GetTextCharsetInfo(). I presume this is somewhat expensive because it
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	906 involves creating a font object. At the very least, with no hashing, it
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	907 definitely took awhile (a few seconds) when encountering characters from
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	908 charsets needing stage 2 processing. */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	909 Lisp_Object Vfont_signature_data;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	910
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	911 #endif /* MULE */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	912
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	913
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	914 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	915 /* helpers */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	916 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	917
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	918 static int
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	919 hexval (Ibyte c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	920 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	921 /* assumes ASCII and isxdigit (c) */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	922 if (c >= 'a')
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	923 return c - 'a' + 10;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	924 else if (c >= 'A')
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	925 return c - 'A' + 10;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	926 else
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	927 return c - '0';
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	928 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	929
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	930 static int
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	931 colormap_t_compare (const void a, const void b)
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	932 {
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	933 return ascii_strcasecmp (((colormap_t *)a)->name,
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	934 ((colormap_t *)b)->name);
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	935 }
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	936
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	937 COLORREF
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	938 mswindows_string_to_color (const Ibyte *name)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	939 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	940 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	941
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	942 if (*name == '#')
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	943 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	944 /* numeric names look like "#RRGGBB", "#RRRGGGBBB" or "#RRRRGGGGBBBB"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	945 or "rgb:rrrr/gggg/bbbb" */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	946 unsigned int r, g, b;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	947
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	948 for (i = 1; i < qxestrlen (name); i++)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	949 {
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 800 diff changeset	950 if (!byte_ascii_p (name[i]) \|\| !isxdigit ((int) name[i]))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	951 return (COLORREF) -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	952 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	953 if (qxestrlen (name) == 7)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	954 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	955 r = hexval (name[1]) * 16 + hexval (name[2]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	956 g = hexval (name[3]) * 16 + hexval (name[4]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	957 b = hexval (name[5]) * 16 + hexval (name[6]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	958 return (PALETTERGB (r, g, b));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	959 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	960 else if (qxestrlen (name) == 10)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	961 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	962 r = hexval (name[1]) * 16 + hexval (name[2]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	963 g = hexval (name[4]) * 16 + hexval (name[5]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	964 b = hexval (name[7]) * 16 + hexval (name[8]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	965 return (PALETTERGB (r, g, b));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	966 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	967 else if (qxestrlen (name) == 13)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	968 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	969 r = hexval (name[1]) * 16 + hexval (name[2]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	970 g = hexval (name[5]) * 16 + hexval (name[6]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	971 b = hexval (name[9]) * 16 + hexval (name[10]);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	972 return (PALETTERGB (r, g, b));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	973 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	974 }
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	975 else if (!qxestrncmp_ascii (name, "rgb:", 4))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	976 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	977 unsigned int r, g, b;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	978
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	979 if (sscanf ((CIbyte *) name, "rgb:%04x/%04x/%04x", &r, &g, &b) == 3)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	980 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	981 int len = qxestrlen (name);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	982 if (len == 18)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	983 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	984 r /= 257;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	985 g /= 257;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	986 b /= 257;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	987 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	988 else if (len == 15)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	989 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	990 r /= 17;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	991 g /= 17;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	992 b /= 17;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	993 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	994 return (PALETTERGB (r, g, b));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	995 }
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	996 else
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	997 return (COLORREF) -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	998 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	999 else if (name) / Can't be an empty string */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1000 {
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1001 colormap_t key = { alloca_ascbytes (qxestrlen (name) + 1),
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1002 PALETTERGB (255, 255, 255) }, *res;
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1003 Ascbyte c = (Ascbyte )(key.name);
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1004
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1005 while (*name)
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1006 {
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1007 if (*name != ' ')
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1008 {
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1009 if (!byte_ascii_p (*name))
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1010 {
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1011 return (COLORREF) -1;
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1012 }
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1013
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1014 c++ = name++;
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1015 }
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1016 else
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1017 {
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1018 name++;
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1019 }
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1020 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1021 *c = '\0';
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1022
5256 6c8f5574d4a1 Fix the C++, Visual Studio 2005 builds. Aidan Kehoe <kehoea@parhasard.net> parents: 5218 diff changeset	1023 if ((res = (colormap_t *) bsearch (&key, mswindows_X_color_map,
6c8f5574d4a1 Fix the C++, Visual Studio 2005 builds. Aidan Kehoe <kehoea@parhasard.net> parents: 5218 diff changeset	1024 countof (mswindows_X_color_map),
6c8f5574d4a1 Fix the C++, Visual Studio 2005 builds. Aidan Kehoe <kehoea@parhasard.net> parents: 5218 diff changeset	1025 sizeof (mswindows_X_color_map[0]),
6c8f5574d4a1 Fix the C++, Visual Studio 2005 builds. Aidan Kehoe <kehoea@parhasard.net> parents: 5218 diff changeset	1026 colormap_t_compare)) != NULL)
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1027 {
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1028 return res->colorref;
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	1029 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1030 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1031 return (COLORREF) -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1032 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1033
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1034 Lisp_Object
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1035 mswindows_color_to_string (COLORREF color)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1036 {
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1037 int i;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1038 Ascbyte buf[8];
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1039 COLORREF pcolor = PALETTERGB (GetRValue (color), GetGValue (color),
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1040 GetBValue (color));
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1041
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1042 for (i = 0; i < countof (mswindows_X_color_map); i++)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1043 if (pcolor == (mswindows_X_color_map[i].colorref))
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1044 return build_ascstring (mswindows_X_color_map[i].name);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1045
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1046 sprintf (buf, "#%02X%02X%02X",
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1047 GetRValue (color), GetGValue (color), GetBValue (color));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1048 return build_ascstring (buf);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1049 }
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1050
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1051 /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1052 * Returns non-zero if the two supplied font patterns match.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1053 * If they match and fontname is not NULL, copies the logical OR of the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1054 * patterns to fontname (which is assumed to be at least MSW_FONTSIZE in size).
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1055 *
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1056 * The patterns 'match' iff for each field that is not blank in either pattern,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1057 * the corresponding field in the other pattern is either identical or blank.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1058 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1059 static int
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1060 match_font (Ibyte pattern1, Ibyte pattern2,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1061 Ibyte *fontname)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1062 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1063 Ibyte c1 = pattern1, c2 = pattern2, e1 = 0, e2 = 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1064 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1065
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1066 if (fontname)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1067 fontname[0] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1068
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1069 for (i = 0; i < 5; i++)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1070 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1071 if (c1 && (e1 = qxestrchr (c1, ':')))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1072 *(e1) = '\0';
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1073 if (c2 && (e2 = qxestrchr (c2, ':')))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1074 *(e2) = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1075
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1076 if (c1 && c1[0] != '\0')
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1077 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1078 if (c2 && c2[0] != '\0' && qxestrcasecmp (c1, c2))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1079 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1080 if (e1) *e1 = ':';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1081 if (e2) *e2 = ':';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1082 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1083 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1084 else if (fontname)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1085 qxestrcat_ascii (qxestrcat (fontname, c1), ":");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1086 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1087 else if (fontname)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1088 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1089 if (c2 && c2[0] != '\0')
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1090 qxestrcat_ascii (qxestrcat (fontname, c2), ":");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1091 else
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1092 qxestrcat_ascii (fontname, ":");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1093 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1094
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1095 if (e1) *(e1++) = ':';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1096 if (e2) *(e2++) = ':';
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1097 c1 = e1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1098 c2 = e2;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1099 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1100
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1101 if (fontname)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1102 fontname[qxestrlen (fontname) - 1] = '\0'; /* Trim trailing ':' */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1103 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1104 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1105
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1106
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1107 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1108 /* exports */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1109 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1110
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1111 struct font_enum_t
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1112 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1113 HDC hdc;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1114 Lisp_Object list;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1115 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1116
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1117 static int CALLBACK
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1118 font_enum_callback_2 (ENUMLOGFONTEXW lpelfe, NEWTEXTMETRICEXW lpntme,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1119 int FontType, struct font_enum_t *font_enum)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1120 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1121 Ibyte fontname[MSW_FONTSIZE * 2 * MAX_ICHAR_LEN]; /* should be enough :)*/
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1122 Lisp_Object fontname_lispstr;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1123 int i;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1124 Ibyte *facename;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1125
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1126 /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1127 * The enumerated font weights are not to be trusted because:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1128 * a) lpelfe->elfStyle is only filled in for TrueType fonts.
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1129 * b) Not all Bold and Italic styles of all fonts (including some Vector,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1130 * Truetype and Raster fonts) are enumerated.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1131 * I guess that fonts for which Bold and Italic styles are generated
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1132 * 'on-the-fly' are not enumerated. It would be overly restrictive to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1133 * disallow Bold And Italic weights for these fonts, so we just leave
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1134 * weights unspecified. This means that we have to weed out duplicates of
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1135 * those fonts that do get enumerated with different weights.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1136 */
4981 4aebb0131297 Cleanups/renaming of EXTERNAL_TO_C_STRING and friends Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1137 facename = TSTR_TO_ITEXT (lpelfe->elfLogFont.lfFaceName);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1138 if (itext_ichar (facename) == '@')
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1139 /* This is a font for writing vertically. We ignore it. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1140 return 1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1141
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1142 if (FontType == 0 /vector/ \|\| FontType & TRUETYPE_FONTTYPE)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1143 /* Scalable, so leave pointsize blank */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1144 qxesprintf (fontname, "%s::::", facename);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1145 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1146 /* Formula for pointsize->height from LOGFONT docs in Platform SDK */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1147 qxesprintf (fontname, "%s::%d::", facename,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1148 MulDiv (lpntme->ntmTm.tmHeight -
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1149 lpntme->ntmTm.tmInternalLeading,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1150 72, GetDeviceCaps (font_enum->hdc, LOGPIXELSY)));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1151
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1152 /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1153 * The enumerated font character set strings are not to be trusted because
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1154 * lpelfe->elfScript is returned in the host language and not in English.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1155 * We can't know a priori the translations of "Western", "Central European"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1156 * etc into the host language, so we must use English. The same argument
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1157 * applies to the font weight string when matching fonts.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1158 */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1159 for (i = 0; i < countof (charset_map); i++)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1160 if (lpelfe->elfLogFont.lfCharSet == charset_map[i].value)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1161 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1162 qxestrcat_ascii (fontname, charset_map[i].name);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1163 break;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1164 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1165 if (i == countof (charset_map))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1166 return 1;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1167
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1168 /* Add the font name to the list if not already there */
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	1169 fontname_lispstr = build_istring (fontname);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1170 if (NILP (Fassoc (fontname_lispstr, font_enum->list)))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1171 font_enum->list =
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1172 Fcons (Fcons (fontname_lispstr,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1173 /* TMPF_FIXED_PITCH is backwards from what you expect!
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1174 If set, it means NOT fixed pitch. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1175 (lpntme->ntmTm.tmPitchAndFamily & TMPF_FIXED_PITCH) ?
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1176 Qnil : Qt),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1177 font_enum->list);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1178
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1179 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1180 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1181
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1182 static int CALLBACK
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1183 font_enum_callback_1 (ENUMLOGFONTEXW *lpelfe,
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1184 NEWTEXTMETRICEXW *UNUSED (lpntme),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1185 int UNUSED (FontType), struct font_enum_t *font_enum)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1186 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1187 /* This function gets called once per facename per character set.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1188 * We call a second callback to enumerate the fonts in each facename */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1189 return qxeEnumFontFamiliesEx (font_enum->hdc, &lpelfe->elfLogFont,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1190 (FONTENUMPROCW) font_enum_callback_2,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1191 (LPARAM) font_enum, 0);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1192 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1193
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1194 /* Function for sorting lists of fonts as obtained from
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1195 mswindows_enumerate_fonts(). These come in a known format:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1196 "family::::charset" for TrueType fonts, "family::size::charset"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1197 otherwise. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1198
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1199 static Lisp_Object
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1200 sort_font_list_function (Lisp_Object obj1, Lisp_Object obj2,
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1201 Lisp_Object UNUSED (pred),
2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1202 Lisp_Object UNUSED (key_function))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1203 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1204 Ibyte font1, font2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1205 Ibyte c1, c2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1206 int t1, t2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1207
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1208 /*
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1209 1. fixed over proportional.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1210 2. Western over other charsets.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1211 3. TrueType over non-TrueType.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1212 4. Within non-TrueType, sizes closer to 10pt over sizes farther from 10pt.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1213 5. Courier New over other families.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1214 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1215
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1216 /* The sort function should return non-nil if OBJ1 < OBJ2, nil otherwise.
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1217 NOTE: This is backwards from the way qsort() works. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1218
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1219 t1 = !NILP (XCDR (obj1));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1220 t2 = !NILP (XCDR (obj2));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1221
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1222 if (t1 && !t2)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1223 return Qt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1224 if (t2 && !t1)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1225 return Qnil;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1226
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1227 font1 = XSTRING_DATA (XCAR (obj1));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1228 font2 = XSTRING_DATA (XCAR (obj2));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1229
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1230 c1 = qxestrrchr (font1, ':');
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1231 c2 = qxestrrchr (font2, ':');
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1232
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1233 t1 = !qxestrcasecmp_ascii (c1 + 1, "western");
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1234 t2 = !qxestrcasecmp_ascii (c2 + 1, "western");
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1235
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1236 if (t1 && !t2)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1237 return Qt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1238 if (t2 && !t1)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1239 return Qnil;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1240
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1241 c1 -= 2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1242 c2 -= 2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1243 t1 = *c1 == ':';
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1244 t2 = *c2 == ':';
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1245
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1246 if (t1 && !t2)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1247 return Qt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1248 if (t2 && !t1)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1249 return Qnil;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1250
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1251 if (!t1 && !t2)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1252 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1253 while (isdigit (*c1))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1254 c1--;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1255 while (isdigit (*c2))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1256 c2--;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1257
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1258 t1 = qxeatoi (c1 + 1) - 10;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1259 t2 = qxeatoi (c2 + 1) - 10;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1260
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1261 if (abs (t1) < abs (t2))
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1262 return Qt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1263 else if (abs (t2) < abs (t1))
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1264 return Qnil;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1265 else if (t1 < t2)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1266 /* Prefer a smaller font over a larger one just as far away
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1267 because the smaller one won't upset the total line height if it's
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1268 just a few chars. */
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1269 return Qt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1270 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1271
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1272 t1 = !qxestrncasecmp_ascii (font1, "courier new:", 12);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1273 t2 = !qxestrncasecmp_ascii (font2, "courier new:", 12);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1274
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1275 if (t1 && !t2)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1276 return Qt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1277 if (t2 && !t1)
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1278 return Qnil;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1279
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1280 return Qnil;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1281 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1282
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1283 /*
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1284 * Enumerate the available on the HDC fonts and return a list of string
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1285 * font names.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1286 */
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1287 Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1288 mswindows_enumerate_fonts (HDC hdc)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1289 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1290 /* This cannot GC */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1291 LOGFONTW logfont;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1292 struct font_enum_t font_enum;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1293
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1294 assert (hdc != NULL);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1295 logfont.lfCharSet = DEFAULT_CHARSET;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1296 logfont.lfFaceName[0] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1297 logfont.lfPitchAndFamily = DEFAULT_PITCH;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1298 font_enum.hdc = hdc;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1299 font_enum.list = Qnil;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1300 /* EnumFontFamilies seems to enumerate only one charset per font, which
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1301 is not what we want. We aren't supporting NT 3.5x, so no need to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1302 worry about this not existing. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1303 qxeEnumFontFamiliesEx (hdc, &logfont, (FONTENUMPROCW) font_enum_callback_1,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1304 (LPARAM) (&font_enum), 0);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1305
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1306 return list_sort (font_enum.list, sort_font_list_function, Qnil, Qidentity);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1307 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1308
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1309 static HFONT
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1310 mswindows_create_font_variant (Lisp_Font_Instance *f,
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1311 int under, int strike)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1312 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1313 /* Cannot GC */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1314 LOGFONTW lf;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1315 HFONT hfont;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1316
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1317 assert (FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, under, strike) == NULL);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1318
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1319 if (qxeGetObject (FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1320 sizeof (lf), (void *) &lf) == 0)
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1321 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1322 hfont = MSWINDOWS_BAD_HFONT;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1323 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1324 else
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1325 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1326 lf.lfUnderline = under;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1327 lf.lfStrikeOut = strike;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1328
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1329 hfont = qxeCreateFontIndirect (&lf);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1330 if (hfont == NULL)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1331 hfont = MSWINDOWS_BAD_HFONT;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1332 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1333
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1334 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, under, strike) = hfont;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1335 return hfont;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1336 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1337
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1338 HFONT
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1339 mswindows_get_hfont (Lisp_Font_Instance *f,
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1340 int under, int strike)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1341 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1342 /* Cannot GC */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1343 HFONT hfont = FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, under, strike);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1344
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1345 if (hfont == NULL)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1346 hfont = mswindows_create_font_variant (f, under, strike);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1347
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1348 /* If strikeout/underline variant of the font could not be
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1349 created, then use the base version of the font */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1350 if (hfont == MSWINDOWS_BAD_HFONT)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1351 hfont = FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1352
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1353 assert (hfont != NULL && hfont != MSWINDOWS_BAD_HFONT);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1354
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1355 return hfont;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1356 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1357
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1358 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1359 /* methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1360 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1361
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1362 static int
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1363 mswindows_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1364 Lisp_Object UNUSED (device),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1365 Error_Behavior errb)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1366 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1367 COLORREF color;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1368
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1369 color = mswindows_string_to_color (XSTRING_DATA (name));
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 593 diff changeset	1370 if (color != (COLORREF) -1)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1371 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1372 c->data = xnew (struct mswindows_color_instance_data);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1373 COLOR_INSTANCE_MSWINDOWS_COLOR (c) = color;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1374 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1375 }
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 442 diff changeset	1376 maybe_signal_error (Qinvalid_constant,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1377 "Unrecognized color", name, Qcolor, errb);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1378 return(0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1379 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1380
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1381 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1382 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1383 mswindows_mark_color_instance (Lisp_Color_Instance *c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1384 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1385 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1386 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1387
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1388 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1389 mswindows_print_color_instance (Lisp_Color_Instance *c,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1390 Lisp_Object printcharfun,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1391 int UNUSED (escapeflag))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1392 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1393 COLORREF color = COLOR_INSTANCE_MSWINDOWS_COLOR (c);
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1394 write_fmt_string (printcharfun,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1395 " %06ld=(%04X,%04X,%04X)", color & 0xffffff,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1396 GetRValue (color) * 257, GetGValue (color) * 257,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1397 GetBValue (color) * 257);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1398 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1399
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1400 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1401 mswindows_finalize_color_instance (Lisp_Color_Instance *c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1402 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1403 if (c->data)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1404 {
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1405 xfree (c->data);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1406 c->data = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1407 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1408 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1409
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1410 static int
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1411 mswindows_color_instance_equal (Lisp_Color_Instance *c1,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1412 Lisp_Color_Instance *c2,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1413 int UNUSED (depth))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1414 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1415 return (COLOR_INSTANCE_MSWINDOWS_COLOR (c1) ==
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1416 COLOR_INSTANCE_MSWINDOWS_COLOR (c2));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1417 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1418
2515 de9952d2ed18 [xemacs-hg @ 2005-01-26 10:22:19 by ben] ben parents: 2500 diff changeset	1419 static Hashcode
5192 635f4b506855 Call internal_hash() with its new arg, Win32-specific code, fixing build Aidan Kehoe <kehoea@parhasard.net> parents: 5191 diff changeset	1420 mswindows_color_instance_hash (Lisp_Color_Instance *c, int UNUSED (depth))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1421 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1422 return (unsigned long) COLOR_INSTANCE_MSWINDOWS_COLOR (c);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1423 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1424
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1425 static Lisp_Object
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1426 mswindows_color_instance_rgb_components (Lisp_Color_Instance *c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1427 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1428 COLORREF color = COLOR_INSTANCE_MSWINDOWS_COLOR (c);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1429 return list3 (make_int (GetRValue (color) * 257),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1430 make_int (GetGValue (color) * 257),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1431 make_int (GetBValue (color) * 257));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1432 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1433
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1434 static int
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1435 mswindows_valid_color_name_p (struct device *UNUSED (d), Lisp_Object color)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1436 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1437 return (mswindows_string_to_color (XSTRING_DATA (color)) != (COLORREF) -1);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1438 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1439
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1440
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1441
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1442 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1443 mswindows_finalize_font_instance (Lisp_Font_Instance *f);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1444
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1445 /* Parse the font spec in NAMESTR. Maybe issue errors, according to ERRB;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1446 NAME_FOR_ERRORS is the Lisp string to use when issuing errors. Store
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1447 the five parts of the font spec into the given strings, which should be
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1448 declared as
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1449
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1450 Ibyte fontname[LF_FACESIZE], weight[LF_FACESIZE], points[8];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1451 Ibyte effects[LF_FACESIZE], charset[LF_FACESIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1452
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1453 If LOGFONT is given, store the necessary information in LOGFONT to
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1454 create a font object. If LOGFONT is given, HDC must also be given;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1455 else, NULL can be given for both.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1456
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1457 Return 1 if ok, 0 if error.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1458 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1459 static int
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1460 parse_font_spec (const Ibyte *namestr,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1461 HDC hdc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1462 Lisp_Object name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1463 Error_Behavior errb,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1464 LOGFONTW *logfont,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1465 Ibyte *fontname,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1466 Ibyte *weight,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1467 Ibyte *points,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1468 Ibyte *effects,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1469 Ibyte *charset)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1470 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1471 int fields, i;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1472 int pt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1473 Ibyte *style;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1474 Ibyte *c;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1475
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1476 /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1477 * mswindows fonts look like:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1478 * fontname[:[weight ][style][:pointsize[:effects]]][:charset]
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1479 * The font name field shouldn't be empty.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1480 *
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1481 * ie:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1482 * Lucida Console:Regular:10
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1483 * minimal:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1484 * Courier New
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1485 * maximal:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1486 * Courier New:Bold Italic:10:underline strikeout:western
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1487 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1488
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1489 fontname[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1490 weight[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1491 points[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1492 effects[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1493 charset[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1494
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1495 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1496 xzero (*logfont);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1497
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1498 fields = sscanf ((CIbyte *) namestr, "%31[^:]:%31[^:]:%7[^:]:%31[^:]:%31s",
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1499 fontname, weight, points, effects, charset);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1500
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1501 /* This function is implemented in a fairly ad-hoc manner.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1502 * The general idea is to validate and canonicalize each of the above fields
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1503 * at the same time as we build up the win32 LOGFONT structure. This enables
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1504 * us to use match_font() on a canonicalized font string to check the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1505 * availability of the requested font */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1506
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1507 if (fields < 0)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1508 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1509 maybe_signal_error (Qinvalid_argument, "Invalid font", name_for_errors,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1510 Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1511 return 0;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1512 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1513
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1514 if (fields > 0 && qxestrlen (fontname))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1515 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1516 Extbyte *extfontname;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1517
4981 4aebb0131297 Cleanups/renaming of EXTERNAL_TO_C_STRING and friends Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1518 extfontname = ITEXT_TO_TSTR (fontname);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1519 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1520 {
2421 ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	1521 qxetcsncpy ((Extbyte *) logfont->lfFaceName, extfontname,
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1522 LF_FACESIZE - 1);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1523 logfont->lfFaceName[LF_FACESIZE - 1] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1524 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1525 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1526
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1527 /* weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1528 if (fields < 2)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1529 qxestrcpy_ascii (weight, fontweight_map[0].name);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1530
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1531 /* Maybe split weight into weight and style */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1532 if ((c = qxestrchr (weight, ' ')))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1533 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1534 *c = '\0';
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1535 style = c + 1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1536 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1537 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1538 style = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1539
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1540 for (i = 0; i < countof (fontweight_map); i++)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1541 if (!qxestrcasecmp_ascii (weight, fontweight_map[i].name))
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1542 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1543 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1544 logfont->lfWeight = fontweight_map[i].value;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1545 break;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1546 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1547 if (i == countof (fontweight_map)) /* No matching weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1548 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1549 if (!style)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1550 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1551 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1552 logfont->lfWeight = FW_REGULAR;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1553 style = weight; /* May have specified style without weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1554 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1555 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1556 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1557 maybe_signal_error (Qinvalid_constant, "Invalid font weight",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1558 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1559 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1560 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1561 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1562
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1563 if (style)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1564 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1565 /* #### what about oblique? */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1566 if (qxestrcasecmp_ascii (style, "italic") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1567 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1568 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1569 logfont->lfItalic = TRUE;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1570 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1571 else
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1572 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1573 maybe_signal_error (Qinvalid_constant,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1574 "Invalid font weight or style",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1575 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1576 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1577 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1578
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1579 /* Glue weight and style together again */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1580 if (weight != style)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1581 *c = ' ';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1582 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1583 else if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1584 logfont->lfItalic = FALSE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1585
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1586 if (fields < 3 \|\| !qxestrcmp_ascii (points, ""))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1587 ;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1588 else if (points[0] == '0' \|\|
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1589 qxestrspn (points, "0123456789") < qxestrlen (points))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1590 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1591 maybe_signal_error (Qinvalid_argument, "Invalid font pointsize",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1592 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1593 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1594 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1595 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1596 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1597 pt = qxeatoi (points);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1598
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1599 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1600 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1601 /* Formula for pointsize->height from LOGFONT docs in MSVC5 Platform
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1602 SDK */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1603 logfont->lfHeight = -MulDiv (pt, GetDeviceCaps (hdc, LOGPIXELSY),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1604 72);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1605 logfont->lfWidth = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1606 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1607 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1608
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1609 /* Effects */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1610 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1611 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1612 logfont->lfUnderline = FALSE;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1613 logfont->lfStrikeOut = FALSE;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1614 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1615
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1616 if (fields >= 4 && effects[0] != '\0')
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1617 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1618 Ibyte *effects2;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1619 int underline = FALSE, strikeout = FALSE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1620
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1621 /* Maybe split effects into effects and effects2 */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1622 if ((c = qxestrchr (effects, ' ')))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1623 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1624 *c = '\0';
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1625 effects2 = c + 1;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1626 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1627 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1628 effects2 = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1629
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1630 if (qxestrcasecmp_ascii (effects, "underline") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1631 underline = TRUE;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1632 else if (qxestrcasecmp_ascii (effects, "strikeout") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1633 strikeout = TRUE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1634 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1635 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1636 maybe_signal_error (Qinvalid_constant, "Invalid font effect",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1637 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1638 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1639 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1640
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1641 if (effects2 && effects2[0] != '\0')
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1642 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1643 if (qxestrcasecmp_ascii (effects2, "underline") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1644 underline = TRUE;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1645 else if (qxestrcasecmp_ascii (effects2, "strikeout") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1646 strikeout = TRUE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1647 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1648 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1649 maybe_signal_error (Qinvalid_constant, "Invalid font effect",
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1650 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1651 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1652 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1653 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1654
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1655 /* Regenerate sanitized effects string */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1656 if (underline)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1657 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1658 if (strikeout)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1659 qxestrcpy_ascii (effects, "underline strikeout");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1660 else
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1661 qxestrcpy_ascii (effects, "underline");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1662 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1663 else if (strikeout)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1664 qxestrcpy_ascii (effects, "strikeout");
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1665
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1666 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1667 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1668 logfont->lfUnderline = underline;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1669 logfont->lfStrikeOut = strikeout;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1670 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1671 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1672
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1673 /* Charset */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1674 /* charset can be specified even if earlier fields haven't been */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1675 if (fields < 5)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1676 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1677 if ((c = qxestrchr (namestr, ':')) && (c = qxestrchr (c + 1, ':')) &&
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1678 (c = qxestrchr (c + 1, ':')) && (c = qxestrchr (c + 1, ':')))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1679 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1680 qxestrncpy (charset, c + 1, LF_FACESIZE);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1681 charset[LF_FACESIZE - 1] = '\0';
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1682 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1683 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1684
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1685 /* NOTE: If you give a blank charset spec, we will normally not get here
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1686 under Mule unless we explicitly call `make-font-instance'! This is
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1687 because the C code instantiates fonts using particular charsets, by
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1688 way of specifier_matching_instance(). Before instantiating the font,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1689 font_instantiate() calls the devmeth find_matching_font(), which gets
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1690 a truename font spec with the registry (i.e. the charset spec) filled
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1691 in appropriately to the charset. */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1692 if (!qxestrcmp_ascii (charset, ""))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1693 ;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1694 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1695 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1696 for (i = 0; i < countof (charset_map); i++)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1697 if (!qxestrcasecmp_ascii (charset, charset_map[i].name))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1698 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1699 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1700 logfont->lfCharSet = charset_map[i].value;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1701 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1702 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1703
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1704 if (i == countof (charset_map)) /* No matching charset */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1705 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1706 maybe_signal_error (Qinvalid_argument, "Invalid charset",
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1707 name_for_errors, Qfont, errb);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1708 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1709 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1710 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1711
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1712 if (logfont)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1713 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1714 /* Misc crud */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1715 #if 1
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1716 logfont->lfOutPrecision = OUT_DEFAULT_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1717 logfont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1718 logfont->lfQuality = DEFAULT_QUALITY;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1719 #else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1720 logfont->lfOutPrecision = OUT_STROKE_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1721 logfont->lfClipPrecision = CLIP_STROKE_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1722 logfont->lfQuality = PROOF_QUALITY;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1723 #endif
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1724 /* Default to monospaced if the specified fontname doesn't exist. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1725 logfont->lfPitchAndFamily = FF_MODERN;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1726 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1727
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1728 return 1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1729 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1730
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1731 /*
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1732 mswindows fonts look like:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1733 [fontname[:style[:pointsize[:effects]]]][:charset]
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1734 A maximal mswindows font spec looks like:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1735 Courier New:Bold Italic:10:underline strikeout:Western
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1736
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1737 A missing weight/style field is the same as Regular, and a missing
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1738 effects field is left alone, and means no effects; but a missing
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1739 fontname, pointsize or charset field means any will do. We prefer
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1740 Courier New, 10, Western. See sort function above. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1741
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1742 static HFONT
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1743 create_hfont_from_font_spec (const Ibyte *namestr,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1744 HDC hdc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1745 Lisp_Object name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1746 Lisp_Object device_font_list,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1747 Error_Behavior errb,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1748 Lisp_Object *truename_ret)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1749 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1750 LOGFONTW logfont;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1751 HFONT hfont;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1752 Ibyte fontname[LF_FACESIZE], weight[LF_FACESIZE], points[8];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1753 Ibyte effects[LF_FACESIZE], charset[LF_FACESIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1754 Ibyte truename[MSW_FONTSIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1755 Ibyte truername[MSW_FONTSIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1756
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1757 /* Windows will silently substitute a default font if the fontname
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1758 specifies a non-existent font. This is bad for screen fonts because
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1759 it doesn't allow higher-level code to see the error and to act
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1760 appropriately. For instance complex_vars_of_faces() sets up a
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1761 fallback list of fonts for the default face. Instead, we look at all
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1762 the possibilities and pick one that works, handling missing pointsize
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1763 and charset fields appropriately.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1764
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1765 For printer fonts, we used to go ahead and let Windows choose the
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1766 font, and for those devices, then, DEVICE_FONT_LIST would be nil.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1767 However, this causes problems with the font-matching code below, which
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1768 needs a list of fonts so it can pick the right one for Mule.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1769
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1770 Thus, the code below to handle a nil DEVICE_FONT_LIST is not currently
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1771 used. */
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1772
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1773 if (!NILP (device_font_list))
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1774 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1775 Lisp_Object fonttail = Qnil;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1776
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1777 if (!parse_font_spec (namestr, 0, name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1778 errb, 0, fontname, weight, points,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1779 effects, charset))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1780 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1781
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1782 /* The fonts in the device font list always specify fontname and
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1783 charset, but often times not the size; so if we don't have the
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1784 size specified either, do a round with size 10 so we'll always end
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1785 up with a size in the truename (if we fail this one but succeed
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1786 the next one, we'll have chosen a non-TrueType font, and in those
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1787 cases the size is specified in the font list item. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1788
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1789 if (!points[0])
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1790 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1791 qxesprintf (truename, "%s:%s:10:%s:%s",
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1792 fontname, weight, effects, charset);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1793
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1794 LIST_LOOP (fonttail, device_font_list)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1795 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1796 if (match_font (XSTRING_DATA (XCAR (XCAR (fonttail))),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1797 truename, truername))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1798 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1799 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1800 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1801
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1802 if (NILP (fonttail))
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1803 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1804 qxesprintf (truename, "%s:%s:%s:%s:%s",
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1805 fontname, weight, points, effects, charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1806
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1807 LIST_LOOP (fonttail, device_font_list)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1808 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1809 if (match_font (XSTRING_DATA (XCAR (XCAR (fonttail))),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1810 truename, truername))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1811 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1812 }
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1813 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1814
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1815 if (NILP (fonttail))
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1816 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1817 maybe_signal_error (Qinvalid_argument, "No matching font",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1818 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1819 return 0;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1820 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1821
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1822 if (!parse_font_spec (truername, hdc, name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1823 ERROR_ME_DEBUG_WARN, &logfont, fontname, weight,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1824 points, effects, charset))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1825 signal_error (Qinternal_error, "Bad value in device font list?",
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	1826 build_istring (truername));
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1827 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1828 else if (!parse_font_spec (namestr, hdc, name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1829 errb, &logfont, fontname, weight, points,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1830 effects, charset))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1831 return 0;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1832
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1833 if ((hfont = qxeCreateFontIndirect (&logfont)) == NULL)
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1834 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1835 maybe_signal_error (Qgui_error, "Couldn't create font",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1836 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1837 return 0;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1838 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1839
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1840 /* #### Truename will not have all its fields filled in when we have no
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1841 list of fonts. Doesn't really matter now, since we always have one.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1842 See above. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1843 qxesprintf (truename, "%s:%s:%s:%s:%s", fontname, weight,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1844 points, effects, charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1845
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	1846 *truename_ret = build_istring (truename);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1847 return hfont;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1848 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1849
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1850 /*
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1851 * This is a work horse for both mswindows_initialize_font_instance and
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1852 * msprinter_initialize_font_instance.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1853 */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1854 static int
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1855 initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1856 Lisp_Object device_font_list, HDC hdc,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1857 Error_Behavior errb)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1858 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1859 HFONT hfont, hfont2;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1860 TEXTMETRICW metrics;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1861 Ibyte *namestr = XSTRING_DATA (name);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1862 Lisp_Object truename;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1863
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1864 hfont = create_hfont_from_font_spec (namestr, hdc, name, device_font_list,
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1865 errb, &truename);
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4579 diff changeset	1866 if (!hfont)
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4579 diff changeset	1867 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1868 f->truename = truename;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1869 f->data = xnew_and_zero (struct mswindows_font_instance_data);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1870 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0) = hfont;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1871
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1872 /* Some underlined fonts have the descent of one pixel more than their
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1873 non-underlined counterparts. Font variants though are assumed to have
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1874 identical metrics. So get the font metrics from the underlined variant
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1875 of the font */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1876 hfont2 = mswindows_create_font_variant (f, 1, 0);
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1877 if (hfont2 != MSWINDOWS_BAD_HFONT)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1878 hfont = hfont2;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1879
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1880 hfont2 = (HFONT) SelectObject (hdc, hfont);
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1881 if (!hfont2)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1882 {
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1883 mswindows_finalize_font_instance (f);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 442 diff changeset	1884 maybe_signal_error (Qgui_error, "Couldn't map font", name, Qfont, errb);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1885 return 0;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1886 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1887 qxeGetTextMetrics (hdc, &metrics);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1888 SelectObject (hdc, hfont2);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1889
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1890 f->width = (unsigned short) metrics.tmAveCharWidth;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1891 f->height = (unsigned short) metrics.tmHeight;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1892 f->ascent = (unsigned short) metrics.tmAscent;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1893 f->descent = (unsigned short) metrics.tmDescent;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1894 f->proportional_p = (metrics.tmPitchAndFamily & TMPF_FIXED_PITCH);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1895
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1896 return 1;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1897 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1898
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1899 static int
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1900 mswindows_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 563 diff changeset	1901 Lisp_Object device, Error_Behavior errb)
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1902 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1903 HDC hdc = CreateCompatibleDC (NULL);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1904 Lisp_Object font_list = DEVICE_MSWINDOWS_FONTLIST (XDEVICE (device));
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1905 int res = initialize_font_instance (f, name, font_list, hdc, errb);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1906 DeleteDC (hdc);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1907 return res;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1908 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1909
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1910 static int
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1911 msprinter_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 563 diff changeset	1912 Lisp_Object device, Error_Behavior errb)
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1913 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1914 HDC hdc = DEVICE_MSPRINTER_HDC (XDEVICE (device));
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1915 Lisp_Object font_list = DEVICE_MSPRINTER_FONTLIST (XDEVICE (device));
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1916 return initialize_font_instance (f, name, font_list, hdc, errb);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1917 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1918
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1919 static void
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1920 mswindows_finalize_font_instance (Lisp_Font_Instance *f)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1921 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1922 int i;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1923
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1924 if (f->data)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1925 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1926 for (i = 0; i < MSWINDOWS_NUM_FONT_VARIANTS; i++)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1927 {
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1928 if (FONT_INSTANCE_MSWINDOWS_HFONT_I (f, i) != NULL
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1929 && FONT_INSTANCE_MSWINDOWS_HFONT_I (f, i) != MSWINDOWS_BAD_HFONT)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1930 DeleteObject (FONT_INSTANCE_MSWINDOWS_HFONT_I (f, i));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1931 }
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1932
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1933 xfree (f->data);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1934 f->data = 0;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1935 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1936 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1937
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1938 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1939 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1940 mswindows_mark_font_instance (Lisp_Font_Instance *f)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1941 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1942 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1943 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1944
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1945 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1946 mswindows_print_font_instance (Lisp_Font_Instance *f,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1947 Lisp_Object printcharfun,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1948 int UNUSED (escapeflag))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1949 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1950 write_fmt_string (printcharfun, " 0x%lx",
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1951 (unsigned long)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1952 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0));
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1953
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1954 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1955
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1956 static Lisp_Object
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	1957 mswindows_font_list (Lisp_Object pattern, Lisp_Object device,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1958 Lisp_Object UNUSED (maxnumber))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1959 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1960 struct device *d = XDEVICE (device);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1961 Lisp_Object font_list = Qnil, fonttail, result = Qnil;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1962
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1963 if (DEVICE_MSWINDOWS_P (d))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1964 font_list = DEVICE_MSWINDOWS_FONTLIST (d);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1965 else if (DEVICE_MSPRINTER_P (d))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1966 font_list = DEVICE_MSPRINTER_FONTLIST (d);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1967 else
2500 3d8143fc88e1 [xemacs-hg @ 2005-01-24 23:33:30 by ben] ben parents: 2421 diff changeset	1968 ABORT ();
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1969
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1970 LIST_LOOP (fonttail, font_list)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1971 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1972 Ibyte fontname[MSW_FONTSIZE];
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1973
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1974 if (match_font (XSTRING_DATA (XCAR (XCAR (fonttail))),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1975 XSTRING_DATA (pattern),
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1976 fontname))
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	1977 result = Fcons (build_istring (fontname), result);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1978 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1979
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1980 return Fnreverse (result);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1981 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1982
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1983 static Lisp_Object
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1984 mswindows_font_instance_truename (Lisp_Font_Instance *f,
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1985 Error_Behavior UNUSED (errb))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1986 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1987 return f->truename;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1988 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1989
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1990 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1991
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1992 static int
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1993 mswindows_font_spec_matches_charset_stage_1 (struct device *UNUSED (d),
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1994 Lisp_Object charset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1995 const Ibyte *nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1996 Lisp_Object reloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1997 Bytecount offset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1998 Bytecount length)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1999 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2000 int i;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2001 Lisp_Object charset_registry;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2002 const Ibyte *font_charset;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	2003 const Ibyte *the_nonreloc = nonreloc;
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	2004 const Ibyte *c;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2005 Bytecount the_length = length;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2006
4353 4143b78d0df0 Merge an old patch of Ben's, involving font instantiation and charsets. Aidan Kehoe <kehoea@parhasard.net> parents: 3662 diff changeset	2007 if (NILP (charset))
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2008 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2009
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2010 if (!the_nonreloc)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2011 the_nonreloc = XSTRING_DATA (reloc);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2012 fixup_internal_substring (nonreloc, reloc, offset, &the_length);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2013 the_nonreloc += offset;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2014
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2015 c = the_nonreloc;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2016 for (i = 0; i < 4; i++)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2017 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	2018 Ibyte newc = (Ibyte ) memchr (c, ':', the_length);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2019 if (!newc)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2020 break;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2021 newc++;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2022 the_length -= (newc - c);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2023 c = newc;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2024 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2025
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2026 if (i < 4)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2027 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2028
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2029 font_charset = c;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2030
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2031 /* For border-glyph use */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	2032 if (!qxestrcasecmp_ascii (font_charset, "symbol"))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2033 font_charset = (const Ibyte *) "western";
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2034
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2035 /* Get code page for the charset */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2036 charset_registry = Fmswindows_charset_registry (charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2037 if (!STRINGP (charset_registry))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2038 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2039
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2040 return !qxestrcasecmp (XSTRING_DATA (charset_registry), font_charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2041 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2042
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2043 /*
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2044
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	2045 #### The following comment is old and probably not applicable any longer.
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	2046
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2047 1. handle standard mapping and inheritance vectors properly in Face-frob-property.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2048 2. finish impl of mswindows-charset-registry.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2049 3. see if everything works under fixup, now that i copied the stuff over.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2050 4. consider generalizing Face-frob-property to frob-specifier.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2051 5. maybe extract some of the flets out of Face-frob-property as useful specifier frobbing.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2052 6. eventually this stuff's got to be checked in!!!!
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2053 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2054
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2055 static int
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2056 mswindows_font_spec_matches_charset_stage_2 (struct device *d,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2057 Lisp_Object charset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2058 const Ibyte *nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2059 Lisp_Object reloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2060 Bytecount offset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2061 Bytecount length)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2062 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2063 const Ibyte *the_nonreloc = nonreloc;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2064 FONTSIGNATURE fs;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2065 FONTSIGNATURE *fsp = &fs;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2066 struct gcpro gcpro1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2067 Lisp_Object fontsig;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2068 Bytecount the_length = length;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2069 int i;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2070
4353 4143b78d0df0 Merge an old patch of Ben's, involving font instantiation and charsets. Aidan Kehoe <kehoea@parhasard.net> parents: 3662 diff changeset	2071 if (NILP (charset))
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2072 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2073
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2074 if (!the_nonreloc)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2075 the_nonreloc = XSTRING_DATA (reloc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2076 fixup_internal_substring (nonreloc, reloc, offset, &the_length);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2077 the_nonreloc += offset;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2078
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2079 /* Get the list of Unicode subranges corresponding to the font. This
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2080 is contained inside of FONTSIGNATURE data, obtained by calling
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2081 GetTextCharsetInfo on a font object, which we need to create from the
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2082 spec. See if the FONTSIGNATURE data is already cached. If not, get
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2083 it and cache it. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2084 if (!STRINGP (reloc) \|\| the_nonreloc != XSTRING_DATA (reloc))
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	2085 reloc = build_istring (the_nonreloc);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2086 GCPRO1 (reloc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2087 fontsig = Fgethash (reloc, Vfont_signature_data, Qunbound);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2088
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2089 if (!UNBOUNDP (fontsig))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2090 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2091 fsp = (FONTSIGNATURE *) XOPAQUE_DATA (fontsig);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2092 UNGCPRO;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2093 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2094 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2095 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2096 HDC hdc = CreateCompatibleDC (NULL);
4579 68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2097 Lisp_Object font_list = Qnil, truename;
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2098 HFONT hfont;
4579 68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2099
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2100 if (DEVICE_TYPE_P (d, mswindows))
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2101 {
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2102 font_list = DEVICE_MSWINDOWS_FONTLIST (d);
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2103 }
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2104 else if (DEVICE_TYPE_P (d, msprinter))
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2105 {
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2106 font_list = DEVICE_MSPRINTER_FONTLIST (d);
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2107 }
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2108 else
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2109 {
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2110 assert(0);
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2111 }
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2112
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2113 hfont = create_hfont_from_font_spec (the_nonreloc, hdc, Qnil,
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2114 font_list,
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2115 ERROR_ME_DEBUG_WARN,
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2116 &truename);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2117
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2118 if (!hfont \|\| !(hfont = (HFONT) SelectObject (hdc, hfont)))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2119 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2120 nope:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2121 DeleteDC (hdc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2122 UNGCPRO;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2123 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2124 }
5024 7e57c0575a15 merge Ben Wing <ben@xemacs.org> parents: 5016 5009 diff changeset	2125
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2126 if (GetTextCharsetInfo (hdc, &fs, 0) == DEFAULT_CHARSET)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2127 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2128 SelectObject (hdc, hfont);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2129 goto nope;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2130 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2131 SelectObject (hdc, hfont);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2132 DeleteDC (hdc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2133 Fputhash (reloc, make_opaque (&fs, sizeof (fs)), Vfont_signature_data);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2134 UNGCPRO;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2135 }
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2136
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2137 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2138 int lowlim, highlim;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2139 int dim, j, cp = -1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2140
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2141 /* Try to find a Unicode char in the charset. #### This is somewhat
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2142 bogus. See below.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2143
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2144 #### Cache me baby!!!!!!!!!!!!!
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2145 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2146 get_charset_limits (charset, &lowlim, &highlim);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2147 dim = XCHARSET_DIMENSION (charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2148
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2149 if (dim == 1)
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2150 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2151 for (i = lowlim; i <= highlim; i++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2152 if ((cp = ichar_to_unicode (make_ichar (charset, i, 0))) >= 0)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2153 break;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2154 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2155 else
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2156 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2157 for (i = lowlim; i <= highlim; i++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2158 for (j = lowlim; j <= highlim; j++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2159 if ((cp = ichar_to_unicode (make_ichar (charset, i, j))) >= 0)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2160 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2161 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2162
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2163 if (cp < 0)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2164 return 0;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2165
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2166 /* Check to see, for each subrange supported by the font,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2167 whether the Unicode char is within that subrange. If any match,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2168 the font supports the char (whereby, the charset, bogusly). */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2169
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2170 for (i = 0; i < 128; i++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2171 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2172 if (fsp->fsUsb[i >> 5] & (1 << (i & 32)))
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2173 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2174 for (j = 0; j < unicode_subrange_table[i].no_subranges; j++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2175 if (cp >= unicode_subrange_table[i].subranges[j].start &&
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2176 cp <= unicode_subrange_table[i].subranges[j].end)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2177 return 1;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2178 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2179 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2180
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2181 return 0;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2182 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2183 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2184
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2185 /*
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2186 Given a truename font spec, does it match CHARSET?
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2187
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2188 We try two stages:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2189
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2190 -- First see if the charset corresponds to one of the predefined Windows
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2191 charsets; if so, we see if the registry (that's the last element of the
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2192 font spec) is that same charset. If so, this means that the font is
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2193 specifically designed for the charset, and we prefer it.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2194
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2195 -- However, there are only a limited number of defined Windows charsets,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2196 and new ones aren't being defined; so if we fail the first stage, we find
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2197 a character from the charset with a Unicode equivalent, and see if the
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2198 font can display this character. we do that by retrieving the Unicode
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2199 ranges that the font supports, to see if the character comes from that
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2200 subrange.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2201
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2202 #### Note: We really want to be doing all these checks at the character
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2203 level, not the charset level. There's no guarantee that a charset covers
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2204 a single Unicode range. Furthermore, this is extremely wasteful. We
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2205 should be doing this when we're about to redisplay and already have the
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2206 Unicode codepoints in hand.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2207 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2208
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2209 static int
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2210 mswindows_font_spec_matches_charset (struct device *d, Lisp_Object charset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2211 const Ibyte *nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2212 Lisp_Object reloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2213 Bytecount offset, Bytecount length,
3662 b880e45ea63b [xemacs-hg @ 2006-11-06 19:35:43 by aidan] aidan parents: 3659 diff changeset	2214 enum font_specifier_matchspec_stages stage)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2215 {
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	2216 return stage == STAGE_FINAL ?
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2217 mswindows_font_spec_matches_charset_stage_2 (d, charset, nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2218 reloc, offset, length)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2219 : mswindows_font_spec_matches_charset_stage_1 (d, charset, nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2220 reloc, offset, length);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2221 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2222
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2223
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2224 /* Find a font spec that matches font spec FONT and also matches
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2225 (the registry of) CHARSET. */
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2226
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2227 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2228 mswindows_find_charset_font (Lisp_Object device, Lisp_Object font,
3659 98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 2527 diff changeset	2229 Lisp_Object charset,
98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 2527 diff changeset	2230 enum font_specifier_matchspec_stages stage)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2231 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2232 Lisp_Object fontlist, fonttail;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2233
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2234 /* If FONT specifies a particular charset, this will only list fonts with
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2235 that charset; otherwise, it will list fonts with all charsets. */
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2236 fontlist = mswindows_font_list (font, device, Qnil);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2237
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	2238 if (stage == STAGE_INITIAL)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2239 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2240 LIST_LOOP (fonttail, fontlist)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2241 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2242 if (mswindows_font_spec_matches_charset_stage_1
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2243 (XDEVICE (device), charset, 0, XCAR (fonttail), 0, -1))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2244 return XCAR (fonttail);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2245 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2246 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2247 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2248 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2249 LIST_LOOP (fonttail, fontlist)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2250 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2251 if (mswindows_font_spec_matches_charset_stage_2
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2252 (XDEVICE (device), charset, 0, XCAR (fonttail), 0, -1))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2253 return XCAR (fonttail);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2254 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2255 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2256
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2257 return Qnil;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2258 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2259
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2260 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2261
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2262
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2263 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2264 /* non-methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2265 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2266
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2267 static Lisp_Object
491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2268 mswindows_color_list (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2269 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2270 Lisp_Object result = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2271 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2272
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	2273 for (i = countof (mswindows_X_color_map); i != 0;)
ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	2274 result = Fcons (build_ascstring (mswindows_X_color_map[--i].name), result);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2275
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	2276 return result;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2277 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2278
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2279
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2280 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2281 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2282 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2283
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2284 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2285 syms_of_fontcolor_mswindows (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2286 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2287 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2288
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2289 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2290 console_type_create_fontcolor_mswindows (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2291 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2292 /* object methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2293 CONSOLE_HAS_METHOD (mswindows, initialize_color_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2294 /* CONSOLE_HAS_METHOD (mswindows, mark_color_instance); */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2295 CONSOLE_HAS_METHOD (mswindows, print_color_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2296 CONSOLE_HAS_METHOD (mswindows, finalize_color_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2297 CONSOLE_HAS_METHOD (mswindows, color_instance_equal);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2298 CONSOLE_HAS_METHOD (mswindows, color_instance_hash);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2299 CONSOLE_HAS_METHOD (mswindows, color_instance_rgb_components);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2300 CONSOLE_HAS_METHOD (mswindows, valid_color_name_p);
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2301 CONSOLE_HAS_METHOD (mswindows, color_list);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2302
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2303 CONSOLE_HAS_METHOD (mswindows, initialize_font_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2304 /* CONSOLE_HAS_METHOD (mswindows, mark_font_instance); */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2305 CONSOLE_HAS_METHOD (mswindows, print_font_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2306 CONSOLE_HAS_METHOD (mswindows, finalize_font_instance);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2307 CONSOLE_HAS_METHOD (mswindows, font_instance_truename);
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2308 CONSOLE_HAS_METHOD (mswindows, font_list);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2309 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2310 CONSOLE_HAS_METHOD (mswindows, font_spec_matches_charset);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2311 CONSOLE_HAS_METHOD (mswindows, find_charset_font);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2312 #endif
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2313
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2314 /* Printer methods - delegate most to windows methods,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2315 since graphical objects behave the same way. */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2316
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2317 CONSOLE_INHERITS_METHOD (msprinter, mswindows, initialize_color_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2318 /* CONSOLE_INHERITS_METHOD (msprinter, mswindows, mark_color_instance); */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2319 CONSOLE_INHERITS_METHOD (msprinter, mswindows, print_color_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2320 CONSOLE_INHERITS_METHOD (msprinter, mswindows, finalize_color_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2321 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_instance_equal);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2322 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_instance_hash);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2323 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_instance_rgb_components);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2324 CONSOLE_INHERITS_METHOD (msprinter, mswindows, valid_color_name_p);
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2325 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_list);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2326
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2327 CONSOLE_HAS_METHOD (msprinter, initialize_font_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2328 /* CONSOLE_INHERITS_METHOD (msprinter, mswindows, mark_font_instance); */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2329 CONSOLE_INHERITS_METHOD (msprinter, mswindows, print_font_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2330 CONSOLE_INHERITS_METHOD (msprinter, mswindows, finalize_font_instance);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2331 CONSOLE_INHERITS_METHOD (msprinter, mswindows, font_instance_truename);
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2332 CONSOLE_INHERITS_METHOD (msprinter, mswindows, font_list);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2333 #ifdef MULE
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2334 CONSOLE_INHERITS_METHOD (msprinter, mswindows, font_spec_matches_charset);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2335 CONSOLE_INHERITS_METHOD (msprinter, mswindows, find_charset_font);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2336 #endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2337 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2338
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2339 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2340 reinit_vars_of_fontcolor_mswindows (void)
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2341 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2342 #ifdef MULE
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2343 int i;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2344
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2345 unicode_subrange_table = xnew_array_and_zero (unicode_subrange_t, 128);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2346 for (i = 0; i < countof (unicode_subrange_raw_map); i++)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2347 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2348 const unicode_subrange_raw_t *el = &unicode_subrange_raw_map[i];
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2349 if (unicode_subrange_table[el->subrange_bit].subranges == 0)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2350 unicode_subrange_table[el->subrange_bit].subranges = el;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2351 unicode_subrange_table[el->subrange_bit].no_subranges++;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2352 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2353
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2354 Fclrhash (Vfont_signature_data);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2355 #endif /* MULE */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2356 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2357
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2358 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2359 vars_of_fontcolor_mswindows (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2360 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2361 #ifdef MULE
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2362 Vfont_signature_data =
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5182 diff changeset	2363 make_lisp_hash_table (100, HASH_TABLE_NON_WEAK, Qequal);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2364 staticpro (&Vfont_signature_data);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2365 #endif /* MULE */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2366 }

Mercurial > hg > xemacs-beta

annotate src/fontcolor-msw.c @ 5442:8d3d05ffbb43