Skip to main content
2 of 3
added 6 characters in body
Niki Estner
  • 36.4k
  • 3
  • 92
  • 156

You can use your Disk (or any grayscale image) as an alpha channel:

img = ExampleData[{"TestImage", "Lena"}];

disk = Graphics[Disk[]];

diskImg = 
  ColorConvert[Rasterize[disk, ImageSize -> ImageDimensions[img]], 
   "Grayscale"];

face = ColorCombine[{img, ColorNegate@diskImg}, "RGB"]

enter image description here

Then you can use Inset to place it like other graphics primitives:

Graphics[{
  Table[
   Inset[face, {Cos[i*10 \[Degree]], Sin[i*10 \[Degree]]}*50, {256, 
     256}, 5 + i*1], {i, 10}]}]

enter image description here

Niki Estner
  • 36.4k
  • 3
  • 92
  • 156