diff --git a/postscript/src/TPostScript.cxx b/postscript/src/TPostScript.cxx
index 15bdcff2ca9f8d7335891fc592b3396a7d9c9a30..585becc0177767b138e64beeb317ca032cdaac76 100644
--- a/postscript/src/TPostScript.cxx
+++ b/postscript/src/TPostScript.cxx
@@ -1,4 +1,4 @@
-// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.4 2000/06/16 15:23:01 rdm Exp $
+// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.5 2000/06/30 12:57:04 brun Exp $
 // Author: Rene Brun, Olivier Couet, Pierre Juillot   29/11/94
 
 /*************************************************************************
@@ -633,8 +633,8 @@ void TPostScript::DrawPolyMarker(Int_t n, Float_t *x, Float_t *y)
 
 //*-*-              Set the PostScript marker size
 
-//  Float_t msize = fMarkerSize*gPad->GetAbsHNDC();
-  markersize    = CMtoPS(fMarkerSize);
+  Double_t msize = 0.92*fMarkerSize*fXsize/20;
+  markersize     = CMtoPS(msize);
   if (markerstyle == 1) markersize *= 0.1;
   if (markerstyle == 6) markersize *= 0.2;
   if (markerstyle == 7) markersize *= 0.3;
@@ -698,8 +698,8 @@ void TPostScript::DrawPolyMarker(Int_t n, Double_t *x, Double_t *y)
 
 //*-*-              Set the PostScript marker size
 
-//  Float_t msize = fMarkerSize*gPad->GetAbsHNDC();
-  markersize    = CMtoPS(fMarkerSize);
+  Double_t msize = 0.92*fMarkerSize*fXsize/20;
+  markersize     = CMtoPS(msize);
   if (markerstyle == 1) markersize *= 0.1;
   if (markerstyle == 6) markersize *= 0.2;
   if (markerstyle == 7) markersize *= 0.3;
@@ -960,13 +960,13 @@ void TPostScript::DrawHatch(Float_t, Float_t, Int_t, Double_t *, Double_t *)
 }
 
 //______________________________________________________________________________
-// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.4 2000/06/16 15:23:01 rdm Exp $
+// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.5 2000/06/30 12:57:04 brun Exp $
 // Author: P.Juillot   13/08/92
 void TPostScript::FontEncode()
 {
 //*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Font Reencoding*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 //*-*                          ================
-// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.4 2000/06/16 15:23:01 rdm Exp $
+// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.5 2000/06/30 12:57:04 brun Exp $
 // Author: P.Juillot   13/08/92
 
   PrintStr("@/reencdict 24 dict def");
@@ -1663,7 +1663,7 @@ void TPostScript::SetFillPatterns(Int_t ipat, Int_t color)
 {
 //*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Patterns definition*-*-*-*-*-*-*-*-*-*-*-*-*
 //*-*                          ===================
-// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.4 2000/06/16 15:23:01 rdm Exp $
+// @(#)root/postscript:$Name:  $:$Id: TPostScript.cxx,v 1.5 2000/06/30 12:57:04 brun Exp $
 // Author: O.Couet   16/07/99
 //*-*
 //*-* Define the pattern ipat in the current PS file. ipat can vary from