Changeset 2150 for trunk/MagicSoft/Mars/mhist

Timestamp:

06/02/03 13:48:05 (22 years ago)

Author:

tbretz

Message:

*** empty log message ***

Location:

trunk/MagicSoft/Mars/mhist

Files:

• MH.cc (modified) (4 diffs)
• MH.h (modified) (1 diff)

trunk/MagicSoft/Mars/mhist/MH.cc

@@ -55 +55 @@
 #include <TH2.h>
 #include <TH3.h>
+#include <TStyle.h>       // TStyle::GetScreenFactor
 #include <TGaxis.h>
 #include <TCanvas.h>
@@ -128 +129 @@
 // number of all existing canvases plus one)
 //
+// Normally the canvas size is scaled with gStyle->GetScreenFactor() so
+// that on all screens it looks like the same part of the screen.
+// To suppress this scaling use usescreenfactor=kFALSE. In this case
+// you specify directly the size of the embedded pad.
+//
 TCanvas *MH::MakeDefCanvas(TString name, const char *title,
-                           const UInt_t w, const UInt_t h)
+                           UInt_t w, UInt_t h, Bool_t usescreenfactor)
 {
     const TList *list = (TList*)gROOT->GetListOfCanvases();
@@ -139 +145 @@
         name += Form(" <%d>", list->GetSize()+1);
 
+    if (!usescreenfactor)
+    {
+        const Float_t cx = gStyle->GetScreenFactor();
+        w += 4;
+        h += 28;
+        w = (int)(w/cx+1);
+        h = (int)(h/cx+1);
+    }
+
     return new TCanvas(name, title, w, h);
 }
@@ -147 +162 @@
 // and title are retrieved from the given TObject.
 //
+// Normally the canvas size is scaled with gStyle->GetScreenFactor() so
+// that on all screens it looks like the same part of the screen.
+// To suppress this scaling use usescreenfactor=kFALSE. In this case
+// you specify directly the size of the embedded pad.
+//
 TCanvas *MH::MakeDefCanvas(const TObject *obj,
-                           const UInt_t w, const UInt_t h)
-{
+                           UInt_t w, UInt_t h, Bool_t usescreenfactor)
+{
+    if (!usescreenfactor)
+    {
+        const Float_t cx = gStyle->GetScreenFactor();
+        w += 4;
+        h += 28;
+        h = (int)(h/cx+1);
+        w = (int)(w/cx+1);
+    }
+
     return MakeDefCanvas(obj->GetName(), obj->GetTitle(), w, h);
 }

trunk/MagicSoft/Mars/mhist/MH.h

@@ -33 +33 @@
 
     static TCanvas *MakeDefCanvas(TString name="", const char *title="",
-                                  const UInt_t w=625, const UInt_t h=440);
+                                  UInt_t w=625, UInt_t h=440,
+                                  Bool_t usescreenfactor=kTRUE);
     static TCanvas *MakeDefCanvas(const TObject *obj,
-                                  const UInt_t w=625, const UInt_t h=440);
+                                  UInt_t w=625, UInt_t h=440,
+                                  Bool_t usescreenfactor=kFALSE);
 
     // FIXME: * --> & !!!