home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / wingraf.pas < prev    next >
Pascal/Delphi Source File  |  1987-05-18  |  898b  |  29 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                            WINGRAF.PAS                                  *)
  3. (*          Zeichenroutinen, die in Windowkoordinaten arbeiten.            *)
  4.  
  5. PROCEDURE pointw( x, y : REAL );
  6.  
  7. BEGIN
  8.   point(x_WinTrans(x),y_WinTrans(y))
  9. END;
  10.  
  11.  
  12. PROCEDURE linew( x1, y1, x2, y2 : REAL );
  13.  
  14. BEGIN
  15.   Line(x_WinTrans(x1), y_WinTrans(y1), x_WinTrans(x2), y_WinTrans(y2))
  16. END;
  17.  
  18.         (*   .   *)
  19.         (*   .   *)
  20.         (*   .   *)
  21. (* Z.B. die Routinen zum relativen Zeichnen sollten in einer *)
  22. (* Version fuer Windowkoordinaten geschrieben werden.        *)
  23.         (*   .   *)
  24.         (*   .   *)
  25.         (*   .   *)
  26.  
  27. (*-------------------------------------------------------------------------*)
  28. (*                         Ende WINGRAF.PAS                                *)
  29.