w = 0.01; (* width of each leaf *) l = 0.2; (* length of each leaf *) n = 10; (* number of spirals *) nleaves = 200; spine[z_] = {0.1 (1. - Cos[N[Pi] z]), 0.1 (Cos[N[Pi] z] - 1.), z}; rotation[t_] = {{Cos[t],Sin[t],0},{-Sin[t],Cos[t],0},{0,0,1}}; plant = Graphics3D[Table[Polygon[ Map[ (N[rotation[2Pi n z].#] + spine[z])&, {{0,0,0},{0,w,0},{l,w,0},{l,0,0}} ] ],{z, 0, 1, 1./nleaves}]];
In[4]:=
Show[plant];
Up to Aquarium