home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / IDOL.ZIP / POINT.IOL < prev    next >
Encoding:
Text File  |  1991-12-30  |  281 b   |  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.