home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / SoundAndMusic / resample / sweep.score < prev    next >
Text File  |  1991-06-26  |  759b  |  27 lines
  1. /* Play glissando to test hearing.  If the sound moves to one side, it means
  2.    one ear hears better than the other.  If sound level dips and comes back,
  3.    it means there is a loss in both ears.  Use headphones for best results. */
  4.  
  5. /* Usage: Place this in "gliss.score" and type "playscore gliss" */
  6.  
  7. double srate=22050.00;
  8. double dur=1;            /* duration of test */
  9.  
  10. info samplingRate:srate, tempo:60;
  11.  
  12. part glisser;
  13. glisser synthPatch:"DBWave1vi" synthPatchCount:1;
  14.  
  15. envelope ampFun = [(0,0)(0.2,1)(dur-0.2,1)(dur,0)];
  16. envelope freqFun =  [(0,1000/4,4)(dur,1000,4)];
  17.  
  18. BEGIN;
  19.  
  20. glisser (noteUpdate) waveform:"" /* sine wave */ amp:.9;
  21. glisser (noteUpdate) ampEnv:ampFun freqEnv:freqFun bearing:0;
  22.  
  23. t +1;
  24. glisser (dur) freq:srate/2000;    /* Play the note */
  25.  
  26. END;
  27.