1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
diff -puriN SDL_perl-1.20.3/test/testfonttool.pl sdlperl-1.20.3/test/testfonttool.pl
--- SDL_perl-1.20.3/test/testfonttool.pl 2003-03-12 05:58:08 +0100
+++ sdlperl-1.20.3/test/testfonttool.pl 2006-03-01 00:42:56 +0100
@@ -32,24 +32,25 @@ $options{-depth} ||= $options{-bpp} || 2
$app = new SDL::App %options;
my %ttfonts = (
- 'aircut3.ttf' => 0,
- 'electrohar.ttf' => 0,
+ '/usr/share/fonts/truetype/freefont/FreeSerif.ttf' => 0,
+ '/usr/share/fonts/truetype/freefont/FreeSans.ttf' => 0,
+ '/usr/share/fonts/truetype/freefont/FreeMono.ttf' => 0,
);
my %sfonts = (
- '24P_Arial_NeonYellow.png' => 0,
- '24P_Copperplate_Blue.png' => 0,
+ 'data/24P_Arial_NeonYellow.png' => 0,
+ 'data/24P_Copperplate_Blue.png' => 0,
);
my @fonts;
for ( reverse keys %ttfonts ) {
for $mode ( qw/ -normal -bold -italic -underline / ) {
- if (-e "data/$_") {
+ if (-e "$_") {
print STDERR "Loading $_\n";
$ttfonts{"$_$mode"} = new SDL::Tool::Font
$mode => 1,
- -ttfont => "data/$_",
+ -ttfont => "$_",
-size => 20,
-fg => $SDL::Color::black,
-bg => $SDL::Color::black;
@@ -61,9 +62,9 @@ for ( reverse keys %ttfonts ) {
%ttfonts = reverse %ttfonts;
for ( reverse keys %sfonts) {
- if (-e "data/$_") {
+ if (-e "$_") {
print STDERR "Loading $_\n";
- $sfonts{$_} = new SDL::Tool::Font -sfont => "data/$_";
+ $sfonts{$_} = new SDL::Tool::Font -sfont => "$_";
push @fonts, $sfonts{$_};
}
}
|
