home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l048 / 1.ddi / DUMMY.INC < prev    next >
Encoding:
Text File  |  1986-03-21  |  9.4 KB  |  221 lines
  1. const
  2.   MaxWorldsGlb  = 4;
  3.   MaxWindowsGlb = 16;
  4.   MaxPiesGlb    = 10;
  5.   MaxPlotGlb    = 100;
  6.   StringSizeGlb = 80;
  7.   HeaderSizeGlb = 10;
  8.   MaxProcsGlb   = 26;
  9.   MaxErrsGlb    = 7;
  10.   RamScreenGlb  : boolean = true;
  11.   CharFile      : string[StringSizeGlb] = '4x6.fon';
  12.  
  13.  
  14. type
  15.   WrkString       = string[StringSizeGlb];
  16.   WorldType       = record
  17.                       X1, Y1, X2, Y2 : real;
  18.                     end;
  19.   WindowType      = record
  20.                       X1, Y1, X2, Y2 : integer;
  21.                       Header : WrkString;
  22.                       Drawn, Top : boolean;
  23.                       Size : integer;
  24.                     end;
  25.   Worlds          = array[1..MaxWorldsGlb] of WorldType;
  26.   Windows         = array[1..MaxWindowsGlb] of WindowType;
  27.   PlotArray       = array[1..MaxPlotGlb,1..2] of real;
  28.   Character       = array[1..3] of byte;
  29.   CharArray       = array[32..126] of Character;
  30.   PieType         = record
  31.                       Area : real;
  32.                       Text : WrkString;
  33.                     end;
  34.   PieArray        = array[1..MaxPiesGlb] of PieType;
  35.   BackgroundArray = array[0..7] of byte;
  36.   LineStyleArray  = array[0..7] of boolean;
  37.  
  38. var
  39.   X1WldGlb, X2WldGlb, Y1WldGlb, Y2WldGlb, AxGlb, AyGlb, BxGlb, ByGlb : real;
  40.   X1RefGlb, X2RefGlb, Y1RefGlb, Y2RefGlb : integer;
  41.   LinestyleGlb, MaxWorldGlb, MaxWindowGlb, WindowNdxGlb : integer;
  42.   X1Glb, X2Glb, Y1Glb, Y2Glb : integer;
  43.   XTextGlb, YTextGlb, VStepGlb : integer;
  44.   PieGlb, DirectModeGlb, ClippingGlb, AxisGlb, HatchGlb : boolean;
  45.   MessageGlb, BrkGlb, HeaderGlb, TopGlb, GrafModeGlb : boolean;
  46.   CntGlb, ColorGlb : byte;
  47.   ErrCodeGlb : byte;
  48.   LineStyleArrayGlb : LineStyleArray;
  49.   ErrorProc : array[0..MaxProcsGlb] of ^WrkString;
  50.   ErrorCode : array[0..MaxErrsGlb] of ^WrkString;
  51.   PcGlb : string[40];
  52.   AspectGlb : real;
  53.   GrafBase : integer;
  54.   World : Worlds;
  55.   Window : Windows;
  56.   CharSet : CharArray;
  57.  
  58. const
  59.   XMaxGlb          = 79;
  60.   XScreenMaxGlb    = 639;
  61.   YMaxGlb          = 199;
  62.   IVStepGlb        = 2;
  63.   ScreenSizeGlb    = 8191;
  64.   HardwareGrafBase = $B800;
  65.   FontLoaded       : boolean = false;
  66.   MinForeground    = 1;
  67.   MaxForeground    = 15;
  68.   MinBackground    = 0;
  69.   MaxBackground    = 0;
  70.   AspectFactor     = 0.44;
  71.   SaveStateGlb     : integer = 10;
  72.   RamScreenInCard  : boolean = false;
  73.  
  74. type
  75.   ScreenType        = array[0..ScreenSizeGlb] of integer;
  76.   ScreenPointer     = ^ScreenType;
  77.   WindowStackRecord = record
  78.                         W : WindowType;
  79.                         Contents : ScreenPointer;
  80.                       end;
  81.   Stacks            = array[1..MaxWindowsGlb] of WindowStackRecord;
  82.  
  83. var
  84.   ScreenGlb     : ScreenPointer;
  85.   ConOutPtrSave : integer;
  86.   Stack         : Stacks;
  87.  
  88. function HardwarePresent : boolean; begin end;
  89. function BaseAddress(Y : integer) : integer; begin end;
  90. procedure LeaveGraphic; begin end;
  91. procedure DC(C : byte); begin end;
  92. procedure DisplayChar(C : byte); begin end;
  93. procedure SetForegroundColor(Color : integer); begin end;
  94. procedure SetBackgroundColor(Color : integer); begin end;
  95. procedure ClearScreen; begin end;
  96. procedure EnterGraphic; begin end;
  97. procedure DP(X, Y : integer); begin end;
  98. function PD(X, Y :integer) : boolean; begin end;
  99. procedure SetBackground8(Background : BackgroundArray); begin end;
  100. procedure SetBackground(Byt : byte); begin end;
  101. procedure DrawStraight(X1, X2, Y : integer); begin end;
  102. procedure SaveScreen(FileName : WrkString); begin end;
  103. procedure LoadScreen(FileName : WrkString); begin end;
  104. procedure SwapScreen; begin end;
  105. procedure CopyScreen; begin end;
  106. procedure InvertScreen; begin end;
  107. procedure GotoXYTurbo(X, Y : integer); begin end;
  108. procedure GotoXY(X, Y : integer); begin end;
  109. procedure ClrEOLTurbo; begin end;
  110. procedure ClrEOL; begin end;
  111. procedure Error(ErrProc, ErrCode : integer); begin end;
  112. procedure SetBreakOff; begin end;
  113. procedure SetBreakOn; begin end;
  114. function GetErrorCode : byte; begin end;
  115. procedure SetWindowModeOff; begin end;
  116. procedure SetWindowModeOn; begin end;
  117. procedure SetClippingOn; begin end;
  118. procedure SetClippingOff; begin end;
  119. procedure SetMessageOn; begin end;
  120. procedure SetMessageOff; begin end;
  121. procedure SetHeaderOn; begin end;
  122. procedure SetHeaderOff; begin end;
  123. procedure SetHeaderToTop; begin end;
  124. procedure SetHeaderToBottom; begin end;
  125. procedure RemoveHeader(I : integer); begin end;
  126. procedure SetColorWhite; begin end;
  127. procedure SetColorBlack; begin end;
  128. function GetWindow : integer; begin end;
  129. function GetColor : integer; begin end;
  130. function Clipping : boolean; begin end;
  131. function WindowMode : boolean; begin end;
  132. procedure SetScreenAspect(Aspect : real); begin end;
  133. function GetScreenAspect : real; begin end;
  134. procedure SetAspect(Aspect : real); begin end;
  135. function GetAspect : real; begin end;
  136. procedure SetLinestyle(Ls : integer); begin end;
  137. function GetLinestyle : integer; begin end;
  138. procedure SetVStep(Vs : integer); begin end;
  139. function GetVStep : integer; begin end;
  140. procedure DefineHeader(I : integer; Hdr : WrkString); begin end;
  141. procedure SelectScreen(I : integer); begin end;
  142. function GetScreen : byte; begin end;
  143. procedure DefineWorld(I : integer; X_1, Y_1, X_2, Y_2 : real); begin end;
  144. procedure SelectWorld(I : integer); begin end;
  145. procedure DefineWindow(I, X_1, Y_1, X_2, Y_2 : integer); begin end;
  146. function TextLeft(TX, Boundary : integer) : integer; begin end;
  147. function TextRight(TX, Boundary : integer) : integer; begin end;
  148. function TextUp(TX, Boundary : integer) : integer; begin end;
  149. function TextDown(TX, Boundary : integer) : integer; begin end;
  150. procedure DefineTextWindow(I, X1, Y1, X2, Y2, B : integer); begin end;
  151. procedure SelectWindow(I : integer); begin end;
  152. function WindowX(X : real) : integer; begin end;
  153. function WindowY(Y : real) : integer; begin end;
  154. procedure InitGraphic;
  155. begin
  156.   Writeln('Program compiled with dummy graphics library - aborting');
  157.   Halt;
  158. end; { InitGraphic }
  159. procedure ResetWindows; begin end;
  160. procedure ResetWorlds; begin end;
  161. function Clip(var X1, Y1, X2, Y2 : integer) : boolean; begin end;
  162. procedure DrawPoint(Xr, Yr : real); begin end;
  163. function PointDrawn(Xr, Yr : real) : boolean; begin end;
  164. procedure DrawLine(X1, Y1, X2, Y2 : real); begin end;
  165. procedure DrawLineClipped(X1, Y1, X2, Y2 : integer); begin end;
  166. procedure DrawCrossDiag(X, Y, Scale : integer); begin end;
  167. procedure DrawWye(X, Y, Scale : integer); begin end;
  168. procedure DrawDiamond(X, Y, Scale : integer); begin end;
  169. procedure DrawCircleDirect(Xr, Yr, R : integer; DirectModeLoc : boolean); begin end;
  170. procedure DrawCircle(X_R, Y_R, Xradius : real); begin end;
  171. procedure DrawCross(X1, Y1, Scale : integer); begin end;
  172. procedure DrawStar(X, Y, Scale : integer); begin end;
  173. procedure DrawSquareC(X1, Y1, X2, Y2 : integer; Fill : boolean); begin end;
  174. procedure DrawSquare(X1, Y1, X2, Y2 : real; Fill : boolean); begin end;
  175. procedure DrawAscii(var X, Y : integer; Size, Ch : byte); begin end;
  176. procedure DrawText(X, Y, Scale : integer; Txt : WrkString); begin end;
  177. procedure DrawTextW(X,Y : real; Scale : integer; Txt : WrkString); begin end;
  178. procedure DrawBorder; begin end;
  179. procedure hardcopy(Inverse : boolean; Mode : byte); begin end;
  180. procedure MoveVer(Delta : integer; FillOut : boolean); begin end;
  181. procedure MoveHor(Delta : integer; FillOut : boolean); begin end;
  182. procedure CopyWindow(From, Tu :byte; X1, Y1 : integer); begin end;
  183. procedure SaveWindow(N : integer; FileName : WrkString); begin end;
  184. procedure LoadWindow(N, Xpos, Ypos : integer; FileName : WrkString); begin end;
  185. function WindowSize(Win : integer) : integer; begin end;
  186. procedure ClearWindowStack(Win : integer); begin end;
  187. procedure StoreWindow(Win : integer); begin end;
  188. procedure RestoreWindow(Win, DeltaX, DeltaY : integer); begin end;
  189. procedure SaveWindowStack(FileName : WrkString); begin end;
  190. procedure LoadWindowStack(FileName : WrkString); begin end;
  191. procedure ResetWindowStack; begin end;
  192. procedure InvertWindow; begin end;
  193. procedure DrawCircleSegment(Xr0, Yr0 : real; var Xr1, Yr1 : real;
  194.   Inner, Outer, Phi, Area : real; Txt : WrkString; Prior, Scale : byte); begin end;
  195. procedure Hatch(X_1, Y_1, X_2, Y_2, Delta : real); begin end;
  196. procedure DrawAxis(XDens, YDens, XLeft, YTop, XRight, YBottom, XAxis, YAxis : integer;
  197.   HistoTyp : boolean); begin end;
  198. procedure Bezier( A : PlotArray; MaxContrPoints : integer; var B : PlotArray;
  199.   MaxIntPoints : integer); begin end;
  200. procedure FindWorld(I : integer; A : PlotArray; NPoints : integer; ScaleX, ScaleY : real);
  201.   begin end;
  202. procedure RotatePolygonAbout(Var A : PlotArray; NPoints : integer;
  203.   Theta, X0, Y0 : real); begin end;
  204. procedure RotatePolygon(var A : PlotArray; NPoints : integer; Theta : real);
  205.   begin end;
  206. procedure TranslatePolygon(var A : PlotArray; N : integer; DeltaX, DeltaY : real);
  207.   begin end;
  208. procedure ScalePolygon(var A : PlotArray; N :integer; ScaleX, ScaleY : real);
  209.   begin end;
  210. procedure DrawPolygon(A : PlotArray; I0, NPoints, Line, Scale, Lines : integer);
  211.   begin end;
  212. procedure Spline(A : PlotArray; N : integer; X1, XM : real; var B : PlotArray; M : integer);
  213.   begin end;
  214. procedure DrawHistogram(A : PlotArray; NPoints : integer; Hatching : boolean;
  215.   HatchStyle : integer); begin end;
  216. procedure DrawCartPie(X1, Y1, X2, Y2, Inner, Outer : real; A : PieArray;
  217.   N, Prior, Scale : integer); begin end;
  218. procedure DrawPolarPie(X1, Y1, Radius, Angle, Inner, Outer : real; A : PieArray;
  219.   N, Prior, Scale : integer); begin end;
  220. procedure RedefineWindow(I, X_1, Y_1, X_2, Y_2 : integer); begin end;
  221.