home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l048 / 1.ddi / TYPEDEF.SYS < prev    next >
Encoding:
Text File  |  1986-05-06  |  2.4 KB  |  68 lines
  1. (***********************************************************)
  2. (*                                                         *)
  3. (*                TURBO GRAPHIX version 1.06A              *)
  4. (*                                                         *)
  5. (*                  type definition module                 *)
  6. (*                   Module version 1.06A                  *)
  7. (*                                                         *)
  8. (*                  Copyright (C) 1985 by                  *)
  9. (*                  BORLAND International                  *)
  10. (*                                                         *)
  11. (***********************************************************)
  12.  
  13. const
  14.   MaxWorldsGlb = 4;
  15.   MaxWindowsGlb = 16;
  16.   MaxPiesGlb = 10;
  17.   MaxPlotGlb = 100;
  18.   StringSizeGlb = 80;
  19.   HeaderSizeGlb = 10;
  20.   RamScreenGlb : boolean = true;
  21.   CharFile : string[StringSizeGlb] = '4x6.fon';
  22.   MaxProcsGlb = 27;
  23.   MaxErrsGlb = 7;
  24.  
  25. type
  26.   WrkString = string[StringSizeGlb];
  27.   WorldType = record
  28.                 X1, Y1, X2, Y2 : real;
  29.               end;
  30.   WindowType = record
  31.                  X1, Y1, X2, Y2 : integer;
  32.                  Header : WrkString;
  33.                  Drawn, Top : boolean;
  34.                  Size : integer;
  35.                end;
  36.   Worlds = array[1..MaxWorldsGlb] of WorldType;
  37.   Windows = array[1..MaxWindowsGlb] of WindowType;
  38.   PlotArray = array[1..MaxPlotGlb, 1..2] of real;
  39.   Character = array[1..3] of byte;
  40.   CharArray = array[32..126] of character;
  41.   PieType = record
  42.               Area : real;
  43.               Text : WrkString;
  44.             end;
  45.   PieArray = array[1..MaxPiesGlb] of PieType;
  46.   BackgroundArray = array[0..7] of byte;
  47.   LineStyleArray = array[0..7] of boolean;
  48.  
  49. var
  50.   X1WldGlb, X2WldGlb, Y1WldGlb, Y2WldGlb, AxGlb, AyGlb, BxGlb, ByGlb : real;
  51.   X1RefGlb, X2RefGlb, Y1RefGlb, Y2RefGlb : integer;
  52.   LinestyleGlb, MaxWorldGlb, MaxWindowGlb, WindowNdxGlb, WorldNdxGlb : integer;
  53.   X1Glb, X2Glb, Y1Glb, Y2Glb : integer;
  54.   XTextGlb, YTextGlb, VStepGlb : integer;
  55.   PieGlb, DirectModeGlb, ClippingGlb, AxisGlb, HatchGlb : boolean;
  56.   MessageGlb, BrkGlb, HeaderGlb, TopGlb, GrafModeGlb : boolean;
  57.   CntGlb, ColorGlb : byte;
  58.   ErrCodeGlb : byte;
  59.   LineStyleArrayGlb : LineStyleArray;
  60.   ErrorProc : array[0..MaxProcsGlb] of ^WrkString;
  61.   ErrorCode : array[0..MaxErrsGlb] of ^WrkString;
  62.   PcGlb : string[40];
  63.   AspectGlb : real;
  64.   GrafBase : integer;
  65.   World : Worlds;
  66.   Window : Windows;
  67.   CharSet : CharArray;
  68.