Paris7/l-systems
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

format

Browse source
This commit is contained in:
Mylloon 2024-05-06 14:24:53 +02:00
parent 7e27eeaae1
commit 36651b8faa
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 94 additions and 69 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

75
traceur.xsl
View file

@ -15,17 +15,19 @@
<xsl:template match="/tortue"> <xsl:template match="/tortue">
<xsl:processing-instruction name="xml-model">href="traceur.xsd"</xsl:processing-instruction> <xsl:processing-instruction name="xml-model">href="traceur.xsd"</xsl:processing-instruction>
<traceur> <traceur>
<!-- Appel du template pour traiter les commandes avec les valeurs initiales des <!-- Appel du template pour traiter les commandes
paramètres --> avec les valeurs initiales des paramètres -->
<xsl:call-template name="process-commands"> <xsl:call-template name="process-commands">
<xsl:with-param name="commands" select="*" /> <xsl:with-param name="commands"
select="*" />
<xsl:with-param name="x" <xsl:with-param name="x"
select="$initial-x" /> select="$initial-x" />
<xsl:with-param <xsl:with-param name="y"
name="y" select="$initial-y" /> select="$initial-y" />
<xsl:with-param <xsl:with-param
name="angle" select="$initial-angle" /> name="angle" select="$initial-angle" />
<xsl:with-param name="states" select="()" /> <xsl:with-param name="states"
select="()" />
</xsl:call-template> </xsl:call-template>
</traceur> </traceur>
</xsl:template> </xsl:template>
@ -33,9 +35,12 @@
<!-- Template récursif pour traiter les commandes individuelles --> <!-- Template récursif pour traiter les commandes individuelles -->
<xsl:template <xsl:template
name="process-commands"> name="process-commands">
<xsl:param name="commands" /> <xsl:param
<xsl:param name="x" /> name="commands" />
<xsl:param name="y" /> <xsl:param
name="x" />
<xsl:param
name="y" />
<xsl:param <xsl:param
name="angle" /> name="angle" />
<xsl:param <xsl:param
@ -44,8 +49,8 @@
<!-- Si il reste des commandes à traiter --> <!-- Si il reste des commandes à traiter -->
<xsl:if test="$commands"> <xsl:if test="$commands">
<!-- Sélection de la première commande à traiter --> <!-- Sélection de la première commande à traiter -->
<xsl:variable <xsl:variable name="current-command"
name="current-command" select="$commands[1]" /> select="$commands[1]" />
<xsl:choose> <xsl:choose>
<!-- Si la commande est une ligne --> <!-- Si la commande est une ligne -->
<xsl:when test="local-name($current-command) = 'line'"> <xsl:when test="local-name($current-command) = 'line'">
@ -58,42 +63,52 @@
select="$x + $distance * math:cos($radians)" /> select="$x + $distance * math:cos($radians)" />
<xsl:variable name="new-y" <xsl:variable name="new-y"
select="$y + $distance * math:sin($radians)" /> select="$y + $distance * math:sin($radians)" />
<!-- Création de l'élément LINETO avec les nouvelles coordonnées calculées --> <!-- Création de l'élément LINETO avec les nouvelles coordonnées calculées -->
<LINETO <LINETO
x="{format-number($new-x, '#.######')}" x="{format-number($new-x, '#.######')}"
y="{format-number($new-y, '#.######')}" /> y="{format-number($new-y, '#.######')}" />
<!-- Rappel récursif du template avec la mise à jour des coordonnées et des <!-- Rappel récursif du template avec la mise à jour des coordonnées et des
commandes restantes --> commandes restantes -->
<xsl:call-template <xsl:call-template
name="process-commands"> name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" /> <xsl:with-param
name="commands" select="$commands[position() > 1]" />
<xsl:with-param <xsl:with-param
name="x" select="$new-x" /> name="x" select="$new-x" />
<xsl:with-param name="y" select="$new-y" /> <xsl:with-param
name="y" select="$new-y" />
<xsl:with-param <xsl:with-param
name="angle" select="$angle" /> name="angle" select="$angle" />
<xsl:with-param name="states" select="$states" /> <xsl:with-param
name="states" select="$states" />
</xsl:call-template> </xsl:call-template>
</xsl:when> </xsl:when>
<!-- Si la commande est un turn --> <!-- Si la commande est un turn -->
<xsl:when test="local-name($current-command) = 'turn'"> <xsl:when test="local-name($current-command) = 'turn'">
<!-- Calcul du nouvel angle avec modulo 360 pour rester dans un cercle complet --> <!-- Calcul du nouvel angle avec modulo 360 pour rester dans un cercle complet -->
<xsl:variable <xsl:variable name="new-angle"
name="new-angle" select="($angle + number($current-command)) mod 360" /> select="($angle + number($current-command)) mod 360" />
<!-- Rappel récursif du template sans changer de position mais en mettant à jour <!-- Rappel récursif du template sans changer de position mais en mettant à jour
l'angle --> l'angle -->
<xsl:call-template <xsl:call-template
name="process-commands"> name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" /> <xsl:with-param
name="commands" select="$commands[position() > 1]" />
<xsl:with-param <xsl:with-param
name="x" select="$x" /> name="x" select="$x" />
<xsl:with-param name="y" select="$y" /> <xsl:with-param
name="y" select="$y" />
<xsl:with-param <xsl:with-param
name="angle" select="$new-angle" /> name="angle" select="$new-angle" />
<xsl:with-param name="states" <xsl:with-param name="states"
select="$states" /> select="$states" />
</xsl:call-template> </xsl:call-template>
</xsl:when> </xsl:when>
<!-- Si la commande est un MOVE --> <!-- Si la commande est un MOVE -->
<xsl:when test="local-name($current-command) = 'move'"> <xsl:when test="local-name($current-command) = 'move'">
<!-- Calcul de la distance à parcourir et conversion de l'angle en radians --> <!-- Calcul de la distance à parcourir et conversion de l'angle en radians -->
@ -105,23 +120,29 @@
select="$x + $distance * math:cos($radians)" /> select="$x + $distance * math:cos($radians)" />
<xsl:variable name="new-y" <xsl:variable name="new-y"
select="$y + $distance * math:sin($radians)" /> select="$y + $distance * math:sin($radians)" />
<!-- Création de l'élément MOVETO avec les nouvelles coordonnées calculées --> <!-- Création de l'élément MOVETO avec les nouvelles coordonnées calculées -->
<MOVETO <MOVETO
x="{format-number($new-x, '#.######')}" x="{format-number($new-x, '#.######')}"
y="{format-number($new-y, '#.######')}" /> y="{format-number($new-y, '#.######')}" />
<!-- Rappel récursif du template avec la mise à jour des coordonnées et des <!-- Rappel récursif du template avec la mise à jour des coordonnées et des
commandes restantes --> commandes restantes -->
<xsl:call-template <xsl:call-template
name="process-commands"> name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" /> <xsl:with-param
name="commands" select="$commands[position() > 1]" />
<xsl:with-param <xsl:with-param
name="x" select="$new-x" /> name="x" select="$new-x" />
<xsl:with-param name="y" select="$new-y" /> <xsl:with-param
name="y" select="$new-y" />
<xsl:with-param <xsl:with-param
name="angle" select="$angle" /> name="angle" select="$angle" />
<xsl:with-param name="states" select="$states" /> <xsl:with-param name="states"
select="$states" />
</xsl:call-template> </xsl:call-template>
</xsl:when> </xsl:when>
<!-- Si la commande est un store --> <!-- Si la commande est un store -->
<xsl:when test="local-name($current-command) = 'store'"> <xsl:when test="local-name($current-command) = 'store'">
<!-- On enregistre le nouvelle état--> <!-- On enregistre le nouvelle état-->
@ -133,18 +154,21 @@
name="new-states" select="($states, $new-state)" /> name="new-states" select="($states, $new-state)" />
<xsl:call-template <xsl:call-template
name="process-commands"> name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" /> <xsl:with-param
name="commands" select="$commands[position() > 1]" />
<xsl:with-param <xsl:with-param
name="x" select="$x" /> name="x" select="$x" />
<xsl:with-param name="y" select="$y" /> <xsl:with-param
name="y" select="$y" />
<xsl:with-param <xsl:with-param
name="angle" select="$angle" /> name="angle" select="$angle" />
<xsl:with-param name="states" <xsl:with-param name="states"
select="$new-states" /> select="$new-states" />
</xsl:call-template> </xsl:call-template>
</xsl:when> </xsl:when>
<!-- Si la commande est un restore et que au moins 1 état est enregistré : --> <!-- 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"> <xsl:when test="local-name($current-command) = 'restore' and count($states) >= 1">
<!-- On séléctionne notre state--> <!-- On séléctionne notre state-->
<xsl:variable <xsl:variable
name="state" select="$states/state[1]" /> name="state" select="$states/state[1]" />
@ -154,7 +178,8 @@
<xsl:call-template <xsl:call-template
name="process-commands"> name="process-commands">
<xsl:with-param name="commands" select="$commands[position() > 1]" /> <xsl:with-param
name="commands" select="$commands[position() > 1]" />
<xsl:with-param <xsl:with-param
name="x" select="($state/@x)[last()]" /> name="x" select="($state/@x)[last()]" />
<xsl:with-param name="y" <xsl:with-param name="y"