Pattern

Pattern-1.zip
2KB
Binary
1
c1 = NurbsCurve.ByPoints(Autodesk.Point.ByCoordinates
2
([0,0.1,0.5,0.9,1],[0.1,0.125,0.5,0.74,0.75]));
3
c2 = Arc.ByCenterPointStartPointEndPoint(Autodesk.Point.ByCoordinates(1,0),
4
Autodesk.Point.ByCoordinates(1,0,-0.75),Autodesk.Point.ByCoordinates(1,0.75));
5
c3 = Arc.ByCenterPointStartPointEndPoint(Autodesk.Point.ByCoordinates(0,0.75),
6
Autodesk.Point.ByCoordinates(0,0.1),Autodesk.Point.ByCoordinates(0,0.75,-0.75));
7
[c2,c3];
Copied!
1
surface1 = Surface.BySweep(c1, t3);
2
plane1 = Plane.XZ();
3
geometry1 = Geometry.Mirror(surface1, plane1);
4
t4 = [surface1, geometry1];
5
plane2 = Plane.YZ();
6
geometry2 = Geometry.Mirror(t4, plane2);
7
t5 = [t4, geometry2];
8
t6 = List.Flatten(t5, -1);
9
polySurface1 = PolySurface.ByJoinedSurfaces(t6);
10
t1 = (0..#10..2);
11
t2 = (0..#10..1.5);
12
geometry3 = Geometry.Translate(polySurface1<1>, t1<2>, t2<3>, 0);
Copied!

Patterns - Previous

Pattern

Next - Patterns

Phyllotaxis

Last modified 1yr ago

Copy link