home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / clipoint.pas < prev    next >
Pascal/Delphi Source File  |  1987-05-18  |  642b  |  15 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                            CLIPOINT.PAS                                 *)
  3. (*          Setzen eines Punktes mit Clipping in Fenstergrenzen            *)
  4.  
  5. PROCEDURE ClipPoint( x, y : REAL);
  6.  
  7. BEGIN
  8.   WITH Window[AktWin]^ DO
  9.     IF (x >= xmin) AND (x <= xmax) AND (y >= ymin) AND (y <= ymax) THEN
  10.       pointw(x,y)
  11. END;
  12.  
  13. (*-------------------------------------------------------------------------*)
  14. (*                        Ende CLIPOINT.PAS                                *)
  15.