<xsl:stylesheet  xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0" xmlns:s="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">

	<xsl:import href="postprocess.xsl"/>	

	<xsl:key name="Id" match="component|collection|package" use="@id"/>

	<xsl:variable name="Rank" select="document('')/*/*[@name='RANK']/*"/>

<xsl:template name="RANK">

<layer rank="0"/>

<package rank="1"/>

<collection rank="2"/>

<component rank="3"/>

</xsl:template>

				<!-- no children and higher than the normal placeholder detail -->

			<xsl:when test="count(meta|unit)=count(*) and /SystemDefinition/@placeholder-detail and ($Rank[name()=current()/ancestor::SystemDefinition/@placeholder-detail]/@rank &gt;= $Rank[name()=name(current())]/@rank)">1</xsl:when>

			<xsl:when test="not(/SystemDefinition/@detail-type='fixed')"><xsl:if test="self::component">1</xsl:if></xsl:when>  

			<xsl:when test="name()=/SystemDefinition/@detail">1</xsl:when>

	<s:text text-anchor="end" dy="0.375em" class="label" x="3" y="3" width="5">Uses</s:text>

	<s:text text-anchor="end" dy="0.375em" class="label" x="3" y="6" width="5">Used by</s:text>

	<!-- add at some point:

	<text text-anchor="end" dy="0.375em" class="label" x="24" y="1.5" >Binary</text>

	<text text-anchor="end" dy="0.375em" class="label" x="24" y="4.5" >API</text>

	<text text-anchor="end" dy="0.375em" class="label" x="24" y="7.5" >ECom</text>

	<path d="M 26 1.5 L 36 1.5" class="arrow" style="stroke-width:0.3!important"/>

	<path d="M 26 4.5 L 36 4.5" class="arrow api" style="stroke-width:0.3!important"/>

	<path d="M 26 7.5 L 36 7.5" class="arrow ecom" style="stroke-width:0.3!important"/>

		-->

			<xsl:when test="/SystemDefinition/@detail='layer'">4.8</xsl:when>

			<xsl:when test="/SystemDefinition/@detail='package'">2.4</xsl:when>

			<xsl:when test="/SystemDefinition/@detail='subblock'">1.2</xsl:when>

			<xsl:when test="/SystemDefinition/@detail='collection'">0.6</xsl:when>

		stroke-width: 0.3px;

		stroke-width: 0.3px;		

	}

	path.collection  {

		stroke-width: 0.6px;	

	}

	path.package  {

		stroke-width: 2.4px;	

	}

	path.layer  {

		stroke-width: 4.8px;	

	}

	path.api {

		stroke-dasharray: 2,1;

	}

	path.ecom {

		stroke-dasharray: 0.1,2;

		stroke-linecap: round;

<xsl:template name="lower-rank"><xsl:param name="e1"/><xsl:param name="e2"/>

	<xsl:variable name="rank"> 

			<xsl:when test="$Rank[name()=$e1]/@rank &gt; $Rank[name()=$e2]/@rank">

				<xsl:value-of select="$e1"/>

			</xsl:when>

			<xsl:otherwise>

				<xsl:value-of select="$e2"/>

			</xsl:otherwise>

	</xsl:variable>

	<xsl:if test="$rank!='component'">

		<xsl:value-of select="concat(' ',$rank)"/>

	</xsl:if>

 	<!--  this is far more hacky than I'd like. Better to use a mechanism like the $used below-->

	<xsl:variable name="libs">	<xsl:text> </xsl:text>

 		<xsl:for-each select="document($Data,/)/*">

			<xsl:variable name="detail" select="/SystemDefinition/@detail"/>

			<xsl:for-each select="key('Id',$id)/meta[@rel='Dependencies' and (@type='generic' or not(@type))]/dep">

				<xsl:variable name="d" select="."/>

				<xsl:for-each select="key('Id',@ref)/ancestor-or-self::*[name()=$detail]">

					<xsl:value-of select="concat(@id,'&#9;',$d/@type,'&#9;',name(),' ')"/>

				</xsl:for-each>

				<xsl:for-each select="key('Id',@ref)[not(ancestor-or-self::*[name()=$detail])]">

					<xsl:value-of select="concat(@id,'&#9;',$d/@type,'&#9;',name(),' ')"/>

				</xsl:for-each>

			</xsl:for-each>

		</xsl:for-each>

	<xsl:variable name="w">

		<xsl:apply-templates select="." mode="item-width"/>

	</xsl:variable>

	<xsl:variable name="e"><xsl:for-each select="document($Data,/)/*">

		<xsl:value-of select="name(key('Id',$id))"/></xsl:for-each>

	</xsl:variable>

	<xsl:for-each select="//s:g[contains($libs,concat(' ',@id,'&#9;')) and @id!=$id]">

		<xsl:variable name="type" select="substring-before(substring-after($libs,concat(' ',@id,'&#9;')),'&#9;')"/>

		<xsl:variable name="this" select="substring-before(substring-after(substring-after($libs,concat(' ',@id,'&#9;')),'&#9;'),' ')"/>

		<xsl:call-template name="draw-line">

			<xsl:with-param name="class">

				<xsl:text>arrow</xsl:text>

				<xsl:if test="$type!='' and $type!='bin'">

					<xsl:value-of select="concat(' ',$type)"/>

				</xsl:if>

				<xsl:call-template name="lower-rank">

					<xsl:with-param name="e1" select="$e"/>

					<xsl:with-param name="e2" select="substring-before(substring-after(substring-after($libs,concat(' ',@id,'&#9;')),'&#9;'),' ')"/>

				</xsl:call-template>

			</xsl:with-param>

			<xsl:with-param name="h0" select="$h"/>

			<xsl:with-param name="w0" select="$w"/>

			<xsl:with-param name="end"><xsl:apply-templates select="." mode="item-pos"/></xsl:with-param>

			<xsl:with-param name="h1"><xsl:apply-templates select="." mode="height"/></xsl:with-param>

			<xsl:with-param name="w1"><xsl:apply-templates select="." mode="item-width"/></xsl:with-param>

	</xsl:for-each>	

	<xsl:variable name="used" select="document($Data,/)//*[name()=/SystemDefinition/@detail]/meta[@rel='Dependencies' and (@type='generic' or not(@type))]/dep[@ref=$id]"/>

	<xsl:for-each select="//s:g[@id=$used/../../@id and @id!=$id]">

		<xsl:call-template name="draw-line">

			<xsl:with-param name="class">

				<xsl:text>arrowF</xsl:text>

				<xsl:for-each select="$used[@type and @type!='bin' and ../../@id=current()/@id]">

					<xsl:value-of select="concat(' ',@type)"/>  

				</xsl:for-each>

				<xsl:call-template name="lower-rank">

					<xsl:with-param name="e1" select="$e"/>

					<xsl:with-param name="e2" select="name($used[../../@id=current()/@id]/../..)"/>

				</xsl:call-template>

			</xsl:with-param>

			<xsl:with-param name="h0" select="$h"/>

			<xsl:with-param name="w0" select="$w"/>

			<xsl:with-param name="end"><xsl:apply-templates select="." mode="item-pos"/></xsl:with-param>

			<xsl:with-param name="h1"><xsl:apply-templates select="." mode="height"/></xsl:with-param>

			<xsl:with-param name="w1"><xsl:apply-templates select="." mode="item-width"/></xsl:with-param>

	</xsl:for-each>	

	<xsl:param name="w0"/><xsl:param name="w1"/>

						<xsl:with-param name="h0" select="$h0"/>

						<xsl:with-param name="h1" select="$h1"/>

						<xsl:with-param name="w0" select="$w0"/>

						<xsl:with-param name="w1" select="$w1"/>

						<xsl:with-param name="w0" select="$w0"/>

						<xsl:with-param name="w1" select="$w1"/>

						<xsl:when test="$dx &gt; 0 and (($dy &gt; 0 and ($dx * $h0 &gt;= $dy* $w0)) or ($dy &lt;= 0 and ($dx * $h0 &gt;= -$dy* $w0)))">

							<xsl:variable name="y-off" select="$w0 * 0.5 * $dy div $dx "/>

							<xsl:value-of select="concat($x0 + 0.5 * $w0,',',$y0 + $y-off)"/>

						<xsl:when test="$dy &gt; 0 and (($dx &gt;= 0 and $dx * $h0 &lt; $dy * $w0) or ($dx &lt;= 0 and -$dx * $h0 &lt; $dy* $w0))"> <!-- and dx < dy  -->

						<xsl:when test="$dy &lt; 0 and (($dx &gt;= 0 and $dx * $h0 &lt; -$dy* $w0) or ($dx &lt;= 0 and -$dx * $h0 &lt; -$dy* $w0))">

							<xsl:variable name="y-off" select=" - $w0 * 0.5 * $dy div $dx "/>

							 <xsl:value-of select="concat($x0 - 0.5 * $w0,',',$y0 + $y-off)"/>

						<xsl:when test="$dx &gt; 0 and (($dy &gt; 0 and ($dx * $h1 &gt;= $dy* $w1)) or ($dy &lt;= 0 and ($dx * $h1 &gt;= -$dy* $w1)))">

							<xsl:value-of select="concat($x1 - 0.5 * $w1,',',$y0 + ($dx - 0.5 * $w1) * $dy div $dx)"/>

						<xsl:when test="$dy &gt; 0 and (($dx &gt;= 0 and $dx * $h1 &lt; $dy * $w1) or ($dx &lt;= 0 and -$dx * $h1 &lt; $dy* $w1))"> <!-- and dx < dy  -->

						<xsl:when test="$dy &lt; 0 and (($dx &gt;= 0 and $dx * $h1 &lt; -$dy* $w1) or ($dx &lt;= 0 and -$dx * $h1 &lt; -$dy* $w1))">

							<xsl:value-of select="concat($x1 + 0.5 * $w1,',',$y0 + ($dx + 0.5 * $w1) * $dy div $dx)"/>

	  	<xsl:param name="w0"/><xsl:param name="w1"/>

	<xsl:variable name="x-off" select="0.25 * $sgn * $w0 * $w0 div ($sgn * $dx)"/>	

	<xsl:variable name="x-off2" select="0.25 * $sgn * $w1 * $w1 div ($sgn * $dx)"/>	

	<xsl:value-of select="concat(($dx   -  $x-off * 2) div 3 , ', ', $peak,' ',$dx  -  $x-off * 2 ,',', 2 * $peak, ' ',$dx -  $x-off2 * 2,',0')"/>

	<xsl:param name="w0"/><xsl:param name="w1"/>

		<xsl:when test="($left and ($y1 &gt; $y0)) or (not($left) and ($y1 &lt; $y0)) "><xsl:value-of select="$x0 + (0.5*$w0)"/></xsl:when>

		<xsl:otherwise><xsl:value-of select="$x0 - (0.5*$w0)"/></xsl:otherwise>

			<xsl:when test="$left"><xsl:value-of select="$sgn * (0.5 * $w0 + ($sgn * $dy div 8))"/></xsl:when>

			<xsl:otherwise><xsl:value-of select="- $sgn * (0.5 * $w0 + ($sgn * $dy div 8))"/></xsl:otherwise>