Vector Field

v = Vector.ByCoordinates
(0.2*p.Y,1);
l = Math.RemapRange(v.Length,3,5);
f = List.Clean(
Line.ByStartPointDirectionLength
(p,v,l),false);
v = Vector.ByCoordinates
(-p.Y,-p.X);
l = Math.RemapRange(v.Length,3,5);
f = List.Clean(
Line.ByStartPointDirectionLength
(p,v,l),false);
v = Vector.ByCoordinates
(-p.Y,p.X);
l = Math.RemapRange(v.Length,3,5);
f = List.Clean
(Line.ByStartPointDirectionLength
(p,v,l),false);
v = Vector.ByCoordinates
(p.X,p.Y);
l = Math.RemapRange(v.Length,3,5);
f = List.Clean
(Line.ByStartPointDirectionLength
(p,v,l),false);