se/SE/dev/php-cli/edge_joins_filled_paths_make.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:bp="https://procesy5.pl/biale_plamy-schema.xsd"
    exclude-result-prefixes="xs"
    version="2.0">
    
    <xsl:param name="ways_as_Text_z_ID_xml.xml" select="'ways_as_Text_z_ID_xml.xml'"/>
    <xsl:variable name="ways_asText_z_ID_xml" select="doc($ways_as_Text_z_ID_xml.xml)"/>
    
    <xsl:param name="joins_asText_xml.xml" select="'joins_asText_xml.xml'"/>
    <xsl:variable name="joins_asText_xml" select="doc($joins_asText_xml.xml)"/>
    
   
    <xsl:param name="ways2joins.xml" select="'ways2joins.xml'"/>
    <xsl:variable name="ways2joins" select="doc($ways2joins.xml)"/>
    
    <xsl:param name="joins2ways_z_ID_Way.xml" select="'joins2ways_z_ID_Way.xml'"/>
    <xsl:variable name="joins2ways_z_ID_Way" select="doc($joins2ways_z_ID_Way.xml)"/>
    
    <xsl:param name="edge_joins_filled_paths" select="'edge_joins_filled_paths'"/> <!-- katalog do zapisywania sciezek -->
    
    <xsl:param name="debug"  select="0" /> <!-- set 1 to debug -->
    
    <xsl:param name="bypass_errors" select=" true()"/> <!-- set to 0 if you want to secure terminate on error  -->
    
    <xsl:output indent="yes"/>
    <xsl:strip-space elements="*"/>
    
    <xsl:template match="EdgeWayJoins">
        <edge_joins_filled_paths>
            <xsl:attribute name="stylesheet" select="'edge_joins_filled_paths_make.xsl'"/>
        <xsl:apply-templates/>
        </edge_joins_filled_paths>
    </xsl:template>
    
    
    <xsl:template match="EdgeWayJoinsPair">
        <item>
            <xsl:attribute name="id" select="@ID_Way"/>
            <xsl:variable name="ID_Way" select="@ID_Way"/>
            <!--<xsl:attribute name="Count" select="$asText/asText/@Count"/>-->
                <asText>
                    <xsl:variable name="bp:Joins">
                        <xsl:for-each select="bp:Joins">
                            <bp:Joins>
                                <xsl:copy-of select="@*"/>
                                <xsl:copy-of select="$joins_asText_xml/joins_asText_xml/item[@id= current()/@Joins]/bp:Path_Point/@X"/>
                                <xsl:copy-of select="$joins_asText_xml/joins_asText_xml/item[@id= current()/@Joins]/bp:Path_Point/@Y"/>
                                <xsl:attribute name="position" select="position()"/>
                                <!--<xsl:copy-of select="$joins_asText_xml/joins_asText_xml/item[@id= current()/@id]/"/>-->
                            </bp:Joins>
                        </xsl:for-each>
                    </xsl:variable>
                    <!--<Joins>
                        <xsl:copy-of select="$bp:Joins"/>
                    </Joins>-->
                    <xsl:variable name="Join_X1" select="$bp:Joins/bp:Joins[@position=1]/@X"/>
                    <xsl:variable name="Join_Y1" select="$bp:Joins/bp:Joins[@position=1]/@Y"/>
                    <xsl:variable name="Join_X2" select="$bp:Joins/bp:Joins[@position=2]/@X"/>
                    <xsl:variable name="Join_Y2" select="$bp:Joins/bp:Joins[@position=2]/@Y"/>
                    <!-- na podstawie joina ustalamy jego wspolrzedne -->
                    <xsl:variable name="Ways">
                        <Ways>
                        <xsl:attribute name="Join_X1" select="$Join_X1"/>
                        <xsl:attribute name="Join_Y1" select="$Join_Y1"/>
                        <xsl:attribute name="Join_X2" select="$Join_X2"/>
                        <xsl:attribute name="Join_Y2" select="$Join_Y2"/>
                            
                        <xsl:variable name="Ways">
                            <xsl:for-each select="$ways_asText_z_ID_xml/ways_asText_z_ID_xml/item[@ID_Way=$ID_Way   ]"> <!-- olanie zerowych  and not(bp:Path_Point[1]/@X= bp:Path_Point[2]/@X)  and not(bp:Path_Point[1]/@Y= bp:Path_Point[2]/@Y) TODO  -->
                                <Way>
                                    <xsl:attribute name="id" select="@id"/>
                                    <xsl:attribute name="len" select="@len"/>
                                    <xsl:variable name="bp:Path_Point">
                                        <xsl:for-each select="bp:Path_Point">
                                        <bp:Path_Point>
                                            <xsl:copy-of select="@*"/>
                                            <xsl:attribute name="position" select="position()"/>
                                        </bp:Path_Point>
                                        </xsl:for-each>
                                    </xsl:variable>
                                   <!-- <xsl:variable name="Way_X1" select="$bp:Path_Point/bp:Path_Point[@position=1]/@X"/>
                                    <xsl:variable name="Way_Y1" select="$bp:Path_Point/bp:Path_Point[@position=1]/@Y"/>
                                    <xsl:variable name="Way_X2" select="$bp:Path_Point/bp:Path_Point[@position=2]/@X"/>
                                    <xsl:variable name="Way_Y2" select="$bp:Path_Point/bp:Path_Point[@position=2]/@Y"/>-->
                                    <xsl:attribute name="Way_X1" select="$bp:Path_Point/bp:Path_Point[@position=1]/@X"/>
                                    <xsl:attribute name="Way_Y1" select="$bp:Path_Point/bp:Path_Point[@position=1]/@Y"/>
                                    <xsl:attribute name="Way_X2" select="$bp:Path_Point/bp:Path_Point[@position=2]/@X"/>
                                    <xsl:attribute name="Way_Y2" select="$bp:Path_Point/bp:Path_Point[@position=2]/@Y"/>
                                </Way>
                            </xsl:for-each> 
                        </xsl:variable>
                        <xsl:copy-of select="$Ways"/>
                        <!-- teraz trzeba wiedziec ktory punkt wziac z drogi - czy pierwszy czy drugi jaki pasuje do pary -->
                        <xsl:variable name="Ways_J1_W1">
                            <xsl:for-each select="$Ways/Way[@Way_X1=$Join_X1 and @Way_Y1=$Join_Y1]">
                                <Way_next_cand>
                                    <xsl:copy-of select="@id"/>
                                    <xsl:copy-of select="@Way_X2"/>
                                    <xsl:copy-of select="@Way_Y2"/>
                                </Way_next_cand>
                            </xsl:for-each>
                        </xsl:variable>
                        <xsl:copy-of select="$Ways_J1_W1"/>
                        
                        <xsl:variable name="Ways_J2_W1">
                            <xsl:for-each select="$Ways/Way[@Way_X1=$Join_X2 and @Way_Y1=$Join_Y2]">
                                <Way_next_cand>
                                    <xsl:copy-of select="@id"/>
                                    <xsl:copy-of select="@Way_X2"/>
                                    <xsl:copy-of select="@Way_Y2"/>
                                </Way_next_cand>
                            </xsl:for-each>
                        </xsl:variable>
                        <xsl:copy-of select="$Ways_J2_W1"/>
                        
                        <xsl:variable name="Ways_J1_W2">
                            <xsl:for-each select="$Ways/Way[@Way_X2=$Join_X1 and @Way_Y2=$Join_Y1]">
                                <Way_next_cand>
                                    <xsl:copy-of select="@id"/>
                                    <xsl:copy-of select="@Way_X1"/>
                                    <xsl:copy-of select="@Way_Y1"/>
                                </Way_next_cand>
                            </xsl:for-each>
                        </xsl:variable>
                        <xsl:copy-of select="$Ways_J1_W2"/>
                        
                        <xsl:variable name="Ways_J2_W2">
                            <xsl:for-each select="$Ways/Way[@Way_X2=$Join_X2 and @Way_Y2=$Join_Y2]">
                                <Way_next_cand>
                                    <xsl:copy-of select="@id"/>
                                    <xsl:copy-of select="@Way_X1"/>
                                    <xsl:copy-of select="@Way_Y1"/>
                                </Way_next_cand>
                            </xsl:for-each>
                        </xsl:variable>
                            <!-- todo nei wiem czy potrzebne to echo -->
                        <xsl:copy-of select="$Ways_J2_W2"/>
                        <!-- poszukamy czy Way_X2 wystepuje -->
                        </Ways>
                    </xsl:variable>
                    
                    <!--<xsl:variable name="Way_1_or_2">
                    <xsl:choose>
                        <xsl:when test="$Ways/Ways/Way_next_cand[1]/@Way_X2">
                            <xsl:value-of select="1"/>
                        </xsl:when>
                        <xsl:otherwise><xsl:value-of select="2"/></xsl:otherwise>
                    </xsl:choose>
                    </xsl:variable>-->
                    <!--<Way_1_or_2><xsl:value-of select="$Way_1_or_2"/></Way_1_or_2>-->
                    <xsl:variable name="LineString">
                        <xsl:message>#152 run templ PlaceWay for ID_Way=<xsl:value-of select="$ID_Way"/>;   </xsl:message>
                        <xsl:call-template name="PlaceWay">
                            <xsl:with-param name="Ways" select="$Ways"/>
                            <xsl:with-param name="Cur_X1" select="$Ways/Ways/@Join_X1"/>
                            <xsl:with-param name="Cur_Y1" select="$Ways/Ways/@Join_Y1"/>
                            <xsl:with-param name="Last_X2" select="$Ways/Ways/@Join_X2"/>
                            <xsl:with-param name="Last_Y2" select="$Ways/Ways/@Join_Y2"/>
                            <xsl:with-param name="ID_Way" select="$ID_Way"/>
                            <!--<xsl:with-param name="Way_1_or_2" select="$Way_1_or_2"/>-->
                            <!--<xsl:with-param name="not_id" select="$Ways/Ways/Way_next_cand/@id"/>-->
                        </xsl:call-template>
                    </xsl:variable>
                    
                    <xsl:variable name="LineString"> <!-- dodanie tylko unikalnego @id_path bo sie chrzani bez tego -->
                        <xsl:for-each select="$LineString/LineString">
                            <LineString>
                                <xsl:copy-of select="@*"/>
                                <xsl:attribute name="id_path" select="position()"/>
                                <xsl:copy-of select="child::node()"/>
                            </LineString>
                        </xsl:for-each>
                    </xsl:variable>
                    <xsl:variable name="len" select="sum($LineString/LineString/@len)"/>
                    <xsl:attribute name="len" select="$len"/>
                    <xsl:attribute name="Points_cnt" select="count($LineString/LineString/Points)"/>
                    <xsl:attribute name="Count" select=" count($LineString/LineString)"/>
                    
                    <xsl:if test="$debug">
                        <debug_Ways>
                            <xsl:copy-of select="$Ways"/>
                        </debug_Ways>
                    </xsl:if>
                    <!-- dodatkowo w xmlu aby bylo prosciej do przetwarzania -->
                    <!--<asText_XMl>
                            <xsl:copy-of select="$LineString"/>
                    </asText_XMl>-->
                       <xsl:result-document href="{$edge_joins_filled_paths}/edge_joins_filled_paths.{$ID_Way}.xml">
                           <edge_joins_filled_paths_xml>
                               <xsl:attribute name="id" select="$ID_Way"/>
                               <xsl:attribute name="Points_cnt" select="count($LineString/LineString/Points)"/>
                               <asText_XMl>
                                   <xsl:attribute name="len" select="$len"/>
                                   <xsl:attribute name="id" select="$ID_Way"/>
                                   <xsl:attribute name="Points_cnt" select="count($LineString/LineString/Points)"/>
                                   <xsl:copy-of select="$LineString"/>
                               </asText_XMl>
                           </edge_joins_filled_paths_xml>
                       </xsl:result-document>
                        <xsl:call-template name="AsText">
                            <xsl:with-param name="LineString" select="$LineString"/>
                        </xsl:call-template>
                </asText>
        </item>
    </xsl:template>
    
    
    <xsl:template name="PlaceWay">
        <xsl:param name="Ways" required="yes"/>
        <xsl:param name="Cur_X1" required="yes"/>
        <xsl:param name="Cur_Y1" required="yes"/>
        <!--<xsl:param name="Way_1_or_2" required="yes"/>-->
        <xsl:param name="Last_X2" required="yes"/>
        <xsl:param name="Last_Y2" required="yes"/>
        <xsl:param name="loop" select="1"/>
        <xsl:param name="not_id" required="no"/>
        <xsl:param name="not_id_prev" required="no" select="-1"/>
        <xsl:param name="ID_Way" required="yes"/>
        <!--<xsl:if test="$debug">-->
        <xsl:message>###PlaceWay(Cur_X1=<xsl:value-of select="$Cur_X1"/>,Cur_Y1=<xsl:value-of select="$Cur_Y1"/>### and not_id=<xsl:value-of select="$not_id"/>;not_id_prev=<xsl:value-of select="$not_id_prev"/>;</xsl:message>
        <!--</xsl:if>-->
        <!--<LineString>
            <xsl:attribute name="X1" select="$Cur_X1"/>
            <xsl:attribute name="Y1" select="$Cur_Y1"/>
        </LineString>-->
        <!--<xsl:choose>
            <xsl:when test="$Way_1_or_2"></xsl:when>
        </xsl:choose>-->
        <!--<debug>
            <xsl:attribute name="Cur_X1" select="$Cur_X1"/>
            <xsl:attribute name="Cur_Y1" select="$Cur_Y1"/>
            <xsl:attribute name="not_id" select="$not_id"/>
        </debug>-->
        <xsl:variable name="Linestring">
            <!-- jezeli sa zerowe drogi -->
            <xsl:choose>
                <xsl:when test="$Ways/Ways/Way[ ( @Way_X1=$Cur_X1 and @Way_Y1=$Cur_Y1 or  @Way_X2=$Cur_X1 and @Way_Y2=$Cur_Y1 ) and ( not($not_id) or not(@id=$not_id))  and @Way_X1=@Way_X2 and @Way_Y1=@Way_Y2  and not(@id=$not_id_prev) ][1]">
                    <xsl:for-each select="$Ways/Ways/Way[ ( @Way_X1=$Cur_X1 and @Way_Y1=$Cur_Y1 or  @Way_X2=$Cur_X1 and @Way_Y2=$Cur_Y1 ) and ( not($not_id) or not(@id=$not_id))  and @Way_X1=@Way_X2 and @Way_Y1=@Way_Y2  and not(@id=$not_id_prev) ][1]">
                        <LineString>
                            <xsl:attribute name="error" select="'zerowa droga!'"/>
                            <xsl:attribute name="X" select="@Way_X2"/>
                            <xsl:attribute name="Y" select="@Way_Y2"/>
                            <xsl:attribute name="not_id" select="@id"/>
                            <xsl:attribute name="len" select="@len"/>
                            <!--<xsl:if test="$debug">-->
                                <xsl:message>Try to say @Way_X1:<xsl:value-of select="@Way_X1"/>; @Way_X2:<xsl:value-of select="@Way_X2"/>; $Cur_X1:<xsl:value-of select="$Cur_X1"/>; </xsl:message>
                                <xsl:message>PlaceWay: 1=1;2=2  count()=<xsl:value-of select="count(.)"/>; lenX:<xsl:value-of select=" round(abs(number(@Way_X1) - number($Cur_X1)) * 1000)"/>; zerowa droga dla $Cur_X1=<xsl:value-of select="$Cur_X1"/>; $Cur_Y1=<xsl:value-of select="$Cur_Y1"/> @id=<xsl:value-of select="@id"/>; $not_id=<xsl:value-of select="$not_id"/>;$not_id_prev=<xsl:value-of select="$not_id_prev"/>;</xsl:message>
                            <!--</xsl:if>-->
                            <xsl:attribute name="not_id_prev" select="$not_id"/>
                            <xsl:variable name="X" select="@Way_X2"/>
                            <xsl:variable name="Y" select="@Way_Y2"/>
                            <xsl:for-each select="$ways2joins/ways2joins/item[@id= current()/@id]/item"> <!-- musi byc wczesniej bo atrybut sie nie doda drugi raz-->
                                <xsl:for-each select="$joins_asText_xml/joins_asText_xml/item[@id= current()/text()]/bp:Path_Point">
                                    <xsl:if test="@X=$X and @Y=$Y">
                                        <xsl:variable name="ID_Join" select="parent::node()/@id"/>
                                        <xsl:attribute name="ID_Join" select="$ID_Join"/>
                                    </xsl:if>
                                </xsl:for-each>
                            </xsl:for-each>
                            <xsl:for-each select="$ways2joins/ways2joins/item[@id= current()/@id]/item">
                                <xsl:for-each select="$joins_asText_xml/joins_asText_xml/item[@id= current()/text()]/bp:Path_Point">
                                    <xsl:if test="@X=$X and @Y=$Y">
                                        <xsl:variable name="ID_Join" select="parent::node()/@id"/>
                                        <!--<xsl:attribute name="ID_Join" select="$ID_Join"/>-->
                                        <!-- punkty podpiete -->
                                        <xsl:copy-of select="$joins2ways_z_ID_Way/joins2ways_z_ID_Way/item[@id=$ID_Join]/Points"/>
                                        <!-- wyszukanie drog wychodzacych innych niz nasza z punktu -->
                                        <xsl:for-each select="$joins2ways_z_ID_Way/joins2ways_z_ID_Way/item[@id=$ID_Join]/item[not(@ID_WAY=$ID_Way)]">
                                            <Ways>
                                                <xsl:attribute name="ID_WAY" select="@ID_WAY"/>
                                                <xsl:attribute name="ways_id" select="text()"/>
                                            </Ways>
                                        </xsl:for-each>
                                    </xsl:if>
                                </xsl:for-each>
                            </xsl:for-each>
                        </LineString>
                    </xsl:for-each>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:for-each select="$Ways/Ways/Way[@Way_X1=$Cur_X1 and @Way_Y1=$Cur_Y1 and ( not($not_id) or not(@id=$not_id))  and  not(@Way_X1=@Way_X2 and @Way_Y1=@Way_Y2)  and not(@id=$not_id_prev) ]">
                        <LineString>
                            <xsl:attribute name="X" select="@Way_X2"/>
                            <xsl:attribute name="Y" select="@Way_Y2"/>
                            <xsl:attribute name="not_id" select="@id"/>
                            <xsl:attribute name="len" select="@len"/>
                            <xsl:attribute name="not_id_prev" select="$not_id"/>
                            <xsl:variable name="X" select="@Way_X2"/>
                            <xsl:variable name="Y" select="@Way_Y2"/>
                            
                            <xsl:choose>
                                <xsl:when test="number(count(@Way_X2)) &gt; number(1)"><xsl:message>#282 error count&gt; of @Way_X2<xsl:value-of select="@Way_X2"/> </xsl:message></xsl:when>
                                <xsl:otherwise>
                                    <!--<xsl:if test=" abs(number(@Way_X2) - number($Cur_X1)) &gt; 0.001 ">
                                 <xsl:message>#326 too long way <xsl:value-of select="abs(number(@Way_X2) - number($Cur_X1))"/></xsl:message>
                            </xsl:if>-->
                                    <xsl:if test="$debug">
                                        <xsl:message>Try to say @Way_X1:<xsl:value-of select="@Way_X1"/>; @Way_X2:<xsl:value-of select="@Way_X2"/>; $Cur_X1:<xsl:value-of select="$Cur_X1"/>; </xsl:message>
                                        <xsl:message>PlaceWay:  1=1 count()=<xsl:value-of select="count(.)"/>; number(@Way_X2)<xsl:value-of select="@Way_X2"/>  lenX:<xsl:value-of select=" round(number(@Way_X2) - number($Cur_X1) * 100) "/>; dla $Cur_X1=<xsl:value-of select="$Cur_X1"/>; $Cur_Y1=<xsl:value-of select="$Cur_Y1"/> @id=<xsl:value-of select="@id"/>; $not_id=<xsl:value-of select="$not_id"/>;$not_id_prev=<xsl:value-of select="$not_id_prev"/>;</xsl:message>
                                    </xsl:if>
                                </xsl:otherwise>
                            </xsl:choose>
                            
                            
                            <xsl:for-each select="$ways2joins/ways2joins/item[@id= current()/@id]/item"> <!-- musi byc wczesniej bo atrybut sie nie doda drugi raz-->
                                <xsl:for-each select="$joins_asText_xml/joins_asText_xml/item[@id= current()/text()]/bp:Path_Point">
                                    <xsl:if test="@X=$X and @Y=$Y">
                                        <xsl:variable name="ID_Join" select="parent::node()/@id"/>
                                        <xsl:attribute name="ID_Join" select="$ID_Join"/>
                                    </xsl:if>
                                </xsl:for-each>
                            </xsl:for-each>
                            <xsl:for-each select="$ways2joins/ways2joins/item[@id= current()/@id]/item">
                                <xsl:for-each select="$joins_asText_xml/joins_asText_xml/item[@id= current()/text()]/bp:Path_Point">
                                    <xsl:if test="@X=$X and @Y=$Y">
                                        <xsl:variable name="ID_Join" select="parent::node()/@id"/>
                                        <!--<xsl:attribute name="ID_Join" select="$ID_Join"/>-->
                                        <!-- punkty podpiete -->
                                        <xsl:copy-of select="$joins2ways_z_ID_Way/joins2ways_z_ID_Way/item[@id=$ID_Join]/Points"/>
                                        <!-- wyszukanie drog wychodzacych innych niz nasza z punktu -->
                                        <xsl:for-each select="$joins2ways_z_ID_Way/joins2ways_z_ID_Way/item[@id=$ID_Join]/item[not(@ID_WAY=$ID_Way)]">
                                            <Ways>
                                                <xsl:attribute name="ID_WAY" select="@ID_WAY"/>
                                                <xsl:attribute name="ways_id" select="text()"/>
                                            </Ways>
                                        </xsl:for-each>
                                    </xsl:if>
                                </xsl:for-each>
                            </xsl:for-each>
                        </LineString>
                    </xsl:for-each>
                    <xsl:for-each select="$Ways/Ways/Way[@Way_X2=$Cur_X1 and @Way_Y2=$Cur_Y1 and ( not($not_id) or not(@id=$not_id))  and ( not(@Way_X1=@Way_X2 and @Way_Y1=@Way_Y2) ) and not(@id=$not_id_prev) ]">
                        <LineString>
                            <xsl:attribute name="X" select="@Way_X1"/>
                            <xsl:attribute name="Y" select="@Way_Y1"/>
                            <xsl:attribute name="not_id" select="@id"/>
                            <xsl:attribute name="len" select="@len"/>
                            <xsl:attribute name="not_id_prev" select="$not_id"/>
                            <xsl:variable name="X" select="@Way_X1"/>
                            <xsl:variable name="Y" select="@Way_Y1"/>
                            <xsl:if test="$debug">
                                <xsl:message>PlaceWay: 1=2 count()=<xsl:value-of select="count(.)"/>; lenX:<xsl:value-of select=" round(number(@Way_X1) - number($Cur_X1) * 100)"/>; dla $Cur_X1=<xsl:value-of select="$Cur_X1"/>; $Cur_Y1=<xsl:value-of select="$Cur_Y1"/> @id=<xsl:value-of select="@id"/>; $not_id=<xsl:value-of select="$not_id"/>;</xsl:message>
                            </xsl:if>
                            <xsl:if test=" abs(number(@Way_X1) - number($Cur_X1)) &gt; 0.001 ">
                                <xsl:message>#326 too long way <xsl:value-of select="abs(number(@Way_X1) - number($Cur_X1))"/></xsl:message>
                            </xsl:if>
                            <xsl:for-each select="$ways2joins/ways2joins/item[@id= current()/@id]/item"> <!-- musi byc wczesniej bo atrybut sie nie doda drugi raz-->
                                <xsl:for-each select="$joins_asText_xml/joins_asText_xml/item[@id= current()/text()]/bp:Path_Point">
                                    <xsl:if test="@X=$X and @Y=$Y">
                                        <xsl:variable name="ID_Join" select="parent::node()/@id"/>
                                        <xsl:attribute name="ID_Join" select="$ID_Join"/>
                                    </xsl:if>
                                </xsl:for-each>
                            </xsl:for-each>
                            
                            <xsl:for-each select="$ways2joins/ways2joins/item[@id= current()/@id]/item">
                                <xsl:for-each select="$joins_asText_xml/joins_asText_xml/item[@id= current()/text()]/bp:Path_Point">
                                    <xsl:if test="@X=$X and @Y=$Y">
                                        <xsl:variable name="ID_Join" select="parent::node()/@id"/>
                                        <!-- punkty podpiete -->
                                        <xsl:copy-of select="$joins2ways_z_ID_Way/joins2ways_z_ID_Way/item[@id=$ID_Join]/Points"/>
                                        <!-- wyszukanie drog wychodzacych innych niz nasza z punktu -->
                                        <xsl:for-each select="$joins2ways_z_ID_Way/joins2ways_z_ID_Way/item[@id=$ID_Join]/item[not(@ID_WAY=$ID_Way)]">
                                            <Ways>
                                                <xsl:attribute name="ID_WAY" select="@ID_WAY"/>
                                                <xsl:attribute name="ways_id" select="text()"/>
                                            </Ways>
                                        </xsl:for-each>
                                    </xsl:if>
                                </xsl:for-each>
                            </xsl:for-each>
                        </LineString>
                    </xsl:for-each>
                </xsl:otherwise>
            </xsl:choose>
            
            
        </xsl:variable>
        <xsl:copy-of select="$Linestring"/>
        <xsl:choose>
            <xsl:when test="$loop &gt; 1000">
                <loop_limit>
                    <xsl:choose>
                        <xsl:when test="$bypass_errors">
                            <xsl:message terminate="no">
                                !!!!!!!!!!!!!!!! Loop limit dla PlaceWay: 1=2  dla $Cur_X1=<xsl:value-of select="$Cur_X1"/>; $Cur_Y1=<xsl:value-of select="$Cur_Y1"/> @id=<xsl:value-of select="@id"/>; $not_id=<xsl:value-of select="$not_id"/>
                            </xsl:message>
                        </xsl:when>
                        <xsl:otherwise>
                            <xsl:message terminate="yes">
                                !!!!!!!!!!!!!!!! Loop limit dla PlaceWay: 1=2  dla $Cur_X1=<xsl:value-of select="$Cur_X1"/>; $Cur_Y1=<xsl:value-of select="$Cur_Y1"/> @id=<xsl:value-of select="@id"/>; $not_id=<xsl:value-of select="$not_id"/>
                            </xsl:message>
                        </xsl:otherwise>
                    </xsl:choose>
                    
                </loop_limit>
                
            </xsl:when>
            <xsl:when test="$Linestring/LineString/@X = $Last_X2 and $Linestring/LineString/@Y = $Last_Y2 ">
                <ostatni/>
            </xsl:when>
            <xsl:otherwise>
                <xsl:if test="$debug">
                    <xsl:message>call-templ with Cur_X1=<xsl:value-of select="$Linestring/LineString/@X"/>; not_id=<xsl:value-of select="$Linestring/LineString/@not_id"/>;  not_id_prev=<xsl:value-of select="$Linestring/LineString/@not_id_prev"/></xsl:message>
                </xsl:if>
                <xsl:call-template name="PlaceWay">
                    <xsl:with-param name="Ways" select="$Ways"/>
                    <xsl:with-param name="Cur_X1" select="$Linestring/LineString/@X"/>
                    <xsl:with-param name="Cur_Y1" select="$Linestring/LineString/@Y"/>
                    <xsl:with-param name="Last_X2" select="$Last_X2"/>
                    <xsl:with-param name="Last_Y2" select="$Last_Y2"/>
                    <xsl:with-param name="not_id" select="$Linestring/LineString/@not_id"/>
                    <xsl:with-param name="not_id_prev" select="$Linestring/LineString/@not_id_prev"></xsl:with-param>
                    <xsl:with-param name="loop" select="$loop+1"/>
                    <xsl:with-param name="ID_Way" select="$ID_Way"/>
                </xsl:call-template>
            </xsl:otherwise>
        </xsl:choose>
        
        
    </xsl:template>
    
   
    <!--<xsl:template name="AsText_XML">
        <xsl:param name="LineString" required="yes"/>
        <xsl:for-each select="$LineString/LineString">
            <PathPoint>
                <xsl:copy-of select="@*"/>
            </PathPoint>
        </xsl:for-each>
    </xsl:template>-->
    
    <xsl:template name="AsText">
        <xsl:param name="LineString" required="yes"/>
        <xsl:value-of select="'LINESTRING ('"/>
        <xsl:for-each select="$LineString/LineString">
            <xsl:value-of select="concat(@X,' ',@Y)"/>
            <xsl:if test="not(position()= last())">
                <xsl:value-of select="', '"/>
            </xsl:if>
        </xsl:for-each>
        <xsl:value-of select="')'"/>
    </xsl:template>
    
    
    
    
    
</xsl:stylesheet>