From e7daad3f9560ee418ea409f754e62a99a4b71369 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Fri, 3 May 2024 01:50:50 +0200
Subject: [PATCH] add traceur files

Co-authored-by: @tonino
---
 traceur.xsd |  30 +++++++--
 traceur.xsl | 185 +++++++++++++++++++++++++++++++++++++++++++++++++---
 2 files changed, 201 insertions(+), 14 deletions(-)

diff --git a/traceur.xsd b/traceur.xsd
index 6058c25..2d6d3a1 100644
--- a/traceur.xsd
+++ b/traceur.xsd
@@ -1,6 +1,24 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
-
-  <!-- TODO : Matthieu -->
-
-</xs:schema>
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
+    <xs:element name="traceur">
+        <xs:complexType>
+            <xs:sequence>
+                <!-- 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>
diff --git a/traceur.xsl b/traceur.xsl
index 3fa6710..386467f 100644
--- a/traceur.xsl
+++ b/traceur.xsl
@@ -1,8 +1,177 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<xsl:transform version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-  xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.w3.org/1999/xhtml">
-  <xsl:output indent="yes" />
-
-  <!-- TODO : Matthieu -->
-
-</xsl:transform>
+<xsl:transform version="3.0"
+    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:math="http://www.w3.org/2005/xpath-functions/math"
+    xmlns:xs="http://www.w3.org/2001/XMLSchema"
+    exclude-result-prefixes="xs math">
+    <xsl:output method="xml" indent="yes" />
+
+    <!-- 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>