Generado mediante el siguiente código fuente PostScript vectorial:
%!%%%%%%%%%%%%%%%%% Programa PostScript para mostrar el patrón de la "flor de la vida" (es decir% patrón hexagonal de círculos que se cruzan, donde el centro de% cada círculo está en la circunferencia de otros seis círculos).%%% Parámetros:/hexsize 1 def % número de círculos a lo largo de cada lado del hexágono/diam 78 def % radio de cada círculo/linew 1.8 def % del espesor de cada círculo%%% Procedimientos:gsave 306 396 % cambio a 297 421 para centrar en papel tamaño A4traducir 30 rotar línea establecer ancho de línea/j tamaño hexadecimal 1 sub def j neg 1j{/k exch def/yk diámetro mul .75 raíz cuadrada mul def/ijjk abs sub adddef gsave i 2 div diam mul neg 0 traducir 0 1 i{/z intercambiar def zdiam mul y diam 0 360 carrera de arco z 0 ne zi ne and{kj 1 sub eq{zdiam mul y 2 diam mul .75 sqrt mul add diam 180 360 arco de carrera}sikj 1 sub neg eq{z diámetro mul y 2 diámetro mul .75 raíz cuadrada mul sub diámetro 0180 carrera de arco}si z 1 eq k 0 ge kj ne y y{z 1.5 sub diam muly .75 sqrt diam mul add diam -120 60 arco de carrera}si z 1 eq k 0 le kj neg ne y y{z 1.5 sub diam mul y .75 sqrt diam mul sub diam-60 120 carrera de arco}si zi 1 sub eq k 0 ge kj ne y y{z 1.5 sumadiam mul y .75 sqrt diam mul agregar diam 120 300 carrera de arco}si zi 1sub eq k 0 le kj neg ne y y{z 1.5 add diam mul y .75 sqrtdiam mul sub diam 60 240 carrera de arco}si}si z 0 eq kj eq y{z .5sub diam mul y .75 sqrt diam mul agregar diam -120 0 carrera de arco}if zieq kj eq y{z .5 suma diámetro mul y .75 sqrt diámetro mul suma diámetro -180-60 carrera de arco}si z 0 eq k 0 eq y{z 1 sub diam mul y diam -60 60arco de recorrido}si zi eq k 0 eq y{z 1 suma diam mul y diam 120 240arco de trazo}si z 0 eq kj neg eq y{z .5 sub diam mul y .75 sqrtdiam mul sub diam 0 120 carrera de arco}si zi eq kj neg eq y{z .5añadir diam mul y .75 sqrt diam mul sub diam 60 180 carrera de arco}si kjeq{z diam mul y diam 3 sqrt mul add diam 240 300 arco de carrera}if kjneg eq{z diam mul y diam 3 sqrt mul sub diam 60 120 arco de carrera}ifk 0 ge z 0 eq y{z 1.5 sub diam mul y diam .75 sqrt mul add diam-60 0 carrera de arco}si k 0 le z 0 eq y{z 1.5 sub diam mul y diam.75 sqrt mul sub diam 0 60 arco de carrera}si k 0 ge zi eq y{z 1.5añadir diámetro mul y diámetro .75 sqrt mul añadir diámetro 180 240 carrera de arco}si k0 le zi eq y{z 1.5 suma diámetro mul y diámetro .75 sqrt mul sub diámetro120 180 arco de carrera}si}para grestore}para 0 0 hexsize diam mul 0 360Página de presentación de Grestore con trazo de arco% EFF