// MDXWin Constructor

unit _Vis_const;

interface

uses
  SysUtils,Types;

const SpeanaModeWave=0;
const SpeanaModeBar=1;
const SpeanaModeScr=2;
const SpeanaModeLine=3;

const VisualModeKeyboard=0;
const VisualModeMDXDis=1;
const VisualModeWire=2;
const VisualModeWave=3;
const VisualModeFly=4;
const VisualModePool=5;
const VisualModeBox=6;
const VisualModeSonar=7;
const VisualModeRain=8;

const DDBlurModeCopy=0;
const DDBlurModeReduction=1;
const DDBlurModeShade=2;

type // VisualŠÖŚW
  TAnalyze=record
    NowY:integer;
    Delay:integer;
    DelayTime,DelaySpeed:integer;
  end;

  TVisualChannel=record
    mes0,mes1:string;
    Panpot,Voice,Keycode:integer;
  end;

  TSonarBody=record
    note:integer;
    len:integer;
    delay:integer;
  end;

  TSonar=record
    Body:array[0..8] of TSonarBody;
  end;

  TVisual=record
    PlayTime,TotalClock,MesureClock,DispClock:DWORD;
    Tempo:byte;
    LoopCount:LongInt;
    VelGra: array[0..15] of TAnalyze;
    SpeAna: array[0..63] of TAnalyze;
    NoteKeyno: array[0..15] of integer;
    SonarLastClock:dword;
    Sonar:array[0..15] of TSonar;
    SpeWave:array[0..288] of SmallInt;
    Channel:array[0..15] of TVisualChannel;
    KDDID:byte;
  end;
  PVisual=^TVisual;

implementation

end.



