ぽち＊ろぐ

Perl/Tk で縦書きビューワーを作りたい

青空昆布の開発を引き継ぎましたや xjp2 を見て刺激を受けたぽち、先日の記事への Facelessさんのコメント、全部Perlで書けばいいと思うよ！思うよ！に背中を押され、とうとう無謀にも自分で縦書きビューワーを作ろうなんて企んでしまいました。後々青空文庫向け機能も充実させたいとは思いますけども、まずはシンプルに「読み込んだテキストファイルを縦書きで表示する」という機能だけのものを作る予定です。

いざ縦書きビューワーを作ろうとすると一番問題になるのは、括弧、長音、句読点等の字形が横書きと縦書きでは違うという点です。代表的な日本語TrueTypeフォント、例えば IPAフォントには縦書きグリフも備わっていますが、縦書きに適さない横書きグリフに対応する縦書きグリフをフォントから取り出す方法に躓いてしまいました。調べてみると、TrueTypeフォントには内部に GSUB と呼ばれる横書きグリフID と縦書きグリフID の対応表があって、それを使って縦書きグリフを持って来るみたいなのですけども、具体的にどうやったらいいのか(それが Perl で可能なのかさえ)もわかりません。とりあえずは xjp2 ではどうやってるのか C で書かれたソースコードを眺めてみようと思います。