forked from 0ad/0ad
Ykkrosh
7dca91f26b
Rewrite font builder tool to be much simpler and to support more text effects. Change GUI to use new set of fonts. Switch font textures from TGA to PNG so they're easier for the font builder to create. Support RGBA font textures (for e.g. stroked text). Greatly improve text rendering performance by using vertex arrays. Fix rendering code leaving vertex buffers bound. Add 'clip' property to GUI text objects, to disable clipping when rendering. Delete part of unused console function registration system. This was SVN commit r7595.
33 lines
801 B
Perl
33 lines
801 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
use Unicode::UCD;
|
|
use Data::Dumper;
|
|
|
|
binmode STDOUT, ':utf8';
|
|
|
|
my @cs;
|
|
|
|
for ( # (these are probably more than we really need)
|
|
'Basic Latin',
|
|
'Latin-1 Supplement',
|
|
'Latin Extended-A',
|
|
'Latin Extended-B',
|
|
'Latin Extended Additional',
|
|
'Spacing Modifier Letters',
|
|
'General Punctuation',
|
|
) {
|
|
print "# $_\n";
|
|
for my $r (@{Unicode::UCD::charblock($_)}) {
|
|
for my $c ($r->[0]..$r->[1]) {
|
|
next if $c < 0x20 or ($c >= 0x7f and $c < 0xa0);
|
|
printf "%04X: %s %s\n", $c, chr($c), Unicode::UCD::charinfo($c)->{name} if Unicode::UCD::charinfo($c);
|
|
}
|
|
}
|
|
print "\n";
|
|
}
|
|
|
|
for my $c (0xFE33, 0xFFFD) {
|
|
printf "%04X: %s %s\n", $c, chr($c), Unicode::UCD::charinfo($c)->{name} if Unicode::UCD::charinfo($c);
|
|
}
|