Message Boards Message Boards

Export of EPS with extra white characters and outline in BarLegend


Observe the following Mathematica code. Forgive me that it's so long:

test[y_] := 
 ArrayPlot[Table[nd[y, 1, K, n], {K, 1, 15}, {n, 1, 15}], 
  ColorFunction -> "DarkRainbow", ColorFunctionScaling -> False, 
  DataReversed -> True, FrameStyle -> Directive[Thin, Black], 
  FrameTicks -> {Range[15], Range[15], Range[15], Range[15]}, 
  FrameTicksStyle -> Directive[Black], FrameLabel -> Automatic, 
  LabelStyle -> Black, 
  PlotLegends -> 
   Placed[BarLegend["DarkRainbow", LegendLayout -> "Row", 
     LegendLabel -> "P", 
     LabelStyle -> 
      Directive[11, Black, FontFamily -> "Times New Roman"], 
     Method -> {Frame -> False, 
       TicksStyle -> Directive[Black]}], {Below, {0.54, 1}}]]
Export["test.eps", test[5]]

I just can't figure out why it's doing this. The file that ends up getting exported to .eps ends up having a bunch of extra white characters and an outline in the bar legend! I put the EPS file on top of a blue background in Illustrator to point it out. See the arrows in the image below:

I cannot for the life of me figure out why this is happening. Is there anything that I can do in order to remove those extra white characters as well as that outline? Thank you.

POSTED BY: John Travolski
10 days ago


In my system (Mma 7) ArrayPlot has no Option Plotlegend (without s!)

What does the function nd do? Your piece of code does not work without a definition of nd!

It could be helpful if you described your problem more precisely and to define what you really want to do.

POSTED BY: Hans Dolhaine
8 days ago

Group Abstract Group Abstract