cdlabelgen の日本語化

## Newsgroup が適切かどうかわかりません…

UNIX で使える CD のラベルを印刷するツールを探していたところ cdlabelgen
なるものを見つけましたが、日本語がうまく印刷できないという問題があります。

しかも NetNews の過去記事を検索しても Web site を検索してもどうやら誰も
日本語化していないようでした。
## している人がいらっしゃいましたらごめんなさい。教えて頂けるとうれしい
## です。

で、わずかな Postscript の知識とわずかな Perl の知識をもって日本語化に
とりくんでみました。
結果的には template.ps を修正するだけで日本語が印刷できるようになりまし
た。で、その patch です。使ってみたい方は template.ps にpatch をあててみ
てください。単独で使ってらっしゃる方、gcombust から使用している方、ちょっ
と幸せになると思います。
## ただし、category や item などの漢字コードは EUC を期待していますし、
## その他考えが足りないことも多々あると思います…
--
tet...@telecom.intec.co.jp

--- ここから ---
--- template.ps.bak Tue Dec 5 10:18:35 2000
+++ template.ps Tue Dec 5 19:04:56 2000
@@ -73,21 +73,55 @@
/Helvetica-Bold reencodeISO def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Compose font.
+/Helvetica-and-GothicBBB-Medium-H
+12 dict begin
+ /FontName 1 index def
+ /FontType 0 def
+ /WMode 0 def
+ /FMapType 4 def
+ /FontMatrix matrix def
+ /Encoding [0 1] def
+ /FDepVector
+ [ /Helvetica findfont
+ /GothicBBB-Medium-H findfont
+ ] def
+ FontName currentdict
+end
+definefont pop
+
+/Helvetica-Bold-and-GothicBBB-Medium-H
+12 dict begin
+ /FontName 1 index def
+ /FontType 0 def
+ /WMode 0 def
+ /FMapType 4 def
+ /FontMatrix matrix def
+ /Encoding [0 1] def
+ /FDepVector
+ [ /Helvetica-Bold findfont
+ /GothicBBB-Medium-H findfont
+ ] def
+ FontName currentdict
+end
+definefont pop
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Font related stuff
-/banfont /Helvetica-Bold def
+/banfont /Helvetica-Bold-and-GothicBBB-Medium-H def
/cover_ban_size 42 def
/tray_ban_size 42 def
/bansize 42 def

-/subbanfont /Helvetica-Bold def
+/subbanfont /Helvetica-Bold-and-GothicBBB-Medium-H def
/cover_subban_size 24 def
/tray_subban_size 24 def
/subbansize 24 def

-/notefontname /Helvetica-Bold def
+/notefontname /Helvetica-Bold-and-GothicBBB-Medium-H def
/notefontsize 12 def

-/normalfontname /Helvetica def
+/normalfontname /Helvetica-and-GothicBBB-Medium-H def
/normalfontsize 10 def
/max_item_height 12 def

--- ここまで ---