home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / ace-2.0.lha / ACE-2.0 / include / play_sound.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-10  |  3.2 KB  |  178 lines
  1. { 
  2.   << play a sound file! >>
  3.  
  4.   Currently handles IFF 8SVX format.
  5.   If format is unknown, a default 
  6.   sampling rate is assumed. 
  7.   
  8.   Author: David J Benn
  9.     Date: 6th,7th April,16th May,
  10.       30th June,
  11.       1st,3rd,4th,8th July,
  12.       22nd November 1992,
  13.       7th January 1993
  14. }
  15.  
  16. #include <req.h>
  17.  
  18. library exec
  19.  
  20. declare function AllocMem& library exec
  21. declare function FreeMem   library exec
  22. declare function xRead&       library dos
  23.  
  24. const NOTOK=-1
  25. const OK=0
  26.  
  27. longint offset&,samples_per_second&
  28.  
  29. SUB parse_sample(f$)
  30. shared offset&,samples_per_second&
  31. const default_rate=10000&
  32.  
  33.  { if IFF 8SVX sample, return
  34.    offset from start of file to
  35.    sample data and sampling rate in
  36.    samples per second. }
  37.  
  38.  open "I",1,f$
  39.  
  40.  '..FORM#### ?
  41.  dummy$ = input$(8,#1)
  42.  
  43.  '..8SVX ?
  44.  x$ = input$(4,#1)
  45.  if x$="8SVX" then
  46.    sample_format$="IFF 8SVX"
  47.  
  48.    '..skip VHDR###
  49.    dummy$ = input$(8,#1)
  50.  
  51.    '..skip ULONGs x 3 
  52.    dummy$ = input$(12,#1)
  53.  
  54.    '..get sampling rate bytes
  55.    hi%=asc(input$(1,#1))  '..high byte
  56.    lo%=asc(input$(1,#1))  '..low byte
  57.    samples_per_second&=hi%*256 + lo%
  58.  
  59.    '..find BODY
  60.    '..skip rest of Voice8Header structure
  61.    dummy$ = input$(6,#1)
  62.  
  63.    offset&=40  '..bytes up to this point
  64.    repeat 
  65.     repeat
  66.       x$=input$(1,#1)
  67.       offset&=offset&+1
  68.     until x$="B" and not eof(1)
  69.     if not eof(1) then
  70.       body$=input$(3,#1)
  71.       offset&=offset&+3
  72.     end if
  73.    until body$="ODY" and not eof(1) 
  74.  
  75.    if not eof(1) then
  76.      x$=input$(4,#1)  '..skip ####   
  77.      offset&=offset&+4
  78.    else
  79.      close 1
  80.      parse_sample=NOTOK
  81.      exit sub
  82.    end if
  83.    close 1
  84.  else
  85.    close 1
  86.    sample_format$="unknown"
  87.    offset&=0
  88.    samples_per_second&=default_rate
  89.    parse_sample=OK
  90.  end if
  91.  
  92. END SUB
  93.  
  94.  
  95. SUB play_sound(f$)
  96. shared offset&,samples_per_second&
  97. const maxsample=131070
  98. const channel=1
  99.  
  100. dim   wave_ptr&(100)
  101.  
  102. '..file size?
  103. open "I",1,f$
  104. f_size&=lof(1)
  105. close 1
  106.  
  107. if f_size&=0 then 
  108.   play_sound=NOTOK
  109.   library close exec
  110.   exit sub
  111. end if
  112.  
  113. '..parse the sample
  114. if parse_sample(f$) = NOTOK then
  115.   play_sound=NOTOK
  116.   library close exec
  117.   exit sub
  118. end if
  119.  
  120. '..get the sample bytes
  121. buffer&=AllocMem(f_size&,MEMF_CHIP) '...f_size& bytes of CHIP RAM
  122. if buffer& = NULL then 
  123.   avail&=fre(MEMF_CHIP)  '..max. contiguous CHIP RAM
  124.   play_sound=NOTOK
  125.   library close exec
  126.   exit sub
  127. end if
  128.  
  129. '..read whole sample
  130. open "I",1,f$  
  131. fh&=handle(1)
  132. if fh&=0 then clean.up
  133. bytes&=xRead(fh&,buffer&,f_size&)
  134. close 1
  135.  
  136. '..calculate period
  137. per& = 3579546 \ samples_per_second&  
  138.   
  139. '...setup waveform table for voice 0
  140. sz&=f_size&-offset&
  141.  
  142. if sz& <= maxsample then
  143.   '..play it in one go
  144.   wave channel,buffer&+offset&,sz&
  145.   dur&=.279365*per&*bytes&/1e6*18.2
  146.   sound per&,dur&,,channel
  147. else
  148.   segments&=sz&\maxsample
  149.   buf&=buffer&+offset&
  150.  
  151.   '..get the segment pointers
  152.   for i&=0 to segments&
  153.     wave_ptr&(i&)=buf&+maxsample*i&
  154.   next
  155.  
  156.   '..play sample in segments
  157.   for i&=0 to segments&
  158.     if sz& >= maxsample then 
  159.        wave channel,wave_ptr&(i&),maxsample 
  160.        bytes&=maxsample
  161.     else 
  162.        wave channel,wave_ptr&(i&),sz&
  163.        bytes&=sz&
  164.     end if
  165.     dur&=.279365*per&*bytes&/1e6*18.2
  166.     sound per&,dur&,,channel
  167.     sz&=sz&-maxsample
  168.   next   
  169. end if
  170.   
  171. clean.up:
  172.  FreeMem(buffer&,f_size&)
  173.  library close exec
  174.  
  175.  play_sound=OK
  176.  
  177. END SUB
  178.