Kinect v2のジェスチャーでBing Mapsを未来的に直感操作する

リスト4：MainWindow.xaml.vbの一部 （リスト3の続き）

Private Sub myBodyFrameReader_FrameArrived(sender As Object, e As BodyFrameArrivedEventArgs)
    'CanvasBody.Children.Clear()
    Using myBodyFrame = e.FrameReference.AcquireFrame　　（1）
        If myBodyFrame Is Nothing = True Then
            Return
        End If
        myBodyFrame.GetAndRefreshBodyData(myBodies)　　（2）
    End Using
    CanvasBody.Children.Clear()　　　（3）
    For Each body In myBodies
        For Each joint In body.Joints　　　（4）
            If joint.Value.TrackingState = TrackingState.Tracked Then
                DrawEllipse(joint.Value, 10, Brushes.Transparent)　　　（5）
                If joint.Value.JointType = JointType.HandRight Then
                    If body.Joints(JointType.HandTipRight).TrackingState = TrackingState.Tracked Then
                        myColorSpacePoint = myKinect.CoordinateMapper.MapCameraPointToColorSpace(body.Joints(JointType.HandTipRight).Position)   （6）
                        myHandPositionX = CInt(myColorSpacePoint.X * 0.5) 'CInt((body.Joints(JointType.ThumbRight).Position.X))　　　（7）
                        myHandPositionY = CInt(myColorSpacePoint.Y * 0.5) 'CInt((body.Joints(JointType.ThumbRight).Position.Y))
                        DrawHandState(body.Joints(JointType.HandRight), body.HandRightState, body.HandRightConfidence)
                    End If
                End If
            End If
        Next
    Next
End Sub

リスト5：MainWindow.xaml.vbの一部（リスト4の続き）

Private Sub DrawHandState(joint As Joint, state As HandState, myTrackingConfidence As TrackingConfidence)
    If myTrackingConfidence <> TrackingConfidence.High Then
        Return
    End If
    If state = HandState.Open Then　　　（1）
        Index = 1
    ElseIf state = HandState.Closed Then　　　（2）
        Index = 2
    Else　　　　（3）
        Index = 3
    End If
End Sub

リスト6：MainWindow.xaml.vbの一部（リスト5の続き）

Private Sub DrawEllipse(myJoint As Joint, R As Integer, myBrush As Brush)
    Dim myEllipse = New Ellipse
    With myEllipse
        .Width = R
        .Height = R
        .Fill = myBrush
    End With

    point = myKinect.CoordinateMapper.MapCameraPointToDepthSpace(myJoint.Position)　（1）
    If point.X < 0 OrElse point.Y < 0 Then
        Return
    End If
    Canvas.SetLeft(myEllipse, point.X - (R / 2))　　　（2）
    Canvas.SetTop(myEllipse, point.Y - (R / 2))
    If myJoint.JointType = JointType.HandRight Then
        Select Case Index　　　（3）
            Case 1
                myMap.ZoomLevel += 0.1
            Case 2
                myMap.ZoomLevel -= 0.1
            Case 3
                Index = 0
                Exit Sub
        End Select
    End If
    CanvasBody.Children.Add(myEllipse)
End Sub

リスト7：MainWindow.xaml.vbの一部（リスト6の続き）

Private Sub MainWindow_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    If myKinect Is Nothing = False Then
        myKinect.Close()
        myKinect = Nothing
    End If
End Sub
End Class