Leadtools.Dicom.Common.Extensions Namespace > DicomExtensions Class > GetNewViewPerspective Method : GetNewViewPerspective(DicomDataSet,RasterViewPerspective,OrientationConfiguration) Method |
[ExtensionAttribute()] public static RasterViewPerspective GetNewViewPerspective( DicomDataSet ds, RasterViewPerspective currentViewPerspective, OrientationConfiguration orientation )
'Declaration <ExtensionAttribute()> Public Overloads Shared Function GetNewViewPerspective( _ ByVal ds As DicomDataSet, _ ByVal currentViewPerspective As RasterViewPerspective, _ ByVal orientation As OrientationConfiguration _ ) As RasterViewPerspective
'Usage Dim ds As DicomDataSet Dim currentViewPerspective As RasterViewPerspective Dim orientation As OrientationConfiguration Dim value As RasterViewPerspective value = DicomExtensions.GetNewViewPerspective(ds, currentViewPerspective, orientation)
[ExtensionAttribute()] public: static RasterViewPerspective GetNewViewPerspective( DicomDataSet^ ds, RasterViewPerspective currentViewPerspective, OrientationConfiguration^ orientation )
This overload gets the image orientation vectors from the ds.
The input view perspective is defined by two values: the original Leadtools.RasterViewPerspective, and a row and column orientation vector (which are read from the ds by searching for the Leadtools.Dicom.DicomElement that has a tag of Leadtools.Dicom.DicomTag.ImageOrientationPatient which contains the orientation vectors.). This method returns the new Leadtools.RasterViewPerspective that results from applying a Leadtools.Dicom.Common.DataTypes.OrientationConfiguration to the input view perspective. Note that the orientation contains three lists of conditions (one for each 3D axis) that can be applied to the image contained in the ds if the condition is met.Imports Leadtools.Dicom Imports Leadtools.Dicom.Common Imports Leadtools.Dicom.Common.Extensions Imports Leadtools.Dicom.Common.Linq Imports Leadtools.Dicom.Common.Linq.BasicDirectory Imports Leadtools Imports Leadtools.Dicom.Common.DataTypes Public Sub GetNewViewPerspectiveExample2() Dim dicomFileCoronal As String = Path.Combine(LEAD_VARS.ImagesDir, "image3.dcm") Dim ds As New DicomDataSet() ds.Load(dicomFileCoronal, DicomDataSetLoadFlags.None) ' Create a new coronal PlaneOrientation that corresponds to a horizontal flip Dim poCoronal As New PlaneOrientation() poCoronal.Name = "Coronal or Frontal" poCoronal.Top = OrientationAxis.Inferior poCoronal.Right = OrientationAxis.Right poCoronal.Condition = New TagValueOrientationCondition(DicomTag.ImageOrientationPatient, Nothing) If (Not poCoronal.IsValid(Plane.Coronal)) Then MessageBox.Show("Invalid PlaneOrientation for Coronal") Return End If ' Create a new sagittal PlaneOrientation that corresponds to a Rotate90 Dim poSaggital As New PlaneOrientation() poSaggital.Name = "Saggital" poSaggital.Top = OrientationAxis.Anterior poSaggital.Right = OrientationAxis.Inferior poSaggital.Condition = New TagValueOrientationCondition(0, Nothing) If (Not poSaggital.IsValid(Plane.Sagittal)) Then MessageBox.Show("Invalid PlaneOrientation for Sagittal") Return End If ' Create a new Axial that corresponds to a Rotate180 Dim poAxial As New PlaneOrientation() poAxial.Name = "Axial" poAxial.Top = OrientationAxis.Posterior poAxial.Right = OrientationAxis.Left poAxial.Condition = New TagValueOrientationCondition(0, Nothing) If (Not poAxial.IsValid(Plane.Axial)) Then MessageBox.Show("Invalid PlaneOrientation for Axial") Return End If ' Setup the OrientationConfiguration Dim oc As New OrientationConfiguration() oc.Coronal.Add(poCoronal) oc.Sagittal.Add(poSaggital) oc.Axial.Add(poAxial) If (Not oc.IsValid()) Then MessageBox.Show("Invalid OrientationConfiguration") Return End If ' Find the new view perspective Dim newViewPerspective As RasterViewPerspective = ds.GetNewViewPerspective(RasterViewPerspective.TopLeft, oc) ' New view perspective should be BottomLeft MessageBox.Show("newViewPerspective should be BottomLeft" & Constants.vbLf & "Actual newViewPerspective is " & newViewPerspective.ToString()) End Sub Public NotInheritable Class LEAD_VARS Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" End Class