add traceur files

Co-authored-by: @tonino
This commit is contained in:
Mylloon 2024-05-03 01:50:50 +02:00
parent 3fd67be39b
commit e7daad3f95
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
2 changed files with 201 additions and 14 deletions

View file

@ -1,6 +1,24 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"> <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="traceur">
<!-- TODO : Matthieu --> <xs:complexType>
<xs:sequence>
</xs:schema> <!-- Peut contenir plusieurs "LINETO" ou "MOVETO" -->
<xs:choice maxOccurs="unbounded">
<xs:element name="LINETO">
<xs:complexType>
<xs:attribute name="x" type="xs:decimal" use="required" />
<xs:attribute name="y" type="xs:decimal" use="required" />
</xs:complexType>
</xs:element>
<xs:element name="MOVETO">
<xs:complexType>
<xs:attribute name="x" type="xs:decimal" use="required" />
<xs:attribute name="y" type="xs:decimal" use="required" />
</xs:complexType>
</xs:element>
</xs:choice>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

View file

@ -1,8 +1,177 @@
<?xml version="1.0" encoding="UTF-8"?> <xsl:transform version="3.0"
<xsl:transform version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.w3.org/1999/xhtml"> xmlns:math="http://www.w3.org/2005/xpath-functions/math"
<xsl:output indent="yes" /> xmlns:xs="http://www.w3.org/2001/XMLSchema"
exclude-result-prefixes="xs math">
<!-- TODO : Matthieu --> <xsl:output method="xml" indent="yes" />
</xsl:transform> <!-- Déclaration des variables initiales -->
<xsl:variable name="initial-x" select="0" as="xs:double" />
<xsl:variable
name="initial-y" select="0" as="xs:double" />
<xsl:variable name="initial-angle" select="0"
as="xs:double" />
<xsl:template match="/tortue">
<traceur>
<!-- Appel du template pour traiter les commandes avec les valeurs initiales des
paramètres -->
<xsl:call-template name="process-commands">
<xsl:with-param name="commands" select="*" />
<xsl:with-param name="x"
select="$initial-x" />
<xsl:with-param name="y" select="$initial-y" />
<xsl:with-param
name="angle" select="$initial-angle" />
<xsl:with-param name="states" select="()" />
</xsl:call-template>
</traceur>
</xsl:template>
<!-- Template récursif pour traiter les commandes individuelles -->
<xsl:template
name="process-commands">
<xsl:param name="commands" />
<xsl:param name="x" />
<xsl:param name="y" />
<xsl:param
name="angle" />
<xsl:param name="states" />
<!-- Si il reste des commandes à traiter -->
<xsl:if test="$commands">
<!-- Sélection de la première commande à traiter -->
<xsl:variable
name="current-command" select="$commands[1]" />
<xsl:choose>
<!-- Si la commande est une ligne -->
<xsl:when test="local-name($current-command) = 'line'">
<!-- Calcul de la distance à parcourir et conversion de l'angle en radians -->
<xsl:variable name="distance"
select="number($current-command)" />
<xsl:variable name="radians"
select="$angle * math:pi() div 180" />
<xsl:variable name="new-x"
select="$x + $distance * math:cos($radians)" />
<xsl:variable name="new-y"
select="$y + $distance * math:sin($radians)" />
<!-- Création de l'élément LINETO avec les nouvelles coordonnées calculées -->
<LINETO
x="{format-number($new-x, '#.######')}"
y="{format-number($new-y, '#.######')}" />
<!-- Rappel récursif du template avec la mise à jour des coordonnées et des
commandes restantes -->
<xsl:call-template
name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" />
<xsl:with-param
name="x" select="$new-x" />
<xsl:with-param name="y" select="$new-y" />
<xsl:with-param
name="angle" select="$angle" />
<xsl:with-param name="states"
select="$states" />
</xsl:call-template>
</xsl:when>
<!-- Si la commande est un turn -->
<xsl:when test="local-name($current-command) = 'turn'">
<!-- Calcul du nouvel angle avec modulo 360 pour rester dans un cercle complet -->
<xsl:variable
name="new-angle" select="($angle + number($current-command)) mod 360" />
<!-- Rappel récursif du template sans changer de position mais en mettant à jour
l'angle -->
<xsl:call-template
name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" />
<xsl:with-param
name="x" select="$x" />
<xsl:with-param name="y" select="$y" />
<xsl:with-param
name="angle" select="$new-angle" />
<xsl:with-param name="states"
select="$states" />
</xsl:call-template>
</xsl:when>
<!-- Si la commande est un MOVE -->
<xsl:when test="local-name($current-command) = 'move'">
<!-- Calcul de la distance à parcourir et conversion de l'angle en radians -->
<xsl:variable name="distance"
select="number($current-command)" />
<xsl:variable name="radians"
select="$angle * math:pi() div 180" />
<xsl:variable name="new-x"
select="$x + $distance * math:cos($radians)" />
<xsl:variable name="new-y"
select="$y + $distance * math:sin($radians)" />
<!-- Création de l'élément MOVETO avec les nouvelles coordonnées calculées -->
<MOVETO
x="{format-number($new-x, '#.######')}"
y="{format-number($new-y, '#.######')}" />
<!-- Rappel récursif du template avec la mise à jour des coordonnées et des
commandes restantes -->
<xsl:call-template
name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" />
<xsl:with-param
name="x" select="$new-x" />
<xsl:with-param name="y" select="$new-y" />
<xsl:with-param
name="angle" select="$angle" />
<xsl:with-param name="states"
select="$states" />
</xsl:call-template>
</xsl:when>
<!--Si
la commande est un store -->
<xsl:when test="local-name($current-command) = 'store'">
<!--On
enregistre le nouvelle état-->
<xsl:variable
name="new-state">
<state x="{$x}" y="{$y}" angle="{$angle}" />
</xsl:variable>
<!--On
l'ajoute au précédent -->
<xsl:variable
name="new-states" select="($states, $new-state)" />
<xsl:call-template
name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" />
<xsl:with-param
name="x" select="$x" />
<xsl:with-param name="y" select="$y" />
<xsl:with-param
name="angle" select="$angle" />
<xsl:with-param name="states"
select="$new-states" />
</xsl:call-template>
</xsl:when>
<!--Si
la commande est un restore et que au moins 1 état est enregistré : -->
<xsl:when test="local-name($current-command) = 'restore' and count($states)>=1">
<!--On
séléctionne notre state-->
<xsl:variable
name="state" select="$states/state[1]" />
<xsl:variable
name="remaining-states"
select="subsequence($states/state, 1, count($states/state) - 1)" />
<xsl:call-template
name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" />
<xsl:with-param
name="x" select="($state/@x)[last()]" />
<xsl:with-param name="y"
select="($state/@y)[last()]" />
<xsl:with-param name="angle"
select="($state/@angle)[last()]" />
<xsl:with-param name="states"
select="$remaining-states" />
</xsl:call-template>
</xsl:when>
</xsl:choose>
</xsl:if>
</xsl:template>
</xsl:transform>