分享一些wolfram壁纸,Logo以及复刻Logo的程序。
wolfram壁纸
下面分享几张收藏的wolfram壁纸:
wolfram小图标
分享一些wolfram的小图标,可以用来制作wolfram手机主题。
之前对利用wolfram图标制作手机主题热衷了一段时间,但是制作的手机主题需要通过魔秀桌面来完成,个人能力还不足以开发一个真正的wolfram主题。其次,网上找到的图标质量参差不齐,wolfram的图标太少,用来替代app图标不直观。因此,后来就没有再进行完善了。。。。。。>﹏<\
制作的wolfram手机主题太丑了,ヽ(≧□≦)ノ连我自己也看不下去。。。。。。
把图标的背景去除用的是mathematica的RemoveBackground命令,注意需要导出png格式。
mathematica Logo复刻
对于mma的logo,还可以进行复刻:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18Clear["`*"];
w[col_, r_] :=
Module[{p =
Riffle[CirclePoints[{0.7*r, 0}, 10],
CirclePoints[{r, (2*Pi)/20}, 10]]},
{col, FilledCurve@Line[p~Join~{p[[1]]}]}];
n[col_, r_, a_] :=
Module[{p =
Riffle[CirclePoints[{0.2*a*r, Pi/10}, 5],
CirclePoints[{0.8*r, (3 Pi)/10}, 5]]},
p = p~Join~{p[[1]], p[[2]]};
{col, FilledCurve@
Table[BezierCurve[p[[2 i ;; 2 i + 2]]], {i, 1, 5}]}]
Manipulate[
Graphics[{w[Red, 1.05*r],
n @@@ ({{White, Red, White, Red}, {1*r, 0.73*r, 0.5*r,
0.3*r}, {1*r, 1.4*r, 1.7*r, 1.8*r}} // Transpose)} //
Flatten], {r, 0.8, 1.5}]
效果如下:
内部图形的弯曲程度可以进行调节。
作者: 得意喵~