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

annotate src/fontcolor-msw.c @ 5927:b58b74274fa2 cygwin

changes from long ago, never committed...

author	Henry Thompson <ht@markup.co.uk>
date	Wed, 15 Dec 2021 19:02:33 +0000
parents	56144c8593a8
children	e2fae7783046

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
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1199 static Boolint
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1200 sort_font_list_function (Lisp_Object UNUSED (pred), Lisp_Object UNUSED (key),
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1201 Lisp_Object obj1, Lisp_Object obj2)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1202 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1203 Ibyte font1, font2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1204 Ibyte c1, c2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1205 int t1, t2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1206
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 1. fixed over proportional.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1209 2. Western over other charsets.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1210 3. TrueType over non-TrueType.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1211 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	1212 5. Courier New over other families.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1213 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1214
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1215 /* The sort function should return non-zero if OBJ1 < OBJ2, zero
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1216 otherwise. */
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1217
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1218 t1 = !NILP (XCDR (obj1));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1219 t2 = !NILP (XCDR (obj2));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1220
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1221 if (t1 && !t2)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1222 return 1;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1223 if (t2 && !t1)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1224 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1225
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1226 font1 = XSTRING_DATA (XCAR (obj1));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1227 font2 = XSTRING_DATA (XCAR (obj2));
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1228
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1229 c1 = qxestrrchr (font1, ':');
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1230 c2 = qxestrrchr (font2, ':');
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1231
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1232 t1 = !qxestrcasecmp_ascii (c1 + 1, "western");
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1233 t2 = !qxestrcasecmp_ascii (c2 + 1, "western");
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1234
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1235 if (t1 && !t2)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1236 return 1;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1237 if (t2 && !t1)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1238 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1239
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1240 c1 -= 2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1241 c2 -= 2;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1242 t1 = *c1 == ':';
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1243 t2 = *c2 == ':';
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1244
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1245 if (t1 && !t2)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1246 return 1;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1247 if (t2 && !t1)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1248 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1249
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1250 if (!t1 && !t2)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1251 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1252 while (isdigit (*c1))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1253 c1--;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1254 while (isdigit (*c2))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1255 c2--;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1256
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1257 t1 = qxeatoi (c1 + 1) - 10;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1258 t2 = qxeatoi (c2 + 1) - 10;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1259
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1260 if (abs (t1) < abs (t2))
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1261 return 1;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1262 else if (abs (t2) < abs (t1))
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1263 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1264 else if (t1 < t2)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1265 /* 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	1266 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	1267 just a few chars. */
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1268 return 1;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1269 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1270
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1271 t1 = !qxestrncasecmp_ascii (font1, "courier new:", 12);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1272 t2 = !qxestrncasecmp_ascii (font2, "courier new:", 12);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1273
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1274 if (t1 && !t2)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1275 return 1;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1276 if (t2 && !t1)
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1277 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1278
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5256 diff changeset	1279 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1280 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1281
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1282 /*
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1283 * 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	1284 * font names.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1285 */
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1286 Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1287 mswindows_enumerate_fonts (HDC hdc)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1288 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1289 /* This cannot GC */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1290 LOGFONTW logfont;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1291 struct font_enum_t font_enum;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1292
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1293 assert (hdc != NULL);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1294 logfont.lfCharSet = DEFAULT_CHARSET;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1295 logfont.lfFaceName[0] = '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1296 logfont.lfPitchAndFamily = DEFAULT_PITCH;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1297 font_enum.hdc = hdc;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1298 font_enum.list = Qnil;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1299 /* 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	1300 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	1301 worry about this not existing. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1302 qxeEnumFontFamiliesEx (hdc, &logfont, (FONTENUMPROCW) font_enum_callback_1,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1303 (LPARAM) (&font_enum), 0);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1304
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5176 diff changeset	1305 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	1306 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1307
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1308 static HFONT
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1309 mswindows_create_font_variant (Lisp_Font_Instance *f,
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1310 int under, int strike)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1311 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1312 /* Cannot GC */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1313 LOGFONTW lf;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1314 HFONT hfont;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1315
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1316 assert (FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, under, strike) == NULL);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1317
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1318 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	1319 sizeof (lf), (void *) &lf) == 0)
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1320 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1321 hfont = MSWINDOWS_BAD_HFONT;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1322 }
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1323 else
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1324 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1325 lf.lfUnderline = under;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1326 lf.lfStrikeOut = strike;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1327
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1328 hfont = qxeCreateFontIndirect (&lf);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1329 if (hfont == NULL)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1330 hfont = MSWINDOWS_BAD_HFONT;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1331 }
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 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, under, strike) = hfont;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1334 return hfont;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1335 }
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 HFONT
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1338 mswindows_get_hfont (Lisp_Font_Instance *f,
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1339 int under, int strike)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1340 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1341 /* Cannot GC */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1342 HFONT hfont = FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, under, strike);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1343
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1344 if (hfont == NULL)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1345 hfont = mswindows_create_font_variant (f, under, strike);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1346
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1347 /* If strikeout/underline variant of the font could not be
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1348 created, then use the base version of the font */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1349 if (hfont == MSWINDOWS_BAD_HFONT)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1350 hfont = FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1351
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1352 assert (hfont != NULL && hfont != MSWINDOWS_BAD_HFONT);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1353
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1354 return hfont;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1355 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1356
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 /* methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1359 /************************************************************************/
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 static int
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1362 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	1363 Lisp_Object UNUSED (device),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1364 Error_Behavior errb)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1365 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1366 COLORREF color;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1367
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1368 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	1369 if (color != (COLORREF) -1)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1370 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1371 c->data = xnew (struct mswindows_color_instance_data);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1372 COLOR_INSTANCE_MSWINDOWS_COLOR (c) = color;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1373 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1374 }
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 442 diff changeset	1375 maybe_signal_error (Qinvalid_constant,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1376 "Unrecognized color", name, Qcolor, errb);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1377 return(0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1378 }
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 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1381 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1382 mswindows_mark_color_instance (Lisp_Color_Instance *c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1383 {
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1386
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1387 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1388 mswindows_print_color_instance (Lisp_Color_Instance *c,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1389 Lisp_Object printcharfun,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1390 int UNUSED (escapeflag))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1391 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1392 COLORREF color = COLOR_INSTANCE_MSWINDOWS_COLOR (c);
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1393 write_fmt_string (printcharfun,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1394 " %06ld=(%04X,%04X,%04X)", color & 0xffffff,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1395 GetRValue (color) * 257, GetGValue (color) * 257,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1396 GetBValue (color) * 257);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1397 }
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 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1400 mswindows_finalize_color_instance (Lisp_Color_Instance *c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1401 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1402 if (c->data)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1403 {
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1404 xfree (c->data);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1405 c->data = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1406 }
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 static int
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1410 mswindows_color_instance_equal (Lisp_Color_Instance *c1,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1411 Lisp_Color_Instance *c2,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1412 int UNUSED (depth))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1413 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1414 return (COLOR_INSTANCE_MSWINDOWS_COLOR (c1) ==
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1415 COLOR_INSTANCE_MSWINDOWS_COLOR (c2));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1416 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1417
2515 de9952d2ed18 [xemacs-hg @ 2005-01-26 10:22:19 by ben] ben parents: 2500 diff changeset	1418 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	1419 mswindows_color_instance_hash (Lisp_Color_Instance *c, int UNUSED (depth))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1420 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1421 return (unsigned long) COLOR_INSTANCE_MSWINDOWS_COLOR (c);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1422 }
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 static Lisp_Object
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1425 mswindows_color_instance_rgb_components (Lisp_Color_Instance *c)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1426 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1427 COLORREF color = COLOR_INSTANCE_MSWINDOWS_COLOR (c);
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5470 diff changeset	1428 return list3 (make_fixnum (GetRValue (color) * 257),
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5470 diff changeset	1429 make_fixnum (GetGValue (color) * 257),
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5470 diff changeset	1430 make_fixnum (GetBValue (color) * 257));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1431 }
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 static int
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1434 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	1435 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1436 return (mswindows_string_to_color (XSTRING_DATA (color)) != (COLORREF) -1);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1437 }
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 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1442 mswindows_finalize_font_instance (Lisp_Font_Instance *f);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1443
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1444 /* 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	1445 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	1446 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	1447 declared as
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1448
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1449 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	1450 Ibyte effects[LF_FACESIZE], charset[LF_FACESIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1451
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1452 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	1453 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	1454 else, NULL can be given for both.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1455
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1456 Return 1 if ok, 0 if error.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1457 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1458 static int
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1459 parse_font_spec (const Ibyte *namestr,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1460 HDC hdc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1461 Lisp_Object name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1462 Error_Behavior errb,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1463 LOGFONTW *logfont,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1464 Ibyte *fontname,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1465 Ibyte *weight,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1466 Ibyte *points,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1467 Ibyte *effects,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1468 Ibyte *charset)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1469 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1470 int fields, i;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1471 int pt;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1472 Ibyte *style;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1473 Ibyte *c;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1474
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 * mswindows fonts look like:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1477 * fontname[:[weight ][style][:pointsize[:effects]]][:charset]
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1478 * The font name field shouldn't be empty.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1479 *
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1480 * ie:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1481 * Lucida Console:Regular:10
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1482 * minimal:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1483 * Courier New
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1484 * maximal:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1485 * Courier New:Bold Italic:10:underline strikeout:western
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1486 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1487
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1488 fontname[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1489 weight[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1490 points[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1491 effects[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1492 charset[0] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1493
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1494 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1495 xzero (*logfont);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1496
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1497 fields = sscanf ((CIbyte *) namestr, "%31[^:]:%31[^:]:%7[^:]:%31[^:]:%31s",
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1498 fontname, weight, points, effects, charset);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1499
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1500 /* This function is implemented in a fairly ad-hoc manner.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1501 * 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	1502 * 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	1503 * 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	1504 * availability of the requested font */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1505
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1506 if (fields < 0)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1507 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1508 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	1509 Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1510 return 0;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1511 }
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 if (fields > 0 && qxestrlen (fontname))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1514 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1515 Extbyte *extfontname;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1516
4981 4aebb0131297 Cleanups/renaming of EXTERNAL_TO_C_STRING and friends Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1517 extfontname = ITEXT_TO_TSTR (fontname);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1518 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1519 {
2421 ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	1520 qxetcsncpy ((Extbyte *) logfont->lfFaceName, extfontname,
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1521 LF_FACESIZE - 1);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1522 logfont->lfFaceName[LF_FACESIZE - 1] = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1523 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1524 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1525
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1526 /* weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1527 if (fields < 2)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1528 qxestrcpy_ascii (weight, fontweight_map[0].name);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1529
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1530 /* Maybe split weight into weight and style */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1531 if ((c = qxestrchr (weight, ' ')))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1532 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1533 *c = '\0';
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1534 style = c + 1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1535 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1536 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1537 style = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1538
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1539 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	1540 if (!qxestrcasecmp_ascii (weight, fontweight_map[i].name))
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1541 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1542 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1543 logfont->lfWeight = fontweight_map[i].value;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1544 break;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1545 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1546 if (i == countof (fontweight_map)) /* No matching weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1547 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1548 if (!style)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1549 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1550 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1551 logfont->lfWeight = FW_REGULAR;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1552 style = weight; /* May have specified style without weight */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1553 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1554 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1555 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1556 maybe_signal_error (Qinvalid_constant, "Invalid font weight",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1557 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1558 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1559 }
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 if (style)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1563 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1564 /* #### what about oblique? */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1565 if (qxestrcasecmp_ascii (style, "italic") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1566 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1567 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1568 logfont->lfItalic = TRUE;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1569 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1570 else
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1571 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1572 maybe_signal_error (Qinvalid_constant,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1573 "Invalid font weight or style",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1574 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1575 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1576 }
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 /* Glue weight and style together again */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1579 if (weight != style)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1580 *c = ' ';
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1581 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1582 else if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1583 logfont->lfItalic = FALSE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1584
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1585 if (fields < 3 \|\| !qxestrcmp_ascii (points, ""))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1586 ;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1587 else if (points[0] == '0' \|\|
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1588 qxestrspn (points, "0123456789") < qxestrlen (points))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1589 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1590 maybe_signal_error (Qinvalid_argument, "Invalid font pointsize",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1591 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1592 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1593 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1594 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1595 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1596 pt = qxeatoi (points);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1597
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1598 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1599 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1600 /* 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	1601 SDK */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1602 logfont->lfHeight = -MulDiv (pt, GetDeviceCaps (hdc, LOGPIXELSY),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1603 72);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1604 logfont->lfWidth = 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1605 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1606 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1607
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1608 /* Effects */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1609 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1610 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1611 logfont->lfUnderline = FALSE;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1612 logfont->lfStrikeOut = FALSE;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1613 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1614
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1615 if (fields >= 4 && effects[0] != '\0')
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1616 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1617 Ibyte *effects2;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1618 int underline = FALSE, strikeout = FALSE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1619
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1620 /* Maybe split effects into effects and effects2 */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1621 if ((c = qxestrchr (effects, ' ')))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1622 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1623 *c = '\0';
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1624 effects2 = c + 1;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1625 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1626 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1627 effects2 = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1628
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1629 if (qxestrcasecmp_ascii (effects, "underline") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1630 underline = TRUE;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1631 else if (qxestrcasecmp_ascii (effects, "strikeout") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1632 strikeout = TRUE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1633 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1634 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1635 maybe_signal_error (Qinvalid_constant, "Invalid font effect",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1636 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1637 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1638 }
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 if (effects2 && effects2[0] != '\0')
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1641 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1642 if (qxestrcasecmp_ascii (effects2, "underline") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1643 underline = TRUE;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1644 else if (qxestrcasecmp_ascii (effects2, "strikeout") == 0)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1645 strikeout = TRUE;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1646 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1647 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1648 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	1649 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1650 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1651 }
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
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1654 /* Regenerate sanitized effects string */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1655 if (underline)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1656 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1657 if (strikeout)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1658 qxestrcpy_ascii (effects, "underline strikeout");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1659 else
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1660 qxestrcpy_ascii (effects, "underline");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1661 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1662 else if (strikeout)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1663 qxestrcpy_ascii (effects, "strikeout");
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1664
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1665 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1666 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1667 logfont->lfUnderline = underline;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1668 logfont->lfStrikeOut = strikeout;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1669 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1670 }
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 /* Charset */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1673 /* charset can be specified even if earlier fields haven't been */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1674 if (fields < 5)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1675 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1676 if ((c = qxestrchr (namestr, ':')) && (c = qxestrchr (c + 1, ':')) &&
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1677 (c = qxestrchr (c + 1, ':')) && (c = qxestrchr (c + 1, ':')))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1678 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1679 qxestrncpy (charset, c + 1, LF_FACESIZE);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1680 charset[LF_FACESIZE - 1] = '\0';
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1681 }
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
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1684 /* 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	1685 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	1686 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	1687 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	1688 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	1689 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	1690 in appropriately to the charset. */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	1691 if (!qxestrcmp_ascii (charset, ""))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1692 ;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1693 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1694 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1695 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	1696 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	1697 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1698 if (logfont)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1699 logfont->lfCharSet = charset_map[i].value;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1700 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1701 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1702
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1703 if (i == countof (charset_map)) /* No matching charset */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1704 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1705 maybe_signal_error (Qinvalid_argument, "Invalid charset",
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1706 name_for_errors, Qfont, errb);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1707 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1708 }
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 if (logfont)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1712 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1713 /* Misc crud */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1714 #if 1
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1715 logfont->lfOutPrecision = OUT_DEFAULT_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1716 logfont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1717 logfont->lfQuality = DEFAULT_QUALITY;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1718 #else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1719 logfont->lfOutPrecision = OUT_STROKE_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1720 logfont->lfClipPrecision = CLIP_STROKE_PRECIS;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1721 logfont->lfQuality = PROOF_QUALITY;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1722 #endif
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1723 /* 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	1724 logfont->lfPitchAndFamily = FF_MODERN;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1725 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1726
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1727 return 1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1728 }
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 mswindows fonts look like:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1732 [fontname[:style[:pointsize[:effects]]]][:charset]
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1733 A maximal mswindows font spec looks like:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1734 Courier New:Bold Italic:10:underline strikeout:Western
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1735
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1736 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	1737 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	1738 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	1739 Courier New, 10, Western. See sort function above. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1740
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1741 static HFONT
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1742 create_hfont_from_font_spec (const Ibyte *namestr,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1743 HDC hdc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1744 Lisp_Object name_for_errors,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1745 Lisp_Object device_font_list,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1746 Error_Behavior errb,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1747 Lisp_Object *truename_ret)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1748 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1749 LOGFONTW logfont;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1750 HFONT hfont;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1751 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	1752 Ibyte effects[LF_FACESIZE], charset[LF_FACESIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1753 Ibyte truename[MSW_FONTSIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1754 Ibyte truername[MSW_FONTSIZE];
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1755
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1756 /* 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	1757 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	1758 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	1759 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	1760 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	1761 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	1762 and charset fields appropriately.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1763
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1764 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	1765 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	1766 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	1767 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	1768
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1769 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	1770 used. */
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1771
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1772 if (!NILP (device_font_list))
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1773 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1774 Lisp_Object fonttail = Qnil;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1775
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1776 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	1777 errb, 0, fontname, weight, points,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1778 effects, charset))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1779 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1780
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1781 /* 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	1782 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	1783 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	1784 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	1785 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	1786 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	1787
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1788 if (!points[0])
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1789 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1790 qxesprintf (truename, "%s:%s:10:%s:%s",
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1791 fontname, weight, effects, charset);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1792
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1793 LIST_LOOP (fonttail, device_font_list)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1794 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1795 if (match_font (XSTRING_DATA (XCAR (XCAR (fonttail))),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1796 truename, truername))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1797 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1798 }
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 if (NILP (fonttail))
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1802 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1803 qxesprintf (truename, "%s:%s:%s:%s:%s",
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1804 fontname, weight, points, effects, charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1805
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1806 LIST_LOOP (fonttail, device_font_list)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1807 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1808 if (match_font (XSTRING_DATA (XCAR (XCAR (fonttail))),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1809 truename, truername))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1810 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1811 }
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1812 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1813
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1814 if (NILP (fonttail))
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1815 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1816 maybe_signal_error (Qinvalid_argument, "No matching font",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1817 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1818 return 0;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1819 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1820
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1821 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	1822 ERROR_ME_DEBUG_WARN, &logfont, fontname, weight,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1823 points, effects, charset))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1824 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	1825 build_istring (truername));
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1826 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1827 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	1828 errb, &logfont, fontname, weight, points,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1829 effects, charset))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1830 return 0;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1831
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1832 if ((hfont = qxeCreateFontIndirect (&logfont)) == NULL)
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1833 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1834 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	1835 name_for_errors, Qfont, errb);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1836 return 0;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1837 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1838
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1839 /* #### 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	1840 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	1841 See above. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1842 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	1843 points, effects, charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1844
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	1845 *truename_ret = build_istring (truename);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1846 return hfont;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1847 }
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 * 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	1851 * msprinter_initialize_font_instance.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1852 */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1853 static int
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1854 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	1855 Lisp_Object device_font_list, HDC hdc,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1856 Error_Behavior errb)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1857 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1858 HFONT hfont, hfont2;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1859 TEXTMETRICW metrics;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1860 Ibyte *namestr = XSTRING_DATA (name);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1861 Lisp_Object truename;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1862
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	1863 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	1864 errb, &truename);
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4579 diff changeset	1865 if (!hfont)
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4579 diff changeset	1866 return 0;
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1867 f->truename = truename;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1868 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	1869 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0) = hfont;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1870
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1871 /* 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	1872 non-underlined counterparts. Font variants though are assumed to have
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1873 identical metrics. So get the font metrics from the underlined variant
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1874 of the font */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1875 hfont2 = mswindows_create_font_variant (f, 1, 0);
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1876 if (hfont2 != MSWINDOWS_BAD_HFONT)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1877 hfont = hfont2;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1878
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1879 hfont2 = (HFONT) SelectObject (hdc, hfont);
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1880 if (!hfont2)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1881 {
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1882 mswindows_finalize_font_instance (f);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 442 diff changeset	1883 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	1884 return 0;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1885 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1886 qxeGetTextMetrics (hdc, &metrics);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1887 SelectObject (hdc, hfont2);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1888
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1889 f->width = (unsigned short) metrics.tmAveCharWidth;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1890 f->height = (unsigned short) metrics.tmHeight;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1891 f->ascent = (unsigned short) metrics.tmAscent;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1892 f->descent = (unsigned short) metrics.tmDescent;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1893 f->proportional_p = (metrics.tmPitchAndFamily & TMPF_FIXED_PITCH);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1894
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1895 return 1;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1896 }
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 static int
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1899 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	1900 Lisp_Object device, Error_Behavior errb)
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1901 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1902 HDC hdc = CreateCompatibleDC (NULL);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1903 Lisp_Object font_list = DEVICE_MSWINDOWS_FONTLIST (XDEVICE (device));
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1904 int res = initialize_font_instance (f, name, font_list, hdc, errb);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1905 DeleteDC (hdc);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1906 return res;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1907 }
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 static int
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1910 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	1911 Lisp_Object device, Error_Behavior errb)
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1912 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1913 HDC hdc = DEVICE_MSPRINTER_HDC (XDEVICE (device));
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1914 Lisp_Object font_list = DEVICE_MSPRINTER_FONTLIST (XDEVICE (device));
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1915 return initialize_font_instance (f, name, font_list, hdc, errb);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1916 }
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 static void
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1919 mswindows_finalize_font_instance (Lisp_Font_Instance *f)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1920 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1921 int i;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1922
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1923 if (f->data)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1924 {
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1925 for (i = 0; i < MSWINDOWS_NUM_FONT_VARIANTS; i++)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1926 {
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1927 if (FONT_INSTANCE_MSWINDOWS_HFONT_I (f, i) != NULL
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1928 && FONT_INSTANCE_MSWINDOWS_HFONT_I (f, i) != MSWINDOWS_BAD_HFONT)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1929 DeleteObject (FONT_INSTANCE_MSWINDOWS_HFONT_I (f, i));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1930 }
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1931
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4953 diff changeset	1932 xfree (f->data);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1933 f->data = 0;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1934 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1935 }
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 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1938 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1939 mswindows_mark_font_instance (Lisp_Font_Instance *f)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1940 {
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1943
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1944 static void
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1945 mswindows_print_font_instance (Lisp_Font_Instance *f,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1946 Lisp_Object printcharfun,
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1947 int UNUSED (escapeflag))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1948 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1949 write_fmt_string (printcharfun, " 0x%lx",
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1950 (unsigned long)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1951 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0));
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1952
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1953 }
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 static Lisp_Object
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	1956 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	1957 Lisp_Object UNUSED (maxnumber))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1958 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1959 struct device *d = XDEVICE (device);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1960 Lisp_Object font_list = Qnil, fonttail, result = Qnil;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1961
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1962 if (DEVICE_MSWINDOWS_P (d))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1963 font_list = DEVICE_MSWINDOWS_FONTLIST (d);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1964 else if (DEVICE_MSPRINTER_P (d))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1965 font_list = DEVICE_MSPRINTER_FONTLIST (d);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1966 else
2500 3d8143fc88e1 [xemacs-hg @ 2005-01-24 23:33:30 by ben] ben parents: 2421 diff changeset	1967 ABORT ();
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	1968
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1969 LIST_LOOP (fonttail, font_list)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1970 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	1971 Ibyte fontname[MSW_FONTSIZE];
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1972
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1973 if (match_font (XSTRING_DATA (XCAR (XCAR (fonttail))),
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1974 XSTRING_DATA (pattern),
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	1975 fontname))
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	1976 result = Fcons (build_istring (fontname), result);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1977 }
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 return Fnreverse (result);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1980 }
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 static Lisp_Object
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1983 mswindows_font_instance_truename (Lisp_Font_Instance *f,
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1984 Error_Behavior UNUSED (errb))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1985 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1986 return f->truename;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1987 }
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 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1990
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1991 static int
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 1726 diff changeset	1992 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	1993 Lisp_Object charset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1994 const Ibyte *nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1995 Lisp_Object reloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1996 Bytecount offset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1997 Bytecount length)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1998 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1999 int i;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2000 Lisp_Object charset_registry;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2001 const Ibyte *font_charset;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	2002 const Ibyte *the_nonreloc = nonreloc;
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	2003 const Ibyte *c;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2004 Bytecount the_length = length;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2005
4353 4143b78d0df0 Merge an old patch of Ben's, involving font instantiation and charsets. Aidan Kehoe <kehoea@parhasard.net> parents: 3662 diff changeset	2006 if (NILP (charset))
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2007 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2008
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2009 if (!the_nonreloc)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2010 the_nonreloc = XSTRING_DATA (reloc);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2011 fixup_internal_substring (nonreloc, reloc, offset, &the_length);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2012 the_nonreloc += offset;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2013
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2014 c = the_nonreloc;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2015 for (i = 0; i < 4; i++)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2016 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 851 diff changeset	2017 Ibyte newc = (Ibyte ) memchr (c, ':', the_length);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2018 if (!newc)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2019 break;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2020 newc++;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2021 the_length -= (newc - c);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2022 c = newc;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2023 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2024
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2025 if (i < 4)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2026 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2027
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2028 font_charset = c;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2029
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2030 /* For border-glyph use */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	2031 if (!qxestrcasecmp_ascii (font_charset, "symbol"))
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2032 font_charset = (const Ibyte *) "western";
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2033
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2034 /* Get code page for the charset */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2035 charset_registry = Fmswindows_charset_registry (charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2036 if (!STRINGP (charset_registry))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2037 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2038
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2039 return !qxestrcasecmp (XSTRING_DATA (charset_registry), font_charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2040 }
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
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	2044 #### 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	2045
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2046 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	2047 2. finish impl of mswindows-charset-registry.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2048 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	2049 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	2050 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	2051 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	2052 */
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 static int
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2055 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	2056 Lisp_Object charset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2057 const Ibyte *nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2058 Lisp_Object reloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2059 Bytecount offset,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2060 Bytecount length)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2061 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2062 const Ibyte *the_nonreloc = nonreloc;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2063 FONTSIGNATURE fs;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2064 FONTSIGNATURE *fsp = &fs;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2065 struct gcpro gcpro1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2066 Lisp_Object fontsig;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2067 Bytecount the_length = length;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2068 int i;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2069
4353 4143b78d0df0 Merge an old patch of Ben's, involving font instantiation and charsets. Aidan Kehoe <kehoea@parhasard.net> parents: 3662 diff changeset	2070 if (NILP (charset))
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2071 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2072
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2073 if (!the_nonreloc)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2074 the_nonreloc = XSTRING_DATA (reloc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2075 fixup_internal_substring (nonreloc, reloc, offset, &the_length);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2076 the_nonreloc += offset;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2077
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2078 /* 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	2079 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	2080 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	2081 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	2082 it and cache it. */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2083 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	2084 reloc = build_istring (the_nonreloc);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2085 GCPRO1 (reloc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2086 fontsig = Fgethash (reloc, Vfont_signature_data, Qunbound);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2087
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2088 if (!UNBOUNDP (fontsig))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2089 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2090 fsp = (FONTSIGNATURE *) XOPAQUE_DATA (fontsig);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2091 UNGCPRO;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2092 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2093 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2094 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2095 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	2096 Lisp_Object font_list = Qnil, truename;
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2097 HFONT hfont;
4579 68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2098
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2099 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	2100 {
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2101 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	2102 }
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2103 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	2104 {
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2105 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	2106 }
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2107 else
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2108 {
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2109 assert(0);
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2110 }
68f74b080e94 Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2 Aidan Kehoe <kehoea@parhasard.net> parents: 4353 diff changeset	2111
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2112 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	2113 font_list,
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2114 ERROR_ME_DEBUG_WARN,
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	2115 &truename);
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2116
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2117 if (!hfont \|\| !(hfont = (HFONT) SelectObject (hdc, hfont)))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2118 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2119 nope:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2120 DeleteDC (hdc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2121 UNGCPRO;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2122 return 0;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2123 }
5024 7e57c0575a15 merge Ben Wing <ben@xemacs.org> parents: 5016 5009 diff changeset	2124
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2125 if (GetTextCharsetInfo (hdc, &fs, 0) == DEFAULT_CHARSET)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2126 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2127 SelectObject (hdc, hfont);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2128 goto nope;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2129 }
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2130 SelectObject (hdc, hfont);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2131 DeleteDC (hdc);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2132 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	2133 UNGCPRO;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2134 }
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2135
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2136 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2137 int lowlim, highlim;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2138 int dim, j, cp = -1;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2139
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2140 /* 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	2141 bogus. See below.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2142
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2143 #### Cache me baby!!!!!!!!!!!!!
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2144 */
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2145 get_charset_limits (charset, &lowlim, &highlim);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2146 dim = XCHARSET_DIMENSION (charset);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2147
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2148 if (dim == 1)
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2149 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2150 for (i = lowlim; i <= highlim; i++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2151 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	2152 break;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2153 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2154 else
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2155 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2156 for (i = lowlim; i <= highlim; i++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2157 for (j = lowlim; j <= highlim; j++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2158 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	2159 break;
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2160 }
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 if (cp < 0)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2163 return 0;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2164
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2165 /* 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	2166 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	2167 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	2168
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2169 for (i = 0; i < 128; i++)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2170 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2171 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	2172 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2173 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	2174 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	2175 cp <= unicode_subrange_table[i].subranges[j].end)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2176 return 1;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2177 }
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
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2180 return 0;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2181 }
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
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2184 /*
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2185 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	2186
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2187 We try two stages:
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2188
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2189 -- 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	2190 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	2191 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	2192 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	2193
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2194 -- 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	2195 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	2196 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	2197 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	2198 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	2199 subrange.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2200
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2201 #### 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	2202 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	2203 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	2204 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	2205 Unicode codepoints in hand.
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2206 */
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 static int
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2209 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	2210 const Ibyte *nonreloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2211 Lisp_Object reloc,
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2212 Bytecount offset, Bytecount length,
3662 b880e45ea63b [xemacs-hg @ 2006-11-06 19:35:43 by aidan] aidan parents: 3659 diff changeset	2213 enum font_specifier_matchspec_stages stage)
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2214 {
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	2215 return stage == STAGE_FINAL ?
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2216 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	2217 reloc, offset, length)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2218 : 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	2219 reloc, offset, length);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2220 }
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 /* 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	2224 (the registry of) CHARSET. */
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2225
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2226 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2227 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	2228 Lisp_Object charset,
98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 2527 diff changeset	2229 enum font_specifier_matchspec_stages stage)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2230 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2231 Lisp_Object fontlist, fonttail;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2232
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2233 /* 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	2234 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	2235 fontlist = mswindows_font_list (font, device, Qnil);
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2236
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	2237 if (stage == STAGE_INITIAL)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2238 {
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2239 LIST_LOOP (fonttail, fontlist)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2240 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2241 if (mswindows_font_spec_matches_charset_stage_1
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2242 (XDEVICE (device), charset, 0, XCAR (fonttail), 0, -1))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2243 return XCAR (fonttail);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2244 }
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2245 }
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2246 else
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2247 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2248 LIST_LOOP (fonttail, fontlist)
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2249 {
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2250 if (mswindows_font_spec_matches_charset_stage_2
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2251 (XDEVICE (device), charset, 0, XCAR (fonttail), 0, -1))
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2252 return XCAR (fonttail);
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	2253 }
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
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	2256 return Qnil;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2257 }
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 #endif /* MULE */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2260
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 /* non-methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2264 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2265
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2266 static Lisp_Object
491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2267 mswindows_color_list (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2268 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2269 Lisp_Object result = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2270 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2271
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	2272 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	2273 result = Fcons (build_ascstring (mswindows_X_color_map[--i].name), result);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2274
5218 ec2ddc82f10d Use binary search, not linear, for looking up color names, mswindows. Aidan Kehoe <kehoea@parhasard.net> parents: 5192 diff changeset	2275 return result;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2276 }
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 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2281 /************************************************************************/
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 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2284 syms_of_fontcolor_mswindows (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2285 {
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 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2289 console_type_create_fontcolor_mswindows (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2290 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2291 /* object methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2292 CONSOLE_HAS_METHOD (mswindows, initialize_color_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2293 /* CONSOLE_HAS_METHOD (mswindows, mark_color_instance); */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2294 CONSOLE_HAS_METHOD (mswindows, print_color_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2295 CONSOLE_HAS_METHOD (mswindows, finalize_color_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2296 CONSOLE_HAS_METHOD (mswindows, color_instance_equal);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2297 CONSOLE_HAS_METHOD (mswindows, color_instance_hash);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2298 CONSOLE_HAS_METHOD (mswindows, color_instance_rgb_components);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2299 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	2300 CONSOLE_HAS_METHOD (mswindows, color_list);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2301
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2302 CONSOLE_HAS_METHOD (mswindows, initialize_font_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2303 /* CONSOLE_HAS_METHOD (mswindows, mark_font_instance); */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2304 CONSOLE_HAS_METHOD (mswindows, print_font_instance);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2305 CONSOLE_HAS_METHOD (mswindows, finalize_font_instance);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2306 CONSOLE_HAS_METHOD (mswindows, font_instance_truename);
2527 491f8cf78a9c [xemacs-hg @ 2005-01-28 02:58:38 by ben] ben parents: 2515 diff changeset	2307 CONSOLE_HAS_METHOD (mswindows, font_list);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2308 #ifdef MULE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2309 CONSOLE_HAS_METHOD (mswindows, font_spec_matches_charset);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2310 CONSOLE_HAS_METHOD (mswindows, find_charset_font);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2311 #endif
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2312
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2313 /* Printer methods - delegate most to windows methods,
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2314 since graphical objects behave the same way. */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2315
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2316 CONSOLE_INHERITS_METHOD (msprinter, mswindows, initialize_color_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2317 /* CONSOLE_INHERITS_METHOD (msprinter, mswindows, mark_color_instance); */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2318 CONSOLE_INHERITS_METHOD (msprinter, mswindows, print_color_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2319 CONSOLE_INHERITS_METHOD (msprinter, mswindows, finalize_color_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2320 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_instance_equal);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2321 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_instance_hash);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2322 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_instance_rgb_components);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2323 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	2324 CONSOLE_INHERITS_METHOD (msprinter, mswindows, color_list);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2325
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2326 CONSOLE_HAS_METHOD (msprinter, initialize_font_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2327 /* CONSOLE_INHERITS_METHOD (msprinter, mswindows, mark_font_instance); */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2328 CONSOLE_INHERITS_METHOD (msprinter, mswindows, print_font_instance);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2329 CONSOLE_INHERITS_METHOD (msprinter, mswindows, finalize_font_instance);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2330 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	2331 CONSOLE_INHERITS_METHOD (msprinter, mswindows, font_list);
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2332 #ifdef MULE
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2333 CONSOLE_INHERITS_METHOD (msprinter, mswindows, font_spec_matches_charset);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2334 CONSOLE_INHERITS_METHOD (msprinter, mswindows, find_charset_font);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 430 diff changeset	2335 #endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2336 }
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 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2339 reinit_vars_of_fontcolor_mswindows (void)
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2340 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2341 #ifdef MULE
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2342 int i;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2343
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2344 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	2345 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	2346 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2347 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	2348 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	2349 unicode_subrange_table[el->subrange_bit].subranges = el;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2350 unicode_subrange_table[el->subrange_bit].no_subranges++;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2351 }
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 Fclrhash (Vfont_signature_data);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2354 #endif /* MULE */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2355 }
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 void
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5024 diff changeset	2358 vars_of_fontcolor_mswindows (void)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2359 {
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2360 #ifdef MULE
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2361 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	2362 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	2363 staticpro (&Vfont_signature_data);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 771 diff changeset	2364 #endif /* MULE */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2365 }

Mercurial > hg > xemacs-beta

annotate src/fontcolor-msw.c @ 5927:b58b74274fa2 cygwin