Динамическое сравнение двух изображений: Новое в системе Wolfram Language 11

Динамическое сравнение двух изображений

Сравним два спутниковых изображения Венеции, используя интерактивный графический пользовательский интерфейс, основанный на двух связанных динамических объектах типа DynamicImage. На левом дисплее отображается радиолокационное изображение, снятое спутником ЕКА Сентинел-1 10 мая 2016 года; на дисплее справа - оптическая фотография, сделанная Сентинел-2 29 апреля 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"]
   };

Используйте нажатие кнопки мыши+перетаскивание изображения для панорамирования и Shift+нажатие кнопки мыши+перетаскивание, чтобы увеличить или уменьшить масштаб. Перемещайте полосу прокрутки, чтобы изменить кадрирование.

код на языке 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}
    ]
   }]
 ]