Section courante

A propos

Section administrative du site

  1. Unit Graph3;
  2.  
  3. {$D-,I-,S-}
  4.  
  5. INTERFACE
  6.  
  7. Uses Crt;
  8.  
  9. Const
  10.   North = 0;
  11.   East  = 90;
  12.   South = 180;
  13.   West  = 270;
  14.  
  15. Procedure GraphMode;
  16. Procedure GraphColorMode;
  17. Procedure HiRes;
  18. Procedure HiResColor(Color:Integer);
  19. Procedure Palette(N:Integer);
  20. Procedure GraphBackground(Color:Integer);
  21. Procedure GraphWindow(X1,Y1,X2,Y2:Integer);
  22. Procedure Plot(X,Y,Color:Integer);
  23. Procedure Draw(X1,Y1,X2,Y2,Color:Integer);
  24. Procedure ColorTable(C1,C2,C3,C4:Integer);
  25. Procedure Arc(X,Y,Angle,Radius,Color:Integer);
  26. Procedure Circle(X,Y,Radius,Color:Integer);
  27. Procedure GetPic(Var Buffer;X1,Y1,X2,Y2:Integer);
  28. Procedure PutPic(Var Buffer;X,Y:Integer);
  29. Function  GetDotColor(X,Y:Integer):Integer;
  30. Procedure FillScreen(Color:Integer);
  31. Procedure FillShape(X,Y,FillCol,BorderCol:Integer);
  32. Procedure FillPattern(X1,Y1,X2,Y2,Color:Integer);
  33. Procedure Pattern(var P);
  34. Procedure Back(Dist:Integer);
  35. Procedure ClearScreen;
  36. Procedure Forwd(Dist:Integer);
  37. Function  Heading:Integer;
  38. Procedure HideTurtle;
  39. Procedure Home;
  40. Procedure NoWrap;
  41. Procedure PenDown;
  42. Procedure PenUp;
  43. Procedure SetHeading(Angle:Integer);
  44. Procedure SetPenColor(Color:Integer);
  45. Procedure SetPosition(X,Y:Integer);
  46. Procedure ShowTurtle;
  47. Procedure TurnLeft(Angle:Integer);
  48. Procedure TurnRight(Angle:Integer);
  49. Procedure TurtleDelay(_Delay:Integer);
  50. Procedure TurtleWindow(X,Y,W,H:Integer);
  51. Function  TurtleThere:Boolean;
  52. Procedure Wrap;
  53. Function  Xcor:Integer;
  54. Function  Ycor:Integer;

Dernière mise à jour : Dimanche, le 20 avril 2014