… | |
… | |
455 | my $fi = $FACEINFO{$face} ||= { }; |
455 | my $fi = $FACEINFO{$face} ||= { }; |
456 | $fi->{visibility} = $visibility * 1; |
456 | $fi->{visibility} = $visibility * 1; |
457 | $fi->{magicmap} = $fgi; # foreground colour becomes magicmap |
457 | $fi->{magicmap} = $fgi; # foreground colour becomes magicmap |
458 | |
458 | |
459 | $glyph .= " " if 2 > length $glyph; # TODO kanji |
459 | $glyph .= " " if 2 > length $glyph; # TODO kanji |
|
|
460 | die "glyph $face too long" if 2 < length $glyph; |
460 | |
461 | |
461 | $fi->{glyph} = ""; |
462 | $fi->{glyph} = ""; |
462 | for (split //, $glyph, -1) { |
463 | for (split //, $glyph) { |
463 | utf8::encode $_; |
464 | utf8::encode $_; |
464 | $fi->{glyph} .= (chr $fgi) . (chr $bgi) . $_; |
465 | $fi->{glyph} .= (chr $fgi) . (chr $bgi) . $_; |
465 | } |
466 | } |
466 | } |
467 | } |
467 | } |
468 | } |