Получение шpифтов koi8.t (font charset)
Ключевые слова: font, charset, (найти похожие документы)
_ RU.UNIX.SOLARIS (2:5077/15.22) _____________________________ RU.UNIX.SOLARIS _
From : Alex Zakirov 2:5029/5 03 Sep 99 09:36:48
Subj : Получение шpифтов koi8.t
________________________________________________________________________________
Vladimir Uralsky <Vladimir.Uralsky@p257.f257.n5030.z2.fidonet.org> wrote:
>> Если же открыть консоль, то pcmapkeys -f koi8.t срабатывает
>> но русская раскладка при этом не соответсвует koi8.t
VU> Ого! А где ты взял этот koi8.t? Может еще и koi8.bdf можно где-то взять?
фонты самое простое: берешь koi8-r фонт от фрюхи, запускаешь то что
ниже... А вот koi8.t очень бы хотелось поиметь.
====================== vgato bdf ========================
#!/usr/bin/perl
if ( !defined($ARGV[0]) ) {
print "usage: $0 <binary vga font file 4096>\n";
exit(1);
}
my $font = $ARGV[0];
open(FNT,"<$font") || die("can't open source font: $!");
my ($char,@lines);
my $nchar = 0;
print <<__font_header__;
COMMENT converted from $font
STARTFONT 2.1
FONT 8x16
SIZE 16 75 75
FONTBOUNDINGBOX 8 16 0 -4
STARTPROPERTIES 3
FONT_DESCENT 4
FONT_ASCENT 12
DEFAULT_CHAR 0
ENDPROPERTIES
CHARS 256
__font_header__
while ( read(FNT,$char,16) ) {
@lines = map(unpack("H2",pack("C",$_)),unpack("C16",$char));
print "STARTCHAR C00",unpack("H2",pack("C",$nchar)),"\n";
print "ENCODING $nchar\nSWIDTH 666 0\nDWIDTH 8 0\n";
print "BBX 8 16 0 -4\nBITMAP\n";
print join("\n",@lines),"\n";
print "ENDCHAR\n";
$nchar++;
}
close(FNT);
print "ENDFONT\n";
*** WBR, Alex Zakirov (frank@pptus.ru, ICQ:38685959, 2:5029/5)
...Any sufficiently advanced operating system is indistinguishable from Unix.
--- tin/pre-1.4-19990517 ("Psychonaut") (UNIX) (FreeBSD/3.1-19990324-STABLE
(i386))
* Origin: RSI Station (2:5029/5@fidonet)
