Comparación dinámica de dos imágenes: Nuevo en Wolfram Language 11

Comparación dinámica de dos imágenes

Compare dos imágenes de satélite de Venecia, Italia, usando una interfaz gráfica interactiva de usuario, basada en dos objetos acoplados de DynamicImage. La presentación de la izquierda muestra una imagen de radar tomada por el satélite Sentinel-1 de ESA el 10 de mayo de 2016; la de la derecha es una fotografía óptica tomada por Sentinel-2 el 29 de abril de 2016.

In[1]:=

{img1, img2} = {
   Import[
    "https://earth.esa.int/documents/257246/2546936/Venice-Sentinel-1-\
10052016.jpg"],
   Import[
    "https://earth.esa.int/documents/257246/2546936/Venice-Sentinel-2-\
29042016.jpg"]
   };

Use clic+arrastrar en una de las imágenes para desplazarse y Shift+clic+arrastrar verticalmente para ampliar y reducir la imagen. Mueva la barra de desplazamiento para cambiar el recorte.

muestre la entrada completa de Wolfram Language

In[2]:=

DynamicModule[
 {x, y, s},
 Row[{
   DynamicImage[
    img1,
    ZoomCenter -> Dynamic[Scaled[{x, y}]], 
    ZoomFactor -> Dynamic[s],
    AppearanceElements -> {"Pan", "Scrollbars", "ZoomButtons", "Zoom"},
    ImageSize -> {240, 360}
    ],
   DynamicImage[
    img2,
    ZoomCenter -> Dynamic[Scaled[{x, y}]],
    ZoomFactor -> Dynamic[s],
    AppearanceElements -> {"Pan", "Scrollbars", "ZoomButtons", "Zoom"},
    ImageSize -> {240, 360}
    ]
   }]
 ]