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. |