home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GEARS.ZIP / GRAPHICS.DOC < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.7 KB  |  42 lines
  1. (*****************************************************************************)
  2. (* Unit Graphics: Extended Graphics Routines                   DOCUMENTATION *)
  3. (*                                                                           *)
  4. (* Copyright 1988, Escape Technologies                                       *)
  5. (*****************************************************************************)
  6.  
  7. Unit Graphics;
  8.  
  9. Interface
  10.  
  11. Uses Graph;
  12.  
  13. Var BoxPoly:Array[1..4] of PointType;
  14.     TriPoly:Array[1..3] of PointType;
  15.  
  16. {Drawing Commands}
  17. Procedure DrawBox(X1,Y1,X2,Y2:Integer; Color:Word);
  18. Procedure DrawTriangle(X1,Y1,X2,Y2,X3,Y3:Integer; Color:Word);
  19. Procedure DrawFilledBox(X1,Y1,X2,Y2:Integer; Outline:Boolean);
  20. Procedure DrawFilledTriangle(X1,Y1,X2,Y2,X3,Y3:Integer; Outline:Boolean);
  21. Procedure DrawCircleArc(X,Y,XRadius,StAngle,EndAngle:Integer; Color:Word);
  22. Procedure DrawEllipseArc(X,Y,XRadius,YRadius,StAngle,EndAngle:Integer;
  23.                          Color:Word);
  24. Procedure DrawPieSlice(X,Y,XRadius,StAngle,EndAngle:Integer; Color:Word);
  25. Procedure DrawCircle(X,Y,XRadius:Integer; Color:Word);
  26. Procedure DrawEllipse(X1,Y1,X2,Y2:Integer; Color:Word);
  27. Procedure DrawLine(X1,Y1,X2,Y2:Integer; Color:Word);
  28. Procedure DrawPixel(X,Y:Integer; Color:Word);
  29. Function PixelAt(X,Y:Integer):Boolean;
  30. Function PixelColorAt(X,Y:Integer):Word;
  31.  
  32. {Text Commands}
  33. Procedure DrawTextXY(X,Y:Integer; Color:Word; WhatToDraw:String);
  34. Procedure DrawText(Color:Word; WhatToDraw:String);
  35. Procedure DrawTextLn(Color:Word; WhatToDraw:String);
  36.  
  37. {Screen Saving and Loading Commands}
  38. Procedure SaveScreen(FileName:String);
  39. Procedure SaveScreenP(FileName:String);
  40. Procedure LoadScreen(FileName:String);
  41. Procedure LoadScreenP(FileName:String; Offset:Byte);
  42.