From fbf0b487b1fd0f6a11693a5799ab99f1dada3028 Mon Sep 17 00:00:00 2001
From: Zeno Rogue <zeno@attnam.com>
Date: Mon, 19 Sep 2022 23:17:27 +0200
Subject: [PATCH] ads-game:: added the de Sitter version

---
 rogueviz/ads/ads-game.cpp |   1 +
 rogueviz/ads/ds-game.cpp  | 242 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 243 insertions(+)
 create mode 100644 rogueviz/ads/ds-game.cpp

diff --git a/rogueviz/ads/ads-game.cpp b/rogueviz/ads/ads-game.cpp
index 1a7701c9..0e77f9f7 100644
--- a/rogueviz/ads/ads-game.cpp
+++ b/rogueviz/ads/ads-game.cpp
@@ -8,6 +8,7 @@
 #include "control.cpp"
 #include "display.cpp"
 #include "menu.cpp"
+#include "ds-game.cpp"
 
 namespace hr {
 
diff --git a/rogueviz/ads/ds-game.cpp b/rogueviz/ads/ds-game.cpp
new file mode 100644
index 00000000..fe8fda9d
--- /dev/null
+++ b/rogueviz/ads/ds-game.cpp
@@ -0,0 +1,242 @@
+namespace hr {
+
+namespace ads_game {
+
+void set_default_keys();
+
+transmatrix dscurrent, dscurrent_ship;
+
+vector<shipstate> ds_states;
+
+bool ds_turn(int idelta) {
+  multi::handleInput(idelta);
+  ld delta = idelta / anims::period;
+  
+  if(!(cmode & sm::NORMAL)) return false;
+  
+  // todo handle_crashes();
+
+  auto& a = multi::actionspressed;
+  auto& la = multi::lactionpressed;
+  
+  // todo if(a[16+4] && !la[16+4] && !paused) fire();
+
+  if(a[16+5] && !la[16+5]) {
+    paused = !paused;
+    if(paused) {
+      dscurrent_ship = dscurrent;
+      view_pt = 0;
+      }
+    else {
+      dscurrent = dscurrent_ship;
+      }
+    }
+
+  if(a[16+6] && !la[16+6]) view_proper_times = !view_proper_times;
+  if(a[16+7] && !la[16+7]) auto_rotate = !auto_rotate;
+  if(a[16+8] && !la[16+8]) pushScreen(game_menu);
+
+  if(true) {
+    dynamicval<eGeometry> g(geometry, gSpace435);
+    
+    ld pt = delta * simspeed;
+    ld mul = read_movement();
+
+    if(paused && a[16+11]) {
+      dscurrent = spin(ang*degree) * cspin(0, 2, mul*delta*-pause_speed) * spin(-ang*degree) * dscurrent;
+      }
+    else {
+      dscurrent = spin(ang*degree) * lorentz(0, 3, -delta*accel*mul) * spin(-ang*degree) * dscurrent;
+      }
+    
+    if(!paused) {
+      pdata.fuel -= delta*accel*mul;
+      // todo gen_particles(rpoisson(delta*accel*mul*fuel_particle_qty), vctr, ads_inverse(current * vctrV) * spin(ang*degree+M_PI) * rots::uxpush(0.06 * scale), rsrc_color[rtFuel], fuel_particle_rapidity, fuel_particle_life, 0.02);
+      }
+
+    ld tc = 0;
+    if(!paused) tc = pt;
+    else if(a[16+9]) tc = pt;
+    else if(a[16+10]) tc = -pt;
+
+    if(!paused && !game_over) {
+      auto& v = ds_states;
+      v.emplace_back();
+      v.back().at.T = inverse(dscurrent) * spin(ang*degree);
+      v.back().start = ship_pt;
+      v.back().duration = pt;
+      }
+    
+    dscurrent = lorentz(3, 2, -tc) * dscurrent;
+    
+    if(!paused) {
+      ship_pt += pt;
+      pdata.oxygen -= pt;
+      if(pdata.oxygen < 0) {
+        pdata.oxygen = 0;
+        game_over = true;
+        }
+      }
+    else view_pt += tc;
+    }
+
+  return true;
+  }
+
+vector<transmatrix> opoints;
+
+hyperpoint pov = point30(0, 0, 1);
+
+cross_result ds_cross0(transmatrix T) {
+  // h = T * (0 0 cosh(t) sinh(t))
+  // h[3] == 0
+  // T[3][2] * cosh(t) + T[3][3] * sinh(t) = 0
+  // T[3][2] + T[3][3] * tanh(t) = 0
+  ld tt = - T[3][2] / T[3][3];
+  if(tt < -1 || tt > 1) return cross_result{ Hypc, 0 };
+  cross_result res;
+  ld t = atanh(tt);
+  res.shift = t;
+  res.h = T * hyperpoint(0, 0, cosh(t), sinh(t));
+  return res;
+  }
+
+void view_ds_game() {
+  displayed.clear();
+  
+  if(opoints.empty()) {
+    for(int i=0; i<500; i++) {
+      hyperpoint h = random_spin3() * C0;
+      println(hlog, "h = ", h);
+
+      transmatrix T = gpushxto0(h);
+      dynamicval<eGeometry> g(geometry, gSpace435);
+      for(int i=0; i<4; i++) T[i][3] = T[3][i] = i == 3;
+      transmatrix worldline = inverse(T);
+      worldline = worldline * spin(randd() * TAU);
+      worldline = worldline * lorentz(0, 3, randd());
+      
+      opoints.push_back(worldline);
+      }
+    }
+  
+  if(1) {
+    make_shape();
+    
+    for(auto& worldline: opoints) {
+      poly_outline = 0xFF;
+      cross_result cr;
+      transmatrix at;
+      
+      vector<hyperpoint> circle;
+      
+      if(1) {
+        dynamicval<eGeometry> g(geometry, gSpace435);
+        cr = ds_cross0(dscurrent * worldline);
+
+        at = dscurrent * worldline * lorentz(2, 3, cr.shift);
+
+        for(int d=0; d<=360; d += 5) {
+          transmatrix T = at * spin(d*degree) * cspin(0, 2, 0.1);
+          auto cr1 = ds_cross0(T);
+          circle.push_back(cr1.h);
+          }
+        }
+      
+      vector<hyperpoint> circle_flat;
+      for(auto c: circle) circle_flat.push_back(c / (1 + c[2]));
+      
+      ld area = 0;
+      for(int i=0; i<isize(circle)-1; i++)
+        area += (circle_flat[i] ^ circle_flat[i+1]) [2];
+      
+      if(area > 0) continue;
+
+      // queuepolyat(shiftless(rgpushxto0(cr.h)), cgi.shGem[0], 0xFFFFFFF, PPR::LINE);
+      for(auto p: circle) curvepoint(p);
+      queuecurve(shiftless(Id), 0xFFFFFFFF, 0xFFFFFFFF, PPR::LINE);
+
+      if(view_proper_times) {
+        string str = format(tformat, cr.shift / time_unit);
+        queuestr(shiftless(rgpushxto0(cr.h)), .1, str, 0xFFFF00, 8);
+        }
+      }
+
+    ld delta = paused ? 1e-4 : -1e-4;
+    for(auto& ss: ds_states) {
+      dynamicval<eGeometry> g(geometry, gSpace435);
+      cross_result cr = ds_cross0(dscurrent * ss.at.T);
+      if(cr.shift < delta) continue;
+      if(cr.shift > ss.duration + delta) continue;
+      transmatrix at = dscurrent * ss.at.T * lorentz(2, 3, cr.shift);
+      
+      vector<hyperpoint> pts;
+      
+      auto& shape = shape_ship;
+      for(int i=0; i<isize(shape); i += 2) {
+        transmatrix at1 = at * cspin(0, 2, shape[i] * scale) * cspin(1, 2, shape[i+1] * scale);
+        pts.push_back(ds_cross0(at1).h);
+        }
+      
+      geometry = g.backup;
+      for(auto pt: pts) curvepoint(pt);
+      queuecurve(shiftless(Id), 0xFF, shipcolor, PPR::LINE);
+
+      if(view_proper_times) {
+        string str = format(tformat, (cr.shift + ss.start) / time_unit);
+        queuestr(shiftless(rgpushxto0(cr.h)), .1, str, 0xC0C0C0, 8);
+        }
+      }
+
+    if(!game_over && !paused) {
+      poly_outline = 0xFF;
+      if(ship_pt < invincibility_pt) {
+        ld u = (invincibility_pt-ship_pt) / how_much_invincibility;
+        poly_outline = gradient(shipcolor, rsrc_color[rtHull], 0, 0.5 + cos(5*u*TAU), 1);
+        }
+      queuepolyat(shiftless(spin(ang*degree) * Id), shShip, shipcolor, PPR::LINE);
+      poly_outline = 0xFF;
+
+      if(view_proper_times) {
+        string str = format(tformat, ship_pt / time_unit);
+        queuestr(shiftless(Id), .1, str, 0xFFFFFF, 8);
+        }
+      }
+    
+    if(paused && view_proper_times) {
+      string str = format(tformat, view_pt / time_unit);
+      queuestr(shiftless(Id), .1, str, 0xFFFF00, 8);
+      }
+    }
+  }
+
+void run_ds_game() {
+
+  set_default_keys();
+
+  rogueviz::rv_hook(hooks_frame, 100, view_ds_game);
+  rogueviz::rv_hook(shmup::hooks_turn, 0, ds_turn);
+  rogueviz::rv_hook(hooks_prestats, 100, display_rsrc);
+  
+  if(true) {
+    dynamicval<eGeometry> g(geometry, gSpace435);
+    dscurrent = Id;
+    }
+
+  ship_pt = 0;
+  init_rsrc();
+  
+  rogueviz::rv_change(nohelp, true);
+  rogueviz::rv_change(nomenukey, true);
+  rogueviz::rv_change(nomap, true);
+  rogueviz::rv_change(no_find_player, true);
+  rogueviz::rv_change(showstartmenu, false);
+  rogueviz::rv_hook(hooks_handleKey, 0, handleKey);
+  }
+
+auto ds_hooks = 
+  arg::add3("-ds-game", run_ds_game)
+;
+
+}
+}