equal
deleted
inserted
replaced
122 end |
122 end |
123 else |
123 else |
124 begin |
124 begin |
125 d:= DistanceI(p2.X - p1.X, p2.Y - p1.Y); |
125 d:= DistanceI(p2.X - p1.X, p2.Y - p1.Y); |
126 d1:= DistanceI(p2.X - p3.X, p2.Y - p3.Y); |
126 d1:= DistanceI(p2.X - p3.X, p2.Y - p3.Y); |
127 |
127 |
128 if d1 < d then |
128 if d1 < d then |
129 d:= d1; |
129 d:= d1; |
130 if d2 < d then |
130 if d2 < d then |
131 d:= d2; |
131 d:= d2; |
132 |
132 |
133 d2:= d * _1div3 / d2; |
133 d2:= d * _1div3 / d2; |
134 |
134 |
135 Vx:= Vx * d2; |
135 Vx:= Vx * d2; |
136 Vy:= Vy * d2 |
136 Vy:= Vy * d2 |
137 end |
137 end |
138 end; |
138 end; |
139 |
139 |