Roxen.git / server / font_handlers / old.pike

version» Context lines:

Roxen.git/server/font_handlers/old.pike:1:   // This file is part of Roxen WebServer.   // Copyright © 1996 - 2000, Roxen IS.      #include <config.h> - constant cvs_version = "$Id: old.pike,v 1.7 2000/09/04 10:26:53 per Exp $"; + constant cvs_version = "$Id: old.pike,v 1.8 2001/02/02 06:59:04 nilsson Exp $";      constant name = "Compatibility bitmap fonts";   constant doc =   "Compatibility (bitmapped) fonts for Roxen 1.3 and earlier."   " Compact image file fonts are preferable to this format, since they are "   "almost always smaller, and easier to create.";      inherit FontHandler;      array available_fonts()
Roxen.git/server/font_handlers/old.pike:89:    {    base_dir = dir+size+"/"+fix_name(name);    if((available = r_get_dir(base_dir))) break;    base_dir=dir+"/32/"+fix_name(name);    available = r_get_dir(base_dir);    }    if(!available) return 0;    return available - ({ "CVS" });   }    + class MyFont { +  inherit Image.Font; +  +  void set_x_spacing(int|float delta) { +  if(intp(delta)) +  ::set_x_spacing( (100.0+delta)/100.0 ); +  else +  ::set_x_spacing( delta ); +  } +  +  void set_y_spacing(int|float delta) { +  if(intp(delta)) +  ::set_y_spacing( (100.0+delta)/100.0 ); +  else +  ::set_y_spacing( (float)delta ); +  } + } +    Font open( string name, int size, int bold, int italic )   {    string f = make_font_name( name, size, bold, italic ); -  Image.Font fn = Image.Font(); +  Image.Font fn = MyFont();    foreach( roxen->query( "font_dirs"), string dir )    foreach( ({ size, 32 }), int sz )    {    if( r_file_stat( dir+"/"+sz+"/"+f ) )    {    if( fn->load( roxen_path( dir+"/"+sz+"/"+f ) ) )    return fn;    }    }   }