home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / midas / mglobals.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-06  |  1KB  |  48 lines
  1. {*      MGLOBALS.PAS
  2.  *
  3.  * MIDAS Sound System global variables
  4.  *
  5.  * Copyright 1994 Petteri Kangaslampi and Jarno Paananen
  6.  *
  7.  * This file is part of the MIDAS Sound System, and may only be
  8.  * used, modified and distributed under the terms of the MIDAS
  9.  * Sound System license, LICENSE.TXT. By continuing to use,
  10.  * modify or distribute this file you indicate that you have
  11.  * read the license and understand and accept it fully.
  12. *}
  13.  
  14.  
  15. unit mGlobals;
  16.  
  17.  
  18. interface
  19.  
  20.  
  21. const
  22.     MPHDRSIZE = 1084;                   { header size needed for
  23.                                           ModulePlayer.Identify() }
  24.  
  25. var
  26.     ALE : integer;                      { should Amiga loops be emulated }
  27.     ptTempo : integer;                  { should PT modules use tempo }
  28.     usePanning : integer;               { should PT modules use cmd 8 for
  29.                                           panning? }
  30.     surround : integer;                 { should Surround be enabled?}
  31.     useEMS : integer;                   { should EMS be used? }
  32.     forceEMS : integer;                 { should _only_ EMS be used? }
  33.     realVU : integer;                   { use real VU meters? }
  34.  
  35. implementation
  36.  
  37.  
  38.  
  39. BEGIN
  40.     ALE := 0;
  41.     ptTempo := 1;
  42.     usePanning := 1;
  43.     surround := 0;
  44.     useEMS := 0;
  45.     forceEMS := 0;
  46.     realVU := 0;
  47. END.
  48.