Mathematica 教學 Just for Fun 將照片依照指定文字排列

mystringplot[mystring_String,mypath_String,filetype_String]:=Block[{data,fn,n},

(*文字轉成資料陣列*)

data=Reverse[Rasterize[mystring,RasterSize->50,ImageSize->200][[1,
1]]/.{x_,y_,z_}:>If[Mean[{x,y,z}]>255/3,1,0]];

(*選擇檔案路徑*)

fn=RandomChoice[FileNames[filetype,mypath,Infinity],
Length@Position[Flatten[data],0]];

(*輸出圖形*)

GraphicsGrid[n=1;data/.{1->"",0:>Import[fn[[n++]]]}]
]

mystringplot["3","/Users/chungyuandye/Pictures","*face*.jpg"]

Tags: Mathematica 教學, Mathematica 教學 畫圖, Teaching

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