Round image corners

Question

I just read StackExchange blog It’s OK to Ask and Answer Your Own Questions which even encourages it and decided to ask about a problem I now know how to solve. But I found an elegant answer only recently (and will post it now below), much inspired by this very site and answers I'm trying to understand.

Q: I would like to round the corners of an image into circular arcs of some radius before I upload it to a blog.

Test image:

enter image description here

score 1 · Answer 1 · answered Apr 05 '13 at 21:40

round[i_, r_] :=
 Module[{w, h},
  {w, h} = ImageDimensions@i;
  With[{
    f = Reverse,
    p = PadRight[DiskMatrix[r][[;; r, ;; r]], {h, w}, 1]},
   i~ImageAdd~ColorNegate@Image[p f /@ p f@p f[f /@ p]]]]

img = Import@"https://i.stack.imgur.com/f1gur.jpg";

img~round~20

finemanround

Round image corners

1 Answers1