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

リスト2：（MainWindow.xaml.vbの一部）

Imports Microsoft.Kinect
Imports System.ComponentModel
Public Class MainWindow

Private myKinect As KinectSensor
Private myBodyFrameReader As BodyFrameReader
Private myBodies As Body()
Private myHandPositionX As Double
Private myHandPositionY As Double
Private myColorSpacePoint As ColorSpacePoint　　　（1）

Private myBytesPerPixel As Integer = 4
Private myColorFrameReader As ColorFrameReader = Nothing
Private colorBitmap As WriteableBitmap = Nothing
Private ColorImagePixelData As Byte()
Private BytesPerPixel As Integer = 4
Private commonJoint As Joint　　　（2）
Private point As DepthSpacePoint　　　（3）

Private Index As Integer = 0
Private no As Integer = 0

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

Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        myKinect = KinectSensor.GetDefault　　　（1）
        If myKinect Is Nothing = False Then
             Dim myDepthDescription = myKinect.DepthFrameSource.FrameDescription　　　（2）
            myKinect.Open()　　　（3）
            myBodyFrameReader = myKinect.BodyFrameSource.OpenReader　（4）
            AddHandler myBodyFrameReader.FrameArrived, AddressOf myBodyFrameReader_FrameArrived　　　（5）
            myBodies = New Body(myKinect.BodyFrameSource.BodyCount - 1) {}　　　（6）
            myColorFrameReader = myKinect.ColorFrameSource.OpenReader　（7）
            Dim myColorFrameDescripton As FrameDescription = myKinect.ColorFrameSource.CreateFrameDescription(ColorImageFormat.Bgra)
            ColorImagePixelData = New Byte(myColorFrameDescripton.Width * myColorFrameDescripton.Height * BytesPerPixel - 1) {}　　　（8）
            colorBitmap = New WriteableBitmap(myColorFrameDescripton.Width, myColorFrameDescripton.Height, 96.0, 96.0, PixelFormats.Bgr32, Nothing)　（9）
            AddHandler myColorFrameReader.FrameArrived, AddressOf myColorFrameReader_FrameArrived　　　（10）
        End If
End Sub

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

Private Sub myBodyFrameReader_FrameArrived(sender As Object, e As BodyFrameArrivedEventArgs)
        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)
                            myHandPositionY = CInt(myColorSpacePoint.Y * 0.5)　　　（7）
                            DrawHandState(body.Joints(JointType.HandRight), body.HandRightState, body.HandRightConfidence)　　　（8）
                        End If
                    End If
                 End If
            Next
        Next
End Sub