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-

ฟังก์ชันที่ใช้