Public Class DLogicalLinePort

Inherits NLogicalLinePort

Public Overrides Sub Paint(ByVal context As NPaintContext)

' Compute the bounds of the port in device coordinates

Dim location__1 As NPointF = context.SceneToDevice.TransformPoint(Location)

Dim width As Single = NDR.BitmapPortSize.Width

Dim height As Single = NDR.BitmapPortSize.Height

Dim bounds As New NRectangleF(location__1.X - width / 2, location__1.Y - height / 2, width, height)

' Clip test

If context.DevicePaintArea.IntersectsWith(bounds) = False Then

Return

End If

' Paint the port

Dim circle As New NEllipsePath(bounds.Location, bounds.RightBottom)

NStyle.SetFillStyle(circle, New NColorFillStyle(Color.FromArgb(125, Color.Yellow)))

NStyle.SetStrokeStyle(circle, New NStrokeStyle(KnownArgbColorValue.Red))

circle.Paint(context)

End Sub

End Class