Image:Pentatope of 70 spheres animation original.gif
From Wikipedia, the free encyclopedia
No higher resolution available.
Pentatope_of_70_spheres_animation_original.gif (640 × 480 pixels, file size: 2.63 MB, MIME type: image/gif)
This is a file from the Wikimedia Commons. The description on its description page there is shown below.
|
- Animated GIF (640x480 pixels, 2752828 bytes) showing 4-dimensional balls stacked into a 4-dimensional pyramid (5x5x5x5), animated through successive 3-dimensional cross-sections.
- Versions: Original size. Smaller versions are Image:Pentatope of 70 spheres animation large.gif and Image:Pentatope of 70 spheres animation.gif.
- Author: Rendered by Blotwell using POV-Ray and converted with Adobe ImageReady.
[edit] POV-Ray source
// Pentatope of 70 spheres POV-Ray source by Blotwell // Uploaded to Wikimedia Commons // and released under GPL // // Render frames 0 through 43 (43 is blank) #max_trace_level 15 #declare sq = 1/sqrt(2); #declare T = ((clock-5)/4)*sq; #declare vx = <2,0,0>; #declare vy = <1,0,1>; #declare vw = <1,0,-1>; #declare vz = <1,sqrt(5/2),0>; #declare my_sphere_1 = sphere { <0,0,0>,1 pigment { color rgbf <.9,1,.9,.9> } finish { refraction 1 ior 1.2 } }; #declare my_sphere_2 = sphere { <0,0,0>,1 pigment { color rgbf <.9,.9,1,.9> } finish { refraction 1 ior 1.2 } }; #declare my_sphere_3 = sphere { <0,0,0>,1 pigment { color rgbf <1,1,.8,.9> } finish { refraction 1 ior 1.2 } }; #declare my_sphere_4 = sphere { <0,0,0>,1 pigment { color rgbf <1,.9,.9,.9> } finish { refraction 1 ior 1.2 } }; #declare my_sphere_5 = sphere { <0,0,0>,1 pigment { color rgbf <.9,.9,.9,.9> } finish { refraction 1 ior 1.2 } }; camera { location <-8,15,-12>-4*vz right <2/3,0,0> up <0,1/2,0> look_at 4*vz-<0,3,0> } light_source {vx*10+<0,10,0> color rgb <1,1,1>} light_source {vy*10+<0,10,0> color rgb <1,1,1>} plane { <0,1,0>, 0 finish {ambient 0.2} pigment { marble turbulence 1 color_map { [0.0 rgb 1] [0.9 rgb 0.9] [1.0 rgb <0.6,0.5,0.5>] } scale 6 } } plane { <0,-1,0>, -12 finish {ambient 1} pigment { color rgb <.6,.6,.8> } } union { #declare www=0; #while (www<5) #declare exe=0; #while (exe<5-www) #declare wye=0; #while (wye<5-www-exe) #declare tee=(www+wye)*sq*2; #if (tee-1<T) #if (tee+1>T) object {my_sphere_1 scale sqrt(1-(T-tee)*(T-tee)) translate y+www*vw+exe*vx+wye*vy} #end #end #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end #declare www=0; #while (www<4) #declare exe=0; #while (exe<4-www) #declare wye=0; #while (wye<4-www-exe) #declare tee=(www+wye)*sq*2+sq; #if (tee-1<T) #if (tee+1>T) object {my_sphere_2 scale sqrt(1-(T-tee)*(T-tee)) translate y+vz+www*vw+exe*vx+wye*vy} #end #end #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end #declare www=0; #while (www<3) #declare exe=0; #while (exe<3-www) #declare wye=0; #while (wye<3-www-exe) #declare tee=(www+wye)*sq*2+2*sq; #if (tee-1<T) #if (tee+1>T) object {my_sphere_3 scale sqrt(1-(T-tee)*(T-tee)) translate y+2*vz+www*vw+exe*vx+wye*vy} #end #end #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end #declare www=0; #while (www<2) #declare exe=0; #while (exe<2-www) #declare wye=0; #while (wye<2-www-exe) #declare tee=(www+wye)*sq*2+3*sq; #if (tee-1<T) #if (tee+1>T) object {my_sphere_4 scale sqrt(1-(T-tee)*(T-tee)) translate y+3*vz+www*vw+exe*vx+wye*vy} #end #end #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end #declare www=0; #while (www<1) #declare exe=0; #while (exe<1-www) #declare wye=0; #while (wye<1-www-exe) #declare tee=(www+wye)*sq*2+4*sq; #if (tee-1<T) #if (tee+1>T) object {my_sphere_5 scale sqrt(1-(T-tee)*(T-tee)) translate y+4*vz+www*vw+exe*vx+wye*vy} #end #end #declare wye=wye+1; #end #declare exe=exe+1; #end #declare www=www+1; #end }
This work is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or any later version. This work is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See version 2 and version 3 of the GNU General Public License for more details.
العربية | Català | Česky | Deutsch | Ελληνικά | English | Español | فارسی | Français | Italiano | 日本語 | Nederlands | Polski | Português | Русский | Slovenčina | Svenska | Türkçe | 中文(简体) | 中文(繁體) | +/- |
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Dimensions | User | Comment | |
---|---|---|---|---|
current | 07:23, 27 August 2005 | 640×480 (2.63 MB) | Blotwell | (Largest version of Image:Pentatope of 70 spheres animation.gif {{GFDL}}) |
File links
The following pages on the English Wikipedia link to this file (pages on other projects are not listed):