Re: Dashing shown in legend?
- To: mathgroup at smc.vnet.net
- Subject: [mg61090] Re: Dashing shown in legend?
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Mon, 10 Oct 2005 02:39:51 -0400 (EDT)
- Organization: Uni Leipzig
- References: <diaaof$ic1$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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.
|