cl-pdf-jp のエンコーディングを UniJIS-UCS2-HW-H に変更

cl-pdf-jp のエンコーディングを UniJIS-UCS2-H から UniJIS-UCS2-HW-H に変更した。これで半角文字の幅がよくなった。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :cl-pdf-jp))

(defpackage :try-cl-pdf
    (:use :cl :cl-pdf))

(in-package :try-cl-pdf)

(defun example1 (&optional (file #P"/tmp/ex1.pdf"))
  (pdf:with-document ()
    (pdf:with-page ()
      (pdf:with-outline-level ("Example" (pdf:register-page-reference))
        (let ((mincho (get-font "Ryumin-Light"))
              (gothic (get-font "GothicBBB-Medium")))
          (pdf:in-text-mode
            (pdf:set-font mincho 36.0)
            (pdf:move-text 100 800)
            (pdf:draw-text "あいうabcまみむめも♪"))
          (pdf:in-text-mode
            (pdf:set-font gothic 36.0)
            (pdf:move-text 100 750)
            (draw-text "あいうabcまみむめも♪")))))
    (pdf:write-document file))
  (asdf:run-shell-command (format nil "evince ~a" file)))

(example1)

ところで Apache FOP で作った XML なフォントメトリクスファルを PDF のフォント指定に変換するにはどうすればいいんだろう。 /W のとこの変換の仕方がわからない。