IPAフォントの改造 円記号をバックスラッシュに変更

IPAフォントの0x5cをバックスラッシュに: 微酔半壊
ここのスクリプトを現在のバージョンに使うと、U+00A5には既に全角円記号が割り当てられているのでコピーされず、半角円記号は消えてしまう。
U+005C→バックスラッシュ
U+00A5→半角円記号
U+FFE5→全角円記号
とするようにスクリプトを修正した。

#!/usr/bin/env fontforge
#
# Usage: 0x5c-reverse-solidus.pe <input.otf> [<output.otf>]
# If output filename is not specified,
# new file is created as "new.input.otf" in the current directory.

if ($argc > 2)
   OutputFile = $2;
else
   OutputFile = "new."+$1:t;
endif

Open($1);
Reencode("original");

Select(0u5C);
SetUnicodeValue(0xA5);
cc = CharCnt();
SetCharCnt(cc+1);
Select(0u2F);
Copy();
Select(cc);
Paste();
HFlip();
SetUnicodeValue(0x5C);

Generate(OutputFile, "otf");
Quit(0);