Isovists
isovists.zip
3KB
Binary
1
point1 = Point.ByCoordinates([10, 5, 10], [3, 0, -5]);
2
t5 = 25;
3
circle1 = Circle.ByCenterPointRadius(point1, t5);
4
t4 = [Rectangle.ByWidthLength(60, 30), Rectangle.ByWidthLength(10, 5).Translate(20, 10, 0), Rectangle.ByWidthLength(10, 5).Translate(20, -10, 0), Circle.ByCenterPointRadius(Point.ByCoordinates(-7, -10), 3), NurbsCurve.ByControlPoints(Point.ByCoordinates([-20, -18, 15, -25, 5], [-5, 10, 7, 5, -5]), 3, true)];
5
t6 = List.AddItemToEnd([email protected]<1>, t4);
6
t7 = (0..1..0.001);
7
point2 = Curve.PointAtParameter(circle1<1>, t7<2>);
8
vector1 = Vector.ByTwoPoints(point1, point2);
9
geometry1 = Point.Project(point1<1L>, [email protected]@L1<1L>, vector1<1L>);
10
t8 = List.Transpose(geometry1<1L>);
11
t9 = List.Flatten([email protected]@L3<1L>, -1);
12
t10 = Geometry.DistanceTo(t9, point1);
13
t11 = List.SortByKey([email protected]@L2<1L>, [email protected]<1L>);
14
t12 = Dictionary.ValueAtKey(t11, "sorted list");
15
t13 = Dictionary.ValueAtKey(t11, "sorted keys");
16
t14 = List.FirstItem([email protected]@L2<1L>);
17
polyCurve1 = PolyCurve.ByPoints(t14, false);
18
surface1 = Surface.ByPatch(polyCurve1);
Copied!
Copy link