6 posts tagged “perl”
Perlでアニメ顔を検出するライブラリ。
髪の色別に顔を検索するデモが公開されたので試してみる。
かなりのミク率！みっくみく～♪
（参考）
Imager::AnimeFaceのページ
アニメ顔の色情報(髪の色、肌の色、目の色)に基づいた画像検索 - Imager::AnimeFace demo
ひとまず動いたみたい。
「歌詞の流し込み」ウインドウから変換できた。
- 通常変換
- ミク語変換
【参考】ATOKダイレクトプラグインでミク語変換
■追記
ATOK2008は30日の無償試用版があるので、お持ちでないかたはそちらで試せそうな雰囲気。
ATOKダイレクトも動くそうで。お気に召したら購入も可能！
パッケージ版・DL版・月額版（月300円より）とかがあるみたい。
ATOK2008には、WEBから情報を取得する「ATOKダイレクト」という機能があり、
検索サイト等のプラグインが配布されている。
最近、それをPerlやRubyで作れるようになったらしい。
デバッガやセットアップツール付きで！
ためしに、ミク語変換APIにアクセスして人間語をミク語に変換するプラグインを作ってみた。
- 開発中の画面
とりあえずなんか動いた。せっかくなので配布してみる。
ActivePerl 5.8.8 build 822 の環境でモジュールの追加インストールなしの状態にて開発。
プロキシ環境だと動かないかも。
ATOKダイレクト for ミク語変換 0.1
■インストール方法
事前に、ATOK2008のアップデートを適用しておく。(ディスクそのままだと動かない場合がある)
上記 atok_direct_mikugo_01.zip を解凍してできたフォルダ内の
SETUP.EXEを実行するとインストールができる。
■使い方
何か、変換候補が入力されたときに
- [Ctrl]＋[Insert]
XMLから改行と空白を削除して<result>～</result>を取り出しただけなので
レイアウトは崩れてしまうかも。あまり長いフレーズには向かない。
- 「きょうはいいてんき」⇒「きょおわいいてんき」
動作環境に追加。使うだけの場合でもActivePerl 5.8.8 build 822は必要みたい。
（プラグインがインストールできない）
http://downloads.activestate.com/ActivePerl/Windows/5.8/
あたりから
- ActivePerl-5.8.8.822-MSWin32-x86-280952.msi
人生は是勉学の事さまのVocaSim.0.0.4（vocasim004.pl）をソッコーでexe化してみた。
Perlがなくても多分動く。
http://kagamine-rin.net/data/vocasim/vocasim004.zip
vocasim004.zipを解凍するとvocasim004.exeが入ってるので、試したい方は自己責任でどうぞ。
開発環境では動いたけど当然ながら無保証。
【追記】
気が向いたら、ビブラート調節できるように手を入れるかも。
CloseBox and OpenPodさま情報より
追記：2ちゃんねるのVOCALOID本スレを見ていたら、和泉さんが降臨して、ビブラート調整の方法を伝授してくれていました。感謝。
ビブラートの利きすぎ抑制には、こちらを変更ください。
------------------------------------------------------------
$swingVibratoPit = 0.008 + 0.016 * $phraseVibrato/(2.0*3.141592*2.0);
if( 0.03 < $swingVibratoPit ) {
$swingVibratoPit = 0.03;
}
------------------------------------------------------------
発音が長いほど、PITの振幅が次第に大きくなり、
0.03 でリミットが掛かるようになっています。しかし、あまりに急峻に振幅が大きくなっていたようなので、
係数 0.016 -> 0.004 などに変えてみてください。
また、振幅最大値も抑え目の 0.02 などにした方がよいようです。
------------------------------------------------------------
$swingVibratoPit = 0.004 + 0.004 * $phraseVibrato/(2.0*3.141592*2.0);
if( 0.02 < $swingVibratoPit ) {
$swingVibratoPit = 0.02;
}
-------------------------------------------------------------
MIKU_TALK Ver. 0.2.1のソースが公開されていたので、
miku_talk012をexe化してGUIをつけてみたと同じ方法でexe化してみた。
自分用なのでβ未満の出来だけど、せっかくなので公開してみる。
またまた説明動画も作ってみたり。
ダウンロードは http://kagamine-rin.net/data/miku_talk_gui/miku_talk021_gui.zip からどうぞ。
以下、readme.txt より一部抜粋
------------------------------------------------------------
■miku_talk021_gui001【配布元】
mashpodの勝手にワーカー
http://mashpod.vox.com/
【動作環境】
Microsoft Windows 2000/XP
Microsoft Internet Explorer 6
【その他動作に必要なもの】
mecab-win32 ※MeCab解析済テキストには不要
【ライセンス】
本ツールはフリーソフトとしてリリースしています。
【免責事項】
配布元は本プログラムの使用に関して、一切の保証・サポートをいたしません。
開発環境での動作は確認していますが、全ての環境で動作するとは限りません。
使用の結果による全てのトラブルに対して、配布元は一切責任を負いません。
ご了承のうえでご使用ください。------------------------------------------------------------
■miku_talk021_guiとは
人生は是勉学の事(http://akira-izumi.cocolog-nifty.com/)さまが提供する
MIKU_TALK Ver. 0.2.1 のVSQ生成部ソース miku_talk021.cgi をもとに、
以下の改変を行ったものです。(※)○PerlのPARモジュールによるexe(Windows実行ファイル)化
Perlがインストールされていなくても動きます。
(ファイルサイズが大きくなってしまいますが…)
mecab-win32は事前にインストールしておく必要があります。○平仮名からミク発音記号への変換ハッシュ表の別ファイル化
同じフォルダにある phonetic.txt(UTF-8エンコード)を編集することで、
変換規則を適宜変更できます。○HTA(HTMLアプリケーション)による簡易GUIフロントエンドを添付しています。
(※)
MIKU_TALK Ver. 0.2.1
http://akira-izumi.hp.infoseek.co.jp/yahoo_ma21/yahoo_ma.html
MIKU_TALK 0.2.1 ソース(VSQ生成部)
http://akira-izumi.cocolog-nifty.com/patent/2008/05/miku_talk_021_v_d573.html○exe のアイコンには、さなりうむさまの
ボーカロイドアイコン(http://www.q-ice.com/diary/blog/diary.cgi?no=68)を
使わせていただきました。
■参考
miku_talk012をexe化してGUIをつけてみた
初音ミクに喋らせてみた(Perl版012)で公開されていたmiku_talk012_1.plをexe化して、ついでにGUIっぽいものも作ってみました。
自分用には、さなりさまのボーカロイドアイコンを埋め込んでます。
ちなみに、こんな風に使います。
生成した音声はこちら。元テキスト：text.txt
需要があるかわかりませんが、miku_talk012.plをexe化してGUIをつけてみたで公開してます。
Perlは知らないけど使ってみたい方のお手伝いができれば、と。
ライセンスの関係でアイコン無しバージョンです。
■参考
初音ミクに喋らせてみた(Perl版012)
http://akira-izumi.cocolog-nifty.com/patent/2007/12/perl012_dc03.html
MeCab 0.96 PPM
http://namazu.asablo.jp/blog/2007/06/28/1611341
雑記帖のにっき(2005-07-22)
http://ohkubo.s53.xrea.com/diary/20050722.html
HTAでコマンドライン・プログラムをビジュアルにする
http://itpro.nikkeibp.co.jp/article/COLUMN/20060116/227312/
ボーカロイドアイコン
http://www.q-ice.com/diary/blog/diary.cgi?no=68
