MathGroup Archive 2005

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

Search the Archive

Re: Dashing shown in legend?


Hi,

something like

Needs["Graphics`Legend`"]
Needs["Graphics`Graphics`"]

bc = BarChart[{1, -3, 4, 5, 2, 3}, {3, 6, 4, 3}];

Block[{$DisplayFunction = Identity},
ShowLegend[
bc, {{{RGBColor[1, 0, 0], "Humpty"}, {RGBColor[0,0, 1],
"Dumpty"}}}]] /. {c_RGBColor,
Rectangle[{x1_, y1_}, {x2_, y2_}]} :> {c,
Rectangle[{x1, y1}, {x2, y2}], {RGBColor[0, 0, 0],
AbsoluteDashing[{2, 2}],
Line[{{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}, {x1,y1}}]}} // Show

Regards
  Jens

"kristoph" <kristophs.post at web.de> schrieb im 
Newsbeitrag news:diaaof$ic1$1 at smc.vnet.net...
| Is it possible to show the dashing from the 
baredge in the legend?
| Thanks for help.
| 



  • Prev by Date: Re: Skipping Elements in Sum
  • Next by Date: Re: leaveing out empty ticks that have no data
  • Previous by thread: Dashing shown in legend?
  • Next by thread: Skipping Elements in Sum