From 1bb8056e0dd7b4116c343a66355695844406e810 Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Fri, 9 Dec 2022 02:25:02 +0100
Subject: [PATCH] fixed eyes on sphere

---
 3d-models.cpp  | 2 +-
 hyperpoint.cpp | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/3d-models.cpp b/3d-models.cpp
index b96130b6..707508fb 100644
--- a/3d-models.cpp
+++ b/3d-models.cpp
@@ -754,7 +754,7 @@ void geometry_information::adjust_eye(hpcshape& eye, hpcshape head, ld shift_eye
   
   vector<hyperpoint> pss;
   
-  for(int i=head.s; i<head.e; i++) pss.push_back(psmin(lzpush(shift_head) * hpc[i]));
+  for(int i=head.s; i<head.e; i++) pss.push_back(psmin(lzpush(shift_head - (moved_center() ? 1 : 0)) * hpc[i]));
   
   ld zmid = 0;
   for(hyperpoint& h: pss) zmid += h[2];
diff --git a/hyperpoint.cpp b/hyperpoint.cpp
index 57b1db7e..46a492b0 100644
--- a/hyperpoint.cpp
+++ b/hyperpoint.cpp
@@ -1428,6 +1428,12 @@ EX hyperpoint scale_point(const hyperpoint& h, ld scale_factor) {
   return res;
   }
 
+EX bool moved_center() {
+  if(geom3::sph_in_euc()) return true;
+  if(geom3::sph_in_hyp()) return true;
+  return false;
+  }
+
 /** Returns the intended center of the tile, relative to its local matrix. Usually C0 but may be different, e.g. when embedding a sphere in E3 or H3. */
 EX hyperpoint tile_center() {
   if(geom3::sph_in_euc()) return C02 + C03;