PressureSource

model PressureSource
    import SI = Modelica.SIunits;

    parameter SI.AbsolutePressure pressure = environment.pAmbient "Absolute pressure";
    HydraulicsByFluidon.Interfaces.FluidPort fluidPort(p(start = 100000, nominal = 100000)) "Hydraulic port"
        annotation (Placement(transformation(extent = {
            {-10, 90}, 
            {10, 110}})));
protected
    outer HydraulicsByFluidon.Media.Environment environment;
equation
    fluidPort.p = pressure;

    annotation (
        Icon(
            coordinateSystem(
                preserveAspectRatio = true,
                extent = {
                    {-100, -100}, 
                    {100, 100}}),
            graphics = {
                Line(points = {
                    {0, 0}, 
                    {0, 100}}), 
                Ellipse(
                    fillColor = {255, 255, 255},
                    fillPattern = FillPattern.Solid,
                    extent = {
                        {-50, 50}, 
                        {50, -50}},
                    endAngle = 360), 
                Ellipse(
                    fillColor = {0, 0, 0},
                    fillPattern = FillPattern.Solid,
                    extent = {
                        {-20, 20}, 
                        {20, -20}},
                    endAngle = 360)}),
        Documentation(info = "<html>                           \n            <p>\n                The component PressureSource provides the parameterized pressure constantly\n                and therefore acts as an ideal pressure source.                             \n            </p></html>"));
end PressureSource;