Message Boards Message Boards

GROUPS:

Export of EPS with extra white characters and outline in BarLegend

Posted 10 months ago
828 Views
|
1 Reply
|
0 Total Likes
|

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.

hmmmm???

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.

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract