home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 2.ddi / TURBO3.ZIP / GRAPH3.INT next >
Encoding:
Text File  |  1990-10-23  |  1.9 KB  |  66 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 6.0                        }
  5. {       3.0 Graphics Compatibility Unit                 }
  6. {                                                       }
  7. {       Copyright (C) 1987, 1990 Borland International  }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Graph3;
  12.  
  13. {$D-,I-,S-}
  14.  
  15. interface
  16.  
  17. uses Crt;
  18.  
  19. const
  20.   North = 0;
  21.   East  = 90;
  22.   South = 180;
  23.   West  = 270;
  24.  
  25. procedure GraphMode;
  26. procedure GraphColorMode;
  27. procedure HiRes;
  28. procedure HiResColor(Color: Integer);
  29. procedure Palette(N: Integer);
  30. procedure GraphBackground(Color: Integer);
  31. procedure GraphWindow(X1,Y1,X2,Y2: Integer);
  32. procedure Plot(X,Y,Color: Integer);
  33. procedure Draw(X1,Y1,X2,Y2,Color: Integer);
  34. procedure ColorTable(C1,C2,C3,C4: Integer);
  35. procedure Arc(X,Y,Angle,Radius,Color: Integer);
  36. procedure Circle(X,Y,Radius,Color: Integer);
  37. procedure GetPic(var Buffer; X1,Y1,X2,Y2: Integer);
  38. procedure PutPic(var Buffer; X,Y: Integer);
  39. function  GetDotColor(X,Y: Integer): Integer;
  40. procedure FillScreen(Color: Integer);
  41. procedure FillShape(X,Y,FillCol,BorderCol: Integer);
  42. procedure FillPattern(X1,Y1,X2,Y2,Color: Integer);
  43. procedure Pattern(var P);
  44. procedure Back(Dist: Integer);
  45. procedure ClearScreen;
  46. procedure Forwd(Dist: Integer);
  47. function  Heading: Integer;
  48. procedure HideTurtle;
  49. procedure Home;
  50. procedure NoWrap;
  51. procedure PenDown;
  52. procedure PenUp;
  53. procedure SetHeading(Angle: Integer);
  54. procedure SetPenColor(Color: Integer);
  55. procedure SetPosition(X,Y: Integer);
  56. procedure ShowTurtle;
  57. procedure TurnLeft(Angle: Integer);
  58. procedure TurnRight(Angle: Integer);
  59. procedure TurtleDelay(Delay: integer);
  60. procedure TurtleWindow(X,Y,W,H: Integer);
  61. function  TurtleThere: Boolean;
  62. procedure Wrap;
  63. function  Xcor: Integer;
  64. function  Ycor: Integer;
  65.  
  66.