Estrutura Quaternion

<!-- Trigger the rotation animation when the 3D object loads. -->
<Viewport3D.Triggers>
  <EventTrigger RoutedEvent="Viewport3D.Loaded">
    <BeginStoryboard>
      <Storyboard>

        <!-- This animation animates the Rotation property of the RotateTransform3D
             causing the 3D shape to rotate. -->
        <QuaternionAnimation
         Storyboard.TargetName="myQuaternionRotation3D"
         Storyboard.TargetProperty="Quaternion" From="0,0,1,0" To="0.3, 0.3, 1, 0" 
         Duration="0:0:2" />

      </Storyboard>
    </BeginStoryboard>
  </EventTrigger>
</Viewport3D.Triggers>

			'Read new settings
			Try
				Dim WValue As Double = Convert.ToDouble(QuaternionWText.Text)
				Dim XValue As Double = Convert.ToDouble(QuaternionXText.Text)
				Dim YValue As Double = Convert.ToDouble(QuaternionYText.Text)
				Dim ZValue As Double = Convert.ToDouble(QuaternionZText.Text)

				endQuaternion = New Quaternion(XValue, YValue, ZValue, WValue)
			Catch
				MessageBox.Show("Set non-null values for the quaternion.")
			End Try

			myQuaternionRotation3D = New QuaternionRotation3D(endQuaternion)
			myRotateTransform3D.Rotation = myQuaternionRotation3D

			'update matrix display
			qrotationMatrix3D = myRotateTransform3D.Value

//Read new settings
try
{
    Double WValue = System.Convert.ToDouble(QuaternionWText.Text);
    Double XValue = System.Convert.ToDouble(QuaternionXText.Text);
    Double YValue = System.Convert.ToDouble(QuaternionYText.Text);
    Double ZValue = System.Convert.ToDouble(QuaternionZText.Text);

    endQuaternion = new Quaternion(XValue, YValue, ZValue, WValue);
}
catch
{
    MessageBox.Show("Set non-null values for the quaternion.");
}

myQuaternionRotation3D = new QuaternionRotation3D(endQuaternion);
myRotateTransform3D.Rotation = myQuaternionRotation3D;

//update matrix display
qrotationMatrix3D = myRotateTransform3D.Value;