Wolfram
Mathematica
8의 신기능: 향상된 2D 및 3D 그래픽
◄
이전
|
다음
►
그래픽 및 시각화
채움 곡선을 이용한 다양한 텍스트 효과
폰트에서 곡선 윤곽을 추출하여 다양한 효과를 적용시켜 봅니다.
In[1]:=
X
text = First[ First[ImportString[ ExportString[ Style["Wolfram", Italic, FontSize -> 24, FontFamily -> "Times"], "PDF"]]]]; Graphics[{EdgeForm[Opacity[0.25]], Table[{ColorData["TemperatureMap"][t], Translate[text, 4 {-t, t}]}, {t, 0, 1, 1/10}]}, ImageSize -> Medium]
Out[1]=
In[2]:=
X
text = First[ First[ImportString[ ExportString[ Style["MATHEMATICA", FontSize -> 72, FontFamily -> "Geogia"], "PDF"], "PDF", "TextMode" -> "Outlines"]]]; top = BSplineFunction[{60, 200, 160}]; middle = BSplineFunction[{45, 150, -30, 45}]; bottom = BSplineFunction[{-90, -100, 30}]; stretch[x_, t_, f_, g_] := Rescale[x, {10, 60}, {f[t], g[t]}] banner1 = text /. {x_Real, y_Real} :> {x, stretch[y, x/430, bottom, middle]}; banner2 = text /. {x_Real, y_Real} :> {430 - x, stretch[y, 1 - x/430, middle, top]}; Graphics[{EdgeForm[Black], Blue, banner1, Red, banner2}, ImageSize -> Medium]
Out[2]=