¿Cómo controlar el tamaño de las imágenes y los gráficos?

Question

He estado teniendo problemas para organizar los elementos gráficos correctamente. He aquí un ejemplo:

im1 = Import["http://upload.wikimedia.org/wikipedia/commons/5/5c/London_2010_Tower_Bridge.jpg"]; 
GraphicsRow[{im1, ImageAdd[im1, Graphics[Disk[]]], Graphics[Disk[]]}] 

Los círculos se especifican tanto de la misma manera, pero muestran a diferentes escalas, por lo que el diagrama que intenta mostrar cómo funciona no es muy satisfactoria. Obviamente, se escala para que coincida con la imagen, pero no puedo ver por qué no aparecen del mismo tamaño. es similar a GraphicsRow pero me da el mismo problema.

Answer 1

El problema se produce porque en la pantalla, el disco utilizado en la máscara tiene un diámetro igual a la altura de la imagen, mientras que el disco independiente tiene un diámetro igual al ancho de la imagen. Puede corregir esto especificando el tamaño del disco de forma explícita.

im1 = Import[ 
    "http://upload.wikimedia.org/wikipedia/commons/5/5c/London_2010_\ 
Tower_Bridge.jpg"]; 
disk = Graphics[Disk[], ImageSize -> ImageDimensions@im1]; 
GraphicsRow[{im1, ImageAdd[im1, disk], disk}, Spacings -> 0, ImageSize -> Full] 

Answer 2

Hay relleno alrededor de las imágenes y ninguno alrededor del disco negro. Al conocer la relación de aspecto de la imagen importada (obtenido de ImageDimensions), y mediante el establecimiento de un tamaño específico para GraphicsRow y para el disco negro, se puede controlar la apariencia:

GraphicsRow[{im1, ImageAdd[im1, Graphics[Disk[]]], 
    Graphics[Disk[], ImageSize -> 90, ImagePadding -> 15]}, 
ImageSize -> 360, Spacings -> 0] 

Answer 3

Otra opción sería la de envolver el imágenes en un Pane con ancho automático y altura fija, por ejemplo

Row[Pane[#, {Automatic, 200}] & /@ 
{im1, ImageAdd[im1, Graphics[Disk[]]], Graphics[Disk[]]}]