1 files changed, 14 insertions, 0 deletions
diff --git a/ipl/packs/idol/point.iol b/ipl/packs/idol/point.iol
new file mode 100644
index 0000000..41d0d08
--- /dev/null
+++ b/ipl/packs/idol/point.iol
@@ -0,0 +1,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