Move .sin method to Numeric and Real, cleaning up the Num and Complex…

… versions a tad in the process. Also clean up the Real.unpolar code, and delete the now unneeded Num.unpolar.

src/core/Complex.pm

@@ -59,8 +59,8 @@ class Complex does Numeric is Cool {
         }
     }
 
-    multi method sin($base = Radians) {
-        $.re.sin($base) * $.im.cosh($base) + ($.re.cos($base) * $.im.sinh($base))i;
+    method sin(Complex $x: $base = Radians) {
+        $x.re.sin($base) * $x.im.cosh($base) + ($x.re.cos($base) * $x.im.sinh($base))i;
     }
 
     multi method asin($base = Radians) {

src/core/Num.pm

@@ -91,8 +91,8 @@ augment class Num does Real {
         pir::sqrt__Nn(self);
     }
 
-    multi method sin($base = Radians) {
-        pir::sin__Nn(self.to-radians($base));
+    method sin(Num $x: $base = Radians) {
+        pir::sin__Nn($x.to-radians($base));
     }
 
     multi method asin($base = Radians) {
@@ -190,10 +190,6 @@ augment class Num does Real {
     multi method atan2(Num $x = 1, $base = Radians) {
         pir::atan__NNn(self, $x).from-radians($base);
     }
-
-    our ::Complex multi method unpolar($angle) {
-        Complex.new(self * $angle.cos("radians"), self * $angle.sin("radians"));
-    }
 }
 
 # vim: ft=perl6

src/core/Numeric.pm

@@ -38,4 +38,9 @@ role Numeric {
     method from-radians(Numeric $x: $base) {
         $x / pir::get_global__Ps('@trig-base-conversions')[$base];
     }
+
+    method sin(Numeric $x: $base = Radians) {
+        note "$.WHAT() needs a version of .sin";
+        fail "$.WHAT() needs a version of .sin";
+    }
 }

src/core/Real.pm

@@ -41,13 +41,17 @@ role Real does Numeric {
 
     # CHEAT: the .Bridges in unpolar should go away in the long run
     method unpolar(Real $mag: Real $angle) {
-        Complex.new($mag.Bridge * $angle.Bridge.cos("radians"),
-                    $mag.Bridge * $angle.Bridge.sin("radians"));
+        Complex.new($mag * $angle.Bridge.cos(Radians),
+                    $mag * $angle.sin(Radians));
     }
 
     method cis(Real $angle:) {
         1.unpolar($angle);
     }
+
+    method sin(Real $x: $base = Radians) {
+        $x.Bridge.sin($base);
+    }
 }
 
 multi sub infix:«<=>»(Real $a, Real $b) {