// ch.aud 

SetPrintCommands 2. ;

LoadDSO chant.so;
LoadDSO msgGroup.so;
LoadDSO later.so;
later = Create LaterActor ;

chantor  = Create ChantActor;
chantit  = Create MessageGroup ;
AddMessage chantit BeginSound chantor SetAmp .5 SetFreq 120.0 ;
AddMessage chantit AddFormant  *?  .03  320.0 100.0 ;  //Formant F1 ;
AddMessage chantit SetFormantAmp *?  1. *0 ;
AddMessage chantit SetFormantCF  *?  1. *1 ;

AddMessage chantit AddFormant  *? .03 2200.0 100.0 ;  //Formant F2 ;
AddMessage chantit SetFormantAmp *?  2. *2 ;
AddMessage chantit SetFormantCF  *?  2. *3 ;
AddMessage chantit AddMessage  later .80  Delete *?; 

AddMessage chantit AddFormant  *? .03 2200.0 100.0 ;  //Formant F3 ;
AddMessage chantit SetFormantAmp *?  3. *4 ;
AddMessage chantit SetFormantCF  *?  3. *5 ;
AddMessage chantit AddMessage  later .80  Delete *?;