Gráficos tartaruga

AnglePath gera a lista de pontos em 2D obtida especificando deslocamentos relativos consecutivos a partir do ponto anterior. Esta lista corresponde a rota de gráficos tartaruga da linguagem de programação Logo.

Gere um gráfico tartaruga simples.

In[1]:=

Graphics[Line[AnglePath[ConstantArray[110 \[Degree], 100]]]]

Out[1]=

Gere uma curva de floco de neve de Koch.

In[2]:=

Graphics[Line[AnglePath[Array[ThueMorse, 4096] 2 Pi/3]]]

Out[2]=

Gere uma curva de dragão.

In[3]:=

Graphics[Line[ AnglePath[{90 \[Degree], -90 \[Degree]}[[ 1 + Nest[Join[#, {0}, Reverse[1 - #]] &, {0}, 10]]]]]]

Out[3]=

Gere outra curva interessante.

In[4]:=

Graphics[Line[AnglePath[N@Range[100000]]]]

Out[4]=