File:Pentagonal-fractals-3.svg
Summary
| Description |
Three iterations of three separate fractal series, each of which starts from a regular pentagon.
|
| Date | |
| Source |
Self-made graphic, converted from a version of the following three-page vector PostScript source code: %!
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 |
| Author | AnonMoos |
Licensing
| I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. |