home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / lib_test / point.e < prev    next >
Encoding:
Text File  |  1996-06-13  |  299 b   |  25 lines  |  [TEXT/EDIT]
  1. class POINT
  2.    
  3. creation {ANY}
  4.    make
  5.    
  6. feature {ANY}
  7.    
  8.    x, y : REAL;
  9.  
  10.    make (cx : REAL; cy : REAL) is
  11.       do
  12.      x := cx; 
  13.      y := cy;
  14.       end; -- make
  15.    
  16. feature {ANY}
  17.    
  18.    translater(dx, dy : REAL) is
  19.       do
  20.      x := x + dx;
  21.      y := y + dy;
  22.       end;  -- translater
  23.    
  24. end -- POINT
  25.