文字テーブル作成

キャンバスで遊び中 - テキスト表示 - fujidigの雑記 でつかった http://www.fujidig.com/2008/06/images/chars.png の画像を作るときに使った。

buffer 1

FAMILY = "VL ゴシック"
SIZE = 128
font FAMILY, SIZE
pos 32000 : mes " "
W = ginfo_mesx
H = ginfo_mesy
CHARS_NUM = '~'-' '+1

buffer 1, W * CHARS_NUM, H
color : boxf
color $FF, $FF, $FF
font FAMILY, SIZE
repeat CHARS_NUM
	pos W * cnt, 0
	mes strf("%c",' '+cnt)
loop

dialog "bmp", 17
if stat == 0 : end
bmpsave refstr

これで黒白のマスク画像ができるので ImageMagick でアルファ PNG に直したような気がする。

$ convert chars_mask.bmp \
\( +clone \) +matte -compose CopyOpacity -composite \
-fill Black  -colorize 100% chars.png