From 0f49333644f884071cbfe331123c00404b55aa5e Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Thu, 7 Apr 2022 20:58:42 +0200
Subject: [PATCH] rogueviz:: alt poincare (disabled)

---
 rogueviz/extra-projections.cpp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/rogueviz/extra-projections.cpp b/rogueviz/extra-projections.cpp
index 6a2b5eec..d60bfcb8 100644
--- a/rogueviz/extra-projections.cpp
+++ b/rogueviz/extra-projections.cpp
@@ -159,6 +159,28 @@ void add_extra_projections() {
   add_complex("Wagner VI", mf::equiarea | mf::pseudoband, [] (cld& x, cld& y) {
     x = x * sqrt(1. - 3. * pow(y/M_PI, 2));
     });      
+
+  /* does the Poincare model work in spherical? -- hint: it does not, as expected */
+  if(0) add_complex("alt poincare", mf::equiarea | mf::pseudoband, [] (cld& x, cld& y) {
+    cld i(0, 1);
+    x /= i;
+    y /= i;
+    cld c1(1, 0);
+    auto ax = cosh(y) * sinh(x);
+    auto ay = sinh(y);
+    auto az = cosh(x) * cosh(y);
+    ax /= (az+c1);
+    ay /= (az+c1);
+    ay += c1;
+    cld z = ax*ax + ay*ay;
+    ax /= z;
+    ay /= z;
+    ay -= c1;
+    ax *= i;
+    ay *= i;
+    x = ax;
+    y = ay;
+    });
   }
 
 int ar = addHook(hooks_initialize, 100, add_extra_projections);