| changeset 14568 | 90893b397933 |
| parent 14567 | 7e4862823649 |
| child 14607 | e54e41554529 |
| 14567:7e4862823649 | 14568:90893b397933 |
|---|---|
1133 y:= hwFloat2Float(Me^.Y); |
1133 y:= hwFloat2Float(Me^.Y); |
1134 d:= sqrt(sqr(Targ.Point.X - x) + sqr(Targ.Point.Y - y)); |
1134 d:= sqrt(sqr(Targ.Point.X - x) + sqr(Targ.Point.Y - y)); |
1135 if d < 10 then |
1135 if d < 10 then |
1136 begin |
1136 begin |
1137 dx:= 0; |
1137 dx:= 0; |
1138 dy:= 8; |
1138 dy:= step; |
1139 ap.Angle:= 2048 |
1139 ap.Angle:= 2048 |
1140 end |
1140 end |
1141 else |
1141 else |
1142 begin |
1142 begin |
1143 t:= step / d; |
1143 t:= step / d; |