Big spaces between legend positions

I am trying to make a legend for my plot. Actually, I made one, but I cannot understand why there are such big spaces between the legend positions.

Graphics[Legend[{
{Graphics[{CapForm[None], Red, Thickness -> 0.05,
Line[{{0, 1}, {1, 1}}]}], “A”},
{Graphics[{CapForm[None], Blue, Thickness -> 0.05,
Line[{{0, 1}, {1, 1}}]}], “B”},
{Graphics[{CapForm[None], Green, Thickness -> 0.1,
Line[{{0, 1}, {1, 1}}]}], “C”}
}, LegendTextSpace -> 0.25]]

Results in:

=================

1

 

What version of Mathematica are you using? Are you using the old PlotLegends` package?
– rcollyer
Feb 7 ’13 at 15:50

  

 

I am using 9 version, and I just did as it was shown in tutrial.I guess I am using a legend package
– Misery
Feb 7 ’13 at 15:51

2

 

That explains a lot. Try looking at the new legends functionality.
– rcollyer
Feb 7 ’13 at 17:17

=================

1 Answer
1

=================

I think this does it:

Graphics[Legend[{{Graphics[{CapForm[None], Red, Thickness -> 0.05,
Line[{{0, 1}, {1, 1}}]}],
“A”}, {Graphics[{CapForm[None], Blue, Thickness -> 0.05,
Line[{{0, 1}, {1, 1}}]}],
“B”}, {Graphics[{CapForm[None], Green, Thickness -> 0.1,
Line[{{0, 1}, {1, 1}}]}], “C”}}], ImageSize -> 50]

ImageSize -> ## does the trick.