ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Kutsin                        2:5020/400     25 Oct 2002  13:49:10
 To : All
 Subject : GIFgraph problem
 -------------------------------------------------------------------------------- 
 

 Hi!
 Использую GIFgraph для вывода графиков.
 Проблема с нумерацией п оси Х.
 Делаю
 
 $my_graph->set(
         x_number_format   => \&x_format30,
         x_max_value       => 8640,
         x_tick_number     => 30,
         x_label_skip      => 2);
 };
 
 sub x_format30 {
         my $value = shift;
         $ret = sprintf( 30-$value/288);
         return $ret;
 }
 
 Т.е. чтобы нумерация была (30,29,28...1).
 Hе работает. Hумерация идет по старому :-((.
 Делал как man велит.
 Помогите разобраться.
 p.s. Вот кусок кода, отвечающий за переопределене из GIFgraph. Может это
 разработчики наглючили.
 sub create_x_labels
         {
                 my $s = shift;
                 return unless defined($s->{x_tick_number});
 
                 $s->{x_label_len} = 0;
 
                 my $t;
                 foreach $t (0..$s->{x_tick_number})
                 {
                         my $label =
                                 $s->{x_min} +
                                 $t * ($s->{x_max} -
 
 $s->{x_min})/$s->{x_tick_number};
 
                         $s->{x_values}[$t] = $label;
 
                         if (defined $s->{x_number_format})
                         {
                                 if (ref $s->{x_number_format} eq 'CODE')
                                 {
                                         $label =
 
 &{$s->{x_number_format}}($label);
 
                                 }
                                 else
                                 {
                                         $label =
 sprintf($s->{x_number_format}, $label);
                                 }
                         }
 
                         my $len = length($label);
 
                         $s->{x_labels}[$t] = $label;
 
                         ($len > $s->{x_label_len}) and $s->{x_label_len} =
 $len;
                 }
         }
 --
 Ruslan Kutsin
 RK15686-RIPE
 SILV-UANIC
 --- ifmail v.2.15dev5
  * Origin: InterNetNews site of Interpharm (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор