summaryrefslogtreecommitdiff
path: root/ipl/packs/idol/point.iol
blob: 41d0d08fba008211291b213410e557360d864484 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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