From fed70685993770fc4920865c9cd8b0508cda6c21 Mon Sep 17 00:00:00 2001
From: Josef Heinen <j.heinen@fz-juelich.de>
Date: Mon, 16 Sep 2024 10:21:29 +0200
Subject: [PATCH] GR: keep transformation for default projection

---
 lib/gr/gr.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/gr/gr.c b/lib/gr/gr.c
index 4240a53a..1b95a163 100644
--- a/lib/gr/gr.c
+++ b/lib/gr/gr.c
@@ -9310,7 +9310,7 @@ void gr_surface(int nx, int ny, double *px, double *py, double *pz, int option)
                         gks_set_fill_color_index(color);
                       }
 
-                    gks_select_xform(MODERN_NDC);
+                    if (modern_projection_type) gks_select_xform(MODERN_NDC);
 
                     np = 4;
                     gks_fillarea(np, xn, yn);
@@ -9321,7 +9321,7 @@ void gr_surface(int nx, int ny, double *px, double *py, double *pz, int option)
                         gks_polyline(np, xn, yn);
                       }
 
-                    gks_select_xform(tnr);
+                    if (modern_projection_type) gks_select_xform(tnr);
                   }
 
                 j--;