Style text using filled curves

示例 2 步，在同一个会话中按顺序运行。每一步都在引擎上执行过，下面的输出就是它实际产生的。

第 1 步

text = First[First[ImportString[ExportString[Style["Wolfram", FontSize -> 24, FontFamily -> "Times"], "PDF"]]]];

无输出——这一步是在为下一步做准备。

第 2 步

Graphics[{EdgeForm[Opacity[0.25]], Table[{ColorData["TemperatureMap"][t], Translate[text, 4 {-t, t}]}, {t, 0, 1, 1 / 10}]}, ImageSize -> Medium]

输出

-Graphics-

用到的函数