1
$\begingroup$

enter image description here

Inspired by this, I'm using Graphicis to generate such a image, but it return

enter image description here

I want every disk to be the same color. How to modify to make it work? Using image related functions is OK, DiskMatrix etc.

Graphics[Table[{{Opacity[0.5],White,Disk[{0,0},11.25]},
  {RGBColor[{136,28,255}/255],Disk[{x,y},0.25]}},{x,-15,15},{y,-15,15}],
     Background->Yellow, PlotRangePadding->None]
$\endgroup$
2
$\begingroup$

Take the large disk outside Table use Opacity[1]:

Graphics[{Opacity[1], White, Disk[{0, 0}, 11.25], 
  Table[{{RGBColor[{136, 28, 255}/255], Disk[{x, y}, 0.25]}},
    {x, -15,  15}, {y, -15, 15}]}, 
   Background -> Yellow, PlotRangePadding -> None]

enter image description here

$\endgroup$
  • $\begingroup$ I want every disk to be the same color. $\endgroup$ – mathe Jun 14 at 12:14
  • $\begingroup$ @mathe, please see the updated version. $\endgroup$ – kglr Jun 14 at 12:21

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.