This is a model of an embrasure.
function embrasure extends Modelica.Icons.Function; input Modelica.Units.SI.Length height "Height of the embrasure"; input Modelica.Units.SI.Length width "Width of the embrasure"; input Modelica.Units.SI.Length depth "Depth of the embrasure"; input Modelica.Units.NonSI.Angle_deg angleDegAzi "Azimuth angle of the embrasure: south: 0 deg, east: -90 deg, west +90 deg, north: 180 deg"; input Modelica.Units.NonSI.Angle_deg angleDegAziSun "Azimuth angle of the sun: south: 0 deg, east: -90 deg, west +90 deg, north: 180 deg"; input Modelica.Units.NonSI.Angle_deg angleDegHeightSun "Height angle of the sun"; output Real SC "Shading coefficient"; end embrasure;