Le défi ici est de représenter avec précision la fleur de la vie (qui est selon certains une figure géométrique sacrée) dans la langue de votre choix.

La conception consiste en un arrangement de cercles et de cercles partiels de rayon 1, comme illustré, dont les centres sont disposés sur une grille triangulaire de pas 1, plus un plus grand cercle de rayon 3 qui les entoure.

La conception peut être mise à l'échelle comme vous le souhaitez, mais une erreur maximale de 2% par rapport à mathématiquement correcte est autorisée. Si vous utilisez des graphiques raster, cela limite efficacement le diamètre des petits cercles à au moins environ 100 pixels.

Puisqu'il s'agit de code-golf, le code le plus court (octets) gagne.

Mathematica, 177 173 128 124 120 120 octets

c=Circle;Graphics@{{0,0}~c~3,Rotate[Table[If[-3<x-y<4,c[{√3x,-x+2y}/2,1,Pi/{6,2}]],{x,-3,2},{y,-4,2}],Pi/3#]&~Array~6}

L'idée principale est de composer le résultat de six versions tournées de ceci:

Ceci est à son tour une table rectangulaire d'arcs de cercle identiques avec deux coins coupés. Si nous supprimons le cisaillement et représentons chaque centre de cercle avec un #, nous voulons essentiellement répartir les cercles dans ce modèle:

####
#####
######
######
 #####
  ####

Ces arêtes sont coupées en imposant la condition -3 < x-y < 4aux indices 2D (puisque la valeur de x-yest constante le long des diagonales) et le cisaillement provient de leur multiplication xet yde vecteurs de base non orthogonaux qui couvrent la grille que nous recherchons.

Cette orientation particulière des arcs non tournés se révèle être la plus courte car les deux extrémités de l'arc se divisent uniformément de Pisorte que l'arc peut être exprimé comme Pi/{6,2}(tous les autres arcs nécessiteraient soit un signe moins supplémentaire soit des nombres entiers dans le numérateur).

OpenSCAD, 228 octets

$fn=99;module o(a=9){difference(){circle(a);circle(a-1);}}function x(n)=9*[sin(n*60),cos(n*60)];module q(g){for(i=[1:6])if(g>0){translate(x(i))union(){o();q(g-1);}}else{intersection(){translate(x(i))o();circle(9);}}}q(2);o(27);

Ce qui suit est une version permettant à quelqu'un de définir les paramètres r (rayon) et w (largeur des anneaux).

r=1;w=.1;$fn=99;module o(n){difference(){circle(n);circle(n-w);}}function x(n)=(r-w/2)*[sin(n*60),cos(n*60)];module q(g){for(i=[1:6])if(g>0){translate(x(i))union(){o(r);q(g-1);}}else{intersection(){translate(x(i))o(r);circle(r);}}}q(2);o(3*r-w);

Cette version contient xactly 246 caractères.
Une partie de ce code est techniquement inutile mais le fait ressembler davantage à l'image.

Mathematica 263 octets

Pas vraiment compétitif avec la soumission de @ MartinEnder mais je me suis quand même amusé avec ça. Je laisse les pétales marcher au hasard! Le pétale marche en tournant de 60 degrés au hasard autour de l'un des points d'extrémité qui est également choisi au hasard. Je teste pour voir si l'extrémité rotative du pétale tombe à l'extérieur du grand disque, et si c'est le cas, la rotation va dans l'autre sens.

c=Circle;a=√3;v={e=0{,},{0,2}};f=RandomChoice;Graphics@{e~c~6,Table[q=f@{1,2};t=f@{p=Pi/3,-p};r=RotationTransform[#,v[[q]]]&;v=r[If[r[t]@v[[-q]]∈e~Disk~6,t,-t]]@v;Translate[Rotate[{c[{1,a},2,p{4,5}],c[{1,-a},2,p{1,2}]},ArcTan@@(#-#2)&@@v,e],v[[2]]],{5^5}]}

Voici le code suivant que j'ai utilisé pour l'animation.

Export[NotebookDirectory[]<>"flower.gif", Table[Graphics[Join[{c[e,6]},(List@@%)[[1,2,1;;n-1]],{Thick,Red,(List@@%)[[1,2,n]]}]],{n,1,3^4,1}]]

J'ai lu quelque part que les promenades aléatoires en 2 dimensions doivent finalement revenir à l'origine. Il semble que quelques milliers d'étapes garantissent le remplissage du grand disque.

JavaScript (ES6) / SVG, 299 octets

with(document){write(`<svg height=250 width=250><circle${b=` fill=none stroke=black `}cx=125 cy=125 r=120 />`);for(i=0;i<24;i++)write(`<path${b}d=M5,125${`${a=`a60,60,0,0,1,`}40,0`.repeat(i%4+3)+`${a}-40,0`.repeat(i%4+3)} transform=${`rotate(60,125,125)`.repeat(i>>2)}rotate(-60,${i%4*4}5,125) />`)}

Fonctionne en générant plusieurs paires d'arc de différentes longueurs puis en les faisant pivoter en place.