From cb75ba44dc148e1911213a3f4a0533f4717928f3 Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Fri, 15 Oct 2021 22:36:43 +0200
Subject: [PATCH] pseudogonal mode

---
 config.cpp      |  9 +++++++++
 floorshapes.cpp | 15 +++++++++++++--
 geometry.cpp    |  2 ++
 hyper.h         |  2 ++
 4 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/config.cpp b/config.cpp
index 2ce66778..58d1defe 100644
--- a/config.cpp
+++ b/config.cpp
@@ -2183,6 +2183,11 @@ EX void show3D() {
   if((WDIM == 2 && GDIM == 3) || prod)
     dialog::addBoolItem_action(XLAT("fixed Y/Z rotation"), vid.fixed_yz, 'Z');
 
+  if(WDIM == 2 && GDIM == 3) {
+    add_edit(vid.pseudogonal);
+    // add_edit(vid.depth_bonus);
+    }
+
   if(true) {
     dialog::addBreak(50);
     dialog::addSelItem(XLAT("projection"), current_proj_name(), 'M');
@@ -2297,6 +2302,10 @@ EX int config3 = addHook(hooks_configfile, 100, [] {
     ->editable(0, 24, 1, "number of parallels drawn", "", 'n');
   param_f(linepatterns::parallel_max, "parallel_max")
     ->editable(0, 360*degree, 15*degree, "last parallel drawn", "", 'n');
+  param_f(vid.depth_bonus, "depth_bonus", 0)
+    ->editable(-5, 5, .1, "depth bonus in pseudogonal", "", 'b');
+  param_b(vid.pseudogonal, "pseudogonal", false)
+    ->editable("make the tiles flat", 'p');
   param_f(vid.depth, "depth", "3D depth", 1)
     ->editable(0, 5, .1, "Ground level below the plane", "", 'd')
     ->set_extra([] {
diff --git a/floorshapes.cpp b/floorshapes.cpp
index ab419fec..8887bf40 100644
--- a/floorshapes.cpp
+++ b/floorshapes.cpp
@@ -601,8 +601,19 @@ void geometry_information::generate_floorshapes_for(int id, cell *c, int siid, i
         #endif
         if(1) {
           int s = fsh.b[id].s;
-          int e = fsh.b[id].e-1;        
-          for(int t=0; t<e-s; t++) {
+          int e = fsh.b[id].e-1;
+          hyperpoint ctr = Hypc;
+          for(int t=0; t<e-s; t++)
+            ctr += orthogonal_move(may_kleinize(hpc[s+t]), dfloor_table[k]);
+          ctr = normalize(ctr);
+          if(vid.pseudogonal) for(int t=0; t<e-s; t++) {
+            hyperpoint v1 = orthogonal_move(may_kleinize(hpc[s+t]), dfloor_table[k]) - ctr;
+            hyperpoint v2 = orthogonal_move(may_kleinize(hpc[s+t+1]), dfloor_table[k]) - ctr;
+            texture_order([&] (ld x, ld y) {
+              hpcpush(normalize(ctr + v1 * x + v2 * y));
+              });
+            }
+          if(!vid.pseudogonal) for(int t=0; t<e-s; t++) {
             hyperpoint v1 = may_kleinize(hpc[s+t]) - C0;
             hyperpoint v2 = may_kleinize(hpc[s+t+1]) - C0;
             texture_order([&] (ld x, ld y) { 
diff --git a/geometry.cpp b/geometry.cpp
index 7125aa10..eb59d3cc 100644
--- a/geometry.cpp
+++ b/geometry.cpp
@@ -1177,6 +1177,8 @@ EX string cgi_string() {
     V("ASH", ONOFF(vid.gp_autoscale_heights));
     V("LT", fts(vid.lake_top));
     V("LB", fts(vid.lake_bottom));
+    if(GDIM == 3 && vid.pseudogonal)
+      V("PS", fts(vid.depth_bonus));
     }
 
   V("3D", ONOFF(vid.always3));
diff --git a/hyper.h b/hyper.h
index d11cb966..61cd347f 100644
--- a/hyper.h
+++ b/hyper.h
@@ -400,6 +400,8 @@ struct videopar {
   ld lake_top, lake_bottom;
   ld rock_wall_ratio;
   ld human_wall_ratio;
+  bool pseudogonal; // in 3D modes
+  ld depth_bonus;   // to fiix the placement of 3D models in pseudogonal -- not working currently
 
   int tc_alpha, tc_depth, tc_camera;
   ld highdetail, middetail;