home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / operl.shar / point.pl < prev    next >
Encoding:
Perl Script  |  1991-02-25  |  723 b   |  19 lines
  1. #!/usr/bin/perl
  2. require 'operl.pl';
  3.  
  4. &defclass ('point','root');
  5. &defmethod('point','init',
  6.     '$xx = defined($_[0]) ? $_[0] : 0; $yy = defined($_[1]) ? $_[1] : 0;');
  7. &defmethod('point','move',
  8.     '$xx = defined($_[0]) ? $_[0] : $xx; $yy = defined($_[1]) ? $_[1] : $yy;');
  9. &defmethod('point','movex', '$xx = defined($_[0]) ? $_[0] : $xx;');
  10. &defmethod('point','movey', '$yy = defined($_[0]) ? $_[0] : $yy;');
  11. &defmethod('point','rmove',
  12.     '$xx += defined($_[0]) ? $_[0] : 0; $yy += defined($_[1]) ? $_[1] : 0;');
  13. &defmethod('point','rmovex', '$xx += defined($_[0]) ? $_[0] : 0;');
  14. &defmethod('point','rmovey', '$yy += defined($_[0]) ? $_[0] : 0;');
  15. &defmethod('point','x', '$xx;');
  16. &defmethod('point','y', '$yy;');
  17.  
  18. 1;
  19.