Guest User

Untitled

a guest
Jun 3rd, 2019
94
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. \documentclass[tikz,border=5]{standalone}
  2. \usetikzlibrary{lindenmayersystems}
  3.  
  4. \begin{document}
  5.  
  6. %\newcommand{kochC}[1]
  7. %{
  8.  
  9.   \begin{tikzpicture}
  10.     % je stocke pfgsystemstep dans une nouvelle variable initialstep : c'est la longueur du premier segment
  11.     \newlength\initialstep
  12.  
  13.     % je calcule l'angle dont il faut tourner pour faire un polygône réglier à n côtés
  14.     \pgfmathsetmacro\angle{360/5} % changer 5 en le nombre de côtés qu'on veut
  15.  
  16.     % je calcule le facteur de scaling
  17.     \pgfmathsetmacro\scaling{2*0.33/(1-0.33)} %\pgfmathparse{2*#1/(1-#1)}
  18.  
  19.     \pgfdeclarelindenmayersystem{KochC}{
  20.       % s initialise les données
  21.       \symbol{s}{
  22.        \def\pgflsystemleftangle{-\angle}
  23.        \def\pgflsystemrightangle{180-\angle}
  24.        \setlength\initialstep\pgflsystemstep
  25.      }
  26.  
  27.       % avancer sur une portion de longueur c sans tracer
  28.       \symbol{c}{
  29.        \setlength\pgflsystemstep{\scaling\initialstep}
  30.        \pgflsystemmoveforward
  31.        \setlength\pgflsystemstep{\initialstep}
  32.      }
  33.  
  34.       % nouvelles mesures
  35.       \symbol{n}{
  36.        \setlength\pgflsystemstep{\scaling\pgflsystemstep}
  37.      }
  38.  
  39.      \rule{F->sF[cF]n-F+F+F+F}
  40.    }
  41.    \draw[blue,line cap=round] [lindenmayer system={KochC,axiom=F,order=1}] lindenmayer system;
  42.  \end{tikzpicture}
  43. %}
  44.  
  45. %\kochC[0.5]
  46.  
  47. \end{document}
RAW Paste Data