units/mp3/KolShared.pas

   1 (*
   2  *  File:     $RCSfile: Shared.pas,v $
   3  *  Revision: $Revision: 1.1.1.1 $
   4  *  Version : $Id: Shared.pas,v 1.1.1.1 2002/04/21 12:57:22 fobmagog Exp $
   5  *  Author:   $Author: fobmagog $
   6  *  Homepage: http://delphimpeg.sourceforge.net
   7  *            Kol translation by Thaddy de Koning
   8  *
   9  *  This program is free software; you can redistribute it and/or modify
  10  *  it under the terms of the GNU General Public License as published by
  11  *  the Free Software Foundation; either version 2 of the License, or
  12  *  (at your option) any later version.
  13  *
  14  *  This program is distributed in the hope that it will be useful,
  15  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  *  GNU General Public License for more details.
  18  *
  19  *  You should have received a copy of the GNU General Public License
  20  *  along with this program; if not, write to the Free Software
  21  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22  *)
  23 unit KolShared;
  24
  25 interface
  26
  27 const
  28   OBUFFERSIZE = 2 * 1152;  // max. 2 * 1152 samples per frame
  29   MAX_CHANNELS = 2;         // max. number of channels
  30
  31
  32 type
  33   PSingleArray = ^TSingleArray;
  34   TSingleArray = array[0..1024] of single;
  35   PByteArray = ^TByteArray;
  36   TByteArray = array[0..32767] of byte;
  37
  38   TChannels = (Both, Left, Right, Downmix);
  39
  40 implementation
  41
  42 end.