[ruby-list:49414] Re: Pango で縦組ができない

須藤です。

In <CAET2rA8Oa+yMoOGazeLm99GsvNHeXMUbcRn=[e-mail]>
  "[ruby-list:49412] Re: Pango で縦組ができない" on Sun, 26 May 2013 01:13:10 +0900,
  myokoym <[e-mail]> wrote:

> 2013年5月25日 13:49 Kouhei Sutou <[e-mail]>:
>> 2.0.1を使うと、↓でWindowsでもOS Xでも動くと思います！
>> （コメントをつけたところを1行追加しています。）
> 
> Windows7ではうまく動きそうなのですが、XPでは require "pango" が失敗するようです。
> たぶん、libharfbuzz-0.dll で使われている usp10.dll の
> 
>     ScriptItemizeOpenType
>     ScriptPlaceOpenType
>     ScriptShapeOpenType
> 
> が、XPに入っている古いバージョンのusp10.dllだと使えないのが原因だと思います。

おぉ。。。
確認ありがとうございます！
（Windows XP、大変ですね。。。）

↑を使わないようにビルドしたHarfBuzz入りのpango gem 2.0.2を
リリースしました。

2.0.1はOS Xで使うとクラッシュするという報告ももらったので、
それの修正も入れています。（たぶん、直っているはず。。。）

それに関係して、加えないといけない1行の書き方も変わりました。

  Pango::CairoFcFontMap.new
ではなく
  Pango::CairoFontMap.create(:freetype)
になっています。

念のため、
  Pango::CairoFontMap.create(:freetype)
の結果がnilではないことを確認してもらえますか？

# encoding: utf-8

require 'pango'

# ↓を追加
Pango::CairoFontMap.default = Pango::CairoFontMap.create(:freetype)

fonts=["IPAexGothic", "IPAmjMincho", "Hiragino Kaku Gothic Pro"]

surface=Cairo::ImageSurface.new Cairo::Format::ARGB32, 400, 400
context=Cairo::Context.new surface

[:south, :east].each_with_index do |gravity, i|
  fonts.each_with_index do |font, j|
    marked_text=%|<span size="20480" lang="ja" face="#{font}">「ひゃーっ。」</span>|
    attr_list, text=Pango.parse_markup(marked_text)
    layout=context.create_pango_layout
    layout.text=text
    layout.attributes=attr_list
    layout.context.base_gravity=gravity
    context.move_to 10, 200*i+50*j
    context.show_pango_layout(layout)
    context.update_pango_layout(layout)
  end
end

surface.write_to_png __FILE__+".png"