The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

if ($self->{ENV}{show_points_animate} || $self->{columns}{$column}->{ENV}{show_points_animate}) {

                                        my $circle2=$self->{SVG}->circle
                                        (
                                                cx      =>      $points_x[$_],
                                                cy      =>      $points_y[$_],
                                                r       =>      10,
                                                'fill'                  =>      "white",
                                                'stroke'                =>      "rgb(".$colors{N0}.")",
                                                'stroke-width'  =>      "1pt",
                                                'fill-opacity'  =>      "0",
                                                'stroke-opacity'        =>      "0",
                                        );
                                        
                                        $circle2->animate
                                        (
                                                'attributeName'=>"r",
                                                'begin'=>"mouseover",
                                                'end'=>"mouseout",
                                                'from'=>10,
                                                'to'=>30,
#                                               'values'=>"30",
                                                'dur'=>"2s",
        #                                       'repeatDur'=>"freeze"
                                                'restart'=>"whenNotActive"
                                        );
                                        $circle2->animate
                                        (
                                                'attributeName'=>"fill-opacity",
                                                'begin'=>"mouseover",
                                                'end'=>"mouseout",
                                                'from'=>0,
                                                'to'=>0.5,
#                                               'values'=>"30",
                                                'dur'=>"2s",
        #                                       'repeatDur'=>"freeze"
                                                'restart'=>"whenNotActive"
                                        );
                                        $circle2->animate
                                        (
                                                'attributeName'=>"stroke-opacity",
                                                'begin'=>"mouseover",
                                                'end'=>"mouseout",
                                                'from'=>0,
                                                'to'=>0.9,
#                                               'values'=>"30",
                                                'dur'=>"2s",
        #                                       'repeatDur'=>"freeze"
                                                'restart'=>"whenNotActive"
                                        );
                                        
                                }

if ($self->{ENV}{show_data} || $self->{columns}{$column}->{ENV}{show_data}) { $rect->text ( x => 10, y => 10, style => { 'font-family' => 'Verdana', 'font-size' => 8, 'font-weight' => 400, # 'fill' => "rgb(".$colors{B3}.")", 'fill' => "rgb(0,0,0)", # 'stroke' => "rgb(0,0,0)", # 'stroke-width' => "1pt", 'stroke-linecap' =>"round", 'stroke-linejoin' =>"round", }, )->cdata($points_data[$_]); }

$self->{SVG}->polyline( points => $points # .$self->{block_right}.",".$self->{block_down}." " # .$self->{block_left}.",".$self->{block_down} , 'stroke-width' =>"1pt" , 'stroke' =>"black", style => { 'fill' =>"white", ' fill-opacity' =>"0", } );