Comparação dinâmica de duas imagens: Novos Recursos do Wolfram Language 11

Comparação dinâmica de duas imagens

Compare duas imagens de satélite de Veneza, Itália, usando uma interface gráfica interativa de usuário baseada em dois objetos acoplados de DynamicImage. A apresentação da esquerda mostra uma imagem de radar feita pelo satélite Sentinel-1 da ESA no dia 10 de maio de 2016; a da direita é uma fotografia ótica feita pelo Sentinel-2 no dia 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 click+drag em uma das imagens para deslocar, e Shift+click+drag verticalmente para ampliar e reduzir a imagem. Mova a barra de rolagem para mudar o recorte.

mostre o input completo da 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}
    ]
   }]
 ]