From 2d340813e7fa962a209a969c6a73389c1927f569 Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Tue, 29 Sep 2009 22:58:21 -0400
Subject: [PATCH] Add Int.unpolar and Num.unpolar.

---
 src/setting/Int.pm | 4 ++++
 src/setting/Num.pm | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/src/setting/Int.pm b/src/setting/Int.pm
index c8540c9a604..7d57a64ebac 100644
--- a/src/setting/Int.pm
+++ b/src/setting/Int.pm
@@ -28,6 +28,10 @@ class Int is also {
     our Num multi method sec($base = 'radians') is export {
         self.Num.sec($base);
     }
+
+    our Complex multi method unpolar($angle) is export {
+        Complex.new(self.Num * $angle.cos("radians"), self.Num * $angle.sin("radians"));
+    }
 }
 
 multi sub abs(Int $x) { $x.abs }
diff --git a/src/setting/Num.pm b/src/setting/Num.pm
index 317604a4dc5..ecd86d8a7d1 100644
--- a/src/setting/Num.pm
+++ b/src/setting/Num.pm
@@ -311,4 +311,8 @@ class Num is also {
             %r = box $N1
         }
     }
+
+    our Complex multi method unpolar(Num $angle) is export {
+        Complex.new(self * $angle.cos("radians"), self * $angle.sin("radians"));
+    }
 }