From 75dc76cc95a97c80da7ea2fed91a5eb7e004a33f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Joachim=20Sch=C3=B6berl?= <joachim.schoeberl@tuwien.ac.at>
Date: Wed, 23 May 2018 21:14:49 +0200
Subject: [PATCH] pixel-scale fixes for Mac-Retina resolution: dbl-click,
 snapshot

---
 ng/ngpkg.cpp | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/ng/ngpkg.cpp b/ng/ngpkg.cpp
index 220500c0..647bd0c9 100644
--- a/ng/ngpkg.cpp
+++ b/ng/ngpkg.cpp
@@ -25,6 +25,8 @@ The interface between the GUI and the netgen library
 
 // to be sure to include the 'right' togl-version
 #include "Togl2.1/togl.h"
+extern "C" int Togl_PixelScale (const Togl * togl);
+
 #include "fonts.hpp"
 
 extern bool nodisplay;
@@ -1994,7 +1996,6 @@ namespace netgen
     return TCL_OK;
   }
 
-
   static int Ng_SnapShot(ClientData clientData, Tcl_Interp *interp, int argc, Tcl_Obj *const *argv)
   {
     struct Togl *togl;
@@ -2003,9 +2004,8 @@ namespace netgen
     const char * filename = Tcl_GetString(argv[2]);
 
     int len = strlen(filename);
-
-    int w = Togl_Width (togl);
-    int h = Togl_Height (togl);
+    int w = Togl_PixelScale(togl)*Togl_Width (togl);
+    int h = Togl_PixelScale(togl)*Togl_Height (togl);
 
     Array<unsigned char> buffer(w*h*3);
     glPixelStorei(GL_UNPACK_ALIGNMENT,1);
@@ -2064,8 +2064,8 @@ namespace netgen
 
         cout << "Snapshot to file '" << filename << endl;
 
-        int w = Togl_Width (togl);
-        int h = Togl_Height (togl);
+        // int w = Togl_Width (togl);
+        // int h = Togl_Height (togl);
 
         ofstream outfile(filename2);
         outfile << "P6" << endl
@@ -2184,10 +2184,8 @@ namespace netgen
 			Tcl_Interp * interp,
 			int argc, tcl_const char *argv[])
   {
-    int px, py;
-
-    px = atoi (argv[1]);
-    py = atoi (argv[2]);
+    int px = Togl_PixelScale(togl)*atoi (argv[1]);
+    int py = Togl_PixelScale(togl)*atoi (argv[2]);
 
     SetVisualScene(interp);
     vs->MouseDblClick (px, py);