… | … | ||
---|---|---|---|
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 |