Speech::Rsynth Perl interface to 'librsynth' Klatt-style speech synthesis C library
Download

Speech::Rsynth Ranking & Summary

Speech::Rsynth Tags

Perl module perl Perl interface librsynth interface librsynth

Speech::Rsynth Description

Perl interface to 'librsynth' Klatt-style speech synthesis C library Speech::Rsynth is a Perl OO interface to the adaptation of Nick Ing-Simmons' "rsynth" speech synthesizer package, itself based on Jon Iles' implementation of a Klatt formant synthesizer. It currently provides only basic Text-to-Speech (TTS) capabilities, with output to file(s) of several formats, as well as directly to an audio device.Currently tested only under Linux.SYNOPSIS use Speech::Rsynth;{ # Constructor $rs = Speech::Rsynth->new(g); # create a new synth object # Synthesis $rs->start; # start synthesis $rs->say_string("test 1 2 3"); # synthesize string $rs->say_file(STDIN); # synthesize a whole file $rs->stop; # stop synthesis (synchronizes) # Configuration g = $rs->configure; # get all synth configuration data $rs->configure(g); # set (partial) synth configuration # Accessors : Flags $bool = $rs->use_audio; $rs->use_audio($bool); # do/don't send to audio device $bool = $rs->running; $rs->running($bool); # get/set active-flag # Accessors : General $level = $rs->verbose; $rs->verbose($level); # get/set verbosity level $bool = $rs->help_only; $rs->help_only($bool); # get/set help-flag # Accessors: Audio Properties $hertz = $rs->samp_rate; $rs->samp_rate($hertz); # get/set sample-rate # Accessors: Audio Filenames $file = $rs->dev_file; $rs->dev_file($file); # get/set audio device filename $file = $rs->linear_file; $rs->linear_file($file); # get/set raw linear filename $file = $rs->au_file; $rs->au_file($file); # get/set Sun/NeXT filename # Accessors: File Descriptors $fd = $rs->dev_fd; $rs->dev_fd($fd); # get/set audio device fd $fd = $rs->linear_fd; $rs->linear_fd($fd); # get/set raw linear fd $fd = $rs->au_fd; $rs->au_fd($fd); # get/set Sun/NeXT fd # Accessors: Klatt Guts $ms = $rs->mSec_per_Frame; $rs->mSec_per_Frame($ms); # milliseconds per frame $bool = $rs->impulse; $rs->impulse($bool); # impulse glottal source $n = $rs->casc; $rs->casc($n); # number cascade formants $n = $rs->klatt_f0_flutter; $rs->klatt_f0_flutter($n); # F0 flutter $dB = $rs->klatt_tilt_db; $rs->klatt_tilt_db($dB); # tilt dB $hz = $rs->klatt_f0_hz; $rs->klatt_f0_hz($hz); # F0 base frequency # Accessors: Holmes $n = $rs->speed; $rs->speed($n); # speed (1.0 is 'normal') $f = $rs->frac; $rs->frac($f); # parameter filter 'fraction' $file = $rs->par_name; $rs->par_name($file); # parameter filename for plot $file = $rs->jsru_name; $rs->jsru_name($file); # plot file for alternate synth (JSRU) # Accessors: Dictionary $path = $rs->dict_path; $rs->dict_path($path); # full path to GDBM dictionary file # Accessors: low-level $flags = $rs->flags; $rs->flags($flags); # get/set flags mask Requirements: · Perl

Speech::Rsynth Related Software