Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \documentclass[tikz,border=5]{standalone}
- \usetikzlibrary{lindenmayersystems}
- \begin{document}
- %\newcommand{kochC}[1]
- %{
- \begin{tikzpicture}
- % je stocke pfgsystemstep dans une nouvelle variable initialstep : c'est la longueur du premier segment
- \newlength\initialstep
- % je calcule l'angle dont il faut tourner pour faire un polygône réglier à n côtés
- \pgfmathsetmacro\angle{180/5} % changer 5 en le nombre de côtés qu'on veut
- % je calcule le facteur de scaling
- \pgfmathsetmacro\scaling{2*0.33/(1-0.33)} %\pgfmathparse{2*#1/(1-#1)}
- \pgfdeclarelindenmayersystem{KochC}{
- % s initialise les données
- \symbol{s}{
- \def\pgflsystemleftangle{\angle}
- \def\pgflsystemrightangle{180-\angle}
- \setlength\initialstep\pgflsystemstep
- }
- % avancer sur une portion de longueur c sans tracer
- \symbol{c}{
- \def\pgflsystemstep{\scaling\initialstep}
- \pgflsystemmoveforward
- \def\pgflsystemstep{\initialstep}
- }
- % nouvelles mesures
- \symbol{n}{
- \def\pgflsystemstep{\scaling\pgflsystemstep}
- }
- \rule{F->sF[cF]n-F+F+F+F}
- }
- \draw[blue,line cap=round] [lindenmayer system={KochC,axiom=F,order=1}] lindenmayer system;
- \end{tikzpicture}
- %}
- %\kochC[0.5]
- \end{document}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement