RealICQClient/Includes/2007_MMTools/Help/Doc/DSOUND/MMDSETYP.INT

{========================================================================}
{=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
{========================================================================}
{=                          All Rights Reserved                         =}
{========================================================================}
{=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
{=  Loewenstr.7a                = info@swiftsoft.de                     =}
{========================================================================}
{=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
{========================================================================}
{=  This code is for reference purposes only and may not be copied or   =}
{=  distributed in any format electronic or otherwise except one copy   =}
{=  for backup purposes.                                                =}
{=                                                                      =}
{=  No Delphi Component Kit or Component individually or in a collection=}
{=  subclassed or otherwise from the code in this unit, or associated   =}
{=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
{=  without express permission from SwiftSoft.                          =}
{=                                                                      =}
{=  For more licence informations please refer to the associated        =}
{=  HelpFile.                                                           =}
{========================================================================}
{=  $Date: 20.01.1998 - 18:00:00 $                                      =}
{========================================================================}
unit MMDSETyp;

interface

uses
    MMDSMix,
    MMUtils,
    MMWave,
    MM3D;

type
    PMMDSEDMixerParams      = ^TMMDSEDMixerParams;
    TMMDSEDMixerParams      = record
        BitLength           : TMMBits;
        DeviceId            : Integer;
        Level               : TMMDSLevel;
        SampleRate          : LongInt;
        SpeakerConfig       : TMMDSSpeakerConfig
    end;

    PMMDSEDListenerParams   = ^TMMDSEDListenerParams;
    TMMDSEDListenerParams   = record
        DistanceFactor      : TMM3DValue;
        DopplerFactor       : TMM3DValue;
        OrientFront         : TMM3DVector;
        OrientTop           : TMM3DVector;
        Position            : TMM3DVector;
        RollOffFactor       : TMM3DValue;
        Velocity            : TMM3DVector;
    end;

    PMMDSEDSourceParams     = ^TMMDSEDSourceParams;
    TMMDSEDSourceParams     = record
        ConeOrientation     : TMM3DVector;
        ConeOutsideVolume   : LongInt;
        InsideConeAngle     : LongInt;
        MaxDistance         : TMM3DValue;
        MinDistance         : TMM3DValue;
        Mode                : TMMDS3DBufferMode;
        OutsideConeAngle    : LongInt;
        Position            : TMM3DVector;
        Velocity            : TMM3DVector;
    end;

    PMMDSEDBufferParams     = ^TMMDSEDBufferParams;
    TMMDSEDBufferParams     = record
        Frequency           : LongInt;
        Panning             : LongInt;
        Volume              : LongInt;
    end;

    PMMDSEDWaveRecord       = ^TMMDSEDWaveRecord;
    TMMDSEDWaveRecord       = record
        Data                : Pointer;
        Size                : LongInt;
    end;

procedure MMDSEDRecordFromMixer(Mix: TMMDSWaveMixer; var MixPar: TMMDSEDMixerParams);
procedure MMDSEDRecordFromBuffer(Ch: TMMDSMixChannel; var BufPar: TMMDSEDBufferParams);
procedure MMDSEDMixerFromRecord(Mix: TMMDSWaveMixer; const MixPar: TMMDSEDMixerParams);
procedure MMDSEDBufferFromRecord(Ch: TMMDSMixChannel; const BufPar: TMMDSEDBufferParams);
procedure MMDSEDRecordFromListener(Mix: TMMDSWaveMixer; var ListPar: TMMDSEDListenerParams);
procedure MMDSEDRecordFromSource(Ch: TMMDSMixChannel; var SrcPar: TMMDSEDSourceParams);
procedure MMDSEDListenerFromRecord(Mix: TMMDSWaveMixer; const ListPar: TMMDSEDListenerParams);
procedure MMDSEDSourceFromRecord(Ch: TMMDSMixChannel; const SrcPar: TMMDSEDSourceParams);
function  MMDSEDCreateWaveRecord(Wave: TMMWave): TMMDSEDWaveRecord;
procedure MMDSEDFreeWaveRecord(R: TMMDSEDWaveRecord);
procedure MMDSEDLoadWaveFromRecord(R: TMMDSEDWaveRecord; Wave: TMMWave);

implementation