■ 手軽に高橋メソッドな PDF v2

テキストファイルとして手軽に「高橋メソッドなプレゼンテーション」を作成して PDF 化してしまいましょう。準備ができてしまえば、とっても手軽な感じになります。

使い方
ソースコード
解説
履歴
参考 URL

以前 PDFlib を使用したほぼ同等のもの(今回は「べつやくメソッド」と「イメージ」や「ロゴ」のサポートの追加)を「手軽に高橋メソッドな PDF (OLD) 」として作成していたのですが PDFlib のライセンスもあり、いい PDF のライブラリを探していました。今回すばらしい PDF ライブラリとであえましたので、機能拡張も含めて新しくスクリプトを書いてみました。

PDF ライブラリとして Haru Free PDF Library II を使わせていただきました。ありがとうございます。 Ruby のためのサポートもあります。ぜひ PDF を直接作成する場合に検討してみてください。とてもいいです。

2007/5/17 現在

ruby 1.9.0 (2007-05-15 patchlevel 0) [i686-linux]
ruby 1.8.5 (2006-08-25) [i386-linux]

で動作確認をしています。

今後サンプルの PDF や実行サンプルをもっと充実させていきたいです。 PDF を作成のためのサンプルとして、また「文字を大きく出力したい」用途などに使ってみてください。

■ 使い方

高橋メソッドな内容のテキストファイルを作成します。作成のためのルールは、

空白行があると改ページ
一行は一行
行の先頭が「半角スペース」の場合は Wiki 記法と同じようにそのまま出力
行の先頭が「//」の場合には、コメント「イメージなどを扱える拡張コマンドあり」
現在入力テキストの漢字コードは EUC-JP です
-S オプションを指定することで入力テキストで SJIS の漢字コードを扱えます
adobe reader は URL を URL として認識しますが、URL の埋め込をサポート
「L:文字列」で左寄せ、「R:文字列」で右寄せになります

です。

結果としての出力は、

できるだけ大きなフォントでページいっぱいに
行はセンタリングされます
PDF 上は A4 横サイズ
acrobat(Adobe Reader)でプレゼンテーションするときにはフルスクリーンモード(表示メニューから)で
読み上げ機能が有効の場合に使えます読み上げには MS Office 2003/XP などが必要です MS Office 2007 はだめでした(T-T)

です。

実際にみてみましょう。

Ruby
で作った
//l tetsu.jpg
//f uzura.ttf

高橋
メソッド

PDF
変換
スクリプト

入力は

テキスト
ファイル

とっても
手軽

できあがった
PDF

全画面
表示
で楽々

ソースコード

 def line_len(l, size)
   p_length = 0.0
   l.split('').each do |c|
     p_length += c_len(c, size)
   end
   p_length
 end

も楽々

イメージ

花って
いいですね
//i P1000077.JPG

も楽々

べつやく
メソッド

対応予定

//%50 もうすこしで完成
//%30 わくわく
//%15 なにに使おう
//% bugがでませんように

円グラフ
美しく
だしたいです

という入力ファイルから、次のような PDF( t5.pdf ) 1.6MB が作成できます。イメージが入っていてすこし大きくなっています。この出力では次のオプションを使いました。

$ t2pdf.rb -p -g t5.txt

入力ファイル名が t5.txt の場合、出力ファイル名は t5.pdf になります。

オプション

オプションは、次のものがあります。

オプション説明

-p ページ番号を出力

-S SJIS の入力テキストのサポート

-g 背景にグリッドを表示

