home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / relgraf.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.8 KB  |  53 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                              RELGRAF.PAS                                *)
  3. (*      Funktionen zum relativen u. absoluten Zeichnen bezueglich          *)
  4. (*                           der Siftposition                              *)
  5. (*-------------------------------------------------------------------------*)
  6. (*                      relative Bewegung des Stift:                       *)
  7.  
  8. PROCEDURE mover (x, y: INTEGER);
  9.  
  10. BEGIN
  11.   Pen_Xpos := Pen_Xpos + x;  Pen_Ypos := Pen_Ypos + y;
  12. END;
  13.  
  14. (*-------------------------------------------------------------------------*)
  15. (*                          relatives Zeichnen:                            *)
  16.  
  17. PROCEDURE liner (x, y: INTEGER);
  18.  
  19. BEGIN
  20.   Line(Pen_Xpos, Pen_Ypos, Pen_Xpos + x, Pen_Ypos + y);
  21. END;
  22.  
  23. (*-------------------------------------------------------------------------*)
  24. (*                       relatives Punktesetzen:                           *)
  25.  
  26. PROCEDURE pointr (x, y: INTEGER);
  27.  
  28. BEGIN
  29.   Pen_Xpos := Pen_Xpos + x;  Pen_Ypos := Pen_Ypos + y;
  30.   point(Pen_Xpos, Pen_Ypos);
  31. END;
  32.  
  33. (*-------------------------------------------------------------------------*)
  34. (*                   Bewegung zu absoluter Position:                       *)
  35.  
  36. PROCEDURE movea (x, y: INTEGER);
  37.  
  38. BEGIN
  39.   Pen_Xpos := x;   Pen_Ypos := y;
  40. END;
  41.  
  42. (*-------------------------------------------------------------------------*)
  43. (*          Zeichnen von Stiftposition zu absoluter Position:              *)
  44.  
  45. PROCEDURE linea (x, y: INTEGER);
  46.  
  47. BEGIN
  48.   Line(Pen_Xpos, Pen_Ypos, x, y);
  49. END;
  50.  
  51. (*-------------------------------------------------------------------------*)
  52. (*                        Ende von RELGRAF.PAS                             *)
  53.