# Overlapping Petals

![](https://1430428134-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Ld8QK19sjP1I9rhLouo%2F-MMzHHqeUbiVZmsOQhft%2F-MMzI8J5RqEPA_mTGf8R%2Fpetals.png?alt=media\&token=28af1193-8017-49a5-8d42-5a21ce00e168)

```d
//Number of Divisions
ct = 15;

//Thickness of Shell
th = 0.15;

//Base, Mid and Top Profiles
p1 = Point.ByCoordinates(0,0,[0,10,20]);
c1 = Circle.ByCenterPointRadius(p1,[5,7,2]);

//Split Profile Curves
c2 = c1<1>.SplitByParameter((0..1..#ct));

//Rotate and Extend Curves
a1 = Math.Atan((th*1.5)/(c1.Length/ct));
c3 = c2.Rotate(c2.StartPoint,Vector.ZAxis(),a1);
c4 = List.Transpose(c3.ExtendEnd(th));

//Loft and Solid
c5 = NurbsCurve.ByPoints(c4.StartPoint);
s1 = Surface.ByLoft(c4,c5).Thicken(th);
```

{% file src="<https://1430428134-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Ld8QK19sjP1I9rhLouo%2F-MMzHHqeUbiVZmsOQhft%2F-MMzIIJvL3xfXedRayVk%2Fpineapple.zip?alt=media&token=15fa6d1a-9a41-400d-b082-dffe5dfc3cf8>" %}
Dynamo 2.9
{% endfile %}