喫茶XRAY [Mr.XRAY掲示板]

[2317] #2240でお話したキャラクターでナレーションの音声合成について

返信　削除

2009/4/26 (日) 19:34:29 KSC 〔HomePage〕

KSCです。

#2240でお話したキャラクターでナレーションの音声合成についてですが、

少し前に「窓の杜」のニュースメールで知ったのですが、
「T2V Player」と言うフリーウェアがあり、テキストで書いた台本を
任意のキャラクターにしゃべらせ自分なりの番組作成ができる言うものです。

試しに自分のサイトニュースを作成してみました。
暇つぶしに見に来て下さい。

http://kazuyoshisc.sakura.ne.jp/joomla/index.php?option=com_content&view=article&id=35:2009-04-26-10-14-54&catid=1:2009-02-15-08-00-35&Itemid=12

ちなみに「T2V Player」は、台本テキストをTVML言語に変換・映像化
しているのですが、そのTVML言語はNHK放送技術研究所が提唱している
言語なのです。

「ＮＨＫ」って、こんな事もしているんですね。
ちょっとイメージが変わりました。

こういう事をもっと世間にアピールすれば良いのにと思うのですが...。

「もう、既に知っているよ！」だったら、すいません。聞き流して下さい。

それでは、また。

[2319] 音声合成を使用して動画マニュアル

返信　削除

2009/4/26 (日) 20:43:29 Mr.XRAY

感動です!!
やはり実際にできたものを観ると感動します．
それともう1つ，自分のサーバではなく，Youtubeの利用です．
時代の進化を感じさせます．

> 「ＮＨＫ」って、こんな事もしているんですね。
> ちょっとイメージが変わりました。

通称NHK技研と言うのですが，何でも研究していますね．
私がまだ「研究者のはしくれ」だった頃，放射線画像の研究をしている方
がいました．
また，アニメーション動画作成の研究をしている方も．
その頃は，まだ骨だけ(線画の人物)が動くだけでしたが．

[2321] Re:音声合成を使用して動画マニュアル

返信　削除

2009/4/26 (日) 21:09:24 KSC 〔HomePage〕

KSCです。

> 感動です!!
> やはり実際にできたものを観ると感動します．

早速、見て頂けて光栄です！

> それともう1つ，自分のサーバではなく，Youtubeの利用です．
> 時代の進化を感じさせます．

YouTubeを利用している理由としては、
・動画ファイル管理が容易である事。
・自サイトの容量節約。
・色々な人に自分が作成した動画を見て欲しいから。

> 通称NHK技研と言うのですが，何でも研究していますね．
> 私がまだ「研究者のはしくれ」だった頃，放射線画像の研究をしている方
> がいました．

やはり知ってみてたのですね。さ・す・が...！

> また，アニメーション動画作成の研究をしている方も．
> その頃は，まだ骨だけ(線画の人物)が動くだけでしたが．

TVML言語も確立（？）されたようで、その言語を使って様々なツールが
登場してくるのでしょうかね？

そういえば、「ＭＰＦ」と言うシステムにも非常に興味が沸いている私でした！

[2324] Re2:音声合成を使用して動画マニュアル

返信　削除

2009/4/28 (火) 05:11:06 Mr.XRAY

> そういえば、「ＭＰＦ」と言うシステムにも非常に興味が沸いている私でした！

何でも興味を持つのは進歩の証ですよね．
ところで，MPFって，ファイルのやつですか?

[2329] Re3:音声合成を使用して動画マニュアル

返信　削除

2009/4/28 (火) 17:05:11 TS

▼ Mr.XRAYさん

「TVMLプレーヤー」の外部制御開発キット

Delphiで制御出来るのを確認しました。

スタートの確認のみです。

[2332] Re4:音声合成を使用して動画マニュアル

返信　削除

2009/4/28 (火) 19:37:00 KSC 〔HomePage〕

KSCです。

> 「TVMLプレーヤー」の外部制御開発キット
>
> Delphiで制御出来るのを確認しました。
>
> スタートの確認のみです。

Mr.XRAYさんと同意見です。

早っ．！　と言うか、知りませんでした。
私も確認したいと思います。

TSさん、情報有難うございます。

[2333] Re5:音声合成を使用して動画マニュアル

返信　削除

2009/4/28 (火) 20:03:43 TS