-n 入力のテキストに外部ファイルを利用するオプションがあった場合に無視します(//f, //i, //l)

-f TrueTypeFontPATH TrueType フォントを使用します

-l LogoImagePATH(jpeg,png) ロゴにイメージを指定することが可能です Jpeg と PNG をサポートしています

-a アンチョコ(次のページの文字)を下に小さく表示します

オプション	説明
`-p`	ページ番号を出力
`-S`	SJIS の入力テキストのサポート
`-g`	背景にグリッドを表示
`-n`	入力のテキストに外部ファイルを利用するオプションがあった場合に無視します(//f, //i, //l)
`-f TrueTypeFontPATH`	TrueType フォントを使用します
`-l LogoImagePATH(jpeg,png)`	ロゴにイメージを指定することが可能です Jpeg と PNG をサポートしています
`-a`	アンチョコ(次のページの文字)を下に小さく表示します

TrueType フォントを指定することが可能です。本文で指定も可能ですが、本文を変更せずに多くのファイルを扱う場合は、オプションを指定ください。 TrueType フォントによっては動作しないものもあるようです。また、レイアウト的に若干ずれるものもあるようです。 TrueTyep フォントロードのエラーがでた場合は、そのフォントはサポートしていないタイプなので別のフォントを指定してください。フォントファイルの拡張子は、「.ttf」のみのようです。ロードでエラーがでない場合でも PDF ファイルを作成する段階でエラーになる場合もあるようです。

JIS第一水準漢字まで備えるかわいい太字の手書き風フォント「うずらフォント」現在は第二水準もある程度サポートされています。同じ作者の「あずきフォント」も動作します。
Teardrops in Aquablue (あくあフォント)
JIS第二水準文字まで備えるかわいらしく読みやすい手書きフォント「ふい字」同じ作者の「まきばフォント」も動作します。
第2水準まで備えるやわらかな筆感の手書き風フォント「アームド・バナナ」
ひっかき傷で描かれたようなおどろおどろしい日本語TrueTypeフォント「怨霊」
フリーで使える草書体の毛筆フォント「青柳衡山フォント草書2」
手書きフォント「きろ字」
JIS第2水準漢字まで備えるサインペン手書き風丸文字フォント「えるまー」
オリジナルフォントみかちゃん

ここに書いたフォントについては、ある程度確認したつもりですが、もしかするとうまく動作しないかもしれません。そのときはすいませんです。

TrueType のフォントですが、耐久テスト的にたくさんのフォントを使用してみました。同時にかなりの数を使うことが可能です。私のここのスクリプトでは、一ページに一フォントになっているのですが、もっと自由度を持たせても大丈夫そうです。ただし、フォントのタイプによってはエラーになる場合もあります。すべてのフォントが使えるわけではありませんので、新しいフォントを使用する場合は確認しながら進めてください。

// 系の機能

v2 での拡張機能は、「//」のコメントに対して次の拡張を行なっています。行の先頭で「//」「コマンド一文字」「スペース一つ」「ファイル名など」になります。

//i イメージファイル名
//l ロゴイメージファイル名   サイズは大きすぎないように
//f TrueTypeフォント名
//%数字 文字列               べつやくメッソド的に円グラフを書きます
//h ヘッダ文字列             ページの先頭に文字列を「青」で出力します
//c r,g,b r,g,b r,g,b        文字色、背景色、ヘッダ色

イメージの表示は、中央にどーんと起きます。高橋メソッド的にイメージも扱っています。

ロゴは、小さめのイメージ表示になります。

「べつやくメソッド」のために円グラフ作成機能を用意しました。

//%50 期待でわくわく
//%30 がんばったー
//%15 疲れた(え
//% ちょっぴり不安

と入力することで、「べつやくメソッド」的な円グラフの「高橋メソッド」的な文字表示を行なっています。ある程度遠くでもみえるように。本当は文字位置はちゃんと調整できればいいのですが、なかなか難しいのと遠くでみにくくなっては、このツールとしての意味がないので(いいわけ

「ヘッダ」については、文字列が小さく発表者用のアンチョコの出力として使えます。キーワードの解説やそのとき話したいことなどにも使えると思います。用途は自由ですので、好きに使ってください。

色指定ですが、r,g,b を最大値 1 の小数点で指定してください。白「1,1,1」黒「0,0,0」青「0,0,1」灰色「0.5,0.5,0.5」などです。「r,r,r」のようにすると、ランダムに色を生成します。

拡張を含んだサンプルです。

春
桜
//i 桜のイメージファイル
//l 自前ロゴ
//h 桜はいいですね

//%60 いまの気持
//%30 ちょっと期待
//% 不安もすこし
//h 春、桜のイメージについての気持

URL の埋め込み

URL を埋め込んだ PDF を作成できます。文字列のあとに「 :http://... 」とコロン(:)のあとに URL を書いてください。

Ruby:http://www.ruby-lang.org/

この場合は埋め込みですが、adobe reader は、URL 文字列をそのまま URL として解釈します。わざわざ埋め込む必要もないのですが、追加してしまいました。

前提していること

現在の前提条件は、

Linux 上での処理を想定しています

漢字コードと必要なライブラリをインストールすることで Win 系でも動くとは思います

入力ファイル名の拡張子は .txt でお願いします
出力ファイル名は、入力ファイル名の拡張子 .txt を .pdf に変更したものです
一行あたりの文字数がすくないため入力の漢字コードの自動判定が難しいです

現在のデフォルトの入力漢字コードは EUC-JP を想定しています
SJIS を使用する場合は -S オプションを使用してください

です。

印刷

もしも紙に印刷するときには、ソースコードなしの場合紙一枚に 16 ページくらいでちょうどいいのではないでしょうか? ソースコードがある場合はあわせて調整ください。

読み上げのために

条件がいくつかあるのですが、adobe reader で日本語を読み上げるための FAQ です。

読み上げ機能を使用して日本語の文書を読み上げる方法

日本語の読み上げエンジンは MS Office 2003 または MS Office XP をお持の場合追加機能で対応可能です。 MS Office 2007 は、対応していないようです。この FAQ で書かれている MS Office がない場合の例は Windows XP 標準の「SAPI5」読み上げエンジン用ではなく「SAPI4」読み上げエンジン用です。このためインストールしてもコントロールパネルの「音声認識」にはでてきません。ですが、adobe reader ではリストにでてきます。私はあれこれ試してしまったので、手順がはっきりしませんが上記の FAQ の通りに入れてみてください。私の場合は、adobe reader から日本語の読み上げエンジンを選択できるようになったのですが、音量がとても小さいです。 MS Office 2003/XP が利用できるのが一番なのですが、このために入れるのもなんとも。だれでも利用できる価格の読み上げエンジンがあるといいですね。

■ ソースコード

Web ブラウザでの表示上は Ruby のスクリプトですが、HTML の特殊文字をエスケープしています。テキストとしてセーブしてご利用ください。

現在 Ruby スクリプトは内部漢字コードは EUC を想定して記述しています。実行環境が SJIS の場合にはスクリプト内の「String#e2s」と起動オプション「-Ks」を調整ください。

PDF ライブラリとして Haru Free PDF Library II が必要です。 Ruby 用の拡張ライブラリも含まれています。高橋メソッド用に大きなフォントを扱えるようにするためのパッチと Ruby 用のコードへのパッチの二つのパッチを実施してください。パッチは、スクリプトの次にあります。

ファイル名は t5pdf.rb となっていますが t2pdf.rb でも好きにしてください。そのうち t2pdf.rb の 2.0 系になる予定です。

#! /usr/local/bin/ruby -Ke
# /home/tetsu/src/ruby/pdf/t5pdf.rb
# created: April 15,2007 Sunday 23:26:24
# author: tetsu(WATANABE Tetsuya)
RCS_ID = %q$Id: t5pdf.rb,v 1.21 2008/01/19 19:43:37 tetsu Exp $
# usage: t5pdf.rb [-pSgn] [-f TrueTypeFont] [-l logo(jpg,png) TAKAHASHI-Method.txt

# 漢字コードについて
# 内部コードは EUC を使っています。
# PDF ライブラリへは SJIS を渡しています。(○に「1」)をサポートするために SJIS 渡しにしました。

# //f TrueTypeFont.ttf
# //l logo.jpg(png)
# //h ヘッダ文字列
# //i image.jpg(png)
# //数字%
# L:左寄せ
# R:右寄せ
#  半角スペースを入れるとソースコードなど用
# //c r,g,b(文字) r,g,b(背景色) r,g,b(ヘッダ文字色)

require 'hpdf'
require 'nkf'

# Ruby 1.9 系なら不要ですが、文字化けを回避するために入力も固定
class String
  def e2s
    NKF.nkf('-Es', self)
  end
  def s2e
    NKF.nkf('-Se', self)
  end
end

class HPDFDoc
  def info_create_date
    t = Time.now
    self.set_info_date_attr(HPDFDoc::HPDF_INFO_CREATION_DATE, t.year, t.mon, t.mday, t.hour, t.min, t.sec, '+', 9, 0)
  end
  def info_author(author)
    self.set_info_attr(HPDFDoc::HPDF_INFO_AUTHOR, author)
  end
  def info_creator(creator)
    self.set_info_attr(HPDFDoc::HPDF_INFO_CREATOR, creator)
  end
  def info_title(title)
    self.set_info_attr(HPDFDoc::HPDF_INFO_TITLE, title)
  end
  def info_keyword(keyword)
    self.set_info_attr(HPDFDoc::HPDF_INFO_KEYWORDS, keyword)
  end
  def info_subject(subject)
    self.set_info_attr(HPDFDoc::HPDF_INFO_SUBJECT, subject)
  end
  def file_to_image(filename)
    case filename = File.expand_path(filename)
    when /\.jpe?g$/i
      self.load_jpeg_image_from_file(filename)
    when /\.png$/i
      self.load_png_image_from_file(filename)
    end
  end
  def ttf_font_load(filename, encode)
    # フォントのロードエラーがでると、rescue しても以後の処理はうまくいかないようです
    begin
      tt_font_name = self.load_ttfont_from_file(File.expand_path(filename), HPDFDoc::HPDF_TRUE)
#      STDERR.puts "#{tt_font_name} #{filename}"
    rescue HPDFError
      STDERR.puts "TrueType font load error: #{filename}"
      raise
    end
    self.get_font(tt_font_name, encode)
  end
end

class HPDFPage
  def grid(font = nil)
    w = self.get_width
    h = self.get_height

    self.set_gray_fill(0.5)
    self.set_gray_stroke(0.8)

    y = 0
    while y < h
      if y % 10 == 0
        self.set_line_width(0.5)
      elsif self.get_line_width != 0.25
        self.set_line_width(0.25)
      end

      self.move_to(0, y); self.line_to(w, y)
      self.stroke

      if y % 10 == 0 && y > 0
        self.set_gray_stroke(0.5)
        self.move_to(0, y); self.line_to(5, y)
        self.stroke
        self.set_gray_stroke(0.8)
      end
      y += 5
    end

    x = 0
    while x < w
      if x % 10 == 0
        self.set_line_width(0.5)
      elsif self.get_line_width != 0.25
        self.set_line_width(0.25)
      end

      self.move_to(x, 0); self.line_to(x, h)
      self.stroke

      if x % 50 == 0 && x > 0
        self.set_gray_stroke(0.5)
        self.move_to(x, 0); self.line_to(x, 5)
        self.move_to(x, h); self.line_to(x, h - 5)
        self.stroke
        self.set_gray_stroke(0.8)
      end
      x += 5
    end

    if font
      self.set_font_and_size(font, 5)
      self.begin_text
      y = 0
      while y < h
        if y % 10 == 0 && y > 0
          self.text_out(5, y - 2, y.to_s)
        end
        y += 5
      end
      x = 0
      while x < w
        if x % 50 == 0 && x > 0
          self.text_out(x, 5, x.to_s)
          self.text_out(x, h - 10, x.to_s)
        end
        x += 5
      end
      self.end_text
    end

    self.set_gray_fill(0)
    self.set_gray_stroke(0)
  end

  def text_out_href(x, y, text, uri)
    self.text_out(x, y, text)
    w = self.text_width(text)
    h = self.get_current_font_size
    self.create_uri_link_annot(x, y, x + w, y + h, uri).set_border_style(0, 0, 0)
  end
end

# スクリプト上は EUC で libharu(PDF) へは SJIS
class T2PDFv2
  def initialize(file = 't.pdf')
    @file = file
    @pdf = HPDFDoc.new
    @pdf.info_title("TAKAHASHI Method #{@file}")
    @pdf.info_creator("Ruby, libhpdf: #{RCS_ID}")
    @pdf.info_create_date
    @pdf.set_compression_mode(HPDFDoc::HPDF_COMP_ALL)
    @pdf.use_jp_fonts
    @pdf.use_jp_encodings
    @pdf.set_page_mode(HPDFDoc::HPDF_PAGE_MODE_USE_OUTLINE)
    @font_h = Hash.new
    @title_font = @pdf.get_font('Helvetica', nil)
    @font_h['Helvetica'] = @title_font
    @encode = '90ms-RKSJ-H'
    @jp_font = @pdf.get_font('MS-PGothic', @encode)
    @font_h['MS-PGothic'] = @jp_font
    @encoder = @pdf.get_encoder(@encode)
    @root = @pdf.create_outline(nil, '目次'.e2s, @encoder);
    @page_size = HPDFDoc::HPDF_PAGE_SIZE_A4
    @page_direction = HPDFDoc::HPDF_PAGE_LANDSCAPE
    @m = 20
    @opt_pagenumber = false
    @opt_grid = false
    @opt_nonouter = false
    @opt_anchoko = false
    @pagenumber = 0
    @logoimage = nil            # //l path
    @f_color = [0, 0, 0]
    @b_color = []
    @h_color = [0, 0, 0.7]
  end
  attr :opt_pagenumber, true
  attr :opt_grid, true
  attr :opt_nonouter, true
  attr :opt_anchoko, true

  def close
    @pdf.save_to_file(@file)
    @pdf.free_doc
  end

  def color_make(arr)
    arr.collect{|i| if i == 'r' then rand else i end}
  end

  def str2color(str, arr)
    return arr if str.nil?
    arr = []
    str.split(',').each do |i|
      if i == 'r'
        arr.push(i)
      else
        arr.push(i.to_f)
      end
    end
    arr
  end

  def color(page, arr)
    arr.each do |l|
      if l =~ /^\/\/c ([.,\dr]*)(?: ([.,\dr]*))?(?: ([.,\dr]*))?/
        f = $1; b = $2; h = $3
        @f_color = str2color(f, @f_color)
        @b_color = str2color(b, @b_color)
        @h_color = str2color(h, @h_color)
      end
    end
    if @b_color.size > 0
      w = page.get_width
      h = page.get_height
      page.set_rgb_fill(*color_make(@b_color))
      page.move_to(3, 3); page.line_to(w - 3, 3)
      page.line_to(w - 3, h - 3); page.line_to(3, h - 3)
      page.line_to(3, 3)
      page.fill
    end
  end

  def add_outline(page, arr)
    msg = nil
    arr.each do |l|
      case l
      when /^\/\/ /
      when /^\/\/[flc] /
      when /^\/\/[hi] (\S+)/
        msg = $1
        break
      when /^[LRC]:(.+)$/
        msg = $1
        break
      else
        msg = l
        break
      end
    end
    @pdf.create_outline(@root, @pagenumber.to_s + ' ' + msg.e2s, @encoder).set_destination(page.create_destination) if msg
  end

  def logo_load(filename)
    if filename.nil?
      @logoimage = nil
    else
      @logoimage = @pdf.file_to_image(filename)
    end
  end

  def draw_logoimage(page, arr)
    msg_c = 0
    arr.each_index do |i|
      case arr[i]
      when /^\/\/l (\S+)/
        logo_load($1)
      when /^\/\/[flihc] /
      else
        msg_c += 1
      end
    end

    if @logoimage and (msg_c > 0)
      iw = @logoimage.get_width
      ih = @logoimage.get_height
      page.draw_image(@logoimage, 3, 3, iw, ih)
    end
  end

  def draw_image(page, filename)
    image = @pdf.file_to_image(filename)
    pw = page.get_width
    ph = page.get_height
    iw = image.get_width
    ih = image.get_height
    hw = [(ph - 100.0)/ih, (pw - 100.0)/iw].min
    h = ih * hw
    w = iw * hw
    page.draw_image(image, (pw - w)/2, (ph - h)/2, w, h)
  end

  def draw_images(page, arr)
    arr.each_index do |i|
      if arr[i] =~ /^\/\/i (\S+)/
        draw_image(page, $1)
      end
    end
  end

  def page_number(page)
    page.set_rgb_fill(0.5, 0.5, 0.5)  # グレー
    page.begin_text
    fontsize = 30
    page.set_font_and_size(@title_font, fontsize)
    n_str = @pagenumber.to_s
    page.text_out(page.get_width - (10 + page.text_width(n_str)), 10, n_str)
    page.end_text
  end

  def ttf_font_load(filename)
    # フィル名が違っても「フォント名」が同じ場合にエラーになることがあるようです
    if @font_h.key? filename
      @font_h[filename]
    else
      @font_h[filename] = @pdf.ttf_font_load(filename, @encode)
    end
  end

  def ttf_font(arr)
    arr.each_index do |i|
      if arr[i] =~ /^\/\/f (\S+)/
        @jp_font = ttf_font_load($1)
      end
    end
  end

  # 色が壊れちゃいます
  def draw_betsuyaku(page, pos, st, en)
    m = [w = page.get_width, h = page.get_height].min
    r = (m - 100.0) / 2
    x = w / 2
    y = h / 2
    page.set_rgb_fill(rand, rand, rand)
    page.move_to(x, y)
    if st == 0
      page.line_to(x, y + r)
    else
      page.line_to(*pos)
    end
    en = 100.0 if st == en      # サイドエフェクトの気がするです
    page.arc(x, y, r, 360.0 * st / 100.0, 360.0 * en / 100.0)
    pos = page.get_current_pos
    page.line_to(x, y)
    page.fill
    pos
  end

  def betsuyaku(page, arr)
    pos = []
    st = 0.0
    sum = 0
    arr.each_index do |i|
      if arr[i] =~ /^\/\/\%(\d+)? (.+)$/
        par = $1.to_i
        en = st + par.to_f
        msg = $2
        pos = draw_betsuyaku(page, pos, st, en)
        st = en
        par = 100 - sum if par == 0
        sum += par
        arr[i] = " %2d%% #{msg}" % [par]
      end
    end
  end

  def header(page, arr)
    w = page.get_width
    h = page.get_height
    size = @m
    page.set_font_and_size(@jp_font, size)
    y = h - size

    arr.each_index do |i|
      if arr[i] =~ /^\/\/h (.+)$/
        l = $1.e2s
        x = (w - page.text_width(l)) / 2
        page.set_rgb_fill(*color_make(@h_color))
        page.begin_text
        page.text_out(x, y, l)
        page.end_text
      end
    end
  end

  def anchoko(page, a)
    return if a == ''

    w = page.get_width
    h = page.get_height
    size = @m / 2
    page.set_font_and_size(@jp_font, size)
    y = 2

    l = a.e2s
    x = (w - page.text_width(l)) / 2
    page.set_rgb_fill(*color_make(@h_color))
    page.begin_text
    page.text_out(x, y, l)
    page.end_text
  end

  def takahashi(page, arr)
    arr.delete_if {|x| x =~ /^\/\//}
    return if arr.size == 0
    w = page.get_width
    h = page.get_height

    page.set_font_and_size(@jp_font, 100.0)
    len = 0.0
    arr.each do |l|
      if l =~ /^[LRC]:(.*)$/
        l = $1
      end
      if l =~ /^(.+):(http:\/\/\S+)$/
        l = $1
      end
      text_width = page.text_width(l.e2s)
      len = text_width if text_width > len
    end

    line = arr.size
    fontsize = [w * 100.0 / len, (h - @m / 2.0) / line].min
    # デフォルトだと fontsize 300 まで
    # 次の version で修正していただけることになりました
    page.set_font_and_size(@jp_font, fontsize)

    y = (h - line * fontsize) / 2.0 + @m / 2.0
    if y < fontsize * 0.12
      y = fontsize * 0.12
    end
    y += fontsize * (line - 1)

    page.begin_text

    arr.each do |l|
      url = nil
      lrc = 'c'
      if l =~ /^([LRC]):(.*)$/
        lrc = $1.downcase
        l = $2
      end
      if l =~ /^(.+):(http:\/\/\S+)$/
        l = $1
        url = $2
      end
      l = l.e2s
      # 行頭が半角スペースの場合ソースコード用
      x = if l[0, 1] == ' '
            l[0] = ''
            0
          else
            l_w = page.text_width(l)
            case lrc
            when 'l'
              0
            when 'r'
              w - l_w
            else
              (w - l_w) / 2.0
            end
          end

      d = fontsize / 72.0
      page.set_rgb_fill(1, 1, 1)  # 白
      page.text_out(x + d, y - d, l)
      page.set_rgb_fill(*color_make(@f_color))
      if url
        page.text_out_href(x, y, l, url)
      else
        page.text_out(x, y, l)
      end

      y -= fontsize
    end

    page.end_text
  end

  def page(arr, n)
    arr.delete_if {|x| x =~ /^\/\/ /}
    arr.delete_if {|x| x =~ /^\/\/[fli] /} if @opt_nonouter
    return if arr.size == 0

    @pagenumber += 1
    page = @pdf.add_page
    page.set_size(@page_size, @page_direction)
    color(page, arr)
    page.grid if @opt_grid
    draw_logoimage(page, arr)
    draw_images(page, arr)
    betsuyaku(page, arr)
    add_outline(page, arr)
    ttf_font(arr)
    header(page, arr)
    anchoko(page, n) if @opt_anchoko
    takahashi(page, arr)
    page_number(page) if @opt_pagenumber
  end
end

def n2a(n)
  arr = n.split("\n")
  arr.delete_if do |l|
    l =~ /^\/\//
  end
  arr.join(' ')
end

def parg(a1, argv)
  if a1 == nil
    if argv[0][0] == '-'
      usage
    else
      argv.shift
    end
  else
    a1
  end
end

def usage
  STDERR.puts "usage: #{$0} [-pSgna] [-f TrueTyepFont] [-l logo(jpeg,png)] TAKAHASHI-Method.txt..."
  STDERR.puts "  -p: print page number"
  STDERR.puts "  -S: SJIS Text"
  STDERR.puts "  -g: grid plot"
  STDERR.puts "  -n: non outer"
  STDERR.puts "  -a: anchoko"
  STDERR.puts "  -f TrueType_Font"
  STDERR.puts "  -l logo_image(jpeg or png)"
  exit 1
end

opt_pagenumber = false
opt_SJIS = false
opt_ttf = false
opt_logo = false
opt_grid = false
opt_nonouter = false
opt_anchoko = false

while ARGV[0] =~ /^-/
  $_ = ARGV.shift
  if ~/^-f(.+)?/ then opt_ttf  = parg($1, ARGV); next end
  if ~/^-l(.+)?/ then opt_logo = parg($1, ARGV); next end
  if ~/p/ then opt_pagenumber = true end
  if ~/S/ then opt_SJIS = true end
  if ~/g/ then opt_grid = true end
  if ~/n/ then opt_nonouter = true end
  if ~/a/ then opt_anchoko = true end
  if ~/[^pSgna-]/ then usage end
end

while filename = ARGV.shift
  pdfname = File.basename(filename, '.txt') + '.pdf'

  f = File.open(filename)
  t2pdf = T2PDFv2.new(pdfname)
  t2pdf.opt_pagenumber = opt_pagenumber
  t2pdf.opt_grid = opt_grid
  t2pdf.opt_nonouter = opt_nonouter
  t2pdf.opt_anchoko = opt_anchoko
  t2pdf.ttf_font_load(opt_ttf) if opt_ttf
  t2pdf.logo_load(opt_logo) if opt_logo
  b_arr = []

  while b = f.gets("\n\n")
    if opt_SJIS
      b = b.s2e
    end
    b_arr.push(b)
  end

  while b = b_arr.shift
    n = if b_arr[0] == nil then '' else b_arr[0] end
    t2pdf.page(b.split("\n"), n2a(n))
  end

  t2pdf.close
  f.close
end

次のパッチは、Haru Free PDF Library II の PDF で扱える文字サイズを大きくするためのものです。変更後再コンパイルを実施してください。

--- include/hpdf_consts.h.org   2006-11-23 12:34:40.000000000 +0900
+++ include/hpdf_consts.h       2007-04-16 03:06:43.000000000 +0900
@@ -139,10 +139,10 @@
 #define HPDF_MIN_HORIZONTALSCALING  10
 #define HPDF_MAX_HORIZONTALSCALING  300
 #define HPDF_MIN_WORDSPACE          -30
-#define HPDF_MAX_WORDSPACE          300
+#define HPDF_MAX_WORDSPACE          600        /* 300 */
 #define HPDF_MIN_CHARSPACE          -30
-#define HPDF_MAX_CHARSPACE          300
-#define HPDF_MAX_FONTSIZE           300
+#define HPDF_MAX_CHARSPACE          600        /* 300 */
+#define HPDF_MAX_FONTSIZE           600        /* 300 */
 #define HPDF_MAX_ZOOMSIZE           10
 #define HPDF_MAX_LEADING            300
 #define HPDF_MAX_LINEWIDTH          100

次のパッチは Haru Free PDF Library II 標準添付の Ruby 拡張ライブラリ用コードのためのパッチです。 1.8 系は、最初の一つだけで実施ください。

--- if/ruby/hpdf.c.org  2006-11-23 13:19:32.000000000 +0900
+++ if/ruby/hpdf.c      2007-04-17 17:39:22.000000000 +0900
@@ -1388,7 +1388,7 @@
 
     Data_Get_Struct(obj, HPDF_Doc_Rec, pdf);
     s = STR2CSTR(ind);
-    if (HPDF_StrLen(s, -1) != 1 || s[0] != '+' || s[0] != '-' || s[0] != 'Z')
+    if (HPDF_StrLen(s, -1) != 1 || (s[0] != '+' && s[0] != '-' && s[0] != 'Z' && s[0] != ' '))
         rb_raise(rb_eHPDFError, "The eighth argument must be either of '+','-','Z',' '.");
 
     tp = NUM2INT(type);

1.9 系は、次のパッチも実施ください。

--- if/ruby/hpdf.c.org  2006-11-23 13:19:32.000000000 +0900
+++ if/ruby/hpdf.c      2007-04-17 17:39:22.000000000 +0900
@@ -2401,7 +2401,7 @@
     HPDF_PTRACE(("hpdf_page_set_dash page=%p\n", page));
 
     dash_phase = NUM2INT(phase);
-    num_ptn = RARRAY(ptn)->len;
+    num_ptn = RARRAY_LEN(ptn);
     if (!num_ptn) {
         ret = HPDF_Page_SetDash(page, NULL, 0, 0);
         return INT2NUM(ret);
@@ -2410,7 +2410,7 @@
     for (i = 0; i < 8; i++)
         dash_ptn[i] = 0;
 
-    pptn = RARRAY(ptn)->ptr;
+    pptn = RARRAY_PTR(ptn);
     for (i = 0; i < num_ptn; i++) {
         dash_ptn[i] = NUM2INT(*pptn);

■ 解説

優れた Haru Free PDF Library II のおかげで、とても楽にインプリメントできました。表示されたときの文字列の長さなどの情報をちゃんとスクリプト中で利用できたのが大きいです。とてもとても感謝します。現在はパッチが必要なのですが、作者さんに大きな文字を扱えるように拡張のお願いをしようと思っています。

高橋さんが一番最初に高橋メソッドでプレゼンをしたとき、後ろのほうにいました。誕生の瞬間に立ち会えて、とってもラッキー!

■ 履歴

1.21 2007/1/19: アンチョコオプションの追加。
1.20 2007/6/22: イメージのサイズ調整。
1.19 2007/5/15: bug fix と細かな調整。
1.18 2007/5/12: 文字の陰のサイズを文字サイズにあわせて修正
1.17 2007/5/12: //c r,g,b r,g,b r,g,b で色指定テスト的なインプリメントですとロゴ表示の bug fix
1.16 2007/5/12: L:文字列左寄せ、R:文字列右寄せ、C:文字列中央(デフォルト) テスト的なインプリメントです
1.14, 1.15 2007/5/12: フォントのロードエラーがでた場合にフォントファイル名を表示するように修正。
1.13 2007/5/10: フォントを何度も再利用できるように、フォントのロード部分の修正。
1.12 2007/4/30: 「//h ヘッダー」のサポート。アンチョコとか用途はいろいろ。
1.11 2007/4/25: オプション -n のサポート。入力のテキストファイル中に、外部ファイルを利用する //l, //i, //f があった場合に無視します。外部ファイルを用意できない場合に、入力テキストファイルを修正しなくても利用可能です。
1.10 2007/4/25: オプションの解釈部分でよくないところがあったので修正。
1.9 2007/4/24: 音声出力(読み上げ)対応のために、文字出力順を調整。 URL 埋め込みに対応。(文字列:http://....)
1.8 2007/4/24: スクリプトの漢字コードを EUC に戻し、出力のみ SJIS へ
1.7 2007/4/21: fix デフォルト漢字コードを変更したため。
1.6 2007/4/21: -Ks にするのを忘れてました。
1.5 2007/4/21: ① (○に「1」)をサポートしました。
1.4 2007/4/21: グリッドの出力をオプションにしました。
1.3 2007/4/18: 最初の公開。

■ 参考 URL

渡辺哲也(WATANABE Tetsuya): Tetsuya.WATANABE atmark nifty.com