Add DynamicSelect display of elevation of connector

dietmarw · dietmarw · commit a3bd784a727e · 2026-04-10T16:55:43.000+02:00
diff --git a/OpenHPL/Data.mo b/OpenHPL/Data.mo
@@ -1,6 +1,9 @@
 within OpenHPL;
 record Data "Provides a data set of most common used settings"
   extends Modelica.Icons.Record;
+  parameter Boolean showElevation=true "Display elevation of connectors"
+    annotation(Dialog(group = "Icon"),
+    choices(checkBox = true)); 
   parameter SI.Acceleration g = Modelica.Constants.g_n "Gravity constant"
     annotation (Dialog(enable=false, group = "Constants"));
   parameter Real gamma_air = 1.4 "Ratio of heat capacities at constant pressure (C_p) to constant volume (C_v) for air at STP"
diff --git a/OpenHPL/Interfaces/Contact.mo b/OpenHPL/Interfaces/Contact.mo
@@ -1,10 +1,12 @@
 within OpenHPL.Interfaces;
 connector Contact "Water flow connector"
+  parameter Boolean showElevation = true "Show elevation z";
   SI.Pressure p "Contact pressure";
   //SI.Temperature T "Contact temperature";
   flow SI.MassFlowRate mdot "Mass flow rate through the contact";
   SI.Height z "Elevation at connection point";
   flow Real gz(unit="m2/s") "Auxiliary elevation flow variable (always zero, for connector balance)";
+ 
   annotation (
     Documentation(info = "<html>
 <p>Contact is a basic water flow connector, which consists of water pressure, mass flow rate,
@@ -19,5 +21,10 @@ Each component provides an equation relating its connector elevations,
 enabling automatic propagation of absolute elevation through the system.
 Source components (e.g., Reservoir) set the absolute reference elevation.</li>
 </ul>
-</html>"));
-end Contact;
+</html>"),
+  Icon(graphics = {
+    Text(origin = {0, -175}, 
+         textColor = {0, 85, 255}, 
+         extent = {{-100, 100}, {100, -100}}, 
+         textString = DynamicSelect("", if showElevation then String(z) else ""))}));
+end Contact;
diff --git a/OpenHPL/Interfaces/TwoContacts.mo b/OpenHPL/Interfaces/TwoContacts.mo
@@ -1,9 +1,10 @@
 within OpenHPL.Interfaces;
 partial model TwoContacts "Model of two connectors"
-  Contact_i i "Inlet contact (positive design flow direction is from i to o)"
+  outer Data data;
+  Contact_i i(showElevation=data.showElevation) "Inlet contact (positive design flow direction is from i to o)"
                               annotation (
     Placement(transformation(extent={{-110,-10},{-90,10}})));
-  Contact_o o "Outlet contact (positive design flow direction is from i to o)"
+  Contact_o o(showElevation=data.showElevation) "Outlet contact (positive design flow direction is from i to o)"
                                annotation (
     Placement(transformation(extent={{90,-10},{110,10}})));
 equation
diff --git a/OpenHPL/Waterway/Reservoir.mo b/OpenHPL/Waterway/Reservoir.mo
@@ -45,7 +45,7 @@ model Reservoir "Model of the reservoir"
   SI.Height h_abs = h + o.z "Absolute water level";
   SI.Pressure p_o "Outlet pressure";
 
-  OpenHPL.Interfaces.Contact_o o(p=p_o) "Outflow from reservoir" annotation (Placement(transformation(extent={{90,-10},{110,10}}), iconTransformation(extent={{90,-10},{110,10}})));
+  OpenHPL.Interfaces.Contact_o o(p = p_o, showElevation = data.showElevation) "Outflow from reservoir" annotation (Placement(transformation(extent={{90,-10},{110,10}}), iconTransformation(extent={{90,-10},{110,10}})));
   Modelica.Blocks.Interfaces.RealInput inflow=Vdot_i if useInflow "Conditional input inflow of the reservoir" annotation (Placement(transformation(
         origin={-120,0},
         extent={{-20,-20},{20,20}})));
