From Wikipedia, the free encyclopedia
No higher resolution available.RozetaSolarSymbol.png (601 × 600 pixels, file size: 17 KB, MIME type: image/png)
[edit] Summary
Generated by means of the following vector PostScript source code:
%!
%%%%%%%%%%%%%%%%
% PostScript program to display the "flower of life" pattern (i.e.
% hexagonal pattern of intersecting circles, where the center of
% each circle is on the circumference of six other circles).
%%% Parameters:
/hexsize 1 def % number of circles along each side of hexagon
/diam 78 def % radius of each circle
/linew 1.8 def % thickness of each circle
%%% Procedures:
gsave 306 396 % change to 297 421 to center on A4 size paper
translate 30 rotate linew setlinewidth/j hexsize 1 sub def j neg 1
j{/k exch def/y k diam mul .75 sqrt mul def/i j j k abs sub add
def gsave i 2 div diam mul neg 0 translate 0 1 i{/z exch def z
diam mul y diam 0 360 arc stroke z 0 ne z i ne and{k j 1 sub eq{z
diam mul y 2 diam mul .75 sqrt mul add diam 180 360 arc stroke}if
k j 1 sub neg eq{z diam mul y 2 diam mul .75 sqrt mul sub diam 0
180 arc stroke}if z 1 eq k 0 ge k j ne and and{z 1.5 sub diam mul
y .75 sqrt diam mul add diam -120 60 arc stroke}if z 1 eq k 0 le k
j neg ne and and{z 1.5 sub diam mul y .75 sqrt diam mul sub diam
-60 120 arc stroke}if z i 1 sub eq k 0 ge k j ne and and{z 1.5 add
diam mul y .75 sqrt diam mul add diam 120 300 arc stroke}if z i 1
sub eq k 0 le k j neg ne and and{z 1.5 add diam mul y .75 sqrt
diam mul sub diam 60 240 arc stroke}if}if z 0 eq k j eq and{z .5
sub diam mul y .75 sqrt diam mul add diam -120 0 arc stroke}if z i
eq k j eq and{z .5 add diam mul y .75 sqrt diam mul add diam -180
-60 arc stroke}if z 0 eq k 0 eq and{z 1 sub diam mul y diam -60 60
arc stroke}if z i eq k 0 eq and{z 1 add diam mul y diam 120 240
arc stroke}if z 0 eq k j neg eq and{z .5 sub diam mul y .75 sqrt
diam mul sub diam 0 120 arc stroke}if z i eq k j neg eq and{z .5
add diam mul y .75 sqrt diam mul sub diam 60 180 arc stroke}if k j
eq{z diam mul y diam 3 sqrt mul add diam 240 300 arc stroke}if k j
neg eq{z diam mul y diam 3 sqrt mul sub diam 60 120 arc stroke}if
k 0 ge z 0 eq and{z 1.5 sub diam mul y diam .75 sqrt mul add diam
-60 0 arc stroke}if k 0 le z 0 eq and{z 1.5 sub diam mul y diam
.75 sqrt mul sub diam 0 60 arc stroke}if k 0 ge z i eq and{z 1.5
add diam mul y diam .75 sqrt mul add diam 180 240 arc stroke}if k
0 le z i eq and{z 1.5 add diam mul y diam .75 sqrt mul sub diam
120 180 arc stroke}if}for grestore}for 0 0 hexsize diam mul 0 360
arc stroke grestore showpage
%%EOF
[edit] Licensing
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Dimensions | User | Comment |
current | 12:18, 26 September 2006 | 601×600 (17 KB) | AnonMoos | |
| 08:54, 26 September 2006 | 240×240 (17 KB) | Reguly | |
File links
The following pages on the English Wikipedia link to this file (pages on other projects are not listed):