sys/wince/mhfont.c

   1 /* aNetHack 0.0.1       mhfont.c        $ANH-Date: 1432512800 2015/05/25 00:13:20 $  $ANH-Branch: master $:$ANH-Revision: 1.18 $ */
   2 /* Copyright (C) 2001 by Alex Kompel     */
   3 /* aNetHack may be freely redistributed.  See license for details. */
   4
   5 /* font management and such */
   6
   7 #include "mhfont.h"
   8
   9 #define MAXFONTS 64
  10
  11 /* font table - 64 fonts ought to be enough */
  12 static struct font_table_entry {
  13     int code;
  14     HFONT hFont;
  15 } font_table[MAXFONTS];
  16 static int font_table_size = 0;
  17 HFONT version_splash_font;
  18 HFONT extrainfo_splash_font;
  19
  20 #define NHFONT_CODE(win, attr) (((attr & 0xFF) << 8) | (win_type & 0xFF))
  21
  22 static void __cdecl font_table_cleanup(void);
  23
  24 /* create font based on window type, charater attributes and
  25    window device context */
  26 HGDIOBJ
  27 mswin_get_font(int win_type, int attr, HDC hdc, BOOL replace)
  28 {
  29     HFONT fnt = NULL;
  30     LOGFONT lgfnt;
  31     int font_size;
  32     int font_index;
  33     static BOOL once = FALSE;
  34
  35     if (!once) {
  36         once = TRUE;
  37         atexit(font_table_cleanup);
  38     }
  39
  40     ZeroMemory(&lgfnt, sizeof(lgfnt));
  41
  42     /* try find font in the table */
  43     for (font_index = 0; font_index < font_table_size; font_index++)
  44         if (NHFONT_CODE(win_type, attr) == font_table[font_index].code)
  45             break;
  46
  47     if (!replace && font_index < font_table_size)
  48         return font_table[font_index].hFont;
  49
  50     switch (win_type) {
  51     case NHW_STATUS:
  52         lgfnt.lfHeight = -iflags.wc_fontsiz_status
  53                          * GetDeviceCaps(hdc, LOGPIXELSY)
  54                          / 72;             // height of font
  55         lgfnt.lfWidth = 0;                 // average character width
  56         lgfnt.lfEscapement = 0;            // angle of escapement
  57         lgfnt.lfOrientation = 0;           // base-line orientation angle
  58         lgfnt.lfWeight = FW_NORMAL;        // font weight
  59         lgfnt.lfItalic = FALSE;            // italic attribute option
  60         lgfnt.lfUnderline = FALSE;         // underline attribute option
  61         lgfnt.lfStrikeOut = FALSE;         // strikeout attribute option
  62         lgfnt.lfCharSet = mswin_charset(); // character set identifier
  63         lgfnt.lfOutPrecision = OUT_DEFAULT_PRECIS;   // output precision
  64         lgfnt.lfClipPrecision = CLIP_DEFAULT_PRECIS; // clipping precision
  65         lgfnt.lfQuality = DEFAULT_QUALITY;           // output quality
  66         if (iflags.wc_font_status && *iflags.wc_font_status) {
  67             lgfnt.lfPitchAndFamily = DEFAULT_PITCH; // pitch and family
  68             NH_A2W(iflags.wc_font_status, lgfnt.lfFaceName, LF_FACESIZE);
  69         } else {
  70             lgfnt.lfPitchAndFamily = FIXED_PITCH; // pitch and family
  71         }
  72         break;
  73
  74     case NHW_MENU:
  75         lgfnt.lfHeight = -iflags.wc_fontsiz_menu
  76                          * GetDeviceCaps(hdc, LOGPIXELSY)
  77                          / 72;   // height of font
  78         lgfnt.lfWidth = 0;       // average character width
  79         lgfnt.lfEscapement = 0;  // angle of escapement
  80         lgfnt.lfOrientation = 0; // base-line orientation angle
  81         lgfnt.lfWeight = (attr == ATR_BOLD || attr == ATR_INVERSE)
  82                              ? FW_BOLD
  83                              : FW_NORMAL; // font weight
  84         lgfnt.lfItalic =
  85             (attr == ATR_BLINK) ? TRUE : FALSE; // italic attribute option
  86         lgfnt.lfUnderline =
  87             (attr == ATR_ULINE) ? TRUE : FALSE; // underline attribute option
  88         lgfnt.lfStrikeOut = FALSE;              // strikeout attribute option
  89         lgfnt.lfCharSet = mswin_charset();      // character set identifier
  90         lgfnt.lfOutPrecision = OUT_DEFAULT_PRECIS;   // output precision
  91         lgfnt.lfClipPrecision = CLIP_DEFAULT_PRECIS; // clipping precision
  92         lgfnt.lfQuality = DEFAULT_QUALITY;           // output quality
  93         if (iflags.wc_font_menu && *iflags.wc_font_menu) {
  94             lgfnt.lfPitchAndFamily = DEFAULT_PITCH; // pitch and family
  95             NH_A2W(iflags.wc_font_menu, lgfnt.lfFaceName, LF_FACESIZE);
  96         } else {
  97             lgfnt.lfPitchAndFamily = FIXED_PITCH; // pitch and family
  98         }
  99         break;
 100
 101     case NHW_MESSAGE:
 102         font_size = (attr == ATR_INVERSE) ? iflags.wc_fontsiz_message + 1
 103                                           : iflags.wc_fontsiz_message;
 104         lgfnt.lfHeight = -font_size * GetDeviceCaps(hdc, LOGPIXELSY)
 105                          / 72;   // height of font
 106         lgfnt.lfWidth = 0;       // average character width
 107         lgfnt.lfEscapement = 0;  // angle of escapement
 108         lgfnt.lfOrientation = 0; // base-line orientation angle
 109         lgfnt.lfWeight = (attr == ATR_BOLD || attr == ATR_INVERSE)
 110                              ? FW_BOLD
 111                              : FW_NORMAL; // font weight
 112         lgfnt.lfItalic =
 113             (attr == ATR_BLINK) ? TRUE : FALSE; // italic attribute option
 114         lgfnt.lfUnderline =
 115             (attr == ATR_ULINE) ? TRUE : FALSE; // underline attribute option
 116         lgfnt.lfStrikeOut = FALSE;              // strikeout attribute option
 117         lgfnt.lfCharSet = mswin_charset();      // character set identifier
 118         lgfnt.lfOutPrecision = OUT_DEFAULT_PRECIS;   // output precision
 119         lgfnt.lfClipPrecision = CLIP_DEFAULT_PRECIS; // clipping precision
 120         lgfnt.lfQuality = DEFAULT_QUALITY;           // output quality
 121         if (iflags.wc_font_message && *iflags.wc_font_message) {
 122             lgfnt.lfPitchAndFamily = DEFAULT_PITCH; // pitch and family
 123             NH_A2W(iflags.wc_font_message, lgfnt.lfFaceName, LF_FACESIZE);
 124         } else {
 125             lgfnt.lfPitchAndFamily = VARIABLE_PITCH; // pitch and family
 126         }
 127         break;
 128
 129     case NHW_TEXT:
 130         lgfnt.lfHeight = -iflags.wc_fontsiz_text
 131                          * GetDeviceCaps(hdc, LOGPIXELSY)
 132                          / 72;   // height of font
 133         lgfnt.lfWidth = 0;       // average character width
 134         lgfnt.lfEscapement = 0;  // angle of escapement
 135         lgfnt.lfOrientation = 0; // base-line orientation angle
 136         lgfnt.lfWeight = (attr == ATR_BOLD || attr == ATR_INVERSE)
 137                              ? FW_BOLD
 138                              : FW_NORMAL; // font weight
 139         lgfnt.lfItalic =
 140             (attr == ATR_BLINK) ? TRUE : FALSE; // italic attribute option
 141         lgfnt.lfUnderline =
 142             (attr == ATR_ULINE) ? TRUE : FALSE; // underline attribute option
 143         lgfnt.lfStrikeOut = FALSE;              // strikeout attribute option
 144         lgfnt.lfCharSet = mswin_charset();      // character set identifier
 145         lgfnt.lfOutPrecision = OUT_DEFAULT_PRECIS;   // output precision
 146         lgfnt.lfClipPrecision = CLIP_DEFAULT_PRECIS; // clipping precision
 147         lgfnt.lfQuality = DEFAULT_QUALITY;           // output quality
 148         if (iflags.wc_font_text && *iflags.wc_font_text) {
 149             lgfnt.lfPitchAndFamily = DEFAULT_PITCH; // pitch and family
 150             NH_A2W(iflags.wc_font_text, lgfnt.lfFaceName, LF_FACESIZE);
 151         } else {
 152             lgfnt.lfPitchAndFamily = FIXED_PITCH; // pitch and family
 153         }
 154         break;
 155     }
 156
 157     fnt = CreateFontIndirect(&lgfnt);
 158
 159     /* add font to the table */
 160     if (font_index == font_table_size) {
 161         if (font_table_size >= MAXFONTS)
 162             panic("font table overflow!");
 163         font_table_size++;
 164     } else {
 165         DeleteObject(font_table[font_index].hFont);
 166     }
 167
 168     font_table[font_index].code = NHFONT_CODE(win_type, attr);
 169     font_table[font_index].hFont = fnt;
 170     return fnt;
 171 }
 172
 173 UINT
 174 mswin_charset()
 175 {
 176     CHARSETINFO cis;
 177     if (SYMHANDLING(H_IBM))
 178         if (TranslateCharsetInfo((DWORD *) GetOEMCP(), &cis, TCI_SRCCODEPAGE))
 179             return cis.ciCharset;
 180         else
 181             return OEM_CHARSET;
 182     else if (TranslateCharsetInfo((DWORD *) GetACP(), &cis, TCI_SRCCODEPAGE))
 183         return cis.ciCharset;
 184     else
 185         return ANSI_CHARSET;
 186 }
 187
 188 void __cdecl font_table_cleanup(void)
 189 {
 190     int i;
 191     for (i = 0; i < font_table_size; i++) {
 192         DeleteObject(font_table[i].hFont);
 193     }
 194     font_table_size = 0;
 195 }