MAKE A MEME
View Large Image
| View Original: | Pentagonal-fractals-3.svg (765x724) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Pentagonal-fractals-3.svg Three iterations of three separate fractal series each of which starts from a regular pentagon On top red Fractal shapes derived by iteratively placing five smaller pentagons in inverse color along the edges of a pentagon inside it In the middle green fractal shapes derived by iteratively replacing a pentagon with six smaller pentagons one central five peripheral At bottom blue fractal shapes derived by iteratively replacing a pentagon with six smaller pentagons where the five peripheral smaller pentagons are the same color while the central smaller pentagon is inverse color For a variation on the top red fractal see File Pentagonal-fractal-example svg For another depiction of the middle green fractal see File Penta plexity png Self-made graphic converted from a version of the following three-page vector PostScript source code <pre> 306 396 translate 4 dup scale/D 52 57315251 def/plr dup 3 2 roll 72 mul 90 add dup 3 1 roll cos mul 3 1 roll sin mul def/P 4 D plr 3 D plr 2 D plr 1 D plr 0 D plr moveto 4 lineto repeat closepath fill def P gsave 1 setgray 5 gsave 2 5 D 1 7508 div plr translate 294 dup scale P 0 setgray 5 gsave 2 5 D 1 7508 div plr translate 294 dup scale P 1 setgray 5 gsave 2 5 D 1 7508 div plr translate 294 dup scale P grestore 72 rotate repeat grestore 72 rotate repeat grestore 72 rotate repeat grestore showpage 306 396 translate 0 3068125350855 dup scale /A 38 196601125 def/B 61 803398875 def/C 161 803398875 def/P 4 5 A plr 3 5 A plr 2 5 A plr 1 5 A plr 0 5 A plr moveto 4 lineto repeat closepath fill def/Q 4 A plr 3 A plr 2 A plr 1 A plr 0 A plr moveto 4 lineto repeat closepath fill def 0 1 4 gsave 423 60679775 plr translate 0 1 4 gsave C plr translate 0 1 4 gsave B plr translate Q grestore P for grestore for 0 5 1 4 5 gsave B plr translate P grestore Q for grestore for 0 1 4 gsave B plr translate Q grestore for P 0 5 1 4 5 gsave C plr translate 0 5 1 4 5 gsave B plr translate P grestore for Q grestore for showpage 306 396 translate 0 3068125350855 dup scale 0 1 4 gsave 423 60679775 plr translate 0 1 4 gsave C plr translate 0 1 4 gsave B plr translate Q grestore for grestore for gsave 4 5 100 plr 3 5 100 plr 2 5 100 plr 1 5 100 plr 0 5 100 plr moveto 4 lineto repeat closepath fill grestore 0 5 1 4 5 gsave B plr translate 1 setgray P grestore for grestore for gsave/X 261 803398875 def 4 5 X plr 3 5 X plr 2 5 X plr 1 5 X plr 0 5 X plr moveto 4 lineto repeat closepath fill grestore 1 setgray 0 5 1 4 5 gsave C plr translate 0 5 1 4 5 gsave B plr translate P grestore for grestore for gsave 1 setgray 4 100 plr 3 100 plr 2 100 plr 1 100 plr 0 100 plr moveto 4 lineto repeat closepath fill grestore 0 setgray 0 1 4 gsave B plr translate Q grestore for showpage EOF</pre> 2009 AnonMoos Regular pentagons Pentagonal fractals Koch snowflakes Images with PostScript source code Order 4 | ||||