▼ KSCさん Mr.XRAYさん
一応動作を確認しましたので、コードを
載せます。長いかもしれませんが
ご免なさい。
// H to Pas Converter Ver.1.20.1.47 by K.Kumaki
//     Date : 27 Apr 2009
//   Source : tvif.h (27 Aug 2004)

unit tvif;

{$X+}{$Z2}{$A8}

interface

uses Windows;

(*
{$IFNDEF __TVPLAYER_IF_H__}
{$DEFINE __TVPLAYER_IF_H__}

{$IFDEF __cplusplus}
// Error : extern "C" {
{$ENDIF}

{$IFDEF DLL_EXPORTS}
{$IFNDEF DLL_API}
const
// Error :  #define DLL_API __declspec ( dllexport )
{$ENDIF}
{$ELSE}
{$IFNDEF DLL_API}
{$DEFINE DLL_API}
{$ENDIF}
{$ENDIF}

*)

(*
tvml player 2 tvif API for NHK Rev 1.1
Programmed by Yasuhiro Aikawa
Looped Picture Company
http://www.loopedpicture.com
*)

const

  TvifExport = 'tvif.dll';

  TVP_MIN_WINSIZE_X        = 120;
  TVP_MIN_WINSIZE_Y        = 90;
  TVP_DEFAULT_WINSIZE_X        = 320;
  TVP_DEFAULT_WINSIZE_Y        = 240;
  TVP_DEFAULT_FRAMERATE        = 30;
  TVP_X        = 0;
  TVP_Y        = 1;
  (*
  TVP_FREE_RUN        = 0;
  TVP_PHASE        = 1;
  TVP_LOCK        = 2;
  *)
(* command or status *)
  TVP_STOP        = 0;
  TVP_PLAY        = 1;
  TVP_PAUSE        = 2;
  TVP_INIT        = 3;
  TVP_UPDATE_SCRIPT        = 4;
  TVP_UPDATE_ISCRIPT        = 5;
  TVP_RESET        = 6;
  TVP_SHUTDOWN        = 7;
  TVP_WINPOS        = 8;
  TVP_WINSIZE        = 9;
  TVP_FOREGROUND        = 10;
  TVP_WINMASK        = 11;
  TVP_UPDATE_FILEPATH        = 12;
  TVP_UPDATE_STOPMOTION        = 13;
  TVP_RESETPLAY        = 14;

  TVP_EXECUTE        = 98;
  TVP_NONE        = 99;
  TVP_UNKNOW        = -1;

  TVP_OFF        = 0;
  TVP_ON        = 1;

  TVP_OK        = 0;
  TVP_ERROR        = -1;

(* tvifSetStopType *)
  TVP_STOP_BLACK        = 0;
  TVP_STOP_COLORBAR        = 1;

(* tvifSetWindowType *)
  TVP_WIN_DEFAULT        = 0;
  TVP_WIN_NOFRAME        = 1;

(* tvifSetDrawmode *)
  TVP_FREE_RUN        = 0;
  TVP_PHASE        = 1;
  TVP_LOCK        = 2;

(* tvifGetMouseButton return value *)
  TVIF_MOUSE_LEFT        = 1;
  TVIF_MOUSE_RIGHT        = 2;
  TVIF_MOUSE_MIDDLE        = 4;

