Roxen.git
/
server
/
font_handlers
/
old.pike
version
»
Context lines:
10
20
40
80
file
none
3
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; } } }