home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / mac / programm / 15225 < prev    next >
Encoding:
Internet Message Format  |  1992-09-09  |  2.7 KB
  1. Path: sparky!uunet!olivea!spool.mu.edu!news.nd.edu!mentor.cc.purdue.edu!noose.ecn.purdue.edu!samsung!transfer!ceylon!choffman.gte.com!user
  2. From: chuck@gte.com (Chuck Hoffman)
  3. Newsgroups: comp.sys.mac.programmer
  4. Subject: Re: Need small example of playing a sound in THINK C.
  5. Message-ID: <chuck-090992095031@choffman.gte.com>
  6. Date: 9 Sep 92 14:19:17 GMT
  7. References: <1992Sep7.001953.570@nynexst.com>
  8. Sender: news@ceylon.gte.com
  9. Followup-To: comp.sys.mac.programmer
  10. Organization: GTE Laboratories
  11. Lines: 71
  12.  
  13. In article <1992Sep7.001953.570@nynexst.com>, rsilvers@powwow.nynexst.com
  14. (Rob Silvers) wrote:
  15. > 
  16. >     I have gotton the Mac to play sampled sound resources in
  17. > THINK C, but I am having trouble playing a synthesized square wave.
  18. > Could someone send me a small example of playing a simple note?
  19.  
  20. I did it recently this way, to play a sound asynchronously:
  21.  
  22. I used ResEdit to create (and preview play) a 'snd ' resource (trailing
  23. blank required) with the following hexidecimal values.  Actually, I created
  24. a template for ResEdit to make this easy.  Sound resource number should be
  25. above 8191.  I used 9000.
  26.  
  27. ============   'snd ' RESOURCE:
  28.  
  29. 0001               Format 1
  30. 0001                                                   Number of mod/synth's is 1
  31. 000100000000       Note synth id is 1, and null initial parm
  32. 0003               Number of commands
  33. 002B00FF00000000   Amplitude command (full blast)
  34. 002C008000000000   Timbre command (half between square and sine)
  35. 002803E800000036   Note command (1000 half miliseconds, F-sharp/A-flat)
  36.  
  37. ============  TO PLAY THE SOUND:
  38.  
  39. SndCommand    myCallbk;
  40.  
  41. ------------
  42. disposeAlmaMater = FALSE;
  43. myCallbk.cmd = callBackCmd;
  44. myCallbk.param1 = NIL;
  45. myCallbk.param2 = (long) &disposeAlmaMater;
  46. SetItem (myMenuHandle[3], AlmaMaterItem, myStifleStr);
  47. mySoundH = GetResource ('snd ', 9000);
  48. HLock (mySoundH);
  49. mySndChPtr = NIL;
  50. myErr = SndNewChannel (&mySndChPtr, NIL, NIL,
  51.     (ProcPtr) myCallBack);
  52. myErr = SndPlay (mySndChPtr, mySoundH, TRUE);
  53. myErr = SndDoCommand (mySndChPtr, &myCallbk, TRUE);
  54.  
  55. ============   TO STOP THE SOUND
  56.  
  57. sndRC = SndDisposeChannel (mySndChPtr, TRUE);
  58. HUnlock (mySoundH);
  59. ReleaseResource (mySoundH);
  60. disposeAlmaMater = FALSE;
  61.  
  62. ============   CALLBACK ROUTINE
  63.  
  64. pascal void    myCallBack(SndChannelPtr workChPtr, SndCommand workCmd)
  65. {
  66.     *((Ptr) workCmd.param2) = (char) 0x08;  /* set flag in disposeAlmaMater */
  67.     return;
  68. }    
  69.  
  70. ============
  71.  
  72. I'm a real beginner at this sound stuff, so postings of any other ways
  73. would be of interest to me as well.
  74.  
  75.  
  76. Chuck Hoffman
  77. chuck@gte.com
  78. GTE Laboratories, Waltham, Massachusetts, USA
  79. (617) 466-2131
  80. =====================================
  81. I'm not sure why we're here, but I am sure that while we're here we're
  82. supposed to help each other.
  83. =====================================
  84.