libvo/font_load.c

   1 /*
   2  * This file is part of MPlayer.
   3  *
   4  * MPlayer 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  * MPlayer 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 along
  15  * with MPlayer; if not, write to the Free Software Foundation, Inc.,
  16  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23 #include <string.h>
  24 #include <sys/types.h>
  25 #include <sys/stat.h>
  26 #include <unistd.h>
  27
  28 #include "font_load.h"
  29 #include "mp_msg.h"
  30
  31 raw_file* load_raw(char *name,int verbose){
  32     int bpp;
  33     raw_file* raw=malloc(sizeof(raw_file));
  34     unsigned char head[32];
  35     FILE *f=fopen(name,"rb");
  36     if(!f) goto err_out;                        // can't open
  37     if(fread(head,32,1,f)<1) goto err_out;        // too small
  38     if(memcmp(head,"mhwanh",6)) goto err_out;        // not raw file
  39     raw->w=head[8]*256+head[9];
  40     raw->h=head[10]*256+head[11];
  41     raw->c=head[12]*256+head[13];
  42     if(raw->w == 0) // 2 bytes were not enough for the width... read 4 bytes from the end of the header
  43         raw->w = ((head[28]*0x100 + head[29])*0x100 + head[30])*0x100 + head[31];
  44     if(raw->c>256) goto err_out;                 // too many colors!?
  45     mp_msg(MSGT_OSD, MSGL_DBG2, "RAW: %s  %d x %d, %d colors\n",name,raw->w,raw->h,raw->c);
  46     if(raw->c){
  47         raw->pal=malloc(raw->c*3);
  48         fread(raw->pal,3,raw->c,f);
  49         bpp=1;
  50     } else {
  51         raw->pal=NULL;
  52         bpp=3;
  53     }
  54     raw->bmp=malloc(raw->h*raw->w*bpp);
  55     fread(raw->bmp,raw->h*raw->w*bpp,1,f);
  56     fclose(f);
  57     return raw;
  58
  59 err_out:
  60     if (f)
  61       fclose(f);
  62     free(raw);
  63     return NULL;
  64 }
  65
  66 extern int sub_unicode;
  67
  68 font_desc_t* read_font_desc(const char* fname,float factor,int verbose){
  69 unsigned char sor[1024];
  70 unsigned char sor2[1024];
  71 font_desc_t *desc;
  72 FILE *f = NULL;
  73 char *dn;
  74 //struct stat fstate;
  75 char section[64];
  76 int i,j;
  77 int chardb=0;
  78 int fontdb=-1;
  79 int version=0;
  80 int first=1;
  81
  82 desc=malloc(sizeof(font_desc_t));if(!desc) goto fail_out;
  83 memset(desc,0,sizeof(font_desc_t));
  84
  85 f=fopen(fname,"rt");if(!f){ mp_msg(MSGT_OSD, MSGL_V, "font: can't open file: %s\n",fname); goto fail_out;}
  86
  87 i = strlen (fname) - 9;
  88 if ((dn = malloc(i+1))){
  89    strncpy (dn, fname, i);
  90    dn[i]='\0';
  91 }
  92
  93 desc->fpath = dn; // search in the same dir as fonts.desc
  94
  95 // desc->fpath=get_path("font/");
  96 // if (stat(desc->fpath, &fstate)!=0) desc->fpath=DATADIR"/font";
  97
  98
  99
 100
 101 // set up some defaults, and erase table
 102 desc->charspace=2;
 103 desc->spacewidth=12;
 104 desc->height=0;
 105 for(i=0;i<65536;i++) desc->start[i]=desc->width[i]=desc->font[i]=-1;
 106
 107 section[0]=0;
 108
 109 while(fgets(sor,1020,f)){
 110   unsigned char* p[8];
 111   int pdb=0;
 112   unsigned char *s=sor;
 113   unsigned char *d=sor2;
 114   int ec=' ';
 115   int id=0;
 116   sor[1020]=0;
 117
 118   /* skip files that look like: TTF (0x00, 0x01), PFM (0x00, 0x01), PFB
 119    * (0x80, 0x01), PCF (0x01, 0x66), fon ("MZ"), gzipped (0x1f, 0x8b) */
 120
 121   if (first) {
 122     if (!sor[0] || sor[1] == 1 || (sor[0] == 'M' && sor[1] == 'Z') || (sor[0] == 0x1f && sor[1] == 0x8b) || (sor[0] == 1 && sor[1] == 0x66)) {
 123       mp_msg(MSGT_OSD, MSGL_ERR, "%s doesn't look like a bitmap font description, ignoring.\n", fname);
 124       goto fail_out;
 125     }
 126     first = 0;
 127   }
 128
 129   p[0]=d;++pdb;
 130   while(1){
 131       int c=*s++;
 132       if(c==0 || c==13 || c==10) break;
 133       if(!id){
 134         if(c==39 || c==34){ id=c;continue;} // idezojel
 135         if(c==';' || c=='#') break;
 136         if(c==9) c=' ';
 137         if(c==' '){
 138           if(ec==' ') continue;
 139           *d=0; ++d;
 140           p[pdb]=d;++pdb;
 141           if(pdb>=8) break;
 142           continue;
 143         }
 144       } else {
 145         if(id==c){ id=0;continue;} // idezojel
 146
 147       }
 148       *d=c;d++;
 149       ec=c;
 150   }
 151   if(d==sor2) continue; // skip empty lines
 152   *d=0;
 153
 154 //  printf("params=%d  sor=%s\n",pdb,sor);
 155 //  for(i=0;i<pdb;i++) printf("  param %d = '%s'\n",i,p[i]);
 156
 157   if(pdb==1 && p[0][0]=='['){
 158       int len=strlen(p[0]);
 159       if(len && len<63 && p[0][len-1]==']'){
 160         strcpy(section,p[0]);
 161         mp_msg(MSGT_OSD, MSGL_DBG2, "font: Reading section: %s\n",section);
 162         if(strcmp(section,"[files]")==0){
 163             ++fontdb;
 164             if(fontdb>=16){ mp_msg(MSGT_OSD, MSGL_ERR, "font: Too many bitmaps defined.\n");goto fail_out;}
 165         }
 166         continue;
 167       }
 168   }
 169
 170   if(strcmp(section,"[fpath]")==0){
 171       if(pdb==1){
 172           if (desc->fpath)
 173              free (desc->fpath); // release previously allocated memory
 174           desc->fpath=strdup(p[0]);
 175           continue;
 176       }
 177   } else
 178
 179 #ifdef __AMIGAOS4__
 180 #define FONT_PATH_SEP ""
 181 #else
 182 //! path seperator for font paths, may not be more than one character
 183 #define FONT_PATH_SEP "/"
 184 #endif
 185
 186   if(strcmp(section,"[files]")==0){
 187       char *default_dir=MPLAYER_DATADIR FONT_PATH_SEP "font";
 188       if(pdb==2 && strcmp(p[0],"alpha")==0){
 189           char *cp;
 190           if (!(cp=malloc(strlen(desc->fpath)+strlen(p[1])+2))) goto fail_out;
 191
 192           snprintf(cp,strlen(desc->fpath)+strlen(p[1])+2,"%s" FONT_PATH_SEP "%s",
 193                 desc->fpath,p[1]);
 194           if(!((desc->pic_a[fontdb]=load_raw(cp,verbose)))){
 195                 free(cp);
 196                 if (!(cp=malloc(strlen(default_dir)+strlen(p[1])+2)))
 197                    goto fail_out;
 198                 snprintf(cp,strlen(default_dir)+strlen(p[1])+2,"%s" FONT_PATH_SEP "%s",
 199                          default_dir,p[1]);
 200                 if (!((desc->pic_a[fontdb]=load_raw(cp,verbose)))){
 201                    mp_msg(MSGT_OSD, MSGL_ERR, "Can't load font bitmap: %s\n",p[1]);
 202                    free(cp);
 203                    goto fail_out;
 204                 }
 205           }
 206           free(cp);
 207           continue;
 208       }
 209       if(pdb==2 && strcmp(p[0],"bitmap")==0){
 210           char *cp;
 211           if (!(cp=malloc(strlen(desc->fpath)+strlen(p[1])+2))) goto fail_out;
 212
 213           snprintf(cp,strlen(desc->fpath)+strlen(p[1])+2,"%s" FONT_PATH_SEP "%s",
 214                 desc->fpath,p[1]);
 215           if(!((desc->pic_b[fontdb]=load_raw(cp,verbose)))){
 216                 free(cp);
 217                 if (!(cp=malloc(strlen(default_dir)+strlen(p[1])+2)))
 218                    goto fail_out;
 219                 snprintf(cp,strlen(default_dir)+strlen(p[1])+2,"%s" FONT_PATH_SEP "%s",
 220                          default_dir,p[1]);
 221                 if (!((desc->pic_b[fontdb]=load_raw(cp,verbose)))){
 222                    mp_msg(MSGT_OSD, MSGL_ERR, "Can't load font bitmap: %s\n",p[1]);
 223                    free(cp);
 224                    goto fail_out;
 225                 }
 226           }
 227           free(cp);
 228           continue;
 229       }
 230   } else
 231
 232   if(strcmp(section,"[info]")==0){
 233       if(pdb==2 && strcmp(p[0],"name")==0){
 234           desc->name=strdup(p[1]);
 235           continue;
 236       }
 237       if(pdb==2 && strcmp(p[0],"descversion")==0){
 238           version=atoi(p[1]);
 239           continue;
 240       }
 241       if(pdb==2 && strcmp(p[0],"spacewidth")==0){
 242           desc->spacewidth=atoi(p[1]);
 243           continue;
 244       }
 245       if(pdb==2 && strcmp(p[0],"charspace")==0){
 246           desc->charspace=atoi(p[1]);
 247           continue;
 248       }
 249       if(pdb==2 && strcmp(p[0],"height")==0){
 250           desc->height=atoi(p[1]);
 251           continue;
 252       }
 253   } else
 254
 255   if(strcmp(section,"[characters]")==0){
 256       if(pdb==3){
 257           int chr=p[0][0];
 258           int start=atoi(p[1]);
 259           int end=atoi(p[2]);
 260           if(sub_unicode && (chr>=0x80)) chr=(chr<<8)+p[0][1];
 261           else if(strlen(p[0])!=1) chr=strtol(p[0],NULL,0);
 262           if(end<start) {
 263               mp_msg(MSGT_OSD, MSGL_WARN, "error in font desc: end<start for char '%c'\n",chr);
 264           } else {
 265               desc->start[chr]=start;
 266               desc->width[chr]=end-start+1;
 267               desc->font[chr]=fontdb;
 268 //              printf("char %d '%c'  start=%d width=%d\n",chr,chr,desc->start[chr],desc->width[chr]);
 269               ++chardb;
 270           }
 271           continue;
 272       }
 273   }
 274   mp_msg(MSGT_OSD, MSGL_ERR, "Syntax error in font desc: %s",sor);
 275   goto fail_out;
 276
 277 }
 278 fclose(f);
 279 f = NULL;
 280
 281  if (first == 1) {
 282    mp_msg(MSGT_OSD, MSGL_ERR, "%s is empty or a directory, ignoring.\n", fname);
 283    goto fail_out;
 284  }
 285
 286 //printf("font: pos of U = %d\n",desc->start[218]);
 287
 288 for(i=0;i<=fontdb;i++){
 289     if(!desc->pic_a[i] || !desc->pic_b[i]){
 290         mp_msg(MSGT_OSD, MSGL_ERR, "font: Missing bitmap(s) for sub-font #%d\n",i);
 291         goto fail_out;
 292     }
 293     //if(factor!=1.0f)
 294     {
 295         // re-sample alpha
 296         int f=factor*256.0f;
 297         int size=desc->pic_a[i]->w*desc->pic_a[i]->h;
 298         int j;
 299         mp_msg(MSGT_OSD, MSGL_DBG2, "font: resampling alpha by factor %5.3f (%d) ",factor,f);fflush(stdout);
 300         for(j=0;j<size;j++){
 301             int x=desc->pic_a[i]->bmp[j];       // alpha
 302             int y=desc->pic_b[i]->bmp[j];       // bitmap
 303
 304 #ifdef FAST_OSD
 305             x=(x<(255-f))?0:1;
 306 #else
 307
 308             x=255-((x*f)>>8); // scale
 309             //if(x<0) x=0; else if(x>255) x=255;
 310             //x^=255; // invert
 311
 312             if(x+y>255) x=255-y; // to avoid overflows
 313
 314             //x=0;
 315             //x=((x*f*(255-y))>>16);
 316             //x=((x*f*(255-y))>>16)+y;
 317             //x=(x*f)>>8;if(x<y) x=y;
 318
 319             if(x<1) x=1; else
 320             if(x>=252) x=0;
 321 #endif
 322
 323             desc->pic_a[i]->bmp[j]=x;
 324 //            desc->pic_b[i]->bmp[j]=0; // hack
 325         }
 326         mp_msg(MSGT_OSD, MSGL_DBG2, "DONE!\n");
 327     }
 328     if(!desc->height) desc->height=desc->pic_a[i]->h;
 329 }
 330
 331 j='_';if(desc->font[j]<0) j='?';
 332 for(i=0;i<65536;i++)
 333   if(desc->font[i]<0){
 334       desc->start[i]=desc->start[j];
 335       desc->width[i]=desc->width[j];
 336       desc->font[i]=desc->font[j];
 337   }
 338 desc->font[' ']=-1;
 339 desc->width[' ']=desc->spacewidth;
 340
 341 mp_msg(MSGT_OSD, MSGL_V, "Bitmap font %s loaded successfully! (%d chars)\n",fname,chardb);
 342
 343 return desc;
 344
 345 fail_out:
 346   if (f)
 347     fclose(f);
 348   if (desc->fpath)
 349     free(desc->fpath);
 350   if (desc->name)
 351     free(desc->name);
 352   if (desc)
 353     free(desc);
 354   return NULL;
 355 }
 356
 357 #ifndef CONFIG_FREETYPE
 358 void render_one_glyph(font_desc_t *desc, int c) {}
 359 int kerning(font_desc_t *desc, int prevc, int c) { return 0; }
 360 #endif