マウス・カーソルで指定した画像の一部を拡大表示するLeap Motionプログラム

具体的にはリスト5のコードになります。
リスト5 タッチとタッチ以外の処理
If Pointable.TouchDistance > 0 AndAlso Pointable.TouchZone <> Global.Leap.Pointable.Zone.ZONENONE Then ……コード略(前述)…… ElseIf Pointable.TouchDistance <= 0 Then touchIndicator.Color = Colors.Red If FingersCount = 1 Then SetCursorPos(touchPoint.X, touchPoint.Y) ' タッチ・ポイントとカーソルの位置を同じ位置に表示する。 apimouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) ' マウスをクリックした処理 apimouse_event(MOUSEEVENTF_MOVE, 0, 0, 0, 0) ' マウスを動かした処理 End If If FingersCount = 5 Then zoomImage.Visibility = Windows.Visibility.Collapsed End If ' タッチ対象外 Else touchIndicator.Color = Colors.Gold End If Next End Sub
sourceImage_MouseLeftButtonDownメソッド(タッチ・ポイントが赤になった時)の処理
次はsourceImage(元の小さな画像)をタッチした時の処理です。
zoomImage(拡大された画像)を表示します。
sourceImageの相対的なマウス・ポインターのX位置を取得してメンバー変数ImageXに格納します。
sourceImageの相対的なマウス・ポインターのY位置を取得してメンバー変数ImageYに格納します。
ImageXとImageYを引数にLensPositionメソッドを実行します(リスト6)。
リスト6 sourceImage__MouseLeftButtonDownメソッドの処理
Private Sub sourceImage_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs) Handles sourceImage.MouseLeftButtonDown zoomImage.Visibility = Windows.Visibility.Visible ImageX = e.GetPosition(sourceImage).X ImageY = e.GetPosition(sourceImage).Y LensPosition(ImageX, ImageY) ' LensPositionメソッドの実行 End Sub
sourceImage_MouseMoveメソッドの処理
次はsourceImage(元の小さな画像)の上でマウス・カーソルが動いた時の処理です。
sourceImageの相対的なマウス・ポインターのX位置を取得してメンバー変数ImageXに格納します。
sourceImageの相対的なマウス・ポインターのY位置を取得してメンバー変数ImageYに格納します。
ImageXとImageYを引数にLensPositionメソッドを実行します(リスト7)。
リスト7 sourceImage_MouseMoveメソッドの処理
Private Sub sourceImage_MouseMove(sender As Object, e As MouseEventArgs) Handles sourceImage.MouseMove ImageX = e.GetPosition(sourceImage).X ImageY = e.GetPosition(sourceImage).Y LensPosition(ImageX, ImageY) ' LensPositionメソッドの実行 End Sub
sourceImage_MouseLeftButtonUp(タッチ・ポイントが青になった時(ホバー状態))の処理
次はsourceImage(元の小さな画像)がホバー状態になった時の処理です。
拡大表示されていたzommImageを非表示にします(リスト8)。
リスト8 sourceImage_MouseLeftButtonUpメソッドの処理
Private Sub sourceImage_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles sourceImage.MouseLeftButtonUp zoomImage.Visibility = Windows.Visibility.Collapsed End Sub
LensPositionメソッドの処理
最後は、マウス・カーソルの動きに合わせて、その部分が拡大される処理です。
Lensという名前を持つ、EllipseGeometryのCenterプロパティに、メンバー変数ImageXとImageYを指定します(リスト9)。
リスト9 LensPositionメソッドの処理
Private Sub LensPosition(x As Double, y As Double) Lens.Center = New Point(ImageX, ImageY) End Sub
※注意
今回紹介したサンプルコードを動かす際には、「LeapCSharp.NET4.0.dll」や「LeapCSharp.dll」、「Leap.dll」を読者の皆さん自身のフォルダ内にあるDLLファイルに指定し直さなければ動かない可能性があるので、動かない場合は再指定して下さい。
マウス・カーソルで指定した画像の一部を拡大表示するLeap Motionプログラム
『新世代モーションコントローラー Leap Motion -Visual Basicによる実践プログラミング-』 第5回のサンプルプログラムです。
連載バックナンバー
Think ITメルマガ会員登録受付中
全文検索エンジンによるおすすめ記事
- Leap Motionで画像のトリミングと保存を行うためのサンプルプログラムを作る
- 手の動きに合わせて画面上のキャラクターを操作するLeap Motionプログラムを作る
- 画面に並んだ写真が指の動きに反応して回転するLeap Motionプログラムを作る
- 写真を突っついて一覧から削除、並び替えするLeap Motionプログラムを作る
- 選択した画像を指の動きに合わせて回転させるLeap Motionプログラムを作る
- 張子の虎をキー・タップすると頭が上下に動くLeap Motionプログラムを作る
- 好きな写真を指で選んで順番に拡大表示するLeap Motionプログラムを作る
- Leap Motionのスクリーン・タップを使った音声の再生と画像の表示
- 画面上の図形を5本の指で操作する基本的なLeap Motionプログラムを作る
- 虫眼鏡でズームするサンプルとその応用