//
  TVIF_DEFAULT_SCRIPT_LINE        =  ( 2048 );

  TVP_INTERRUPT_BEFORE        = 0;
  TVP_INTERRUPT_MAIN        = 1;
  TVP_INTEERUPT_USER        = 2;

  function tvifInit(hInstance: PCardinal {HINSTANCE}; script_linemax: Integer; model: Integer): Integer; cdecl; external TvifExport;
  function tvifConnect(hInstance: PCardinal {HINSTANCE}; script_linemax: Integer; model: Integer): Integer; cdecl; external TvifExport;
  procedure tvifExit; cdecl; external TvifExport;
  procedure tvifSafetyStart; cdecl; external TvifExport;
  procedure tvifSetParentHWND(hWnd: HWND); cdecl; external TvifExport;
  procedure tvifSetDrawmode(drawmode: Integer); cdecl; external TvifExport;
  procedure tvifSetFramerate(framerate: Integer); cdecl; external TvifExport;
  procedure tvifSetWindowType(window_type: Integer); cdecl; external TvifExport;

  procedure tvifSetWindowSize(width: Integer; height: Integer); cdecl; external TvifExport;
  procedure tvifSetWindowPosition(x: Integer; y: Integer); cdecl; external TvifExport;

  function tvifSetCommand(command: Integer): Integer; cdecl; external TvifExport;
  procedure tvifSetScript(script: PChar); cdecl; external TvifExport;
  procedure tvifSetInterrputScript(script: PChar); cdecl; external TvifExport;
  procedure tvifSetInterrput(sw: Integer); cdecl; external TvifExport;

  procedure tvifSetMaskImage(bmpfilename: PChar); cdecl; external TvifExport;
  procedure tvifSetMaskColor(maskcolor: ULONG); cdecl; external TvifExport;

  procedure tvifSetStopMode(stop_mode: Integer); cdecl; external TvifExport;
  procedure tvifSetStopType(stop_type: Integer); cdecl; external TvifExport;

  procedure tvifGetWindowSize(var width: Integer; var height: Integer); cdecl; external TvifExport;
  procedure tvifGetWindowPosition(var x: Integer; var y: Integer); cdecl; external TvifExport;
  function tvifGetCommand: Integer; cdecl; external TvifExport;
  function tvifGetStatus: Integer; cdecl; external TvifExport;
  procedure tvifClearStatus; cdecl; external TvifExport;

// Player Set up Functions
  procedure tvifBaseFontSize(fsize: Integer); cdecl; external TvifExport;
  procedure tvifAutoFontReSize(sw: Integer); cdecl; external TvifExport;
  procedure tvifDefaultFont(fontname: PChar); cdecl; external TvifExport;
  procedure tvifModelStationed(sw: Integer); cdecl; external TvifExport;
  function tvifPlayerProcess: Integer; cdecl; external TvifExport;

// Interrupt Functions
  procedure tvifSetinterruptID(id: Integer); cdecl; external TvifExport;
  function tvifGetinterruptID: Integer; cdecl; external TvifExport;
  procedure tvifSetinteruptExitmode(mode: Integer); cdecl; external TvifExport;
  procedure tvifChangeScript(id: Integer); cdecl; external TvifExport;
  function tvifSetFilePath(filename: PChar): Integer; cdecl; external TvifExport;
  procedure tvifAutoResumScript(sw: Integer); cdecl; external TvifExport;
  procedure tvifResumScript; cdecl; external TvifExport;
  function tvifGetLineNumber: Integer; cdecl; external TvifExport;

// User Input Device Functions
  function tvifGetMouseButton: Integer; cdecl; external TvifExport;
  procedure tvifResetMouseButton; cdecl; external TvifExport;
  procedure tvifResetZmouse; cdecl; external TvifExport;
  procedure tvifGetMousePos(var pos: Integer); cdecl; external TvifExport;
  function tvifGetZmouse: Integer; cdecl; external TvifExport;
  function tvifGetKey: Integer; cdecl; external TvifExport;
  procedure tvifClearKey; cdecl; external TvifExport;
  procedure tvifSetKeyevent(key: Integer); cdecl; external TvifExport;

  function tvifCheckLauchFile: Integer; cdecl; external TvifExport;
  procedure tvifSetLaunchFile(filename: PChar); cdecl; external TvifExport;
  procedure tvifGetLaunchFile(filename: PChar); cdecl; external TvifExport;
  procedure tvifForceExit; cdecl; external TvifExport;

implementation

end.

[2341] Re6:音声合成を使用して動画マニュアル

返信　削除

2009/4/30 (木) 01:18:20 KSC 〔HomePage〕

KSCです。

TSさん、Mr.XRAYさん
色々と情報を有難うございます。

私が２本目のニュースアニメーションを作成している間に
あっと言う間に書き込み件数が増えていて、ビックリです。

と言う事で、２本目のニュースアニメーションを紹介させて頂きます。

http://kazuyoshisc.sakura.ne.jp/joomla/index.php

で、TSさん、Mr.XRAYさんに誤らなければいけない事があります。
TSさん、Mr.XRAYさんに許可を取らずに２本目のニュースの中で
お二人の名前を出してしまっています。

事後ですが、『名前出しは、宜しいでしょうか？』

問題が有るようなら、ニュース内容を変更します。

返事を書き込みして頂ければと...。

Mr.XRAYさんへ

返事待ちに掲示板を利用してしまい、すいません。

[▼次のスレッド]

INCM/CMT
Cyclamen v3.82