[Orca-users] Color selection

[David Michaels]

To close a thread -- Thanks, Blair.  Your suggestion worked.  I haven't 
yet tested to see if it still allows for custom color settings, though.  
I.e., I'm not sure if this is a 'band-aid' or a 'correction'.  Assume 
for now that it works .. I'll repost if it doesn't.

--Dragon


Dragon wrote:

>
> Funny, that's exactly the section of code I was staring at last night, 
> while trying to debug this thing.  I then spent a while trying to 
> figure out how new_plot_ref->{color} gets populated, as I figured 
> there was an OBOE there, or end-condition logical error, but I got 
> tired and went home before I found an answer. ;)  And you solved it in 
> 11 minutes!  Go, Blair! :)
>
> I'll let you know how it works out.
>
> --Dragon
> PS - modified Rajesh's AIX perl script data collector is almost ready 
> for submission.  One last plot to fix.
>
> Blair Zajac wrote:
>
>> Blair Zajac wrote:
>>
>>> If you can, please take a look at helping to debug the volatile 
>>> patch and send any fixes back to the mailing list.
>>
>>
>>
>> I think this part of the patch for ImageFile.pm
>>
>> +  # $i should already be set to the number of elements, but i'm
>> paranoid....
>> +  $i= @{$exist_plot_ref->{legend}};
>> +  for (my $k=0; $k < @{$new_plot_ref->{legend}}; $k++) {
>> +       unless ( defined( $exist_legend{$new_plot_ref->{legend}[$k]} 
>> ) ) {
>> +        # there may be more attributes, but these are the ones that
>> seem to matter
>> +        $exist_plot_ref->{legend}[$i] = $new_plot_ref->{legend}[$k];
>> +               $exist_plot_ref->{line_type}[$i] =
>> $new_plot_ref->{line_type}[$k];
>> +        $exist_plot_ref->{color}[$i] = $new_plot_ref->{color}[$k];
>> +               $exist_plot_ref->{summary_format}[$i] =
>> $new_plot_ref->{summary_format}[$k];
>> +               $i++;
>> +       }
>> +  }
>>
>> Try changing the
>>
>> $exist_plot_ref->{color}[$i] = $new_plot_ref->{color}[$k];
>>
>> to
>>
>> $exist_plot_ref->{color}[$i] = get_color($i);
>>
>> You'll also need to change
>>
>> use Orca::Config    qw(%config_global
>>                        @config_groups
>>                        @config_plots);
>>
>> to
>>
>> use Orca::Config    qw(%config_global
>>                        @config_groups
>>                        @config_plots
>>                        get_color);
>>
>> Best,
>> Blair
>
>
>
> _______________________________________________
> Orca-users mailing list
> Orca-users at orcaware.com
> http://www.orcaware.com/mailman/listinfo/orca-users


-- 

		

	*David P. Michaels*
Senior Multi-Disciplined Engineer II W.H.
NPOESS IS
Platform OS Unix
303.344.6840
720.858.5952 fax
720.521.0561 pager
dragon at raytheon.com <mailto:dragon at raytheon.com> 	*aka "Dragon"*

"I wonder what news is doing..."

 news at newshost <29> ps -fu news      
 news 18624 12367 2 0:00 makehistory 

"News is making history."
      

-------------- next part --------------
An HTML attachment was scrubbed...
URL: </pipermail/orca-users/attachments/20040526/d2b67b15/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Raytheon.gif
Type: image/gif
Size: 481 bytes
Desc: not available
URL: </pipermail/orca-users/attachments/20040526/d2b67b15/attachment.gif>