Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
MalcolmWoodruff`LineTerra`
LTExpandAlignment  |
|
| | ||||
|
| | ||||
▪
The first and last intersection points are never curved, and a radius of 0 leaves its IP as a kink.
▪
Points closer together than 10 mm are collapsed, so the returned centreline has no duplicate vertices at the arc-to-tangent joins.
Examples
(1)
Basic Examples
(1)
A right-angle turn rounded with a 40 m arc is shorter than the two straight legs:
In[1]:=
Last
[{{0,0},{100,0},{100,100}},{0,40,0}]2
 | LTExpandAlignment |
Out[1]=
182.82
With no curve at the intersection point the full 200 m is walked:
In[2]:=
Last
[{{0,0},{100,0},{100,100}},{0,0,0}]2
| LTExpandAlignment |
Out[2]=
200.
 |
|
""