Mathematica 教學 照片依照指定文字排列

(*把目錄內所有的照片絕對路徑都抓出來*)
data = FileNames["*.jpg", "~/downloads/xxxxx", Infinity];

(*把目錄內所有的照片都抓出來*)
mypic = ImageResize[Import[#], 50] & /@ data;

(*將照片依照指定的文字排列顯示*)
mypicplot1[str_,size_]:=
Module[{mystr=str,test,a,b,mysize=size,data},
test=Rasterize[str,RasterSize->20,ImageSize->mysize];
{a,b}=Dimensions[test[[1,1]]][[1;;2]];
data=Reverse[#]&/@
Select[Flatten[Table[If[And[test[[1,1,i,j]][[1]]>100,
test[[1,1,i,j]][[2]]>100,test[[1,1,i,j]][[3]]>100],{0,0},{i,j}],
{i,a},{j,b}],1],#!={0,0}&];
ListPlot[RandomSample[Partition[data,1],Length@data],
PlotMarkers->Evaluate[
Rotate[#,Random[]*Pi]&/@RandomSample[mypic,Length@data]],
Frame->False,Axes->{None,None},
PlotRange->{{-0.2Min[data[[All,1]]],
1.1Max[data[[All,1]]]},{0.2Min[data[[All,2]]],
1.1Max[data[[All,2]]]}},ImageSize->mysize]]

(*網路上很有名的兔子小蜜蜂*)
mypicplot1[\[HeartSuit], 1000]

mypicplot.nb

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

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