Impromptu flower done during the workshop on November 17, 2011.

fruit={Red,Scale[Sphere[{0,0,0},1],{1,1,0.1}]};
stem = {Green, Cylinder[{{0,0,-2},{0,0,0}},0.2]};
hairs=Table[{Hue[Random[]],Cylinder[{{Random[]Cos[2Pi Random[]],Random[] Sin[2Pi Random[]],0},{0,0,1}},0.01]},{100}];
petal={Yellow, Polygon[{{0,0,0},{1,1,0},{0,6,0},{-1,1,0},{0,0,0}}]};
petals=Table[Rotate[petal,2Pi k/10,{0,0,1}],{k,1,10}];
flower=Graphics3D[{fruit,stem,petals,hairs},Boxed->False,Axes->False]