Is it posible to offset / extent a surface?

[jochemdejongh]

Hi,

I tried my best, but… here i am for some advice!
i have made a pineapple form existing out of (x) count of plates.
Now i want to make an offset of this surface on the right. see picture.
how can i give this extention to my plates?

[Mark.Ackerley]

Hey,

Depending what result you’re after, perhaps Geometry,Scale1D?

Cheers,

Mark

[Vikram_Subbaiah]

@jochemdejongh See if the code below helps you build a graph

pineapple.dyn (7.5 KB)

//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);