home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / TPKERMIT / GRAPHIX.PAS < prev    next >
Pascal/Delphi Source File  |  1987-03-25  |  3KB  |  51 lines
  1. (* +FILE+ GRAPHIX.PASDUMMY *)
  2. (* GRAPHIX.SYS - Dummy  Include file  for non-graphics terminal simulation *)
  3.  
  4. const
  5.   North = 0;
  6.   East  = 90;
  7.   South = 180;
  8.   West  = 270;
  9.  
  10. procedure Graphics;                                   external 'GRAPH.BIN';
  11. procedure GraphMode;                                  external Graphics[0];
  12. procedure GraphColorMode;                             external Graphics[3];
  13. procedure HiRes;                                      external Graphics[6];
  14. procedure HiResColor(Color: Integer);                 external Graphics[9];
  15. procedure Palette(N: Integer);                        external Graphics[12];
  16. procedure GraphBackground(Color: Integer);            external Graphics[15];
  17. procedure GraphWindow(X1,Y1,X2,Y2: Integer);          external Graphics[18];
  18. procedure Plot(X,Y,Color: Integer);                   external Graphics[21];
  19. procedure Draw(X1,Y1,X2,Y2,Color: Integer);           external Graphics[24];
  20. procedure ColorTable(C1,C2,C3,C4: Integer);           external Graphics[27];
  21. procedure Arc(X,Y,Angle,Radius,Color: Integer);       external Graphics[30];
  22. procedure Circle(X,Y,Radius,Color: Integer);          external Graphics[33];
  23. procedure GetPic(var Buffer; X1,Y1,X2,Y2: Integer);   external Graphics[36];
  24. procedure PutPic(var Buffer; X,Y: Integer);           external Graphics[39];
  25. function  GetDotColor(X,Y: Integer): Integer;         external Graphics[42];
  26. procedure FillScreen(Color: Integer);                 external Graphics[45];
  27. procedure FillShape(X,Y,FillCol,BorderCol: Integer);  external Graphics[48];
  28. procedure FillPattern(X1,Y1,X2,Y2,Color: Integer);    external Graphics[51];
  29. procedure Pattern(var P);                             external Graphics[54];
  30. procedure Back(Dist: Integer);                        external Graphics[57];
  31. procedure ClearScreen;                                external Graphics[60];
  32. procedure Forwd(Dist: Integer);                       external Graphics[63];
  33. function  Heading: Integer;                           external Graphics[66];
  34. procedure HideTurtle;                                 external Graphics[69];
  35. procedure Home;                                       external Graphics[72];
  36. procedure NoWrap;                                     external Graphics[75];
  37. procedure PenDown;                                    external Graphics[78];
  38. procedure PenUp;                                      external Graphics[81];
  39. procedure SetHeading(Angle: Integer);                 external Graphics[84];
  40. procedure SetPenColor(Color: Integer);                external Graphics[87];
  41. procedure SetPosition(X,Y: Integer);                  external Graphics[90];
  42. procedure ShowTurtle;                                 external Graphics[93];
  43. procedure TurnLeft(Angle: Integer);                   external Graphics[96];
  44. procedure TurnRight(Angle: Integer);                  external Graphics[99];
  45. procedure TurtleDelay(Delay: integer);                external Graphics[102];
  46. procedure TurtleWindow(X,Y,W,H: Integer);             external Graphics[105];
  47. function  TurtleThere: Boolean;                       external Graphics[108];
  48. procedure Wrap;                                       external Graphics[111];
  49. function  Xcor: Integer;                              external Graphics[114];
  50. function  Ycor: Integer;                              external Graphics[117];
  51.