proc trysetstate {star state value} { if [catch {statevalue $star $state initial} err] then { puts stdout "Warning: $err" } else { setstate $star $state $value } } proc trytargetparam {param value} { if [catch {targetparam $param $value} err] then { puts stdout "Warning: $err" } else { targetparam $param $value } } reset newuniverse lossySpeechPrevCell domain SDF newstate prob_loss float 0.0 star PackInt_M1 PackInt_M trysetstate PackInt_M1 numRows 48 trysetstate PackInt_M1 numCols 1 star IIDUniform1 IIDUniform trysetstate IIDUniform1 lower 0.0 trysetstate IIDUniform1 upper 1.0 star Quant1 Quant trysetstate Quant1 thresholds (1-prob_loss) trysetstate Quant1 levels {} star Play1 Play trysetstate Play1 gain 4.0 trysetstate Play1 saveFile {} star Mux.input=21 Mux numports Mux.input=21 input 2 trysetstate Mux.input=21 blockSize 1 star UnPkInt_M1 UnPkInt_M trysetstate UnPkInt_M1 numRows 48 trysetstate UnPkInt_M1 numCols 1 star Fork.output=21 Fork numports Fork.output=21 output 2 star ReadPCM1 PCMReadInt trysetstate ReadPCM1 fileName {$PTOLEMY/src/domains/sdf/demo/speech/sorrydave.au} trysetstate ReadPCM1 haltAtEnd YES trysetstate ReadPCM1 periodic YES connect IIDUniform1 output Quant1 input connect PackInt_M1 output Mux.input=21 input#1 connect Quant1 output Mux.input=21 control connect Mux.input=21 output Fork.output=21 input connect Fork.output=21 output#1 UnPkInt_M1 input connect Fork.output=21 output#2 Mux.input=21 input#2 *1 connect ReadPCM1 output PackInt_M1 input connect UnPkInt_M1 output Play1 input