summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex')
-rw-r--r--Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex36
1 files changed, 20 insertions, 16 deletions
diff --git a/Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex b/Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex
index 8578cf58a62..4bf8e9d32e6 100644
--- a/Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex
+++ b/Master/texmf-dist/tex/latex/proflycee/proflycee-tools-recreat.tex
@@ -251,6 +251,13 @@
\pgfdeclarelindenmayersystem{TriangleSierpinski}{
\rule{F -> G-F-G}
\rule{G -> F+G+F}}
+
+\pgfdeclarelindenmayersystem{SierpinskiTriangle}{
+ \symbol{X}{\pgflsystemdrawforward}
+ \symbol{Y}{\pgflsystemdrawforward}
+ \rule{X -> X-Y+X+Y-X}
+ \rule{Y -> YY}
+}%
\defKV[tikzfract]{%
Epaisseur=\def\fracttikzthick{#1},%
@@ -272,7 +279,6 @@
Remplir=false,%
Remplissage=lightgray,%
Depart={(0,0)},%
- Contour=false,%
AlignV=false,%
Offset=2pt
}
@@ -283,7 +289,7 @@
\def\fracttikzlgstep{\fpeval{(\fracttikzlg)/(3^\fracttikzstep)}}%
\IfStrEq{\fracttikztype}{Sierp}%
{%
- \def\fracttikzlgstep{\fpeval{(\fracttikzlg)/(128)}}%
+ \def\fracttikzlgstep{\fpeval{(\fracttikzlg)/(2^\fracttikzstep)}}%
}{}%
\IfBooleanF{#1}{\begin{tikzpicture}[#3]}
\ifboolKV[tikzfract]{Remplir}%
@@ -298,13 +304,8 @@
}{}%
\IfStrEq{\fracttikztype}{Sierp}%
{%
- \ifboolKV[tikzfract]{Contour}%
- {%
- \draw[shift=\fracttikzdepart,line width=\fracttikzthick,\fracttikzcolor] (0,0) -- (60:\fracttikzlg cm) -- (\fracttikzlg cm,0) -- cycle ;
- \clip (0,0) -- (60:\fracttikzlg cm) -- (\fracttikzlg cm,0) -- cycle ;
- }{}%
- \draw[line width=\fracttikzthick,shift=\fracttikzdepart,draw=\fracttikzcolor,fill=\fracttikzfill,l-system={TriangleSierpinski,step=\fracttikzlgstep cm,angle=60,axiom=F,order=8}]
- lindenmayer system -- cycle;
+ \fill[\fracttikzcolor] (0,0) -- ++(0:\fracttikzlg cm) -- ++(120:\fracttikzlg cm) -- cycle;
+ \draw[draw=none,shift=\fracttikzdepart,fill=white,l-system={SierpinskiTriangle,step=\fracttikzlgstep cm,angle=-120,axiom=X,order=\fracttikzstep}] lindenmayer system -- cycle;
}{}%
}%
{%
@@ -318,13 +319,8 @@
}{}%
\IfStrEq{\fracttikztype}{Sierp}%
{%
- \ifboolKV[tikzfract]{Contour}%
- {%
- \draw[shift=\fracttikzdepart,line width=\fracttikzthick,\fracttikzcolor] (0,0) -- (60:\fracttikzlg cm) -- (\fracttikzlg cm,0) -- cycle ;
- \clip (0,0) -- (60:\fracttikzlg cm) -- (\fracttikzlg cm,0) -- cycle ;
- }{}%
- \draw[line width=\fracttikzthick,shift=\fracttikzdepart,\fracttikzcolor,l-system={TriangleSierpinski,step=\fracttikzlgstep cm,angle=60,axiom=F,order=8}]
- lindenmayer system -- cycle;
+ \fill[\fracttikzcolor] (0,0) -- ++(0:\fracttikzlg cm) -- ++(120:\fracttikzlg cm) -- cycle;
+ \draw[draw=none,shift=\fracttikzdepart,fill=white,l-system={SierpinskiTriangle,step=\fracttikzlgstep cm,angle=-120,axiom=X,order=\fracttikzstep}] lindenmayer system -- cycle;
}{}%
}%
\IfBooleanF{#1}{\end{tikzpicture}}%
@@ -338,4 +334,12 @@
}
}
+\NewDocumentCommand\EtapesTapisSierpinski{ O{} D<>{} m }{%
+ \restoreKV[tikzfract]%
+ \setKV[tikzfract]{#1}%
+ \foreach \i in {#3} {%
+ \FractaleTikz[Type=Sierp,#1,Etape=\i]<#2>\hspace{\fracttikzoffset}%
+ }
+}
+
\endinput \ No newline at end of file