diff options
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.tex | 36 |
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 |