texlive[74919] Master/texmf-dist: tangramtikz (12apr25)
commits+karl at tug.org
commits+karl at tug.org
Sat Apr 12 21:33:53 CEST 2025
Revision: 74919
https://tug.org/svn/texlive?view=revision&revision=74919
Author: karl
Date: 2025-04-12 21:33:53 +0200 (Sat, 12 Apr 2025)
Log Message:
-----------
tangramtikz (12apr25)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-en.pdf
trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-en.tex
trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-fr.pdf
trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-fr.tex
trunk/Master/texmf-dist/tex/latex/tangramtikz/TangramTikz.sty
Modified: trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-en.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-en.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-en.tex 2025-04-12 19:05:41 UTC (rev 74918)
+++ trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-en.tex 2025-04-12 19:33:53 UTC (rev 74919)
@@ -50,8 +50,8 @@
\setlength{\parindent}{0pt}
\definecolor{LightGray}{gray}{0.9}
-\def\TPversion{0.1.8}
-\def\TPdate{03/04/2025}
+\def\TPversion{0.2.0}
+\def\TPdate{12/04/2025}
\usepackage[most]{tcolorbox}
\usepackage{minted2}
@@ -124,7 +124,7 @@
{$\blacktriangleright$~~Inspired by \url{https://tex.stackexchange.com/questions/407449/typesetting-tangram-figures-in-latex}}
-\vspace{1cm}
+\vspace{0.5cm}
\begin{center}
\tikz {\pic[TangPuzz={blue}] at (0,0) {TangBigTri} ;}~~
@@ -145,8 +145,12 @@
\vspace{0.5cm}
-\hfill{}\textit{Thanks to Eric Martin, teacher-researcher in Sydney, for his careful proofreading of the English version!}
+\hfill{}\textit{\small Thanks to Eric Martin, teacher-researcher in Sydney, for his careful proofreading of the English version!}
+\smallskip
+
+\hfill{}\textit{\small Thanks to Sarah Hadley, Laboratory Manager \&\ Research Assistant at the University of Saskatchewan, for her feedback and ideas!}
+
%\hfill{}\textit{Merci à Denis Bitouzé et à Patrick Bideault pour leurs retours et idées !}
\vfill
@@ -391,7 +395,7 @@
\begin{PresentationCode}{listing only}
%Standalone command to display a Tangram
-\TangramTikz[keys]<options tikz>{tangram_name}
+\TangramTikz[keys]<tikz options>{tangram_name}
\end{PresentationCode}
\begin{PresentationCode}{}
@@ -409,9 +413,12 @@
\item the boolean \Cle{BlackWhite} which displays part layouts with border \hfill~default: \Cle{false}
\item \Cle{Color} to configure the \textit{mono}colour associated with the previous booleans \hfill~default: \Cle{black}
\item the boolean \Cle{ColorSolution} (\textsc{\textcolor{purple}{\scriptsize\textbf{new name since v0.1.7 !}}}) to display coloured pieces, with a border \hfill~default: \Cle{false}
- \item \Cle{ColorList} to list the colours of the pieces (\texttt{BT,MT,ST,SQUA,PARA});
+ \item \Cle{ColorList} to list the colours of the pieces (\texttt{BT,MT,ST,SQUA,PARA} or \texttt{BT1,BT2,MT,ST1,ST2,SQUA,PARA});
\hfill~default: \Cle{red,orange,blue,green,purple}
+ \item \Cle{PartsList} to specify the list of parts to be displayed (in the same \textit{order} as the \textit{complete} colors);
+
+ \hfill~default: \Cle{1234567}
\item \Cle{Sep}, the width of the border in \Cle{Solution} mode. \hfill~default: \Cle{1pt}
\end{itemize}
@@ -428,11 +435,49 @@
\pagebreak
+\subsection{Help for 'missing tan task'}
+
+To work with \textit{missing tan task} operation (\href{https://www.researchgate.net/publication/371039854_Comparing_Mental_Effort_Difficulty_and_Confidence_Appraisals_in_Problem-Solving_A_Metacognitive_Perspective}{[link]}), it is possible to display a small \textit{help} puzzle with the names of the pieces displayed.
+
+\begin{PresentationCode}{listing only}
+%commande autonome pour afficher une aide type 'mtt'
+\TangramTikzHelp[keys]<tikz options>
+\end{PresentationCode}
+
+Two specific keys are available, in addition to those detailed above:
+
+\begin{itemize}
+ \item boolean \Cle{Help} to show the name of the pieces; \hfill~default: \Cle{true}
+ \item \Cle{Names} for the name of the pieces \texttt{BT1,BT2,MT,ST1,ST2,SQUARE,PARA} ;
+
+ \hfill~default: \Cle{A1,A2,D,B1,B2,E,C}
+\end{itemize}
+
+\begin{PresentationCode}{}
+\TangramTikzHelp[Solution]
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikzHelp[Solution,Color=teal]<scale=2,transform shape>
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikzHelp[ColorList,Help=false]
+\end{PresentationCode}
+
+The \TikZ\ style for the nodes is given below.
+
+\begin{PresentationCode}{listing only}
+\tikzset{tangramhelp/.style={text=white,inner sep=0pt,font=\sffamily\small\bfseries}}
+\end{PresentationCode}
+
+\pagebreak
+
\subsection{List of predefined Tangrams}
\texttt{\begin{multicols}{5}
\begin{itemize}
- \item Square
+ \item \hyperref[square]{Square}
\item Pinguin
\item Boat
\item Home
@@ -471,6 +516,8 @@
\item Goose
\item Cow
\item Gift
+ \item Man
+ \item Arrow
\end{itemize}
\end{multicols}}
@@ -483,7 +530,8 @@
\TangramTikz<scale=1.5,rotate=30>{Rocket}~~
\TangramTikz<scale=0.75,rotate=-90>{Rocket}~~
-\TangramTikz[BlackWhite]<scale=0.5>{Rocket}
+\TangramTikz[BlackWhite]<scale=0.5>{Rocket}~~
+\TangramTikz[PartsList=134567,ColorSolution,ColorList={cyan,green,red,pink,purple,orange,yellow},Sep=0pt]{Rocket}
\end{PresentationCode}
\pagebreak
@@ -490,6 +538,7 @@
\part{A gallery of Tangrams}
+\label{square}
\begin{PresentationCode}{}
\TangramTikz{Square}
\TangramTikz[BlackWhite]{Square}
@@ -726,26 +775,46 @@
\TangramTikz[ColorSolution]{Gift}
\end{PresentationCode}
+\begin{PresentationCode}{}
+\TangramTikz<scale=0.75>{Man}
+\TangramTikz[Solution]<scale=0.75>{Man}
+\TangramTikz[ColorSolution]<scale=0.75>{Man}
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikz<scale=0.75>{Horseman}
+\TangramTikz[Solution]<scale=0.75>{Horseman}
+\TangramTikz[ColorSolution]<scale=0.75>{Horseman}
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikz<scale=0.75>{Arrow}
+\TangramTikz[Solution]<scale=0.75>{Arrow}
+\TangramTikz[ColorSolution]<scale=0.75>{Arrow}
+\end{PresentationCode}
+
\newpage
\part{History}
-\verb|v0.1.8|~:~~~~\textsf{[BlackWhite]} key + \textsf{Cow}/\textsf{Gift} models
+\verb|v0.2.0|~:~New key for choosing parts + new model + enhancements for colors + help
-\verb|v0.1.7|~:~~~~Bugfixes in english doc + Renaming certain keys
+\verb|v0.1.8|~:~\textsf{[BlackWhite]} key + \textsf{Cow}/\textsf{Gift} models
-\verb|v0.1.6|~:~~~~New models
+\verb|v0.1.7|~:~Bugfixes in english doc + Renaming certain keys
-\verb|v0.1.5|~:~~~~New models
+\verb|v0.1.6|~:~New models
-\verb|v0.1.4|~:~~~~New models
+\verb|v0.1.5|~:~New models
-\verb|v0.1.3|~:~~~~New models
+\verb|v0.1.4|~:~New models
-\verb|v0.1.2|~:~~~~New models
+\verb|v0.1.3|~:~New models
-\verb|v0.1.1|~:~~~~New models
+\verb|v0.1.2|~:~New models
-\verb|v0.1.0|~:~~~~Initial version
+\verb|v0.1.1|~:~New models
+\verb|v0.1.0|~:~Initial version
+
\end{document}
\ No newline at end of file
Modified: trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-fr.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-fr.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-fr.tex 2025-04-12 19:05:41 UTC (rev 74918)
+++ trunk/Master/texmf-dist/doc/latex/tangramtikz/TangramTikz-doc-fr.tex 2025-04-12 19:33:53 UTC (rev 74919)
@@ -49,8 +49,8 @@
\setlength{\parindent}{0pt}
\definecolor{LightGray}{gray}{0.9}
-\def\TPversion{0.1.8}
-\def\TPdate{3 avril 2025}
+\def\TPversion{0.2.0}
+\def\TPdate{12 avril 2025}
\usepackage[most]{tcolorbox}
\usepackage{minted2}
@@ -121,7 +121,7 @@
{$\blacktriangleright$~~Idée(s) venant de \url{https://tex.stackexchange.com/questions/407449/typesetting-tangram-figures-in-latex}}
-\vspace{1cm}
+\vspace{0.5cm}
\begin{center}
\tikz {\pic[TangPuzz={blue}] at (0,0) {TangBigTri} ;}~~
@@ -142,8 +142,12 @@
\vspace{0.5cm}
-\hfill{}\textit{Merci à Eric Martin, enseignant-chercheur à Sydney, pour sa relecture attentive de la version anglaise !}
+\hfill{}\textit{\small Merci à Eric Martin, enseignant-chercheur à Sydney, pour sa relecture attentive de la version anglaise !}
+\smallskip
+
+\hfill{}\textit{\small Merci à Sarah Hadley, resp. de laboratoire \&\ assistante de recherche à l'Université de Saskatchewan, pour ses retours et ses idées.}
+
%\hfill{}\textit{Merci aux membres du groupe \faFacebook{} du \og Coin \LaTeX{} \fg{} pour leur aide et leurs idées !}
%\hfill{}\textit{Merci à Denis Bitouzé et à Patrick Bideault pour leurs retours et idées !}
@@ -410,9 +414,12 @@
\item le booléen \Cle{NoirBlanc} qui affiche les tracés des pièces avec bordure ; \hfill~défaut : \Cle{false}
\item \Cle{Couleur} qui paramètre la couleur globale du puzzle avec les booléens précédents ; \hfill~défaut : \Cle{black}
\item le booléen \Cle{CorrectionCouleur} qui affiche les pièces (colorées) du puzzle, avec bordure ; \hfill~défaut : \Cle{false}
- \item \Cle{ListeCouleurs} qui est la couleur des pièces (\texttt{GT,MT,PT,CAR,PARA}) ;
+ \item \Cle{ListeCouleurs} qui est la couleur des pièces (\texttt{GT,MT,PT,CAR,PARA} ou \texttt{GT1,GT2,MT1,PT1,PT2,CAR,PARA}) ;
\hfill~défaut : \Cle{red,orange,blue,green,purple}
+ \item \Cle{ListePieces} pour spécifier la liste des pièces à afficher (dans le même \textit{ordre} que les couleurs \textit{complètes}) ;
+
+ \hfill~défaut : \Cle{1234567}
\item \Cle{Sep} qui est l'épaisseur de la bordure des pièces en mode \Cle{Correction} \hfill~défaut : \Cle{1pt}
\end{itemize}
@@ -428,6 +435,44 @@
\pagebreak
+\subsection{Aide à la manière de 'missing tan task'}
+
+Afin de travailler sur un fonctionnement \textit{missing tan task} (\href{https://www.researchgate.net/publication/371039854_Comparing_Mental_Effort_Difficulty_and_Confidence_Appraisals_in_Problem-Solving_A_Metacognitive_Perspective}{[lien]}), il est possible d'afficher un puzzle d'aide avec affichage du nom des pièces.
+
+\begin{PresentationCode}{listing only}
+%commande autonome pour afficher une aide type 'mtt'
+\TangramTikzAide[clés]<options tikz>
+\end{PresentationCode}
+
+Deux clés spécifiques sont disponibles, en plus de celles détaillées précédemment :
+
+\begin{itemize}
+ \item le booléen \Cle{Aide} pour afficher le nom des pièces ; \hfill~défaut : \Cle{true}
+ \item \Cle{Noms} pour donner le nom des pièces, dans l'ordre \texttt{GT1,GT2,MT1,PT1,PT2,CAR,PARA} ;
+
+ \hfill~défaut : \Cle{A1,A2,D,B1,B2,E,C}
+\end{itemize}
+
+\begin{PresentationCode}{}
+\TangramTikzAide[Correction]
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikzAide[Correction,Couleur=teal]<scale=2,transform shape>
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikzAide[CorrectionCouleur,Aide=false]
+\end{PresentationCode}
+
+Le style des labels est donné (et peut-être redéfini) par le code suivant.
+
+\begin{PresentationCode}{listing only}
+\tikzset{tangramhelp/.style={text=white,inner sep=0pt,font=\sffamily\small\bfseries}}
+\end{PresentationCode}
+
+\pagebreak
+
\subsection{Liste des Tangrams inclus dans le package}
%
\texttt{\begin{multicols}{5}
@@ -471,6 +516,9 @@
\item Oie
\item Vache
\item Cadeau
+ \item Homme
+ \item Cavalier
+ \item Fleche
\end{itemize}
\end{multicols}}
@@ -486,6 +534,7 @@
\TangramTikz<scale=1.5,rotate=30>{Fusee}~~
\TangramTikz<scale=0.75,rotate=-90>{Fusee}~~
\TangramTikz[NoirBlanc]<scale=0.5>{Fusee}
+\TangramTikz[ListePieces=134567,CorrectionCouleur,ListeCouleurs={cyan,green,red,pink,purple,orange,yellow},Sep=0pt]{Fusee}
\end{PresentationCode}
\pagebreak
@@ -727,26 +776,46 @@
\TangramTikz[CorrectionCouleur]<scale=0.75>{Cadeau}
\end{PresentationCode}
+\begin{PresentationCode}{}
+\TangramTikz<scale=0.75>{Homme}
+\TangramTikz[Correction]<scale=0.75>{Homme}
+\TangramTikz[CorrectionCouleur]<scale=0.75>{Homme}
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikz<scale=0.75>{Cavalier}
+\TangramTikz[Correction]<scale=0.75>{Cavalier}
+\TangramTikz[CorrectionCouleur]<scale=0.75>{Cavalier}
+\end{PresentationCode}
+
+\begin{PresentationCode}{}
+\TangramTikz<scale=0.75>{Fleche}
+\TangramTikz[Correction]<scale=0.75>{Fleche}
+\TangramTikz[CorrectionCouleur]<scale=0.75>{Fleche}
+\end{PresentationCode}
+
\newpage
\part{Historique}
-\verb|v0.1.8|~:~~~~Clé \textsf{[NoirBlanc]} pour un affichage non coloré + modèles \textsf{Vache} et \textsf{Cadeau}
+\verb|v0.2.0|~:~Clé \textsf{[ListePieces]} + nouveaux modèles + améliorations pour les couleurs
-\verb|v0.1.7|~:~~~~Améliorations pour la version anglaise
+\verb|v0.1.8|~:~Clé \textsf{[NoirBlanc]} pour un affichage non coloré + modèles \textsf{Vache} et \textsf{Cadeau}
-\verb|v0.1.6|~:~~~~Nouveaux modèles
+\verb|v0.1.7|~:~Améliorations pour la version anglaise
-\verb|v0.1.5|~:~~~~Nouveaux modèles
+\verb|v0.1.6|~:~Nouveaux modèles
-\verb|v0.1.4|~:~~~~Nouveaux modèles
+\verb|v0.1.5|~:~Nouveaux modèles
-\verb|v0.1.3|~:~~~~Nouveaux modèles
+\verb|v0.1.4|~:~Nouveaux modèles
-\verb|v0.1.2|~:~~~~Nouveaux modèles
+\verb|v0.1.3|~:~Nouveaux modèles
-\verb|v0.1.1|~:~~~~Nouveaux modèles
+\verb|v0.1.2|~:~Nouveaux modèles
-\verb|v0.1.0|~:~~~~Version initiale
+\verb|v0.1.1|~:~Nouveaux modèles
+\verb|v0.1.0|~:~Version initiale
+
\end{document}
\ No newline at end of file
Modified: trunk/Master/texmf-dist/tex/latex/tangramtikz/TangramTikz.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/tangramtikz/TangramTikz.sty 2025-04-12 19:05:41 UTC (rev 74918)
+++ trunk/Master/texmf-dist/tex/latex/tangramtikz/TangramTikz.sty 2025-04-12 19:33:53 UTC (rev 74919)
@@ -3,7 +3,8 @@
% Inspiration....: https://tex.stackexchange.com/questions/407449/typesetting-tangram-figures-in-latex
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{TangramTikz}[2025/04/03 v0.1.8 Tangram Puzzles with TikZ]
+\ProvidesPackage{TangramTikz}[2025/04/12 v0.2.0 Tangram Puzzles with TikZ]
+% 0.2.0 New key for choosing parts + new models + enhancements for colors + help ('MTT')
% 0.1.8 New key BlackWhite + modèle vache
% 0.1.7 Améliorations pour la version [en]
% 0.1.6 Ajout de modèles
@@ -48,22 +49,22 @@
\NewDocumentCommand\TangramSquare{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \pic[TangSol={\TanGListeCouleurs[1]}] at (0,0) {TangBigTri};%
- \pic[TangSol={\TanGListeCouleurs[1]},rotate=-90] at (2,2) {TangBigTri};%
- \pic[TangSol={\TanGListeCouleurs[4]},rotate=-90] at (2,0) {TangSqua};%
- \pic[TangSol={\TanGListeCouleurs[3]},rotate=180] at (4,0) {TangSmalTri};%
- \pic[TangSol={\TanGListeCouleurs[3]},rotate=90] at (2,-1) {TangSmalTri};%
- \pic[TangSol={\TanGListeCouleurs[5]},xscale=-1] at (2,-1) {TangPara};%
- \pic[TangSol={\TanGListeCouleurs[2]},rotate=180] at (3,-1) {TangMedTri};%
+ \IfSubStr{\TangLstPieces}{1}{\pic[TangSol={\TanGListeCouleurs[1]}] at (0,0) {TangBigTri};}{}%
+ \IfSubStr{\TangLstPieces}{2}{\pic[TangSol={\TanGListeCouleurs[2]},rotate=-90] at (2,2) {TangBigTri};}{}%
+ \IfSubStr{\TangLstPieces}{6}{\pic[TangSol={\TanGListeCouleurs[6]},rotate=-90] at (2,0) {TangSqua};}{}%
+ \IfSubStr{\TangLstPieces}{4}{\pic[TangSol={\TanGListeCouleurs[4]},rotate=180] at (4,0) {TangSmalTri};}{}%
+ \IfSubStr{\TangLstPieces}{5}{\pic[TangSol={\TanGListeCouleurs[5]},rotate=90] at (2,-1) {TangSmalTri};}{}%
+ \IfSubStr{\TangLstPieces}{7}{\pic[TangSol={\TanGListeCouleurs[7]},xscale=-1] at (2,-1) {TangPara};}{}%
+ \IfSubStr{\TangLstPieces}{3}{\pic[TangSol={\TanGListeCouleurs[3]},rotate=180] at (3,-1) {TangMedTri};}{}%
}%
{%
- \pic[#2] at (0,0) {TangBigTri};%
- \pic[#2,rotate=-90] at (2,2) {TangBigTri};%
- \pic[#2,rotate=-90] at (2,0) {TangSqua};%
- \pic[#2,rotate=180] at (4,0) {TangSmalTri};%
- \pic[#2,rotate=90] at (2,-1) {TangSmalTri};%
- \pic[#2,xscale=-1] at (2,-1) {TangPara};%
- \pic[#2,rotate=180] at (3,-1) {TangMedTri};%
+ \IfSubStr{\TangLstPieces}{1}{\pic[#2] at (0,0) {TangBigTri};}{}%
+ \IfSubStr{\TangLstPieces}{2}{\pic[#2,rotate=-90] at (2,2) {TangBigTri};}{}%
+ \IfSubStr{\TangLstPieces}{6}{\pic[#2,rotate=-90] at (2,0) {TangSqua};}{}%
+ \IfSubStr{\TangLstPieces}{4}{\pic[#2,rotate=180] at (4,0) {TangSmalTri};}{}%
+ \IfSubStr{\TangLstPieces}{5}{\pic[#2,rotate=90] at (2,-1) {TangSmalTri};}{}%
+ \IfSubStr{\TangLstPieces}{7}{\pic[#2,xscale=-1] at (2,-1) {TangPara};}{}%
+ \IfSubStr{\TangLstPieces}{3}{\pic[#2,rotate=180] at (3,-1) {TangMedTri};}{}%
}%
}
@@ -72,22 +73,22 @@
\NewDocumentCommand\TangramPinguin{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \path (0,-1) pic[TangSol={\TanGListeCouleurs[3]}] {TangSmalTri}
- ++(1,0) pic[TangSol={\TanGListeCouleurs[4]}] {TangSqua}
- ++(1,1) pic[TangSol={\TanGListeCouleurs[1]},rotate=-45,yscale=-1] {TangBigTri}
- ++(-45:2) pic[TangSol={\TanGListeCouleurs[1]},rotate=-135] {TangBigTri}
- +({-sqrt(2)},0) pic[TangSol={\TanGListeCouleurs[5]},rotate=-135] {TangPara}
- ++(-2,{-2*sqrt(2)}) pic[TangSol={\TanGListeCouleurs[2]}] {TangMedTri}
- ++(2,1) pic[TangSol={\TanGListeCouleurs[3]},rotate=-90] {TangSmalTri} ;
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=225>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-2+sqrt(2)},{-sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-135>(0,{sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}](-1,{2*sqrt(2)-1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-90>({sqrt(2)},{1-sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}](-2,{2*sqrt(2)-1}){TangPetTri}}{}%
}%
{%
- \path (0,-1) pic[#2] {TangSmalTri}
- ++(1,0) pic[#2] {TangSqua}
- ++(1,1) pic[#2,rotate=-45,yscale=-1] {TangBigTri}
- ++(-45:2) pic[#2,rotate=-135] {TangBigTri}
- +({-sqrt(2)},0) pic[#2,rotate=-135] {TangPara}
- ++(-2,{-2*sqrt(2)}) pic[#2] {TangMedTri}
- ++(2,1) pic[#2,rotate=-90] {TangSmalTri} ;
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-2+sqrt(2)},{-sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-135>(0,{sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=225>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2](-1,{2*sqrt(2)-1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-90>({sqrt(2)},{1-sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2](-2,{2*sqrt(2)-1}){TangPetTri}}{}%
}%
}
@@ -96,24 +97,22 @@
\NewDocumentCommand\TangramBoat{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \path (0,0) pic[TangSol={\TanGListeCouleurs[2]},rotate=180] {TangMedTri}
- ++(-1,-1) pic[TangSol={\TanGListeCouleurs[5]}] {TangPara}
- ++(1,0) pic[TangSol={\TanGListeCouleurs[3]}] {TangSmalTri}
- ++(1,0) pic[TangSol={\TanGListeCouleurs[4]}] {TangSqua}
- ++(2,1) pic[TangSol={\TanGListeCouleurs[3]},rotate=180] {TangSmalTri}
- ++(-2.5,0) pic[TangSol={\TanGListeCouleurs[1]},rotate=80] {TangBigTri}
- ++(80:4)
- ++(170:2) pic[TangSol={\TanGListeCouleurs[1]},rotate=-100] {TangBigTri} ;
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=80>({0.5},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=10>({0.5+2*cos(80)},{2*sin(80)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>(0,0){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}](-1,-1){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}](1,-1){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}](0,-1){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>(3,0){TangPetTri}}{}%
}%
{%
- \path (0,0) pic[#2,rotate=180] {TangMedTri}
- ++(-1,-1) pic[#2] {TangPara}
- ++(1,0) pic[#2] {TangSmalTri}
- ++(1,0) pic[#2] {TangSqua}
- ++(2,1) pic[#2,rotate=180] {TangSmalTri}
- ++(-2.5,0) pic[#2,rotate=80] {TangBigTri}
- ++(80:4)
- ++(170:2) pic[#2,rotate=-100] {TangBigTri} ;
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=80>({0.5},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=180>(0,0){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2](-1,-1){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<xscale=-1,rotate=10>({0.5+2*cos(80)},{2*sin(80)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2](1,-1){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2](0,-1){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>(3,0){TangPetTri}}{}%
}%
}
@@ -121,22 +120,22 @@
\NewDocumentCommand\TangramHome{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({sqrt(8)},0){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>(0,0){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}](-0.5,{sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({0.5+sqrt(8)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}](0.5,{sqrt(2)+1}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=-1,rotate=45>({sqrt(8)},0){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({sqrt(8)},0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>(0,0){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}](-0.5,{sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({0.5+sqrt(8)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}](0.5,{sqrt(2)+1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=45>({sqrt(8)},0){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=135>({sqrt(8)},0){TangGrandTri}
- \PieceTangram[#2]<rotate=45>(0,0){TangMoyTri}
- \PieceTangram[#2](-0.5,{sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=135>({0.5+sqrt(8)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[#2](0.5,{sqrt(2)+1}){TangCar}
- \PieceTangram[#2]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=45>({sqrt(8)},0){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=135>({sqrt(8)},0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=45>(0,0){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2](-0.5,{sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=135>({0.5+sqrt(8)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2](0.5,{sqrt(2)+1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<xscale=-1,rotate=45>({sqrt(8)},0){TangPetTri}}{}%
}%
}
@@ -144,22 +143,22 @@
\NewDocumentCommand\TangramFirTree{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=0>({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=0>({-1.5},{1}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0.5},{3}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=0>({2.5},{2}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=0>({-1.5},{2}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=-1,rotate=90>({-0.5},{2}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=0>({-0.5},{3}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=0>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=0>({-1.5},{1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-90>({0.5},{3}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=0>({2.5},{2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=0>({-1.5},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=90>({-0.5},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=0>({-0.5},{3}){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=0>({0},{0}){TangCar}
- \PieceTangram[#2]<rotate=0>({-1.5},{1}){TangGrandTri}
- \PieceTangram[#2]<rotate=-90>({0.5},{3}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=0>({2.5},{2}){TangPara}
- \PieceTangram[#2]<rotate=0>({-1.5},{2}){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=90>({-0.5},{2}){TangPetTri}
- \PieceTangram[#2]<rotate=0>({-0.5},{3}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=0>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=0>({-1.5},{1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-90>({0.5},{3}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=0>({2.5},{2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=0>({-1.5},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<xscale=-1,rotate=90>({-0.5},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=0>({-0.5},{3}){TangMoyTri}}{}%
}%
}
@@ -167,22 +166,22 @@
\NewDocumentCommand\TangramCat{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({2-sqrt(2)},{2+sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=0>(0,0){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({2-sqrt(2)},{2-sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]({2},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({2-1.5*sqrt(2)},{2+1.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=1,rotate=-135>({2-0.5*sqrt(2)},{2+2.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({2-sqrt(2)},{sqrt(2)}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({2-sqrt(2)},{2+sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=0>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>({2-sqrt(2)},{2-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({2-1.5*sqrt(2)},{2+1.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<xscale=1,rotate=-135>({2-0.5*sqrt(2)},{2+2.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({2-sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=45>({2-sqrt(2)},{2+sqrt(2)}){TangCar}
- \PieceTangram[#2]<rotate=0>(0,0){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({2-sqrt(2)},{2-sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]({2},{0}){TangPara}
- \PieceTangram[#2]<rotate=45>({2-1.5*sqrt(2)},{2+1.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<xscale=1,rotate=-135>({2-0.5*sqrt(2)},{2+2.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=90>({2-sqrt(2)},{sqrt(2)}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({2-sqrt(2)},{2+sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=0>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=45>({2-sqrt(2)},{2-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=45>({2-1.5*sqrt(2)},{2+1.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<xscale=1,rotate=-135>({2-0.5*sqrt(2)},{2+2.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=90>({2-sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
}%
}
@@ -190,22 +189,22 @@
\NewDocumentCommand\TangramSwan{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=0>({sqrt(2)},{sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=0>({sqrt(2)+1},{sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=90>({0},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=-135>({0},{2+sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=1,rotate=0>({-1},{1+sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=0>({sqrt(2)},{sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=0>({sqrt(2)+1},{sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=-1,rotate=90>({0},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=-135>({0},{2+sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=1,rotate=0>({-1},{1+sqrt(2)}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]({sqrt(2)},{sqrt(2)}){TangPetTri}
- \PieceTangram[#2]({sqrt(2)+1},{sqrt(2)}){TangCar}
- \PieceTangram[#2]<xscale=-1,rotate=90>({0},{0}){TangMoyTri}
- \PieceTangram[#2]<xscale=-1,rotate=-135>({0},{2+sqrt(2)}){TangPara}
- \PieceTangram[#2]<xscale=1>({-1},{1+sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]({sqrt(2)},{sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({sqrt(2)+1},{sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<xscale=-1,rotate=90>({0},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=-135>({0},{2+sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<xscale=1>({-1},{1+sqrt(2)}){TangPetTri}}{}%
}%
}
@@ -213,22 +212,22 @@
\NewDocumentCommand\TangramDuck{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=135>({sqrt(2)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({2*sqrt(2)},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({2.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=0>({sqrt(8)+0.5*sqrt(2)},{1+0.5*sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({2.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<yscale=-1,rotate=135>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({2*sqrt(2)},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=90>({2.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=0>({sqrt(8)+0.5*sqrt(2)},{1+0.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({2.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<yscale=-1,rotate=135>({sqrt(2)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({2*sqrt(2)},{0}){TangCar}
- \PieceTangram[#2]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=90>({2.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=0>({sqrt(8)+0.5*sqrt(2)},{1+0.5*sqrt(2)}){TangPara}
- \PieceTangram[#2]({2.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<yscale=-1,rotate=135>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({2*sqrt(2)},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-45>({sqrt(2)},{sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=90>({2.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=0>({sqrt(8)+0.5*sqrt(2)},{1+0.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({2.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangMoyTri}}{}%
}%
}
@@ -236,22 +235,22 @@
\NewDocumentCommand\TangramPyramid{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=1,rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=1,rotate=-45>({-sqrt(2)},{sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=1,rotate=-135>({0},{2*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=1,rotate=45>({0},{sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=1,rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=1,rotate=-45>({-sqrt(2)},{sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=1,rotate=-135>({0},{2*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=1,rotate=45>({0},{sqrt(2)}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<xscale=1,rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<xscale=1,rotate=-45>({-sqrt(2)},{sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}
- \PieceTangram[#2]<xscale=1,rotate=-135>({0},{2*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<xscale=1,rotate=45>({0},{sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<xscale=1,rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<xscale=-1,rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=1,rotate=-45>({-sqrt(2)},{sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<xscale=1,rotate=-135>({0},{2*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<xscale=1,rotate=45>({0},{sqrt(2)}){TangPetTri}}{}%
}%
}
@@ -259,22 +258,22 @@
\NewDocumentCommand\TangramRocket{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=0>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({2},{2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({0},{2}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({0.5},{-1}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-0.5},{-1}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({0.5},{-1}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({1.5},{0}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=0>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({2},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({0},{2}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({0.5},{-1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]({-0.5},{-1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>({0.5},{-1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-90>({1.5},{0}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=0>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({2},{2}){TangGrandTri}
- \PieceTangram[#2]({0},{2}){TangMoyTri}
- \PieceTangram[#2]({0.5},{-1}){TangCar}
- \PieceTangram[#2]({-0.5},{-1}){TangPetTri}
- \PieceTangram[#2]<rotate=180>({0.5},{-1}){TangPetTri}
- \PieceTangram[#2]<rotate=-90>({1.5},{0}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=0>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=180>({2},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({0},{2}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({0.5},{-1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]({-0.5},{-1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>({0.5},{-1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-90>({1.5},{0}){TangPara}}{}%
}%
}
@@ -282,22 +281,22 @@
\NewDocumentCommand\TangramCandle{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({1.5*sqrt(2)},{1.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({1.5*sqrt(2)},{2.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<yscale=-1>({sqrt(2)-1},{1+2*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({sqrt(2)-0.5},{1+2*sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=70>({sqrt(2)},{2+2*sqrt(2)}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({1.5*sqrt(2)},{1.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({1.5*sqrt(2)},{2.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<yscale=-1>({sqrt(2)-1},{1+2*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({sqrt(2)-0.5},{1+2*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=70>({sqrt(2)},{2+2*sqrt(2)}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({1.5*sqrt(2)},{1.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=-135>({1.5*sqrt(2)},{2.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<yscale=-1>({sqrt(2)-1},{1+2*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]({sqrt(2)-0.5},{1+2*sqrt(2)}){TangCar}
- \PieceTangram[#2]<rotate=70>({sqrt(2)},{2+2*sqrt(2)}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-135>({1.5*sqrt(2)},{1.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-135>({1.5*sqrt(2)},{2.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<yscale=-1>({sqrt(2)-1},{1+2*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({sqrt(2)-0.5},{1+2*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=70>({sqrt(2)},{2+2*sqrt(2)}){TangPara}}{}%
}%
}
@@ -305,22 +304,22 @@
\NewDocumentCommand\TangramShirt{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({2},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-1},{2}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({1},{2}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({1},{2}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({0},{2}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({2},{3}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-1},{2}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=90>({1},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({1},{2}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>({0},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-90>({2},{3}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[#2]<rotate=90>({2},{0}){TangGrandTri}
- \PieceTangram[#2]({-1},{2}){TangMoyTri}
- \PieceTangram[#2]<rotate=90>({1},{2}){TangPetTri}
- \PieceTangram[#2]({1},{2}){TangCar}
- \PieceTangram[#2]<rotate=180>({0},{2}){TangPetTri}
- \PieceTangram[#2]<rotate=-90>({2},{3}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=90>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-1},{2}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=90>({1},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({1},{2}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>({0},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-90>({2},{3}){TangPara}}{}%
}%
}
@@ -328,22 +327,22 @@
\NewDocumentCommand\TangramFish{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-45>({0},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-90>({-1},{1}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({sqrt(2)},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({1.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangGrandTri}
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-45>({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({-1},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-45>({sqrt(2)},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({1.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangGrandTri}}{}%
}%
{%
- \PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=-45>({0},{0}){TangPara}
- \PieceTangram[#2]<rotate=-90>({-1},{1}){TangMoyTri}
- \PieceTangram[#2]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=-45>({sqrt(2)},{0}){TangCar}
- \PieceTangram[#2]<rotate=-90>({1.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangGrandTri}
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-45>({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-90>({-1},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-45>({sqrt(2)},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-90>({1.5*sqrt(2)-2},{2+0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=180>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangGrandTri}}{}%
}%
}
@@ -351,22 +350,22 @@
\NewDocumentCommand\TangramSailboat{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]({-2},{0.35}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<yscale=-1>({-2+sqrt(2)},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({0},{1+2*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<yscale=-1>({-1-2+sqrt(2)},{0}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-2},{0.35}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<yscale=-1>({-2+sqrt(2)},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({0},{1+2*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<yscale=-1>({-1-2+sqrt(2)},{0}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=45>({0},{0}){TangGrandTri}
- \PieceTangram[#2]({-2},{0.35}){TangGrandTri}
- \PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}
- \PieceTangram[#2]<yscale=-1>({-2+sqrt(2)},{0}){TangMoyTri}
- \PieceTangram[#2]<rotate=-90>({0},{1+2*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<yscale=-1>({-1-2+sqrt(2)},{0}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]({-2},{0.35}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<yscale=-1,rotate=-45>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-45>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<yscale=-1>({-2+sqrt(2)},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>({0},{1+2*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<yscale=-1>({-1-2+sqrt(2)},{0}){TangPara}}{}%
}%
}
@@ -374,22 +373,22 @@
\NewDocumentCommand\TangramKangaroo{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({2},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({2},{-0.5}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({2},{3}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=-45>({0},{-2}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-0.5*sqrt(2)},{-2-0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({1-0.5*sqrt(2)},{-1-0.5*sqrt(2)}){TangCar}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({2},{-0.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({2},{3}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=-45>({0},{-2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-0.5*sqrt(2)},{-2-0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-45>({1-0.5*sqrt(2)},{-1-0.5*sqrt(2)}){TangCar}}{}%
}%
{%
- \PieceTangram[#2]({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({2},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({2},{-0.5}){TangPetTri}
- \PieceTangram[#2]<rotate=-90>({2},{3}){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=-45>({0},{-2}){TangPara}
- \PieceTangram[#2]({-0.5*sqrt(2)},{-2-0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<rotate=-45>({1-0.5*sqrt(2)},{-1-0.5*sqrt(2)}){TangCar}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=45>({2},{-0.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>({2},{3}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=-45>({0},{-2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-0.5*sqrt(2)},{-2-0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-45>({1-0.5*sqrt(2)},{-1-0.5*sqrt(2)}){TangCar}}{}%
}%
}
@@ -397,22 +396,22 @@
\NewDocumentCommand\TangramDog{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=-90>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=-60>({0},{1.75}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-45>({2-0.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({2.5},{2.5}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({2.5},{2.5+sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1,rotate=-90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=-60>({0},{1.75}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({2-0.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({2.5},{2.5}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-45>({2.5},{2.5+sqrt(2)}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<yscale=-1,rotate=-90>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=-60>({0},{1.75}){TangPara}
- \PieceTangram[#2]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-45>({2-0.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<rotate=45>({2.5},{2.5}){TangCar}
- \PieceTangram[#2]<rotate=-45>({2.5},{2.5+sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<yscale=-1,rotate=-90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=-60>({0},{1.75}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-45>({2-0.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({2.5},{2.5}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-45>({2.5},{2.5+sqrt(2)}){TangPetTri}}{}%
}%
}
@@ -420,22 +419,22 @@
\NewDocumentCommand\TangramRabbit{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({-sqrt(2)},{-sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({0},{-0.5}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({-sqrt(2)},{-2}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({0.2},{1}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=30>({0.2},{1}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-90>({-sqrt(2)},{-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-90>({0},{-0.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({-sqrt(2)},{-2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({0.2},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=30>({0.2},{1}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-90>({-sqrt(2)},{-sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-90>({0},{-0.5}){TangPetTri}
- \PieceTangram[#2]<rotate=-135>({-sqrt(2)},{-2}){TangPetTri}
- \PieceTangram[#2]({0},{0}){TangCar}
- \PieceTangram[#2]<rotate=90>({0.2},{1}){TangMoyTri}
- \PieceTangram[#2]<rotate=30>({0.2},{1}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-90>({-sqrt(2)},{-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-90>({0},{-0.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-135>({-sqrt(2)},{-2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=90>({0.2},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=30>({0.2},{1}){TangPara}}{}%
}%
}
@@ -443,22 +442,22 @@
\NewDocumentCommand\TangramPlane{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({2},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-45>({2},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({-1},{-0.75}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({-1},{-0.75}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({sqrt(2)-2},{0.25}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-45>({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({-1},{-0.75}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=90>({-1},{-0.75}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({sqrt(2)-2},{0.25}){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({2},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=-45>({2},{0}){TangPara}
- \PieceTangram[#2]({-1},{-0.75}){TangCar}
- \PieceTangram[#2]<rotate=90>({-1},{-0.75}){TangPetTri}
- \PieceTangram[#2]<rotate=135>({sqrt(2)-2},{0.25}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-45>({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({-1},{-0.75}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=90>({-1},{-0.75}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=135>({sqrt(2)-2},{0.25}){TangMoyTri}}{}%
}%
}
@@ -466,22 +465,22 @@
\NewDocumentCommand\TangramRooster{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({2},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({0},{-1}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({1.6},{-0.4}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-2},{1}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({1},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({1+sqrt(2)},{1}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<yscale=-1,rotate=45>({-2},{1}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({0},{-1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({1.6},{-0.4}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-2},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({1},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=135>({1+sqrt(2)},{1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<yscale=-1,rotate=45>({-2},{1}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=180>({2},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=90>({0},{-1}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({1.6},{-0.4}){TangPetTri}
- \PieceTangram[#2]({-2},{1}){TangMoyTri}
- \PieceTangram[#2]({1},{0}){TangCar}
- \PieceTangram[#2]<rotate=135>({1+sqrt(2)},{1}){TangPetTri}
- \PieceTangram[#2]<yscale=-1,rotate=45>({-2},{1}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=90>({0},{-1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-135>({1.6},{-0.4}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-2},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({1},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=135>({1+sqrt(2)},{1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<yscale=-1,rotate=45>({-2},{1}){TangPara}}{}%
}%
}
@@ -489,22 +488,22 @@
\NewDocumentCommand\TangramJogger{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-45>({-1},{1}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({sqrt(2)-1},{1}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-45>({0},{-sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({0.9},{-sqrt(2)-0.9}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]({-sqrt(2)-1},{-sqrt(2)-1}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({-sqrt(2)-0.5},{-sqrt(2)-0.5}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-45>({-1},{1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({sqrt(2)-1},{1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-45>({0},{-sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-90>({0.9},{-sqrt(2)-0.9}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]({-sqrt(2)-1},{-sqrt(2)-1}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>({-sqrt(2)-0.5},{-sqrt(2)-0.5}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-45>({-1},{1}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({sqrt(2)-1},{1}){TangCar}
- \PieceTangram[#2]<rotate=-45>({0},{-sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<rotate=-90>({0.9},{-sqrt(2)-0.9}){TangPetTri}
- \PieceTangram[#2]({-sqrt(2)-1},{-sqrt(2)-1}){TangPara}
- \PieceTangram[#2]<rotate=180>({-sqrt(2)-0.5},{-sqrt(2)-0.5}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-45>({-1},{1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({sqrt(2)-1},{1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-45>({0},{-sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-90>({0.9},{-sqrt(2)-0.9}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]({-sqrt(2)-1},{-sqrt(2)-1}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>({-sqrt(2)-0.5},{-sqrt(2)-0.5}){TangPetTri}}{}%
}%
}
@@ -512,22 +511,22 @@
\NewDocumentCommand\TangramDancer{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({3.5},{3.5}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({1.5},{3.5}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]({2},{2}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({0.5},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-90>({2},{1.5}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({2.5},{0}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({3.5},{3.5}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({1.5},{3.5}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]({2},{2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=180>({0.5},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({2},{1.5}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({2.5},{0}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({3.5},{3.5}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({1.5},{3.5}){TangCar}
- \PieceTangram[#2]({2},{2}){TangPara}
- \PieceTangram[#2]<rotate=180>({0.5},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=-90>({2},{1.5}){TangMoyTri}
- \PieceTangram[#2]<rotate=-135>({2.5},{0}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=180>({3.5},{3.5}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({1.5},{3.5}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]({2},{2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=180>({0.5},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-90>({2},{1.5}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-135>({2.5},{0}){TangPetTri}}{}%
}%
}
@@ -535,22 +534,22 @@
\NewDocumentCommand\TangramCamel{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-2},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=-1,rotate=-78>({-2},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({sqrt(2)},{0.25+sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({1+0.5*sqrt(2)},{1.5*sqrt(2)-0.25}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-2},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<xscale=-1,rotate=-78>({-2},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-135>({sqrt(2)},{0.25+sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>({1+0.5*sqrt(2)},{1.5*sqrt(2)-0.25}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=180>({0},{0}){TangGrandTri}
- \PieceTangram[#2]({-2},{0}){TangMoyTri}
- \PieceTangram[#2]<xscale=-1,rotate=-78>({-2},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=45>({0},{0}){TangCar}
- \PieceTangram[#2]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({sqrt(2)},{0.25+sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=180>({1+0.5*sqrt(2)},{1.5*sqrt(2)-0.25}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=180>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-2},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<xscale=-1,rotate=-78>({-2},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-135>({0.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-135>({sqrt(2)},{0.25+sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>({1+0.5*sqrt(2)},{1.5*sqrt(2)-0.25}){TangPetTri}}{}%
}%
}
@@ -558,22 +557,22 @@
\NewDocumentCommand\TangramFlamingo{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>({0},{sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({-1.5},{-1.5}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({-1.5-0.35},{-1.5-sqrt(2)+0.35}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({0},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({-1.5},{-1.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({-1.5-0.35},{-1.5-sqrt(2)+0.35}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=180>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({0},{0}){TangCar}
- \PieceTangram[#2]<rotate=45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=45>({0},{sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<rotate=-135>({-1.5},{-1.5}){TangPetTri}
- \PieceTangram[#2]<rotate=-90>({-1.5-0.35},{-1.5-sqrt(2)+0.35}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=180>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=45>({-0.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=45>({0},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-135>({-1.5},{-1.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>({-1.5-0.35},{-1.5-sqrt(2)+0.35}){TangPetTri}}{}%
}%
}
@@ -581,22 +580,22 @@
\NewDocumentCommand\TangramHeart{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-45>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({3*sqrt(2)},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=45,yscale=-1>({0},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({1.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>({2*sqrt(2)},{-sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({2*sqrt(2)},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({3*sqrt(2)},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=45,yscale=-1>({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({1.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({2*sqrt(2)},{-sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({2*sqrt(2)},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-135>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-45>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=135>({3*sqrt(2)},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=45,yscale=-1>({0},{0}){TangPara}
- \PieceTangram[#2]<rotate=135>({1.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=45>({2*sqrt(2)},{-sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<rotate=-135>({2*sqrt(2)},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=-135>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=135>({3*sqrt(2)},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=45,yscale=-1>({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135>({1.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=45>({2*sqrt(2)},{-sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-135>({2*sqrt(2)},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-135>({1.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}}{}%
}%
}
@@ -604,22 +603,22 @@
\NewDocumentCommand\TangramGiraffe{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135,xscale=-1>({0},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({sqrt(2)},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-45,yscale=-1>({0.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({sqrt(2)},{2*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({2*sqrt(2)},{1.5*sqrt(2)}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135,xscale=-1>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-135>({sqrt(2)},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-45,yscale=-1>({0.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({sqrt(2)},{2*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({2*sqrt(2)},{1.5*sqrt(2)}){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=135,xscale=-1>({0},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=45>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}
- \PieceTangram[#2]<rotate=-135>({sqrt(2)},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-45,yscale=-1>({0.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=-135>({sqrt(2)},{2*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=135>({2*sqrt(2)},{1.5*sqrt(2)}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135,xscale=-1>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-135>({sqrt(2)},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-45,yscale=-1>({0.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-135>({sqrt(2)},{2*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=135>({2*sqrt(2)},{1.5*sqrt(2)}){TangMoyTri}}{}%
}%
}
@@ -627,22 +626,22 @@
\NewDocumentCommand\TangramHorse{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-180>({2},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({0},{-2.5}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({0},{1}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=90,xscale=-1>({-sqrt(2)},{-sqrt(2)}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({0},{-2.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({0},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=90,xscale=-1>({-sqrt(2)},{-sqrt(2)}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-180>({2},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=-90>({0},{-2.5}){TangPetTri}
- \PieceTangram[#2]({0},{0}){TangCar}
- \PieceTangram[#2]({0},{1}){TangMoyTri}
- \PieceTangram[#2]<rotate=90,xscale=-1>({-sqrt(2)},{-sqrt(2)}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-180>({2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135>({2+0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>({0},{-2.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({0},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=90,xscale=-1>({-sqrt(2)},{-sqrt(2)}){TangPara}}{}%
}%
}
@@ -650,22 +649,22 @@
\NewDocumentCommand\TangramGoat{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({1},{-1}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({-2*sqrt(2)+1},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({-sqrt(2)},{sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>({-2.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]({-2.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=10>({1},{1}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({1},{-1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=180>({-2*sqrt(2)+1},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=135>({-sqrt(2)},{sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({-2.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]({-2.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=10>({1},{1}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=90>({1},{-1}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({-2*sqrt(2)+1},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=135>({-sqrt(2)},{sqrt(2)}){TangCar}
- \PieceTangram[#2]<rotate=45>({-2.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]({-2.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=10>({1},{1}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=90>({1},{-1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=180>({-2*sqrt(2)+1},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=135>({-sqrt(2)},{sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=45>({-2.5*sqrt(2)},{0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]({-2.5*sqrt(2)},{1.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=10>({1},{1}){TangPetTri}}{}%
}%
}
@@ -673,22 +672,22 @@
\NewDocumentCommand\TangramLion{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({0},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({sqrt(2)},{-sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-55>({sqrt(2)},{2-sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({-sqrt(2)+0.5},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({-sqrt(2)},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({-sqrt(2)-1.75},{1.75}){TangCar}
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({0},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({sqrt(2)},{-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-55>({sqrt(2)},{2-sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>({-sqrt(2)+0.5},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({-sqrt(2)},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-135>({-sqrt(2)-1.75},{1.75}){TangCar}}{}%
}%
{%
- \PieceTangram[#2]<rotate=135>({0},{0}){TangMoyTri}
- \PieceTangram[#2]<rotate=90>({sqrt(2)},{-sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-55>({sqrt(2)},{2-sqrt(2)}){TangPara}
- \PieceTangram[#2]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=180>({-sqrt(2)+0.5},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=90>({-sqrt(2)},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({-sqrt(2)-1.75},{1.75}){TangCar}
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=135>({0},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=90>({sqrt(2)},{-sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-55>({sqrt(2)},{2-sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135>({sqrt(2)},{-sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>({-sqrt(2)+0.5},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=90>({-sqrt(2)},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-135>({-sqrt(2)-1.75},{1.75}){TangCar}}{}%
}%
}
@@ -696,22 +695,22 @@
\NewDocumentCommand\TangramFactory{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>({-sqrt(2)},{sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({-1},{2*sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({0.5*sqrt(2)-0.5},{2*sqrt(2)+1}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=90>({-2*sqrt(2)},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-180>({-2*sqrt(2)+1},{2}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({-sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({-1},{2*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({0.5*sqrt(2)-0.5},{2*sqrt(2)+1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=90>({-2*sqrt(2)},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-180>({-2*sqrt(2)+1},{2}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=45>({-sqrt(2)},{sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]({-1},{2*sqrt(2)}){TangCar}
- \PieceTangram[#2]<rotate=135>({0.5*sqrt(2)-0.5},{2*sqrt(2)+1}){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=90>({-2*sqrt(2)},{0}){TangPara}
- \PieceTangram[#2]<rotate=-180>({-2*sqrt(2)+1},{2}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=45>({-sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({-1},{2*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135>({0.5*sqrt(2)-0.5},{2*sqrt(2)+1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=90>({-2*sqrt(2)},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-180>({-2*sqrt(2)+1},{2}){TangPetTri}}{}%
}%
}
@@ -719,22 +718,22 @@
\NewDocumentCommand\TangramAngel{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({0},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=90>({0},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({0},{1}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({0},{2.5}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({0},{3}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=67.5>({0},{3}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=5>({0},{3}){TangGrandTri}
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=135>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=90>({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({0},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({0},{2.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-45>({0},{3}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=67.5>({0},{3}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=5>({0},{3}){TangGrandTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=135>({0},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=90>({0},{0}){TangPara}
- \PieceTangram[#2]<rotate=90>({0},{1}){TangMoyTri}
- \PieceTangram[#2]<rotate=-90>({0},{2.5}){TangPetTri}
- \PieceTangram[#2]<rotate=-45>({0},{3}){TangCar}
- \PieceTangram[#2]<rotate=67.5>({0},{3}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=5>({0},{3}){TangGrandTri}
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=135>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=90>({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=90>({0},{1}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>({0},{2.5}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-45>({0},{3}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=67.5>({0},{3}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<xscale=-1,rotate=5>({0},{3}){TangGrandTri}}{}%
}%
}
@@ -742,22 +741,22 @@
\NewDocumentCommand\TangramTower{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]({-2},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({0},{3}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({1},{2+sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({2-0.5*sqrt(2)},{3+0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({0},{3+0.5*sqrt(2)}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({0.5+0.5*sqrt(2)},{4+0.5*sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]({-2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-90>({0},{3}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({1},{2+sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({2-0.5*sqrt(2)},{3+0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({0},{3+0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=135>({0.5+0.5*sqrt(2)},{4+0.5*sqrt(2)}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]({-2},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[#2]<rotate=-90>({0},{3}){TangPara}
- \PieceTangram[#2]<rotate=-135>({1},{2+sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=180>({2-0.5*sqrt(2)},{3+0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]({0},{3+0.5*sqrt(2)}){TangCar}
- \PieceTangram[#2]<rotate=135>({0.5+0.5*sqrt(2)},{4+0.5*sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]({-2},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-90>({0},{3}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-135>({1},{2+sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=180>({2-0.5*sqrt(2)},{3+0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({0},{3+0.5*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=135>({0.5+0.5*sqrt(2)},{4+0.5*sqrt(2)}){TangPetTri}}{}%
}%
}
@@ -765,22 +764,22 @@
\NewDocumentCommand\TangramUfo{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({2},{-2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=180>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-1},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({2},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-3},{-1}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({-2},{-1}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-135>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({2},{-2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=180>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-1},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-90>({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]({-3},{-1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=180>({-2},{-1}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-135>({0},{0}){TangCar}
- \PieceTangram[#2]<rotate=90>({2},{-2}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({0},{0}){TangGrandTri}
- \PieceTangram[#2]({-1},{0}){TangMoyTri}
- \PieceTangram[#2]<rotate=-90>({2},{0}){TangPara}
- \PieceTangram[#2]({-3},{-1}){TangPetTri}
- \PieceTangram[#2]<rotate=180>({-2},{-1}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-135>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=90>({2},{-2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=180>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-1},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-90>({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]({-3},{-1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=180>({-2},{-1}){TangPetTri}}{}%
}%
}
@@ -788,22 +787,22 @@
\NewDocumentCommand\TangramChicken{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]({0.25},{0.25}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=135>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({1},{2}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({1+sqrt(2)},{3}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1>({-1},{2}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]({0.25},{0.25}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=135>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({1},{2}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=135>({1+sqrt(2)},{3}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1>({-1},{2}){TangPara}}{}%
}%
{%
- \PieceTangram[#2]<rotate=90>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}
- \PieceTangram[#2]({0.25},{0.25}){TangPetTri}
- \PieceTangram[#2]<rotate=135>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]({1},{2}){TangCar}
- \PieceTangram[#2]<rotate=135>({1+sqrt(2)},{3}){TangPetTri}
- \PieceTangram[#2]<xscale=-1>({-1},{2}){TangPara}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]({0.25},{0.25}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=135>({0.5*sqrt(2)},{-0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({1},{2}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=135>({1+sqrt(2)},{3}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1>({-1},{2}){TangPara}}{}%
}%
}
@@ -811,22 +810,22 @@
\NewDocumentCommand\TangramTurtle{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,,rotate=90>({2},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({3},{1}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({0},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({-0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({2+0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,,rotate=90>({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({3},{1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({0},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({-0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-135>({2+0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]({0},{0}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,,rotate=90>({2},{0}){TangPara}
- \PieceTangram[#2]({3},{1}){TangCar}
- \PieceTangram[#2]<rotate=90>({0},{0}){TangMoyTri}
- \PieceTangram[#2]<rotate=45>({-0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]<rotate=-135>({2+0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<xscale=-1,rotate=90>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,,rotate=90>({2},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({3},{1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=90>({0},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=45>({-0.5*sqrt(2)},{-0.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-135>({2+0.5*sqrt(2)},{0.5*sqrt(2)}){TangPetTri}}{}%
}%
}
@@ -834,22 +833,22 @@
\NewDocumentCommand\TangramCrab{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>({3},{-1}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=180>({1},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({1},{1}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]({2},{1}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({3},{3}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({0},{1}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>({3},{-1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=180>({1},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({1},{1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]({2},{1}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>({3},{3}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>({0},{1}){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}
- \PieceTangram[#2]<rotate=90>({3},{-1}){TangGrandTri}
- \PieceTangram[#2]<rotate=180>({1},{0}){TangPetTri}
- \PieceTangram[#2]({1},{1}){TangCar}
- \PieceTangram[#2]({2},{1}){TangPara}
- \PieceTangram[#2]<rotate=-90>({3},{3}){TangPetTri}
- \PieceTangram[#2]<rotate=90>({0},{1}){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-90>({0},{2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=90>({3},{-1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=180>({1},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({1},{1}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]({2},{1}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>({3},{3}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=90>({0},{1}){TangMoyTri}}{}%
}%
}
@@ -857,22 +856,22 @@
\NewDocumentCommand\TangramSnail{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]({0},{0}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({1},{0}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>({-1},{1}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-2},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({2},{1}){TangCar}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({1},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-90>({-1},{1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]({-2},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-45>({2},{1}){TangCar}}{}%
}%
{%
- \PieceTangram[#2]<rotate=45>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]({0},{0}){TangPara}
- \PieceTangram[#2]({1},{0}){TangMoyTri}
- \PieceTangram[#2]<rotate=-90>({-1},{1}){TangPetTri}
- \PieceTangram[#2]({-2},{0}){TangPetTri}
- \PieceTangram[#2]<rotate=-45>({2},{1}){TangCar}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=45>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-135>({0},{2*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]({0},{0}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({1},{0}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-90>({-1},{1}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]({-2},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-45>({2},{1}){TangCar}}{}%
}%
}
@@ -880,22 +879,22 @@
\NewDocumentCommand\TangramGoose{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-135>({0},{0}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-45>({-1.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1>({1-1.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]({-1.5*sqrt(2)-2},{1+0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({sqrt(2)},{-1.5*sqrt(2)}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-0.5},{-sqrt(2)-0.5}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=-135>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-45>({-1.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1>({1-1.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]({-1.5*sqrt(2)-2},{1+0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({sqrt(2)},{-1.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]({-0.5},{-sqrt(2)-0.5}){TangPetTri}}{}%
}%
{%
- \PieceTangram[#2]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({0},{0}){TangCar}
- \PieceTangram[#2]<rotate=-45>({-1.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1>({1-1.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}
- \PieceTangram[#2]({-1.5*sqrt(2)-2},{1+0.5*sqrt(2)}){TangMoyTri}
- \PieceTangram[#2]<rotate=45>({sqrt(2)},{-1.5*sqrt(2)}){TangPetTri}
- \PieceTangram[#2]({-0.5},{-sqrt(2)-0.5}){TangPetTri}
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=-135>({0},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-45>({-1.5*sqrt(2)},{0.5*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1>({1-1.5*sqrt(2)},{0.5*sqrt(2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]({-1.5*sqrt(2)-2},{1+0.5*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=45>({sqrt(2)},{-1.5*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]({-0.5},{-sqrt(2)-0.5}){TangPetTri}}{}%
}%
}
@@ -903,22 +902,22 @@
\NewDocumentCommand\TangramCow{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}]({-1},{-0.35}){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=45>({0},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=-1,rotate=45>({-1},{0}){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<yscale=-1,rotate=0>(-45:0.75){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({-1},{-0.35}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1,rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<xscale=-1,rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=45>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<xscale=-1,rotate=45>({-1},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<yscale=-1,rotate=0>(-45:0.75){TangMoyTri}}{}%
}%
{%
- \PieceTangram[#2]({-1},{-0.35}){TangCar}
- \PieceTangram[#2]<xscale=-1,rotate=-135>({0},{0}){TangGrandTri}
- \PieceTangram[#2]<rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangGrandTri}
- \PieceTangram[#2]<xscale=-1,rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangPara}{TangPara}
- \PieceTangram[#2]<rotate=45>({0},{0}){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=45>({-1},{0}){TangPetTri}
- \PieceTangram[#2]<yscale=-1,rotate=0>(-45:0.75){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({-1},{-0.35}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<xscale=-1,rotate=-135>({0},{0}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<xscale=-1,rotate=-135>({sqrt(2)+(sqrt(2)+0.75)*sqrt(2)/2},{sqrt(2)-(sqrt(2)+0.75)*sqrt(2)/2}){TangPara}{TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=45>({0},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<xscale=-1,rotate=45>({-1},{0}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<yscale=-1,rotate=0>(-45:0.75){TangMoyTri}}{}%
}%
}
@@ -926,29 +925,109 @@
\NewDocumentCommand\TangramGift{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
\IfBooleanTF{#1}%
{%
- \PieceTangram[TangSol={\TanGListeCouleurs[4]}](-1,-2){TangCar}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>(0,0){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[1]}]<yscale=-1>(0,0){TangGrandTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=60,yscale=-1>(0.5,0){TangPara}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<yscale=-1>(-1,0){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-90>(-1,0){TangPetTri}
- \PieceTangram[TangSol={\TanGListeCouleurs[2]}]<xscale=-1,rotate=20>(0.5,0){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}](-1,-2){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=-90>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<yscale=-1>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=60,yscale=-1>(0.5,0){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<yscale=-1>(-1,0){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=-90>(-1,0){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<xscale=-1,rotate=20>(0.5,0){TangMoyTri}}{}%
%\filldraw (0,0) circle[radius=2pt] ;
}%
{%
- \PieceTangram[#2](-1,-2){TangCar}
- \PieceTangram[#2]<rotate=-90>(0,0){TangGrandTri}
- \PieceTangram[#2]<yscale=-1>(0,0){TangGrandTri}
- \PieceTangram[#2]<rotate=60,yscale=-1>(0.5,0){TangPara}
- \PieceTangram[#2]<yscale=-1>(-1,0){TangPetTri}
- \PieceTangram[#2]<rotate=-90>(-1,0){TangPetTri}
- \PieceTangram[#2]<xscale=-1,rotate=20>(0.5,0){TangMoyTri}
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2](-1,-2){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=-90>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<yscale=-1>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=60,yscale=-1>(0.5,0){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<yscale=-1>(-1,0){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=-90>(-1,0){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<xscale=-1,rotate=20>(0.5,0){TangMoyTri}}{}%
}%
}
+%the man / l'homme (0.2.0)
+\NewDocumentCommand\TangramMan{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
+ \IfBooleanTF{#1}%
+ {%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>(0,0){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}](-2,-2){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>(0,{-2*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-135>(0,{-2-0.5*(2*sqrt(2)-2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]({1.66*cos(-135)},{-2-0.5*(2*sqrt(2)-2)-sqrt(2)+1.66*sin(-135)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=45>(1,{-2-0.5*(2*sqrt(2)-2)-sqrt(2)+1.66*sin(-135)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=90>(1,{-2*sqrt(2)-1}){TangMoyTri}}{}%
+ %\filldraw (0,0) circle[radius=2pt] ;
+ }%
+ {%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>(0,0){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2](-2,-2){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=45>(0,{-2*sqrt(2)}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-135>(0,{-2-0.5*(2*sqrt(2)-2)}){TangPara}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]({1.66*cos(-135)},{-2-0.5*(2*sqrt(2)-2)-sqrt(2)+1.66*sin(-135)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=45>(1,{-2-0.5*(2*sqrt(2)-2)-sqrt(2)+1.66*sin(-135)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=90>(1,{-2*sqrt(2)-1}){TangMoyTri}}{}%
+ }%
+}
+
+%the horseman / le cavalier (0.2.0)
+\NewDocumentCommand\TangramHorseman{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
+ \IfBooleanTF{#1}%
+ {%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=90>(2,-2){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=-90>(-1,{1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=180>(0.125,-1){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}](-2,0.6){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=90>({sqrt(2)},{sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=-65>(2,{0}){TangPara}}{}%
+ %\filldraw (0,0) circle[radius=2pt] ;
+ }%
+ {%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=90>(2,-2){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=-90>(-1,{1}){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=180>(0.125,-1){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2](-2,0.6){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=90>({sqrt(2)},{sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=-65>(2,{0}){TangPara}}{}%
+ }%
+}
+
+%the arrow / la flèche (0.2.0)
+\NewDocumentCommand\TangramArrow{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
+ \IfBooleanTF{#1}%
+ {%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<rotate=135>({2*sqrt(2)},0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=45>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({2*sqrt(2)+0.25*sqrt(2)},{2*sqrt(2)+0.75*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-45>({sqrt(2)-0.25*sqrt(2)},{sqrt(2)+0.25*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=45>({sqrt(2)+1.25*sqrt(2)},{sqrt(2)+0.75*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]<rotate=45>({sqrt(2)+1.75*sqrt(2)},{sqrt(2)+1.25*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<yscale=-1,rotate=-45>({sqrt(2)-0.25*sqrt(2)},{sqrt(2)+0.25*sqrt(2)}){TangPara}}{}%
+ %\filldraw (0,0) circle[radius=2pt] ;
+ }%
+ {%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<rotate=135>({2*sqrt(2)},0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=45>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-135>({2*sqrt(2)+0.25*sqrt(2)},{2*sqrt(2)+0.75*sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-45>({sqrt(2)-0.25*sqrt(2)},{sqrt(2)+0.25*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=45>({sqrt(2)+1.25*sqrt(2)},{sqrt(2)+0.75*sqrt(2)}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]<rotate=45>({sqrt(2)+1.75*sqrt(2)},{sqrt(2)+1.25*sqrt(2)}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<yscale=-1,rotate=-45>({sqrt(2)-0.25*sqrt(2)},{sqrt(2)+0.25*sqrt(2)}){TangPara}}{}%
+ }%
+}
+
%macros for tangram creation / commandes pour créer le tangram
\NewDocumentCommand\TangramTikzCreateEN{ m }{%
- \readlist*\TanGListeCouleurs{\TangColors}%
+ %list of pieces/colors
+ \StrCount{\TangColors}{,}[\tmpnbcolors]%
+ \ifnum\tmpnbcolors=4%
+ \readlist*\TanGListeCouleursTmp{\TangColors}%
+ \xdef\TangCouleursModif{\TanGListeCouleursTmp[1],\TanGListeCouleursTmp[1],\TanGListeCouleursTmp[2],\TanGListeCouleursTmp[3],\TanGListeCouleursTmp[3],\TanGListeCouleursTmp[4],\TanGListeCouleursTmp[5]}%
+ \else%
+ \xdef\TangCouleursModif{\TangColors}%
+ \fi%
+ \readlist*\TanGListeCouleurs{\TangCouleursModif}%
%booleans
\ifboolKV[TGRMTikz]{BlackWhite}{\setKV[TGRMTikz]{Puzzle=false}]}{}%
\ifboolKV[TGRMTikz]{Solution}{\setKV[TGRMTikz]{Puzzle=false}]}{}%
@@ -959,8 +1038,17 @@
\ifboolKV[TGRMTikz]{BlackWhite}{#1[TangBW]}{}%
\ifboolKV[TGRMTikz]{ColorSolution}{#1*}{}%
}
+
\NewDocumentCommand\TangramTikzCreateFR{ m }{%
- \readlist*\TanGListeCouleurs{\TangCouleurs}%
+ %liste des pièces/couleurs
+ \StrCount{\TangCouleurs}{,}[\tmpnbcolors]%
+ \ifnum\tmpnbcolors=4%
+ \readlist*\TanGListeCouleursTmp{\TangCouleurs}%
+ \xdef\TangCouleursModif{\TanGListeCouleursTmp[1],\TanGListeCouleursTmp[1],\TanGListeCouleursTmp[2],\TanGListeCouleursTmp[3],\TanGListeCouleursTmp[3],\TanGListeCouleursTmp[4],\TanGListeCouleursTmp[5]}%
+ \else%
+ \xdef\TangCouleursModif{\TangCouleurs}%
+ \fi%
+ \readlist*\TanGListeCouleurs{\TangCouleursModif}%
%gestion des booléens
\ifboolKV[TGRMTikz]{NoirBlanc}{\setKV[TGRMTikz]{Puzzle=false}]}{}%
\ifboolKV[TGRMTikz]{Correction}{\setKV[TGRMTikz]{Puzzle=false}]}{}%
@@ -980,7 +1068,11 @@
ColorList=\xdef\TangColors{#1},%
Couleur=\xdef\TangCouleur{#1},%
Color=\xdef\TangColor{#1},%
- Sep=\setlength\TangBorder{#1}
+ Sep=\setlength\TangBorder{#1},%
+ ListePieces=\xdef\TangLstPieces{#1},%
+ PartsList=\xdef\TangLstPieces{#1},%
+ Names=\xdef\TangLstPiecesName{#1},%
+ Noms=\xdef\TangLstPiecesNom{#1}
}
\setKVdefault[TGRMTikz]{%keys by default [en] and [fr]
Puzzle=true,%
@@ -994,7 +1086,13 @@
ColorList={red,orange,blue,green,purple},%en
Couleur=black,%
Color=black,%en
- Sep=1pt
+ Sep=1pt,%
+ ListePieces={1234567},%
+ PartsList={1234567},%
+ Names={A1,A2,D,B1,B2,E,C},%
+ Noms={A1,A2,D,B1,B2,E,C},%
+ Aide=true,%
+ Help=true
}
%the independent command / la commande autonome
@@ -1119,9 +1217,84 @@
%GIFT
\IfStrEq{#3}{Gift}{\TangramTikzCreateEN{\TangramGift}}{}%
\IfStrEq{#3}{Cadeau}{\TangramTikzCreateFR{\TangramGift}}{}%
+ %MAN
+ \IfStrEq{#3}{Man}{\TangramTikzCreateEN{\TangramMan}}{}%
+ \IfStrEq{#3}{Homme}{\TangramTikzCreateFR{\TangramMan}}{}%
+ %HORSEMAN
+ \IfStrEq{#3}{Horseman}{\TangramTikzCreateEN{\TangramHorseman}}{}%
+ \IfStrEq{#3}{Cavalier}{\TangramTikzCreateFR{\TangramHorseman}}{}%
+ %ARROW
+ \IfStrEq{#3}{Arrow}{\TangramTikzCreateEN{\TangramArrow}}{}%
+ \IfStrEq{#3}{Fleche}{\TangramTikzCreateFR{\TangramArrow}}{}%
\end{tikzpicture}%
}
+%help with names
+\NewDocumentCommand\TangramHelp{ s O{TangPuzz} }{%*=colorcorrection,[key for pic]
+ \IfBooleanTF{#1}%
+ {%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[TangSol={\TanGListeCouleurs[1]}]<xscale=-1>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[TangSol={\TanGListeCouleurs[2]}]<rotate=90>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[TangSol={\TanGListeCouleurs[3]}]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[TangSol={\TanGListeCouleurs[4]}]<rotate=-90>({sqrt(2)},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[TangSol={\TanGListeCouleurs[5]}]<rotate=90>({1+sqrt(2)},1){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[TangSol={\TanGListeCouleurs[6]}]({sqrt(2)},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[TangSol={\TanGListeCouleurs[7]}]<rotate=90,yscale=-1>(0,{0}){TangPara}}{}%
+ %\filldraw (0,0) circle[radius=2pt] ;
+ }%
+ {%
+ \IfSubStr{\TangLstPieces}{1}{\PieceTangram[#2]<xscale=-1>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{2}{\PieceTangram[#2]<rotate=90>(0,0){TangGrandTri}}{}%
+ \IfSubStr{\TangLstPieces}{3}{\PieceTangram[#2]<rotate=-135>({sqrt(2)},{sqrt(2)}){TangMoyTri}}{}%
+ \IfSubStr{\TangLstPieces}{4}{\PieceTangram[#2]<rotate=-90>({sqrt(2)},{2}){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{5}{\PieceTangram[#2]<rotate=90>({1+sqrt(2)},1){TangPetTri}}{}%
+ \IfSubStr{\TangLstPieces}{6}{\PieceTangram[#2]({sqrt(2)},{0}){TangCar}}{}%
+ \IfSubStr{\TangLstPieces}{7}{\PieceTangram[#2]<rotate=90,yscale=-1>(0,{0}){TangPara}}{}%
+ }%
+}
+
+\tikzset{tangramhelp/.style={text=white,inner sep=0pt,font=\sffamily\small\bfseries}}
+
+\NewDocumentCommand\TangramTikzHelp{ O{} D<>{} }{%
+ \useKVdefault[TGRMTikz]%
+ \setKV[TGRMTikz]{#1}%
+ \begin{tikzpicture}[line join=bevel,#2]%
+ \TangramTikzCreateEN{\TangramHelp}%
+ \ifboolKV[TGRMTikz]{Help}%
+ {%
+ \readlist*\TanGListenames{\TangLstPiecesName}%
+ \draw ({-2+0.333*sqrt(2)},{0.333*sqrt(2)}) node[tangramhelp] {\TanGListenames[1]} ;
+ \draw ({0-0.333*sqrt(2)},{2-0.333*sqrt(2)}) node[tangramhelp] {\TanGListenames[2]} ;
+ \draw ({sqrt(2)-0.333},{0+0.333}) node[tangramhelp] {\TanGListenames[3]} ;
+ \draw ({sqrt(2)+0.5},{0.5}) node[tangramhelp] {\TanGListenames[6]} ;
+ \draw ({0.5},{1}) node[tangramhelp] {\TanGListenames[7]} ;
+ \draw ({sqrt(2)+0.4*0.5*sqrt(2)},{1+0.4*0.5*sqrt(2)}) node[tangramhelp] {\TanGListenames[4]} ;
+ \draw ({sqrt(2)+1-0.4*0.5*sqrt(2)},{2-0.4*0.5*sqrt(2)}) node[tangramhelp] {\TanGListenames[5]} ;
+ }%
+ {}%
+ \end{tikzpicture}%
+}
+
+\NewDocumentCommand\TangramTikzAide{ O{} D<>{} }{%
+ \useKVdefault[TGRMTikz]%
+ \setKV[TGRMTikz]{#1}%
+ \begin{tikzpicture}[line join=bevel,#2]%
+ \TangramTikzCreateFR{\TangramHelp}%
+ \ifboolKV[TGRMTikz]{Aide}%
+ {%
+ \readlist*\TanGListenames{\TangLstPiecesName}%
+ \draw ({-2+0.333*sqrt(2)},{0.333*sqrt(2)}) node[tangramhelp] {\TanGListenames[1]} ;
+ \draw ({0-0.333*sqrt(2)},{2-0.333*sqrt(2)}) node[tangramhelp] {\TanGListenames[2]} ;
+ \draw ({sqrt(2)-0.333},{0+0.333}) node[tangramhelp] {\TanGListenames[3]} ;
+ \draw ({sqrt(2)+0.5},{0.5}) node[tangramhelp] {\TanGListenames[6]} ;
+ \draw ({0.5},{1}) node[tangramhelp] {\TanGListenames[7]} ;
+ \draw ({sqrt(2)+0.4*0.5*sqrt(2)},{1+0.4*0.5*sqrt(2)}) node[tangramhelp] {\TanGListenames[4]} ;
+ \draw ({sqrt(2)+1-0.4*0.5*sqrt(2)},{2-0.4*0.5*sqrt(2)}) node[tangramhelp] {\TanGListenames[5]} ;
+ }%
+ {}%
+ \end{tikzpicture}%
+}
+
%manual creation / creation manuelle
\NewDocumentCommand\PieceTangram{ O{TangPuzz} D<>{} D(){0,0} m }{%booléen+options pic+place pic+nom piece
\pic[#1,#2] at (#3) {#4};%
More information about the tex-live-commits
mailing list.