home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo4 / graph3.doc < prev    next >
Text File  |  1987-12-08  |  2KB  |  76 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Turbo Pascal Version 4.0                        }
  4. {       Interface-Dokumentation zu GRAPH3               }
  5. {       ("Kompatibilitäts-Unit" für Turbo Pascal 3.0)   }
  6. {                                                       }
  7. {       Copyright (c) 1987 Borland International, Inc.  }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$D-,I-,S-}
  12.  
  13. unit Graph3;
  14.  
  15. interface
  16.  
  17. uses Crt;   { setzt das Unit CRT voraus }
  18.  
  19. const
  20.   North = 0;     { für die Bewegungsrichtungen der Schildkröte }
  21.   East  = 90;
  22.   South = 180;
  23.   West  = 270;
  24.  
  25.  
  26. { Dieses Unit stellt eine exakte Implementation der 3.0-Grafikfunktionen
  27.   dar. Keiner der hier deklarierten Bezeichner wird in den anderen Standard-
  28.   Units der Version 4.0 weiter verwendet - wir verweisen auf die Doku-
  29.   mentation zu Turbo Pascal 3.0 bzw. auf Kapitel 23 des Referenzhandbuchs. }
  30.  
  31.  
  32. procedure GraphMode;
  33. procedure GraphColorMode;
  34. procedure HiRes;
  35. procedure HiResColor(Color: Integer);
  36. procedure Palette(N: Integer);
  37. procedure GraphBackground(Color: Integer);
  38. procedure GraphWindow(X1,Y1,X2,Y2: Integer);
  39. procedure Plot(X,Y,Color: Integer);
  40. procedure Draw(X1,Y1,X2,Y2,Color: Integer);
  41. procedure ColorTable(C1,C2,C3,C4: Integer);
  42. procedure Arc(X,Y,Angle,Radius,Color: Integer);
  43. procedure Circle(X,Y,Radius,Color: Integer);
  44. procedure GetPic(var Buffer; X1,Y1,X2,Y2: Integer);
  45. procedure PutPic(var Buffer; X,Y: Integer);
  46. function  GetDotColor(X,Y: Integer): Integer;
  47. procedure FillScreen(Color: Integer);
  48. procedure FillShape(X,Y,FillCol,BorderCol: Integer);
  49. procedure FillPattern(X1,Y1,X2,Y2,Color: Integer);
  50. procedure Pattern(var P);
  51.  
  52.    { Turtlegrafik }
  53. procedure Back(Dist: Integer);
  54. procedure ClearScreen;
  55. procedure Forwd(Dist: Integer);
  56. function  Heading: Integer;
  57. procedure HideTurtle;
  58. procedure Home;
  59. procedure NoWrap;
  60. procedure PenDown;
  61. procedure PenUp;
  62. procedure SetHeading(Angle: Integer);
  63. procedure SetPenColor(Color: Integer);
  64. procedure SetPosition(X,Y: Integer);
  65. procedure ShowTurtle;
  66. procedure TurnLeft(Angle: Integer);
  67. procedure TurnRight(Angle: Integer);
  68. procedure TurtleDelay(Delay: integer);
  69. procedure TurtleWindow(X,Y,W,H: Integer);
  70. function  TurtleThere: Boolean;
  71. procedure Wrap;
  72. function  Xcor: Integer;
  73. function  Ycor: Integer;
  74.  
  75. implementation
  76.