%!
%%%%%%%%%%%%%%%%
% 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 3 def  % number of circles along each side of hexagon
/diam 78 def    % radius of each circle
/linew 1.89 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 0 0 hexsize 3 sqrt 12 div add diam mul 0 360 arc stroke
grestore showpage
%EOF