Style text using filled curves

Voorbeeld 2 stappen, op volgorde uitgevoerd in één sessie. Elke stap is tegen de engine uitgevoerd en de uitvoer hieronder is wat hij opleverde.

Stap 1

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

Geen uitvoer - deze stap zet iets klaar voor de volgende.

Stap 2

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

Uitvoer

-Graphics-

Gebruikte functies