home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OL.LZH / IDOL.LZH / POINT.IOL < prev    next >
Text File  |  1991-07-18  |  281b  |  15 lines

  1. class Cartesian : Radian (x,y)
  2. initially
  3.   if /(self.r) then {
  4.     self.r := sqrt(self.x^2+self.y^2)
  5.     self.d := 0 # this should really be some awful mess
  6.   }
  7. end
  8. class Radian : Cartesian(d,r)
  9. initially
  10.   if /(self.x) then {
  11.     self.x := 0
  12.     self.y := 0
  13.   }
  14. end
  15.