Mathematica 教學：Pi Day

str=Reverse@Rasterize[Style[\[Pi],FontFamily->"Kokonor",Bold,Red,FontSize->20], 
RasterSize->20,ImageSize->{Automatic,25}][[1,1]][[6;;-12]];

mytext=Map[If[Total@#==255*3,"",0]&,str,{2}];

mypos=Position[Map[If[Total@#==255*3,1,0]&,str,{2}],0];

mypi=Drop[Characters[ToString@N[Pi,Length@mypos]],{2}];

Set[mytext[[mypos[[#,1]],mypos[[#,2]]]],Style[mypi[[#]],
Lighter@RandomColor[]]]&/@Range[Length@mypi];

Grid[mytext,Spacings->{0.2,0.2},Background->Black,
ItemStyle->{Directive[{RandomReal[255],RandomReal[255],
RandomReal[255]},18,Italic],None}]

Tags: Mathematica 教學, Mathematica 教學 畫圖, Mathematica 教學 程式

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見