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

Re: BarChart - intensity of colour increases up the bar

• To: mathgroup at smc.vnet.net
• Subject: [mg81875] Re: BarChart - intensity of colour increases up the bar
• From: "sdw" <warwick at jps.net>
• Date: Fri, 5 Oct 2007 04:56:56 -0400 (EDT)
• References: <fdvq2s$lhe$1@smc.vnet.net> <fe29o0$ncb$1@smc.vnet.net>

brilliant!

"Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de> wrote in message 
news:fe29o0$ncb$1 at smc.vnet.net...
> Hi,
>
> Needs["BarCharts`"]
> bc = BarChart[{1, 2, 3}, BarStyle -> Directive[Opacity[0.5], Red]]
>
> bc /. Rectangle[{x1_, y1_}, {x2_, y2_}] :> Polygon[
>    {{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}},
>    VertexColors -> {
>      {1, 0, 0, 1}, {1, 0, 0, 1}, {1, 0, 0, 0.25}, {1, 0, 0, 0.25}}]
>
> Regards
>   Jens
>
> tomfabtastic at hotmail.com wrote:
>> Hello,
>>
>> I am just wondering whether there is an easy way to shade bars in a
>> bar chart, so that the intensity of the colour increases as you go up
>> the bar. I guess Opacity will be involved but am not sure how.
>>
>> This shading should be the same for each bar, regardless of the height
>> of the bar. So in the below example, each bar starts with the same
>> opacity along the x-axis and each finishes with a dense red at the top
>> (or Opacity[1.0]).
>>
>> Needs["BarCharts`"]
>> BarChart[{1, 2, 3}, BarStyle -> Directive[Opacity[0.5], Red]]
>>
>> Regards,
>> Tom
>>
>>
>