| … | … | ||
|---|---|---|---|
| 870 | 870 | ||
| 871 | sub moveto { | 871 | sub moveto { |
| 872 | my ($self, $x, $y) = @_; | 872 | my ($self, $x, $y) = @_; |
| 873 | 873 | ||
| 874 | $self->{moveto} = [$self->{x}, $self->{y}, $x, $y]; | 874 | $self->{moveto} = [$self->{x}, $self->{y}, $x, $y]; |
| 875 | $self->{speed} = 0.01; | 875 | $self->{speed} = 0.2; |
| 876 | $self->{time} = 1; | 876 | $self->{time} = 1; |
| 877 | 877 | ||
| 878 | ::animation_start $self; | 878 | ::animation_start $self; |
| 879 | } | 879 | } |
| 880 | 880 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |