home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / basic / ace / include / parse_sound.h < prev    next >
Text File  |  1994-10-22  |  2KB  |  99 lines
  1. { 
  2.   << parse a sound file and return 
  3.      offset (in bytes) of sample data 
  4.      start and sampling rate. >>
  5.  
  6.   Currently handles IFF 8SVX format.
  7.   If format is unknown, a default 
  8.   sampling rate is assumed. 
  9.   
  10.   Author: David J Benn
  11.     Date: 6th,7th April,16th May,
  12.       30th June,
  13.       1st,3rd,4th,8th July 1992,
  14.       7th January 1992
  15. }
  16.  
  17. library exec
  18.  
  19. declare function AllocMem& library exec
  20. declare function FreeMem   library exec
  21. declare function xRead&       library dos
  22.  
  23. longint offset&,samples_per_second&
  24.  
  25. SUB parse_sample(f$)
  26. shared offset&,samples_per_second&
  27. const default_rate=10000&
  28. const NOTOK=-1
  29. const OK=0
  30.  
  31.  { if IFF 8SVX sample, return
  32.    offset from start of file to
  33.    sample data and sampling rate in
  34.    samples per second. }
  35.  
  36.  open "I",1,f$
  37.  
  38.  '..FORM#### ?
  39.  dummy$ = input$(8,#1)
  40.  
  41.  '..8SVX ?
  42.  x$ = input$(4,#1)
  43.  
  44.  if x$="8SVX" then
  45.    sample_format$="IFF 8SVX"
  46.    '..skip VHDR###
  47.    dummy$ = input$(8,#1)
  48.  
  49.    '..skip ULONGs x 3
  50.    dummy$ = input$(12,#1) 
  51.    '..get sampling rate bytes
  52.    hi%=asc(input$(1,#1))  '..high byte
  53.    lo%=asc(input$(1,#1))  '..low byte
  54.    samples_per_second&=hi%*256 + lo%
  55.  
  56.    '..find BODY
  57.    '..skip rest of Voice8Header structure
  58.    dummy$ = input$(6,#1)
  59.    offset&=40  '..bytes up to this point
  60.    repeat 
  61.     repeat
  62.       x$=input$(1,#1)
  63.       offset&=offset&+1
  64.     until x$="B" and not eof(1)
  65.     if not eof(1) then
  66.       body$=input$(3,#1)
  67.       offset&=offset&+3
  68.     end if
  69.    until body$="ODY" and not eof(1) 
  70.  
  71.    if not eof(1) then
  72.      x$=input$(4,#1)  '..skip ####   
  73.      offset&=offset&+4
  74.    else
  75.      close 1
  76.      parse_sample=NOTOK
  77.      library close exec
  78.      exit sub
  79.    end if
  80.    close 1
  81.  else
  82.    close 1
  83.    sample_format$="unknown"
  84.    offset&=0
  85.    samples_per_second&=default_rate
  86.    parse_sample=OK
  87.    library close exec
  88.  end if
  89.  
  90. END SUB
  91.  
  92. SUB calc_period&(samples_per_second&)
  93.   calc_period& = 3579546 \ samples_per_second&  
  94. END SUB
  95.  
  96. SUB calc_duration(per&,bytes&)  
  97.   calc_duration=.279365*per&*bytes&/1e6*18.2
  98. END SUB
  99.