Message Boards Message Boards

0
|
4022 Views
|
1 Reply
|
0 Total Likes
View groups...
Share
Share this post:

Export of EPS with extra white characters and outline in BarLegend

Posted 6 years ago

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

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.

POSTED BY: Hans Dolhaine
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