TCustomHrtfs

type TCustomHrtfs = class(TChunkContainer)

protected

  FGeneralInformation: TCustomHrirGeneralInformation;

  FSubjectInformation: TCustomHrirSubjectInformation;

  FRoomInformation: TCustomHrirRoomInformation;

  FMicrophoneInformation: TCustomHrirMicrophoneInformation;

  FOutboardInformation: TCustomHrirOutboardInformation;

  FMeasurementInformation: TCustomHrirMeasurementInformation;

  FHrirList: TObjectList;

  FSampleRate: Single;

  procedure ConvertStreamToChunk(); override;

  procedure Interpolate2Hrir();

  procedure Interpolate3Hrir();

  function FindNearestHrirs();

  function FindSecondNearestHrirs();

  function GetChunkSize; override;

  function GetMaximumHrirSize; virtual;

  function GetMinimumHrirSize;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure SwapChannels;

  procedure Clear;

  procedure ClearInformationChunks; virtual;

  procedure ClearHrirs; virtual;

  procedure InterpolateHrir();

  procedure GetHrirByIndex();

  class function GetClassChunkName; override;

  procedure AddChunk(); override;

  property Hrir []: TCustomHrir; [r]

  property HrirCount: Integer; [r]

  property Title: string; [rw]

  property Date: TDateTime; [rw]

  property Context: string; [rw]

  property Copyright: string; [rw]

  property Author: string; [rw]

  property Notes: string; [rw]

  property SubjectID: string; [rw]

  property SubjectSex: THrirSexType; [rw]

  property SubjectDescription: string; [rw]

  property RoomType: string; [rw]

  property RoomLength: Single; [rw]

  property RoomWidth: Single; [rw]

  property RoomHeight: Single; [rw]

  property MicType: string; [rw]

  property MicManufacturer: string; [rw]

  property MicNotes: string; [rw]

  property ADConverter: string; [rw]

  property DAConverter: string; [rw]

  property Amplifier: string; [rw]

  property Loudspeaker: string; [rw]

  property Distance: Single; [rw]

  property MeasurementType: string; [rw]

  property ExcitationType: string; [rw]

  property MeasuredLength: Integer; [rw]

  property Symmetric: Boolean; [rw]

  property SampleRate: Single; [rw]

  property InterpolationType: TInterpolationType; [rw]

  property MaximumHrirSize: Integer; [r]

  property MinimumHrirSize: Integer; [r]

  property OnHrtfChanged: TNotifyEvent; [rw]

end;

TCustomHrtfs

TChunkContainer

TCustomChunkContainer

TDefinedChunk

TCustomChunk

TObject,IStreamPersist