diff --git a/DWSIM.Drawing.SkiaSharp/GraphicObjects/Shapes/CSTR.vb b/DWSIM.Drawing.SkiaSharp/GraphicObjects/Shapes/CSTR.vb index ec8339f2..30a1e7d0 100644 --- a/DWSIM.Drawing.SkiaSharp/GraphicObjects/Shapes/CSTR.vb +++ b/DWSIM.Drawing.SkiaSharp/GraphicObjects/Shapes/CSTR.vb @@ -52,6 +52,11 @@ Namespace GraphicObjects.Shapes myOC1.Position = New Point(X + Width, Y + 0.5 * Height) myOC1.Type = ConType.ConOut + Dim myOC2 As New ConnectionPoint + myOC2.Position = New Point(X + 0.5 * Width, Y) + myOC2.Type = ConType.ConOut + myOC2.Direction = ConDir.Up + Me.EnergyConnector.Position = New Point(X + 0.5 * Width, Y + Height) Me.EnergyConnector.Type = ConType.ConEn Me.EnergyConnector.Direction = ConDir.Up @@ -77,14 +82,18 @@ Namespace GraphicObjects.Shapes If .Count <> 0 Then If Me.FlippedH Then .Item(0).Position = New Point(X, Y + 0.5 * Height) + .Item(1).Position = New Point(X + 0.5 * Width, Y) Else .Item(0).Position = New Point(X + Width, Y + 0.5 * Height) + .Item(1).Position = New Point(X + 0.5 * Width, Y) End If Else .Add(myOC1) + .Add(myOC2) End If - .Item(0).ConnectorName = "Outlet" + .Item(0).ConnectorName = "Liquid Outlet" + .Item(1).ConnectorName = "Vapor Outlet (Optional)" End With