SFont.c

   1 /*
   2  * Copyright (C) Karl Bartel <karlb@gmx.net> WWW: http://www.linux-games.com
   3  *
   4  *     This program is free software; you can redistribute it and/or modify
   5  *     it under the terms of the GNU General Public License as published by
   6  *     the Free Software Foundation; either version 2 of the License, or
   7  *     (at your option) any later version.
   8  *
   9  *     This program is distributed in the hope that it will be useful,
  10  *     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  *     GNU General Public License for more details.
  13  *
  14  *     You should have received a copy of the GNU General Public License
  15  *     along with this program; if not, write to the Free Software
  16  *     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
  17  */
  18
  19 /*Modified 2003 by Andre Noll */
  20
  21 #include <SDL/SDL.h>
  22 #include "SFont.h"
  23 #include <stdlib.h> /* exit */
  24 #include <string.h> /* strlen */
  25 SFont_FontInfo InternalFont;
  26
  27 Uint32 GetPixel(SDL_Surface * Surface, Sint32 X, Sint32 Y)
  28 {
  29
  30         Uint8 *bits;
  31         Uint32 Bpp;
  32
  33         if (X < 0)
  34                 puts("SFONT ERROR: x too small in GetPixel. Report this "
  35                         "to <karlb@gmx.net>");
  36         if (X >= Surface->w)
  37                 puts("SFONT ERROR: x too big in GetPixel. Report this to "
  38                         "<karlb@gmx.net>");
  39         Bpp = Surface->format->BytesPerPixel;
  40         bits = ((Uint8 *) Surface->pixels) + Y * Surface->pitch + X * Bpp;
  41
  42         /* Get the pixel */
  43         switch (Bpp) {
  44         case 1:
  45                 return *((Uint8 *) Surface->pixels + Y * Surface->pitch + X);
  46                 break;
  47         case 2:
  48                 return *((Uint16 *) Surface->pixels + Y * Surface->pitch / 2 +
  49                          X);
  50                 break;
  51         case 3:{        /* Format/endian independent  */
  52                         Uint8 r, g, b;
  53                         r = *((bits) + Surface->format->Rshift / 8);
  54                         g = *((bits) + Surface->format->Gshift / 8);
  55                         b = *((bits) + Surface->format->Bshift / 8);
  56                         return SDL_MapRGB(Surface->format, r, g, b);
  57                 }
  58                 break;
  59         case 4:
  60                 return *((Uint32 *) Surface->pixels + Y * Surface->pitch / 4 +
  61                          X);
  62                 break;
  63         }
  64
  65         return -1;
  66 }
  67
  68 void InitFont2(SFont_FontInfo * Font)
  69 {
  70         int x = 0, i = 0;
  71
  72         if (!Font->Surface) {
  73                 printf("The font has not been loaded!\n");
  74                 exit(EXIT_FAILURE);
  75         }
  76
  77         if (SDL_MUSTLOCK(Font->Surface))
  78                 SDL_LockSurface(Font->Surface);
  79
  80         while (x < Font->Surface->w) {
  81                 if (GetPixel(Font->Surface, x, 0) ==
  82                     SDL_MapRGB(Font->Surface->format, 255, 0, 255)) {
  83                         Font->CharPos[i++] = x;
  84                         while ((x < Font->Surface->w - 1)
  85                                && (GetPixel(Font->Surface, x, 0) ==
  86                                    SDL_MapRGB(Font->Surface->format, 255, 0,
  87                                               255)))
  88                                 x++;
  89                         Font->CharPos[i++] = x;
  90                 }
  91                 x++;
  92         }
  93         if (SDL_MUSTLOCK(Font->Surface))
  94                 SDL_UnlockSurface(Font->Surface);
  95
  96         Font->h = Font->Surface->h;
  97         SDL_SetColorKey(Font->Surface, SDL_SRCCOLORKEY,
  98                         GetPixel(Font->Surface, 0, Font->Surface->h - 1));
  99 }
 100
 101 #if 0
 102 void InitFont(SDL_Surface * Font)
 103 {
 104         InternalFont.Surface = Font;
 105         InitFont2(&InternalFont);
 106 }
 107
 108 #endif
 109
 110
 111
 112 void PutString2(SDL_Surface * Surface, SFont_FontInfo * Font, int x, int y,
 113                 char *text)
 114 {
 115         int ofs;
 116         int i = 0;
 117         SDL_Rect srcrect, dstrect;
 118
 119         while (text[i] != '\0') {
 120                 if (text[i] == ' ') {
 121                         x += Font->CharPos[2] - Font->CharPos[1];
 122                         i++;
 123                 } else {
 124                         ofs = ((unsigned char) text[i] - 33) * 2 + 1;
 125                         srcrect.w = dstrect.w = (Font->CharPos[ofs + 2]
 126                                 + Font->CharPos[ofs + 1]) / 2
 127                                 - (Font->CharPos[ofs] + Font->CharPos[ofs - 1])
 128                                          / 2;
 129                         srcrect.h = dstrect.h = Font->Surface->h - 1;
 130                         srcrect.x =
 131                             (Font->CharPos[ofs] + Font->CharPos[ofs - 1]) / 2;
 132                         srcrect.y = 1;
 133                         dstrect.x =
 134                             x - (float) (Font->CharPos[ofs] -
 135                                          Font->CharPos[ofs - 1]) / 2;
 136                         dstrect.y = y;
 137                         SDL_BlitSurface(Font->Surface, &srcrect, Surface,
 138                                         &dstrect);
 139                         x += Font->CharPos[ofs + 1] - Font->CharPos[ofs];
 140                         i++;
 141                 }
 142         }
 143 }
 144 #if 0
 145 void PutString(SDL_Surface * Surface, int x, int y, char *text)
 146 {
 147         PutString2(Surface, &InternalFont, x, y, text);
 148 }
 149
 150 #endif
 151 int TextWidth2(SFont_FontInfo * Font, char *text)
 152 {
 153         int ofs = 0;
 154         int i = 0, x = 0;
 155
 156         while (text[i] != '\0') {
 157                 if (text[i] == ' ') {
 158                         x += Font->CharPos[2] - Font->CharPos[1];
 159                         i++;
 160                 } else {
 161                         ofs = ((unsigned char) text[i] - 33) * 2 + 1;
 162                         x += Font->CharPos[ofs + 1] - Font->CharPos[ofs];
 163                         i++;
 164                 }
 165         }
 166         return x;
 167 }
 168
 169 #if 0
 170 int TextWidth(char *text)
 171 {
 172         return TextWidth2(&InternalFont, text);
 173 }
 174 #endif
 175
 176 void XCenteredString2(SDL_Surface * Surface, SFont_FontInfo * Font, int y,
 177                       char *text)
 178 {
 179         PutString2(Surface, Font, Surface->w / 2 - TextWidth2(Font, text) / 2,
 180                    y, text);
 181 }
 182
 183 #if 0
 184 void XCenteredString(SDL_Surface * Surface, int y, char *text)
 185 {
 186         XCenteredString2(Surface, &InternalFont, y, text);
 187 }
 188 #endif
 189
 190 void SFont_InternalInput(SDL_Surface * Dest, SFont_FontInfo * Font, int x,
 191                          int y, int PixelWidth, char *text)
 192 {
 193         SDL_Event event;
 194         int ch = -1, blink = 0;
 195         long blinktimer = 0;
 196         SDL_Surface *Back;
 197         SDL_Rect rect;
 198         int previous;
 199
 200         Back = SDL_AllocSurface(Dest->flags,
 201                 Dest->w,
 202                 Font->h,
 203                 Dest->format->BitsPerPixel,
 204                 Dest->format->Rmask,
 205                 Dest->format->Gmask, Dest->format->Bmask, 0);
 206         rect.x = 0;
 207         rect.y = y;
 208         rect.w = Dest->w;
 209         rect.h = Font->Surface->h;
 210         SDL_BlitSurface(Dest, &rect, Back, NULL);
 211         PutString2(Dest, Font, x, y, text);
 212         SDL_UpdateRects(Dest, 1, &rect);
 213
 214         /* start input */
 215         previous = SDL_EnableUNICODE(1);
 216         blinktimer = SDL_GetTicks();
 217         while (ch != SDLK_RETURN) {
 218                 if (event.type == SDL_KEYDOWN) {
 219                         ch = event.key.keysym.unicode;
 220                         if (((ch > 31) || (ch == '\b')) && (ch < 128)) {
 221                                 if ((ch == '\b') && (strlen(text) > 0))
 222                                         text[strlen(text) - 1] = '\0';
 223                                 else if (ch != '\b')
 224                                         sprintf(text, "%s%c", text, ch);
 225                                 if (TextWidth2(Font, text) > PixelWidth)
 226                                         text[strlen(text) - 1] = '\0';
 227                                 SDL_BlitSurface(Back, NULL, Dest, &rect);
 228                                 PutString2(Dest, Font, x, y, text);
 229                                 SDL_UpdateRects(Dest, 1, &rect);
 230                                 SDL_WaitEvent(&event);
 231                         }
 232                 }
 233                 if (SDL_GetTicks() > blinktimer) {
 234                         blink = 1 - blink;
 235                         blinktimer = SDL_GetTicks() + 500;
 236                         if (blink) {
 237                                 PutString2(Dest, Font,
 238                                            x + TextWidth2(Font, text), y, "|");
 239                                 SDL_UpdateRects(Dest, 1, &rect);
 240                         } else {
 241                                 SDL_BlitSurface(Back, NULL, Dest, &rect);
 242                                 PutString2(Dest, Font, x, y, text);
 243                                 SDL_UpdateRects(Dest, 1, &rect);
 244                         }
 245                 }
 246                 SDL_Delay(1);
 247                 SDL_PollEvent(&event);
 248         }
 249         text[strlen(text)] = '\0';
 250         SDL_FreeSurface(Back);
 251         /* restore the previous state */
 252         SDL_EnableUNICODE(previous);
 253 }
 254
 255 void SFont_Input2(SDL_Surface * Dest, SFont_FontInfo * Font, int x, int y,
 256                   int PixelWidth, char *text)
 257 {
 258         SFont_InternalInput(Dest, Font, x, y, PixelWidth, text);
 259 }