moved kleinize from floorshapes to hyperpoint

This commit is contained in:
Zeno Rogue 2023-01-29 14:16:50 +01:00
parent 31a5a9e5c7
commit c0c6f44c19
2 changed files with 5 additions and 5 deletions

View File

@ -137,11 +137,6 @@ matrixitem genitem(const transmatrix& m1, const transmatrix& m2, int nsym) {
bool do_kleinize() { return S3 >= OINF || (cgflags & qIDEAL); }
EX hyperpoint kleinize(hyperpoint h) {
if(GDIM == 2) return point3(h[0]/h[2], h[1]/h[2], 1);
else return point31(h[0]/h[3], h[1]/h[3], h[2]/h[3]);
}
EX hyperpoint may_kleinize(hyperpoint h) {
if(do_kleinize()) return kleinize(h);
else return h;

View File

@ -789,6 +789,11 @@ EX transmatrix parabolic13(ld u, ld v) {
}
}
EX hyperpoint kleinize(hyperpoint h) {
if(GDIM == 2) return point3(h[0]/h[2], h[1]/h[2], 1);
else return point31(h[0]/h[3], h[1]/h[3], h[2]/h[3]);
}
EX hyperpoint deparabolic13(hyperpoint h) {
if(euclid) return h;
if(cgi.emb->is_euc_in_hyp()) {