my $num_points = (scalar @points)/2;
        #$num_points = $num_points / 2;
        print $num_points,"\n";
        unless ($num_points == 1){
            print " $count\n";
            for(1..($num_points-$count)*2){
                print "here is a point\n";
                shift @points;
            }
            foreach (@points){
                print $_,"\n";
            }
            
            my $way_lines = Goo::Canvas::Polyline->new($way_group,TRUE,$num_points,[\@points]);
        }