Kinect v2で実現する打楽器のバーチャル演奏

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

Private Sub myColorFrameReader_FrameArrived(sender As Object, e As ColorFrameArrivedEventArgs)
        Dim colorFrameProcessed As Boolean = False
        Using myColorFrame As ColorFrame = e.FrameReference.AcquireFrame　　　（1）
            If myColorFrame Is Nothing = False Then
                Dim myColorFrameDescription As FrameDescription = myColorFrame.FrameDescription　　　（2）
                If myColorFrameDescription.Width = colorBitmap.PixelWidth AndAlso myColorFrameDescription.Height = colorBitmap.PixelHeight Then
                    If myColorFrame.RawColorImageFormat = ColorImageFormat.Bgra Then　　　（3）
                        myColorFrame.CopyRawFrameDataToArray(ColorImagePixelData)
                    Else
                        myColorFrame.CopyConvertedFrameDataToArray(ColorImagePixelData, ColorImageFormat.Bgra)
                    End If
                    colorFrameProcessed = True　　　（4）
                End If
            End If
        End Using
        If colorFrameProcessed = True Then
            colorBitmap.WritePixels(New Int32Rect(0, 0, colorBitmap.PixelWidth, colorBitmap.PixelHeight), ColorImagePixelData, colorBitmap.PixelWidth * BytesPerPixel, 0) 　　　（5）
            roomImage.Source = colorBitmap　　　（6）
        End If
End Sub

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

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
            Index = 0　　　（1）
        ElseIf state = HandState.Closed Then
            If point.X > Image1.GetValue(Canvas.LeftProperty) And point.X < Image1.GetValue(Canvas.LeftProperty) + Image1.Width AndAlso point.Y > Image1.GetValue(Canvas.TopProperty) And point.Y < Image1.GetValue(Canvas.TopProperty) + Image1.Height Then
                Index = 1
            End If
            If point.X > Image2.GetValue(Canvas.LeftProperty) And point.X < Image2.GetValue(Canvas.LeftProperty) + Image2.Width AndAlso point.Y > Image2.GetValue(Canvas.TopProperty) And point.Y < Image2.GetValue(Canvas.TopProperty) + Image2.Height Then
                Index = 2
            End If
        End If
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

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

Private Sub DrawEllipse(myJoint As Joint, R As Integer, myBrush As Brush)
        Dim myEllipse = New Ellipse
        With myEllipse　　　（1）
            .Width = R
            .Height = R
            .Fill = myBrush
        End With
        point = myKinect.CoordinateMapper.MapCameraPointToDepthSpace(myJoint.Position)　（2）
        If point.X < 0 OrElse point.Y < 0 Then
            Return
        End If
        Canvas.SetLeft(myEllipse, point.X - (R / 2))　　　（3）
        Canvas.SetTop(myEllipse, point.Y - (R / 2))
        If myJoint.JointType = JointType.HandRight Then
            'TextBlock1.Text = Index
            Select Case Index
                Case 1
                    MediaElement1.Play()
                Case 2
                    MediaElement2.Play()
            End Select
        End If
        CanvasBody.Children.Add(myEllipse)
End Sub

リスト9：（MainWindow.xaml.vbの一部、リスト8の続き）

Private Sub MediaElement1_MediaEnded(sender As Object, e As RoutedEventArgs) Handles MediaElement1.MediaEnded
        MediaElement1.Close()
End Sub

Private Sub MediaElement2_MediaEnded(sender As Object, e As RoutedEventArgs) Handles MediaElement2.MediaEnded
        MediaElement2.Close()
End Sub
End Class