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 >
Wrap
Text File
|
2000-07-29
|
267b
|
15 lines
class Cartesian : Radian (x,y)
initially
if /(self.r) then {
self.r := sqrt(self.x^2+self.y^2)
self.d := 0 # this should really be some awful mess
}
end
class Radian : Cartesian(d,r)
initially
if /(self.x) then {
self.x := 0
self.y := 0
}
end