[Date Index] [Thread Index] [Author Index]

Re: i get an empty figure when exporting it, if I keep

• To: mathgroup at smc.vnet.net
• Subject: [mg112034] Re: i get an empty figure when exporting it, if I keep
• From: Themis Matsoukas <tmatsoukas at me.com>
• Date: Thu, 26 Aug 2010 06:47:23 -0400 (EDT)

I don't know how to answer to your question other than to point out that the problem is not Epilog itself but some conflict between Epilog and ScientificTicks. If you remove ScientificTicks, the graphic is saved correctly:

result = resultmodif = Table[{i, i}, {i, -80000, 80000, 2000}];
MyGraph = 
 ListPlot[{result, resultmodif}, PlotRange -> Full, 
  AxesOrigin -> {0, 0}, Joined -> True, PlotStyle -> {Black, Red}, 
  AspectRatio -> 2, 
  Epilog -> {Inset[
     Labeled[Framed[
       ListPlot[{result, resultmodif}, 
        PlotRange -> {{4.54, 4.6}, {-4480, -4250}}, Joined -> True, 
        PlotStyle -> {Black, Red}, ImageSize -> 110, 
        Ticks -> {{4.56, 4.58}, {-4400, -4300}}]], "Zoom In", 
      Top], {8, -35000}], Text[Style["h[\[Mu]m]", 14], {10, -6000}], 
    Text[Style[
      "Im[\!\(\*SuperscriptBox[\"\[Omega]\", \
\"*\"]\)][\!\(\*SuperscriptBox[\"s\",
      RowBox[{\"-\", \"1\"}]]\)]", 14], {2.5, -70000}]}]

SetDirectory@NotebookDirectory[]
Export["MyGraph.eps", MyGraph, "EPS"]

Themis