##############################################################################
# Modified by Mauricio Figueroa (www.mauriciofigueroa.cl) for teaching 
# purposes. The script has been modified to contain several fatal bugs as well 
# as other documentation and stylistic problems. This script should not be used
# for research purposes.
##############################################################################

# Jonas Lindh 2006
# http://www.ling.gu.se/~jonas

form Helium speech
comment choose recording duration
positive Rec_dr(sec) 4
comment 
comment Your name
text name Jonas
endform
echo Speak for 'Rec_dur' seconds 'name$'
Record Sound (fixed time)... Microphone 0.99 0.5 44100 Rec_dur
Rename... 'name'
Change gender... 75 600 1.2 0 1, 1
Rename... helium_'name$'
Play
echo You are heliumized name$
