Animate[Graphics3D[{{Polygon[{{0, 0, Sin[i]}, {0.1000, 0, 0.9000*Sin[0.1000 + i]}, {0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}, {0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}, {0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}, {0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}, {0, 0.1000, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0, 0.1000, 0.9000*Sin[0.1000 + i]}, {-0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}, {-0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}, {-0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}, {-0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}, {-0.1000, 0, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.1000, 0, 0.9000*Sin[0.1000 + i]}, {-0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}, {-0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}, {-0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}, {-0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {-0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}, {0, -0.1000, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0, -0.1000, 0.9000*Sin[0.1000 + i]}, {0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}, {0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}, {0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}, {0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}], Polygon[{{0, 0, Sin[i]}, {0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}, {0.1000, 0, 0.9000*Sin[0.1000 + i]}, {0, 0, Sin[i]}}]}, {Polygon[{{0.1000, 0, 0.9000*Sin[0.1000 + i]}, {0.2000, 0, 0.8000*Sin[0.2000 + i]}, {0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}, {0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}, {0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}, {0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}, {0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}, {0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}, {0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}, {0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}, {0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}, {0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}, {0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}, {0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}, {0, 0.2000, 0.8000*Sin[0.2000 + i]}, {0, 0.1000, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0, 0.1000, 0.9000*Sin[0.1000 + i]}, {0, 0.2000, 0.8000*Sin[0.2000 + i]}, {-0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}, {-0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.03090, 0.09511, 0.9000*Sin[0.1000 + i]}, {-0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}, {-0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}, {-0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.05878, 0.08090, 0.9000*Sin[0.1000 + i]}, {-0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}, {-0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}, {-0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.08090, 0.05878, 0.9000*Sin[0.1000 + i]}, {-0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}, {-0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}, {-0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.09511, 0.03090, 0.9000*Sin[0.1000 + i]}, {-0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}, {-0.2000, 0, 0.8000*Sin[0.2000 + i]}, {-0.1000, 0, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.1000, 0, 0.9000*Sin[0.1000 + i]}, {-0.2000, 0, 0.8000*Sin[0.2000 + i]}, {-0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}, {-0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}, {-0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}, {-0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}, {-0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}, {-0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}, {-0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}, {-0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}, {-0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}, {-0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}, {-0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}}], Polygon[{{-0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}, {-0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}, {0, -0.2000, 0.8000*Sin[0.2000 + i]}, {0, -0.1000, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0, -0.1000, 0.9000*Sin[0.1000 + i]}, {0, -0.2000, 0.8000*Sin[0.2000 + i]}, {0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}, {0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.03090, -0.09511, 0.9000*Sin[0.1000 + i]}, {0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}, {0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}, {0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.05878, -0.08090, 0.9000*Sin[0.1000 + i]}, {0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}, {0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}, {0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.08090, -0.05878, 0.9000*Sin[0.1000 + i]}, {0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}, {0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}, {0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}}], Polygon[{{0.09511, -0.03090, 0.9000*Sin[0.1000 + i]}, {0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}, {0.2000, 0, 0.8000*Sin[0.2000 + i]}, {0.1000, 0, 0.9000*Sin[0.1000 + i]}}]}, {Polygon[{{0.2000, 0, 0.8000*Sin[0.2000 + i]}, {0.3000, 0, 0.7000*Sin[0.3000 + i]}, {0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}, {0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}, {0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}, {0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}, {0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}, {0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}, {0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}, {0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}, {0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}, {0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}, {0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}, {0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}, {0, 0.3000, 0.7000*Sin[0.3000 + i]}, {0, 0.2000, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0, 0.2000, 0.8000*Sin[0.2000 + i]}, {0, 0.3000, 0.7000*Sin[0.3000 + i]}, {-0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}, {-0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.06180, 0.1902, 0.8000*Sin[0.2000 + i]}, {-0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}, {-0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}, {-0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.1176, 0.1618, 0.8000*Sin[0.2000 + i]}, {-0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}, {-0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}, {-0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.1618, 0.1176, 0.8000*Sin[0.2000 + i]}, {-0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}, {-0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}, {-0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.1902, 0.06180, 0.8000*Sin[0.2000 + i]}, {-0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}, {-0.3000, 0, 0.7000*Sin[0.3000 + i]}, {-0.2000, 0, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.2000, 0, 0.8000*Sin[0.2000 + i]}, {-0.3000, 0, 0.7000*Sin[0.3000 + i]}, {-0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}, {-0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}, {-0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}, {-0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}, {-0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}, {-0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}, {-0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}, {-0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}, {-0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}, {-0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}, {-0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}}], Polygon[{{-0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}, {-0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}, {0, -0.3000, 0.7000*Sin[0.3000 + i]}, {0, -0.2000, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0, -0.2000, 0.8000*Sin[0.2000 + i]}, {0, -0.3000, 0.7000*Sin[0.3000 + i]}, {0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}, {0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.06180, -0.1902, 0.8000*Sin[0.2000 + i]}, {0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}, {0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}, {0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.1176, -0.1618, 0.8000*Sin[0.2000 + i]}, {0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}, {0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}, {0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.1618, -0.1176, 0.8000*Sin[0.2000 + i]}, {0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}, {0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}, {0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}}], Polygon[{{0.1902, -0.06180, 0.8000*Sin[0.2000 + i]}, {0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}, {0.3000, 0, 0.7000*Sin[0.3000 + i]}, {0.2000, 0, 0.8000*Sin[0.2000 + i]}}]}, {Polygon[{{0.3000, 0, 0.7000*Sin[0.3000 + i]}, {0.4000, 0, 0.6000*Sin[0.4000 + i]}, {0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}, {0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}, {0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}, {0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}, {0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}, {0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}, {0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}, {0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}, {0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}, {0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}, {0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}, {0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}, {0, 0.4000, 0.6000*Sin[0.4000 + i]}, {0, 0.3000, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0, 0.3000, 0.7000*Sin[0.3000 + i]}, {0, 0.4000, 0.6000*Sin[0.4000 + i]}, {-0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}, {-0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.09271, 0.2853, 0.7000*Sin[0.3000 + i]}, {-0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}, {-0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}, {-0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.1763, 0.2427, 0.7000*Sin[0.3000 + i]}, {-0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}, {-0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}, {-0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.2427, 0.1763, 0.7000*Sin[0.3000 + i]}, {-0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}, {-0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}, {-0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.2853, 0.09271, 0.7000*Sin[0.3000 + i]}, {-0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}, {-0.4000, 0, 0.6000*Sin[0.4000 + i]}, {-0.3000, 0, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.3000, 0, 0.7000*Sin[0.3000 + i]}, {-0.4000, 0, 0.6000*Sin[0.4000 + i]}, {-0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}, {-0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}, {-0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}, {-0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}, {-0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}, {-0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}, {-0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}, {-0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}, {-0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}, {-0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}, {-0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}}], Polygon[{{-0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}, {-0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}, {0, -0.4000, 0.6000*Sin[0.4000 + i]}, {0, -0.3000, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0, -0.3000, 0.7000*Sin[0.3000 + i]}, {0, -0.4000, 0.6000*Sin[0.4000 + i]}, {0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}, {0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.09271, -0.2853, 0.7000*Sin[0.3000 + i]}, {0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}, {0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}, {0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.1763, -0.2427, 0.7000*Sin[0.3000 + i]}, {0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}, {0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}, {0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.2427, -0.1763, 0.7000*Sin[0.3000 + i]}, {0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}, {0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}, {0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}}], Polygon[{{0.2853, -0.09271, 0.7000*Sin[0.3000 + i]}, {0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}, {0.4000, 0, 0.6000*Sin[0.4000 + i]}, {0.3000, 0, 0.7000*Sin[0.3000 + i]}}]}, {Polygon[{{0.4000, 0, 0.6000*Sin[0.4000 + i]}, {0.5000, 0, 0.5000*Sin[0.5000 + i]}, {0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}, {0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}, {0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}, {0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}, {0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}, {0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}, {0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}, {0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}, {0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}, {0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}, {0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}, {0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}, {0, 0.5000, 0.5000*Sin[0.5000 + i]}, {0, 0.4000, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0, 0.4000, 0.6000*Sin[0.4000 + i]}, {0, 0.5000, 0.5000*Sin[0.5000 + i]}, {-0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}, {-0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.1236, 0.3804, 0.6000*Sin[0.4000 + i]}, {-0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}, {-0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}, {-0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.2351, 0.3236, 0.6000*Sin[0.4000 + i]}, {-0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}, {-0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}, {-0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.3236, 0.2351, 0.6000*Sin[0.4000 + i]}, {-0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}, {-0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}, {-0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.3804, 0.1236, 0.6000*Sin[0.4000 + i]}, {-0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}, {-0.5000, 0, 0.5000*Sin[0.5000 + i]}, {-0.4000, 0, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.4000, 0, 0.6000*Sin[0.4000 + i]}, {-0.5000, 0, 0.5000*Sin[0.5000 + i]}, {-0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}, {-0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}, {-0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}, {-0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}, {-0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}, {-0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}, {-0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}, {-0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}, {-0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}, {-0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}, {-0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}}], Polygon[{{-0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}, {-0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}, {0, -0.5000, 0.5000*Sin[0.5000 + i]}, {0, -0.4000, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0, -0.4000, 0.6000*Sin[0.4000 + i]}, {0, -0.5000, 0.5000*Sin[0.5000 + i]}, {0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}, {0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.1236, -0.3804, 0.6000*Sin[0.4000 + i]}, {0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}, {0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}, {0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.2351, -0.3236, 0.6000*Sin[0.4000 + i]}, {0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}, {0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}, {0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.3236, -0.2351, 0.6000*Sin[0.4000 + i]}, {0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}, {0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}, {0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}}], Polygon[{{0.3804, -0.1236, 0.6000*Sin[0.4000 + i]}, {0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}, {0.5000, 0, 0.5000*Sin[0.5000 + i]}, {0.4000, 0, 0.6000*Sin[0.4000 + i]}}]}, {Polygon[{{0.5000, 0, 0.5000*Sin[0.5000 + i]}, {0.6000, 0, 0.4000*Sin[0.6000 + i]}, {0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}, {0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}, {0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}, {0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}, {0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}, {0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}, {0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}, {0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}, {0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}, {0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}, {0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}, {0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}, {0, 0.6000, 0.4000*Sin[0.6000 + i]}, {0, 0.5000, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0, 0.5000, 0.5000*Sin[0.5000 + i]}, {0, 0.6000, 0.4000*Sin[0.6000 + i]}, {-0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}, {-0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.1545, 0.4755, 0.5000*Sin[0.5000 + i]}, {-0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}, {-0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}, {-0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.2939, 0.4045, 0.5000*Sin[0.5000 + i]}, {-0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}, {-0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}, {-0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.4045, 0.2939, 0.5000*Sin[0.5000 + i]}, {-0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}, {-0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}, {-0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.4755, 0.1545, 0.5000*Sin[0.5000 + i]}, {-0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}, {-0.6000, 0, 0.4000*Sin[0.6000 + i]}, {-0.5000, 0, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.5000, 0, 0.5000*Sin[0.5000 + i]}, {-0.6000, 0, 0.4000*Sin[0.6000 + i]}, {-0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}, {-0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}, {-0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}, {-0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}, {-0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}, {-0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}, {-0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}, {-0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}, {-0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}, {-0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}, {-0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}}], Polygon[{{-0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}, {-0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}, {0, -0.6000, 0.4000*Sin[0.6000 + i]}, {0, -0.5000, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0, -0.5000, 0.5000*Sin[0.5000 + i]}, {0, -0.6000, 0.4000*Sin[0.6000 + i]}, {0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}, {0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.1545, -0.4755, 0.5000*Sin[0.5000 + i]}, {0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}, {0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}, {0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.2939, -0.4045, 0.5000*Sin[0.5000 + i]}, {0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}, {0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}, {0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.4045, -0.2939, 0.5000*Sin[0.5000 + i]}, {0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}, {0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}, {0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}}], Polygon[{{0.4755, -0.1545, 0.5000*Sin[0.5000 + i]}, {0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}, {0.6000, 0, 0.4000*Sin[0.6000 + i]}, {0.5000, 0, 0.5000*Sin[0.5000 + i]}}]}, {Polygon[{{0.6000, 0, 0.4000*Sin[0.6000 + i]}, {0.7000, 0, 0.3000*Sin[0.7000 + i]}, {0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}, {0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}, {0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}, {0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}, {0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}, {0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}, {0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}, {0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}, {0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}, {0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}, {0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}, {0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}, {0, 0.7000, 0.3000*Sin[0.7000 + i]}, {0, 0.6000, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0, 0.6000, 0.4000*Sin[0.6000 + i]}, {0, 0.7000, 0.3000*Sin[0.7000 + i]}, {-0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}, {-0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.1854, 0.5706, 0.4000*Sin[0.6000 + i]}, {-0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}, {-0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}, {-0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.3527, 0.4854, 0.4000*Sin[0.6000 + i]}, {-0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}, {-0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}, {-0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.4854, 0.3527, 0.4000*Sin[0.6000 + i]}, {-0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}, {-0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}, {-0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.5706, 0.1854, 0.4000*Sin[0.6000 + i]}, {-0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}, {-0.7000, 0, 0.3000*Sin[0.7000 + i]}, {-0.6000, 0, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.6000, 0, 0.4000*Sin[0.6000 + i]}, {-0.7000, 0, 0.3000*Sin[0.7000 + i]}, {-0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}, {-0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}, {-0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}, {-0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}, {-0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}, {-0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}, {-0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}, {-0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}, {-0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}, {-0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}, {-0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}}], Polygon[{{-0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}, {-0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}, {0, -0.7000, 0.3000*Sin[0.7000 + i]}, {0, -0.6000, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0, -0.6000, 0.4000*Sin[0.6000 + i]}, {0, -0.7000, 0.3000*Sin[0.7000 + i]}, {0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}, {0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.1854, -0.5706, 0.4000*Sin[0.6000 + i]}, {0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}, {0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}, {0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.3527, -0.4854, 0.4000*Sin[0.6000 + i]}, {0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}, {0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}, {0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.4854, -0.3527, 0.4000*Sin[0.6000 + i]}, {0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}, {0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}, {0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}}], Polygon[{{0.5706, -0.1854, 0.4000*Sin[0.6000 + i]}, {0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}, {0.7000, 0, 0.3000*Sin[0.7000 + i]}, {0.6000, 0, 0.4000*Sin[0.6000 + i]}}]}, {Polygon[{{0.7000, 0, 0.3000*Sin[0.7000 + i]}, {0.8000, 0, 0.2000*Sin[0.8000 + i]}, {0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}, {0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}, {0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}, {0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}, {0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}, {0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}, {0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}, {0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}, {0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}, {0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}, {0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}, {0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}, {0, 0.8000, 0.2000*Sin[0.8000 + i]}, {0, 0.7000, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0, 0.7000, 0.3000*Sin[0.7000 + i]}, {0, 0.8000, 0.2000*Sin[0.8000 + i]}, {-0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}, {-0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.2163, 0.6657, 0.3000*Sin[0.7000 + i]}, {-0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}, {-0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}, {-0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.4114, 0.5663, 0.3000*Sin[0.7000 + i]}, {-0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}, {-0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}, {-0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.5663, 0.4114, 0.3000*Sin[0.7000 + i]}, {-0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}, {-0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}, {-0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.6657, 0.2163, 0.3000*Sin[0.7000 + i]}, {-0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}, {-0.8000, 0, 0.2000*Sin[0.8000 + i]}, {-0.7000, 0, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.7000, 0, 0.3000*Sin[0.7000 + i]}, {-0.8000, 0, 0.2000*Sin[0.8000 + i]}, {-0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}, {-0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}, {-0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}, {-0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}, {-0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}, {-0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}, {-0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}, {-0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}, {-0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}, {-0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}, {-0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}}], Polygon[{{-0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}, {-0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}, {0, -0.8000, 0.2000*Sin[0.8000 + i]}, {0, -0.7000, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0, -0.7000, 0.3000*Sin[0.7000 + i]}, {0, -0.8000, 0.2000*Sin[0.8000 + i]}, {0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}, {0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.2163, -0.6657, 0.3000*Sin[0.7000 + i]}, {0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}, {0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}, {0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.4114, -0.5663, 0.3000*Sin[0.7000 + i]}, {0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}, {0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}, {0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.5663, -0.4114, 0.3000*Sin[0.7000 + i]}, {0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}, {0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}, {0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}}], Polygon[{{0.6657, -0.2163, 0.3000*Sin[0.7000 + i]}, {0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}, {0.8000, 0, 0.2000*Sin[0.8000 + i]}, {0.7000, 0, 0.3000*Sin[0.7000 + i]}}]}, {Polygon[{{0.8000, 0, 0.2000*Sin[0.8000 + i]}, {0.9000, 0, 0.1000*Sin[0.9000 + i]}, {0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}, {0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}, {0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}, {0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}, {0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}, {0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}, {0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}, {0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}, {0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}, {0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}, {0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}, {0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}, {0, 0.9000, 0.1000*Sin[0.9000 + i]}, {0, 0.8000, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0, 0.8000, 0.2000*Sin[0.8000 + i]}, {0, 0.9000, 0.1000*Sin[0.9000 + i]}, {-0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}, {-0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.2472, 0.7608, 0.2000*Sin[0.8000 + i]}, {-0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}, {-0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}, {-0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.4702, 0.6472, 0.2000*Sin[0.8000 + i]}, {-0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}, {-0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}, {-0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.6472, 0.4702, 0.2000*Sin[0.8000 + i]}, {-0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}, {-0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}, {-0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.7608, 0.2472, 0.2000*Sin[0.8000 + i]}, {-0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}, {-0.9000, 0, 0.1000*Sin[0.9000 + i]}, {-0.8000, 0, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.8000, 0, 0.2000*Sin[0.8000 + i]}, {-0.9000, 0, 0.1000*Sin[0.9000 + i]}, {-0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}, {-0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}, {-0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}, {-0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}, {-0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}, {-0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}, {-0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}, {-0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}, {-0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}, {-0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}, {-0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}}], Polygon[{{-0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}, {-0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}, {0, -0.9000, 0.1000*Sin[0.9000 + i]}, {0, -0.8000, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0, -0.8000, 0.2000*Sin[0.8000 + i]}, {0, -0.9000, 0.1000*Sin[0.9000 + i]}, {0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}, {0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.2472, -0.7608, 0.2000*Sin[0.8000 + i]}, {0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}, {0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}, {0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.4702, -0.6472, 0.2000*Sin[0.8000 + i]}, {0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}, {0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}, {0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.6472, -0.4702, 0.2000*Sin[0.8000 + i]}, {0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}, {0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}, {0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}}], Polygon[{{0.7608, -0.2472, 0.2000*Sin[0.8000 + i]}, {0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}, {0.9000, 0, 0.1000*Sin[0.9000 + i]}, {0.8000, 0, 0.2000*Sin[0.8000 + i]}}]}, {Polygon[{{0.9000, 0, 0.1000*Sin[0.9000 + i]}, {1.000, 0, 0}, {0.9511, 0.3090, 0}, {0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}, {0.9511, 0.3090, 0}, {0.8090, 0.5878, 0}, {0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}, {0.8090, 0.5878, 0}, {0.5878, 0.8090, 0}, {0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}, {0.5878, 0.8090, 0}, {0.3090, 0.9511, 0}, {0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}, {0.3090, 0.9511, 0}, {0, 1.000, 0}, {0, 0.9000, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0, 0.9000, 0.1000*Sin[0.9000 + i]}, {0, 1.000, 0}, {-0.3090, 0.9511, 0}, {-0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.2781, 0.8560, 0.1000*Sin[0.9000 + i]}, {-0.3090, 0.9511, 0}, {-0.5878, 0.8090, 0}, {-0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.5290, 0.7281, 0.1000*Sin[0.9000 + i]}, {-0.5878, 0.8090, 0}, {-0.8090, 0.5878, 0}, {-0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.7281, 0.5290, 0.1000*Sin[0.9000 + i]}, {-0.8090, 0.5878, 0}, {-0.9511, 0.3090, 0}, {-0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.8560, 0.2781, 0.1000*Sin[0.9000 + i]}, {-0.9511, 0.3090, 0}, {-1.000, 0, 0}, {-0.9000, 0, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.9000, 0, 0.1000*Sin[0.9000 + i]}, {-1.000, 0, 0}, {-0.9511, -0.3090, 0}, {-0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}, {-0.9511, -0.3090, 0}, {-0.8090, -0.5878, 0}, {-0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}, {-0.8090, -0.5878, 0}, {-0.5878, -0.8090, 0}, {-0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}, {-0.5878, -0.8090, 0}, {-0.3090, -0.9511, 0}, {-0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}}], Polygon[{{-0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}, {-0.3090, -0.9511, 0}, {0, -1.000, 0}, {0, -0.9000, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0, -0.9000, 0.1000*Sin[0.9000 + i]}, {0, -1.000, 0}, {0.3090, -0.9511, 0}, {0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.2781, -0.8560, 0.1000*Sin[0.9000 + i]}, {0.3090, -0.9511, 0}, {0.5878, -0.8090, 0}, {0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.5290, -0.7281, 0.1000*Sin[0.9000 + i]}, {0.5878, -0.8090, 0}, {0.8090, -0.5878, 0}, {0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.7281, -0.5290, 0.1000*Sin[0.9000 + i]}, {0.8090, -0.5878, 0}, {0.9511, -0.3090, 0}, {0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}}], Polygon[{{0.8560, -0.2781, 0.1000*Sin[0.9000 + i]}, {0.9511, -0.3090, 0}, {1.000, 0, 0}, {0.9000, 0, 0.1000*Sin[0.9000 + i]}}]}}], {i, 0., 6.2832, 0.15708}, {Axes -> True, PlotRange -> {{-1., 1.}, {-1., 1.}, {-1., 1.}}}]