home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / idol / point.iol < prev    next >
Text File  |  2000-07-29  |  267b  |  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.