misty247

< 新しい記事

新着記事一覧(全1096件)

過去の記事 >

2011.06.29

点字を書く 21 (点字凹面を出力する)

テーマ：点字・点訳(23)

カテゴリ：点字・点訳

　◆ Mission5. 点字凹面を出力する ◆

　ibukiTenCの出力するコードはNABCC(North American Braille Computer Code)という北米点字コードである。 http://www.kgs-jpn.co.jp/dev/nabcc.html の解説によると、ASCIIコードの20h～7Fhに割り当てられている。墨点字の発想と同じく、本来のASCIIキャラと極力対応するように企図されている。コンピュータ上で点字を扱う場合のデファクトスタンダードのコードであるようだ。

　「NABCC フォント」で検索するとベクターで見つかった。
http://www.vector.co.jp/soft/data/writing/se007602.html
　TrueType 点字フォント BRAILLE.TTF 1993年パタさん作

　これを使って、NABCCコードを点字で表示させてみよう。

・上記サイトよりフォントをダウンロード
・フォントをインストール
　(コントロールパネル→フォントのフォルダに .TTF ファイルをコピー)

 If lngRet = 1 Then
Do
lPos = lPos + 1
lCode = Asc(Mid(sNabcc, lPos, 1))
sResult = sResult & Hex$(lCode) & ":"
Loop While lCode <> 0
ActiveDocument.Content.Text = sSource & vbCr & sResult

With ActiveDocument.Paragraphs
Call .Add
.Alignment = wdAlignParagraphLeft
With .Last.Range
.Font.Name = "Braille"
.Font.Size = "22"
.Text = Left$(sNabcc, lPos - 1)
End With
End With
Else

　ワードの結果は、

　" かれ濁か＿外大Ａ＿を＿数１　０こ＿かった＿ "

　と見事に点字で表示された。

　しかし、喜ぶのはまだ早い。出力したいのは凹面なのだ。
　「NABCC 凹面フォント」で逆順に表示させれば、それで解決だ。ところが、探してもNABCC 凹面フォントが見つからなかった。ありそうで、意外にないのである。
　さて、どうしよう。

お気に入りの記事を「いいね！」で応援しよう