¿¬¼³ :: rsynth.Perl ÀÎÅÍÆäÀ̽º "librsynth 'klatt ½ºÅ¸ÀÏÀÇ ¿¬¼³ ÇÕ¼º C ¶óÀ̺귯¸® | |
Áö±Ý ´Ù¿î·Îµå |
¿¬¼³ :: rsynth. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bryan Jurish
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~moocow/
¿¬¼³ :: rsynth. ű×
¿¬¼³ :: rsynth. ¼³¸í
'librsynth'klatt ½ºÅ¸ÀÏÀÇ ¿¬¼³ ÇÕ¼º C ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º ¿¬¼³ :: Rsynth´Â Jon Iles 'KLATT Formant SynthesizerÀÇ ±¸ÇöÀ» ±â¹ÝÀ¸·Î ÇÑ Nick Ing-Simmons'Rsynth "Speech Synthesizer ÆÐÅ°ÁöÀÇ ÀûÀÀ¿¡ ´ëÇÑ Perl OO ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ÇöÀç ±âº» ÅؽºÆ® - À½¼º (TTS) ±â´É ¸¸ Á¦°øÇϸç, ¿©·¯ Çü½ÄÀÇ ÆÄÀÏÀ» ÆÄÀÏ·Î Á¦°ø ÇÒ»Ó¸¸ ¾Æ´Ï¶ó ¿Àµð¿À ÀåÄ¡¿¡ Á÷Á¢ Á¦°øµË´Ï´Ù. »ý¼ºÀÚ $ rs = ¿¬¼³ :: rsynth-> new (g); # »õ·Î¿î Synth °³Ã¼ ¸¸µé±â # ÇÕ¼º $ rs-> ½ÃÀÛ; # ½ÃÀÛ ÇÕ¼º $ rs-> say_string ( "test 12 3"); # String $ rs-> say_file (stdin) ÇÕ¼º; # Àüü ÆÄÀÏÀ» ÇÕ¼º $ RS-> Á¤Áö; # ÁßÁö ÇÕ¼º (µ¿±âÈ) # ±¸¼º G = $ RS-> ±¸¼º; # ¸ðµç ½Å½Ã ±¸¼º µ¥ÀÌÅÍ °¡Á® ¿À±â $ RS-> ±¸¼º (g); # ¼³Á¤ (ºÎºÐÀû) Synth ±¸¼º # Á¢±Ù ÀÚ : Ç÷¡±× $ bool = $ rs-> use_audio; $ rs-> use_audio ($ bool); # do / do ¿Àµð¿À ÀåÄ¡¿¡ º¸³»Áö ¸¶½Ê½Ã¿À $ bool = $ rs-> ½ÇÇà; $ rs-> ½ÇÇà ($ bool); # / set ¾×Ƽºê Ç÷¡±× # Á¢±Ù ÀÚ : ÀÏ¹Ý $ Level = $ rs-> ÀÚ¼¼ÇÑ °Í; $ RS-> ÀÚ¼¼ÇÑ ($ ·¹º§); # GET / SET ÀÚ¼¼ÇÑ ¼öÁØ $ BOOL = $ RS-> HELP_ONLY; $ rs-> help_only ($ bool); # µµ¿ò¸» - Ç÷¡±× # Á¢±Ù ÀÚ : ¿Àµð¿À ¼Ó¼º $ hertz = $ rs-> samp_rate; $ rs-> samp_rate ($ hertz); # »ùÇà ¼Óµµ # ¾×¼¼¼¸® °¡Á® ¿À±â / ¼³Á¤ : ¿Àµð¿À ÆÄÀÏ À̸§ $ file = $ rs-> dev_file; $ rs-> dev_file ($ file); # ¿Àµð¿À ÀåÄ¡ °¡Á® ¿À±â / ¼³Á¤ ÆÄÀÏ À̸§ $ FILE = $ RS-> LINEAR_FILE; $ rs-> linear_file ($ file); # RAW LINEAR FILENAME $ FILE = $ RS-> AU_FILE °¡Á® ¿À±â / ¼³Á¤; $ rs-> au_file ($ file); # Sun / Next Filename # Á¢±Ù ÀÚ : ÆÄÀÏ ¼³¸íÀÚ $ FD = $ RS-> DEV_FD; $ rs-> dev_fd ($ fd); # OPENT / SET ¿Àµð¿À ÀåÄ¡ FD $ FD = $ RS-> LINEAR_FD; $ rs-> linear_fd ($ fd); # GET / SET RAW LINEAR FD $ FD = $ RS-> AU_FD; $ RS-> AU_FD ($ FD); # Sun / Next FD # Á¢±Ù ÀÚ : KLATT GUTS $ MS = $ RS-> MSEC_PER_FRAME; $ rs-> msec_per_frame ($ ms); ÇÁ·¹ÀÓ ´ç # ¹Ð¸® ÃÊ $ bool = $ rs-> Ã浿; $ rs-> ÀÓÆÞ½º ($ bool); # immulse glottal source $ n = $ rs-> casc; $ rs-> casc ($ n); # ¹øÈ£ ij½ºÄÉÀ̵å Æ÷¹Ä·¯ $ n = $ rs-> klatt_f0_flutter; $ rs-> klatt_f0_flutter ($ n); # f0 flutter $ db = $ rs-> klatt_tilt_db; $ rs-> klatt_tilt_db ($ db); # ±â¿ï±â DB $ Hz = $ rs-> klatt_f0_hz; $ rs-> klatt_f0_hz ($ hz); # F0 ±âº» ÁÖÆļö # Á¢±Ù ÀÚ : holmes $ n = $ rs-> ¼Óµµ; $ rs-> ¼Óµµ ($ n); # ¼Óµµ (1.0Àº 'Á¤»ó') $ f = $ rs-> FRAC; $ rs-> frac ($ f); # ¸Å°³ º¯¼ö ÇÊÅÍ 'ºÐ¼ö'$ FILE = $ rs-> par_name; $ rs-> par_name ($ file); PLOT $ FILE = $ RS-> JSRU_NAMEÀÇ ¸Å°³ º¯¼ö ÆÄÀÏ À̸§; $ rs-> jsru_name ($ ÆÄÀÏ); ´ëü SYSTH (JSRU) # Á¢±ÙÀÚ¸¦À§ÇÑ ÇÃ·Ô ÆÄÀÏ : »çÀü $ PATH = $ RS-> DICT_PATH; $ rs-> dict_path ($ path); # GDBM »çÀü ÆÄÀÏ # ¾×¼¼¼¸®ÀÇ Àüü °æ·Î : ·Î¿ì ·¹º§ $ Ç÷¡±× = $ RS-> Ç÷¡±×; $ RS-> Ç÷¡±× ($ Ç÷¡±×); # ±ê¹ß °¡Á® ¿À±â / ¼³Á¤ ¸¶½ºÅ© ¿ä±¸ »çÇ× : ¡¤ Perl.
¿¬¼³ :: rsynth. °ü·Ã ¼ÒÇÁÆ®¿þ¾î
CGI :: Application :: Plugin :: Config :: Perl.
CGI :: ¾ÖÇø®ÄÉÀ̼ÇÀ»À§ÇÑ ¼ø¼ö Perl ±¸¼º ÆÄÀÏ °ü¸® ...
168