2つの画像の動的な比較: Wolfram言語 11の新機能

2つの画像の動的な比較

対になった2つのDynamicImageオブジェクトに基づくインタラクティブなグラフィカルユーザインターフェースを使って，イタリアのベニスの衛星画像2つを比べる．左の画像は，2016年5月10日に欧州宇宙機関の人工衛星Sentinel-1によって撮られたレーダー画像であり，右の画像は，2016年4月29日にSentinel-2によって撮られた光学写真である．

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言語入力を表示する

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}
    ]
   }]
 ]