Tweet-a-Program
AnglePath 和 CirclePoints 可在简短的一段编码中产生优美的结果,特别适用于 Wolfram Tweet-a-Program. 以下为 Wolfram 语言用户的一些推文范例.
In[1]:=
![Click for copyable input](assets.zh/tweet-a-program/In_68.png)
Graphics@{NestList[
Rotate[#, Pi/2, {0, 4 Pi}] &, {Brown,
Polygon@AnglePath@
Tuples[Table[t^2 Sin[t^2 + t]/.5, {t, 0, Pi/5, 0.01}], 2]}, 3]}
Out[1]=
![](assets.zh/tweet-a-program/O_61.png)
In[2]:=
![Click for copyable input](assets.zh/tweet-a-program/In_69.png)
Graphics[{Polygon[
AnglePath[Tuples[Table[Sin@t/8, {t, 0, 5 E/8, .03}], 2]],
VertexColors -> Table[Hue[i/3250], {i, 3250}]]}]
Out[2]=
![](assets.zh/tweet-a-program/O_62.png)
In[3]:=
![Click for copyable input](assets.zh/tweet-a-program/In_70.png)
Graphics@{EdgeForm@Red, Pink,
Polygon@AnglePath@
Tuples[Table[t^2 Sin[t^2 - t]/.5, {t, 0, Pi/5, .0105}], 2]}
Out[3]=
![](assets.zh/tweet-a-program/O_63.png)
In[4]:=
![Click for copyable input](assets.zh/tweet-a-program/In_71.png)
k = Tuples[Range[-2, 2, .15], {2}];
Graphics@{BSplineCurve@Sin@CirclePoints[#, .14, 25] & /@ k, Red,
Point@Sin@CirclePoints[#, .15, 2] & /@ k}
Out[4]=
![](assets.zh/tweet-a-program/O_64.png)