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