Raspberry Pi

f[x_, y_] := 2 x^2 + y^2 (2 + Tanh[y]);
pts = Select[RandomReal[{-1, 1}, {200, 2}], f @@ # < 1 &];
rs = RandomReal[{0.2, 0.3}, Length[pts]];
Show[Graphics[{EdgeForm[RGBColor[0.4, 0.05, 0.05]],
   FaceForm[RGBColor[0.811, 0.137, 0.407]],
   Disk @@ # & /@ Transpose[{pts, rs}]}],
 ParametricPlot[
  r (1 + Sin[3 \[Theta]]) (1 +
      Cos[2 \[Theta]]/3) {Cos[\[Theta] + 0.1],
     Sin[\[Theta] + 0.1]} + {0, 0.8}, {\[Theta], 0, 2 Pi}, {r, 0,
   0.4}, Axes -> None, Mesh -> False, BoundaryStyle -> None,
  PlotStyle -> Green]
 ]