Avoid to rescale images if axes flipping is set in scale options

This fixes GitHub issue <jheinen/GR.jl#527>.
sciapp · Oct 11, 2023 · b9eafa6 · b9eafa6
1 parent 2e5e320
commit b9eafa6
Showing 1 changed file with 18 additions and 4 deletions.
diff --git a/lib/gr/gr.c b/lib/gr/gr.c
@@ -11000,11 +11000,11 @@ static void drawimage_calculation(double xmin, double xmax, double ymin, double
         }
     }
 
-  if (lx.scale_options != 0)
+  if ((lx.scale_options & ~(OPTION_FLIP_X | OPTION_FLIP_Y | OPTION_FLIP_Z)) != 0)
     {
       linear_xform lx_original;
-      w = max(width, 500);
-      h = max(height, 500);
+      w = max(width, 2000);
+      h = max(height, 2000);
       lx_original = lx;
       lx.xmin = xmin;
       lx.xmax = xmax;
@@ -11059,7 +11059,21 @@ static void drawimage_calculation(double xmin, double xmax, double ymin, double
       free(imgT);
     }
   else
-    gks_draw_image(xmin, ymax, xmax, ymin, width, height, img);
+    {
+      if (lx.scale_options & OPTION_FLIP_X)
+        {
+          double tmp = xmin;
+          xmin = xmax;
+          xmax = tmp;
+        }
+      if (lx.scale_options & OPTION_FLIP_Y)
+        {
+          double tmp = ymin;
+          ymin = ymax;
+          ymax = tmp;
+        }
+      gks_draw_image(xmin, ymax, xmax, ymin, width, height, img);
+    }
 }
 
 /*!