using 3D;
define RotationPatch list {
bezierpatch ([0.3,0.6,0.0] ,[0.3,0.6,0.16] ,[0.16,0.6,0.3] ,[0.0,0.6,0.3],
[0.1,0.4,0.0], [0.1,0.4,0.05], [0.05,0.4,0.1], [0.0,0.4,0.1],
[0.6,0.0,0.0], [0.6,0.0,0.33], [0.33,0.0,0.6], [0.0,0.0,0.6],
[0.0,0.0,0.0], [0.0,0.0,0.0], [0.0,0.0,0.0], [0.0,0.0,0.0] );
};
define RotationObject list {
RotationPatch;
RotationPatch{rotateY(90);}
RotationPatch{rotateY(180);}
RotationPatch{rotateY(270);}
};
RotationObject {rotateX(90); phong {diffuse [.9,.1,.1]; specular [1,1,1]; specpow 50;}}