Testing Waters

Searchâ€¦

Projects

Patterns

Geometry

Lists

Overlapping Petals

1

//Number of Divisions

2

ct = 15;

3

â€‹

4

//Thickness of Shell

5

th = 0.15;

6

â€‹

7

//Base, Mid and Top Profiles

8

p1 = Point.ByCoordinates(0,0,[0,10,20]);

9

c1 = Circle.ByCenterPointRadius(p1,[5,7,2]);

10

â€‹

11

//Split Profile Curves

12

c2 = c1<1>.SplitByParameter((0..1..#ct));

13

â€‹

14

//Rotate and Extend Curves

15

a1 = Math.Atan((th*1.5)/(c1.Length/ct));

16

c3 = c2.Rotate(c2.StartPoint,Vector.ZAxis(),a1);

17

c4 = List.Transpose(c3.ExtendEnd(th));

18

â€‹

19

//Loft and Solid

20

c5 = NurbsCurve.ByPoints(c4.StartPoint);

21

s1 = Surface.ByLoft(c4,c5).Thicken(th);

Copied!

pineapple.zip

2KB

Binary

Dynamo 2.9

Last modified 1yr ago

Copy link