// chant.aud 
// This is the .aud file for Julia Bernd's vowelForth 
// as corrected from 

// Print out everything
SetPrintCommands 2. ;

// Load the DSOs we need
LoadDSO chant.so;
LoadDSO msgGroup.so;
LoadDSO later.so;
later = Create LaterActor ;

chantor  = Create ChantActor;
chantit  = Create MessageGroup ;
AddMessage chantit BeginSound chantor ;
AddMessage chantit SetFreq *? 440.0 ;
AddMessage chantit SetAmp *?  .5 ;
AddMessage chantit AddFormant  *? .03  100.0   1.0 ;  //Formant f0 ;
AddMessage chantit AddFormant  *?  .03  320.0 100.0 ;  //Formant F1 ;
AddMessage chantit AddFormant  *? .03 2200.0 100.0 ;  //Formant F2 ;
AddMessage chantit SetFormantAmp *?  2. *0 ;
AddMessage chantit SetFormantCF  *?  2. *1 ;
AddMessage chantit SetFormantBW  *?  2. *2 ;
AddMessage chantit SetFormantPhase *?  2. *3 ;
AddMessage chantit AddMessage  later .20  Delete *?;