Mathematica 263バイト
@MartinEnderの投稿にはあまり競争力がありませんが、それでも私はこれを楽しんでいました。花びらにランダムウォークをさせます!花びらは、ランダムに選択されたエンドポイントの1つをランダムに60度回転して歩きます。花びらの回転端が大きな円盤の外側にあるかどうかをテストし、そうであれば、回転は逆になります。
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}]}
これが、アニメーションに使用した後続のコードです。
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}]]
2次元のランダムウォークは最終的に原点に戻らなければならないことをどこかで読みました。数千ステップで大容量ディスクの充填が保証されるようです。