Changeset 1533 in Sophya for trunk/SophyaPI/ProgPI/w2ps.cc

Timestamp:

Jun 15, 2001, 6:16:38 PM (24 years ago)

Author:

ansari

Message:

correction commandes sortie PS ds piapp - Pas termine , Reza 15/6/2001

File:

• trunk/SophyaPI/ProgPI/w2ps.cc (modified) (1 diff)

trunk/SophyaPI/ProgPI/w2ps.cc

@@ -174 +174 @@
     cout << " imagcmap2eps: Current image+colormap to EPS file " << tokens[0] << endl;
   }
-  bool fggd = (curpimg->XSize() > sapp->CMapVW()->XSize()) ? true : false;
-  int sx, sy, dxoi,dxoc;
-  if (fggd) {
-    sx = curpimg->XSize();
-    dxoi = 0;
-    dxoc = (sx-sapp->CMapVW()->XSize())/2;
-  }
-  else {
-    sx = sapp->CMapVW()->XSize();
-    dxoc = 0;
-    dxoi = (sx-curpimg->XSize())/2;
-  }
+  double sx, sy;
+  sx = curpimg->XSize();
   sy = curpimg->YSize() + sapp->CMapVW()->YSize() + 10;
-  cpsf->NewPage((float)sx, (float)sy, PI_Auto);
-  curpimg->PSPrint(cpsf, -curpimg->XPos()+dxoi, -curpimg->YPos());
-  sapp->CMapVW()->PSPrint(cpsf, -(sapp->CMapVW()->XPos())+dxoc,                         
-                          -(sapp->CMapVW()->YPos())+curpimg->YSize()+10);
+  cpsf->NewPage(sx, sy, PI_Auto);
+  curpimg->PSPrint(cpsf, -curpimg->XPos(), -curpimg->YPos());
+  sapp->CMapVW()->PSPrint(cpsf, -(sapp->CMapVW()->XPos()),                      
+                          -(sapp->CMapVW()->YPos())+curpimg->YSize()+10,
+                          sx/(double)sapp->CMapVW()->XSize(), 1.);
 
   if (cepsf) delete cepsf;