line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Term::Graille::Font; |
2
|
1
|
|
|
1
|
|
871
|
use strict; use warnings; |
|
1
|
|
|
1
|
|
2
|
|
|
1
|
|
|
|
|
23
|
|
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
19
|
|
3
|
1
|
|
|
1
|
|
4
|
use utf8; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
3
|
|
4
|
1
|
|
|
1
|
|
529
|
use Data::Dumper; |
|
1
|
|
|
|
|
5080
|
|
|
1
|
|
|
|
|
47
|
|
5
|
1
|
|
|
1
|
|
7
|
use Term::Graille qw/block2braille/; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
33
|
|
6
|
1
|
|
|
1
|
|
5
|
use base 'Exporter'; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
89
|
|
7
|
|
|
|
|
|
|
our @EXPORT_OK = qw/convertDG saveGrf loadGrf fontWrite/; |
8
|
1
|
|
|
1
|
|
6
|
use open ":std", ":encoding(UTF-8)"; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
5
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our $VERSION="0.08"; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
=head1 NAME |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
Term::Graille::Font - convert and use ZX Spectrum fonts in Term::Graille |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
=head1 SYNOPSIS |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
use Term::Graille::Font qw/convertDG saveGrf fontWrite/; |
20
|
|
|
|
|
|
|
my $grf=convertDG("$fontName.z80.asm"); |
21
|
|
|
|
|
|
|
$canvas->blockBlit($grf->{A},$gridX,$gridY); # old method single character |
22
|
|
|
|
|
|
|
fontWrite($canvas,$grf,$gridX,$gridY,$text); # new method text string |
23
|
|
|
|
|
|
|
saveGrf($grf,"$fontName.grf"); |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=head1 DESCRIPTION |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
This allows the creation, saving and usage of Braille Character to form |
28
|
|
|
|
|
|
|
Bitmap 8x8 font. It currently only accepts DameinGuards z80.asm files |
29
|
|
|
|
|
|
|
as found in damieng.com/typography/zx-origins/ where there a couple of |
30
|
|
|
|
|
|
|
hundred fonts available. |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
=begin html |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
=end html |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
=head1 FUNCTIONS |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
=cut |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
=head3 C |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
Reads an ASM file as on Damien Guard's typography pages and returns a hashref |
46
|
|
|
|
|
|
|
containing the extracted 8x8 fonts converted into 4x2 Braille characters. |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=cut |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
sub convertDG{ |
51
|
0
|
|
|
0
|
1
|
|
my $file=shift; |
52
|
0
|
|
|
|
|
|
my $font=""; |
53
|
0
|
0
|
|
|
|
|
open my $zxFont,"<:utf8",$file or die "Unable to open fontfile $file $!;\n"; |
54
|
0
|
|
|
|
|
|
$font.=$_ while(<$zxFont>); |
55
|
0
|
|
|
|
|
|
close $zxFont; |
56
|
|
|
|
|
|
|
|
57
|
0
|
|
|
|
|
|
$font=~s/^[\s\t]?;([^\n]+)/{/g; |
58
|
0
|
|
|
|
|
|
my $info=$1; |
59
|
0
|
|
|
|
|
|
$font=~s/defb &/[[0x/g; |
60
|
0
|
|
|
|
|
|
$font=~s/,&/],[0x/g; |
61
|
0
|
|
|
|
|
|
$font=~s/ ; /]],# /g; |
62
|
0
|
|
|
|
|
|
$font=~s/\s([^#\s]*)#\s(.)/ '$2'=>$1/g; |
63
|
0
|
|
|
|
|
|
$font=~s/\'\'\'/\"\'\"/g; |
64
|
0
|
|
|
|
|
|
$font=~s/\'\\\'/\'\\\\\'/g; |
65
|
0
|
|
|
|
|
|
$font.="\n}\n"; |
66
|
|
|
|
|
|
|
# print $font; |
67
|
0
|
|
|
|
|
|
my $binFont=eval($font); |
68
|
0
|
|
|
|
|
|
my $grlFont={}; |
69
|
0
|
|
|
|
|
|
for (keys %$binFont){ |
70
|
1
|
|
|
1
|
|
712
|
use utf8; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
4
|
|
71
|
0
|
|
|
|
|
|
$grlFont->{$_}=block2braille($binFont->{$_}) ; |
72
|
|
|
|
|
|
|
} |
73
|
0
|
|
0
|
|
|
|
$grlFont->{info}=$info||""; |
74
|
0
|
|
|
|
|
|
return $grlFont; |
75
|
|
|
|
|
|
|
} |
76
|
|
|
|
|
|
|
|
77
|
|
|
|
|
|
|
=head3 C |
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
Uses Data::Dumper to produce convert a font hashref into a file that can |
80
|
|
|
|
|
|
|
be read using loadGrf |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
=cut |
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
sub saveGrf{ |
85
|
0
|
|
|
0
|
1
|
|
my ($grf,$file)=@_; |
86
|
0
|
|
|
|
|
|
my $output=Dumper([$grf]); |
87
|
0
|
|
|
|
|
|
$output=~ s/\\x\{([0-9a-f]{2,})\}/chr hex $1/ge; |
|
0
|
|
|
|
|
|
|
88
|
0
|
|
|
|
|
|
$output=~s/^\$VAR1 = \[\n\s+| \];\n?$//g; |
89
|
0
|
|
|
|
|
|
$output=~s/\[\n\s+\[/\[\[/g; |
90
|
0
|
|
|
|
|
|
$output=~s/\n\s+([^\s])/$1/g; |
91
|
0
|
|
|
|
|
|
$output=~s/\]\],/\]\],\n/g; |
92
|
0
|
0
|
|
|
|
|
die "Conversion failed\n" if (length $output <100); |
93
|
0
|
0
|
|
|
|
|
open my $dat,">:utf8","$file" or die "Unable to save fontfile $file $!;\n"; |
94
|
0
|
|
|
|
|
|
print $dat $output; |
95
|
0
|
|
|
|
|
|
close $dat; |
96
|
|
|
|
|
|
|
} |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
|
99
|
|
|
|
|
|
|
=head3 C |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
Loads a font hashref from a file. The hashRef indexes 4x2 braille character |
102
|
|
|
|
|
|
|
blocks by character they represent; This may be used to represent any kind of |
103
|
|
|
|
|
|
|
character block, including tilemaps, sprites etc. |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
=cut |
106
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
#loads a hashfile representing a 2D Array ref blocks of data |
108
|
|
|
|
|
|
|
#can be used to load fonts or other graphical blocks |
109
|
|
|
|
|
|
|
sub loadGrf{ |
110
|
0
|
|
|
0
|
1
|
|
my $file=shift; |
111
|
0
|
0
|
|
|
|
|
open my $grf,"<:utf8",$file or |
112
|
|
|
|
|
|
|
die "Unable to open file $file $!;\n" ; |
113
|
0
|
|
|
|
|
|
my $data=""; |
114
|
0
|
|
|
|
|
|
$data.=$_ while(<$grf>); |
115
|
0
|
|
|
|
|
|
close $grf; |
116
|
0
|
0
|
|
|
|
|
my $g=eval($data) or die "unable to load external data from $file $!";; |
117
|
0
|
|
|
|
|
|
return $g; |
118
|
|
|
|
|
|
|
} |
119
|
|
|
|
|
|
|
|
120
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
=head3 C<$fontWrite($canvas,$font,$gridX,$gridY,$text);> |
122
|
|
|
|
|
|
|
|
123
|
|
|
|
|
|
|
Writes a C<$text> string using a loaded font into a particular grid |
124
|
|
|
|
|
|
|
location in a C<$canvas> |
125
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
=cut |
127
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
sub fontWrite{ |
129
|
0
|
|
|
0
|
1
|
|
my ($canvas,$font,$gridX,$gridY,$text)=@_; |
130
|
0
|
|
|
|
|
|
for my $chPos(0..(length $text)-1){ |
131
|
0
|
|
|
|
|
|
$canvas->blockBlit($font->{substr($text,$chPos, 1)},$gridX+4*$chPos, $gridY) |
132
|
|
|
|
|
|
|
} |
133
|
|
|
|
|
|
|
} |
134
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
1; |