rasterize mathematica 在 コバにゃんチャンネル Youtube 的精選貼文
「rasterize mathematica」的推薦目錄：
- 關於rasterize mathematica 在 コバにゃんチャンネル Youtube 的精選貼文
- 關於rasterize mathematica 在 大象中醫 Youtube 的最讚貼文
- 關於rasterize mathematica 在 大象中醫 Youtube 的最讚貼文
- 關於rasterize mathematica 在 Re: [問題] 傅立葉濾鏡與隱形水印- 看板Mathematica 的評價
- 關於rasterize mathematica 在 Rasterize: Resolution option not working properly 的評價
- 關於rasterize mathematica 在 Image manipulation with Mathematica - Stack Overflow 的評價
- 關於rasterize mathematica 在 Pin on Mathematica - Pinterest 的評價
- 關於rasterize mathematica 在 GitHub - ramesh-santhanam/Rasterizer 的評價
- 關於rasterize mathematica 在 Mathematica How to manipulate 2D plots? - StackPrinter 的評價
- 關於rasterize mathematica 在 Mathematica 程式碼小技巧告訴您如何將2D 影像轉成3D 物體 的評價
rasterize mathematica 在 Rasterize: Resolution option not working properly 的推薦與評價
This resolution is highly outdated as modern displays different resolutions that are often much higher. Mathematica is aware of the OS-specified resolution. For ... ... <看更多>
rasterize mathematica 在 Re: [問題] 傅立葉濾鏡與隱形水印- 看板Mathematica 的推薦與評價
閒閒沒事做來玩玩看lol
WaterMark[pic_?(3 == ArrayDepth@# &), mark_?(3 == ArrayDepth@# &)] /;
And @@ Thread[Dimensions[pic] >= Dimensions[mark]] :=
With[{lx = Length@mark, ly = Length@mark[[1]],
F = FourierDCT[#, 1] & /@ # &, ch = Transpose[#, {2, 3, 1}] &,
chinv = Transpose[#, {3, 1, 2}] &},
With[{XPerm = RandomSample@Range@lx,
YPerm = RandomSample@Range@ly}, {chinv@
Map[Round@Min[Max[#, 0], 255] &,
F[F@ch@pic + (PadLeft[#, Most@Dimensions@pic] & /@
ch@Table[mark[[i, j]], {i, XPerm}, {j, YPerm}])], {-1}],
Reverse@chinv[
Table[#[[i, j]], {i,
SortBy[Transpose@{Range[-lx, -1], XPerm}, Last][[All,
1]]}, {j,
SortBy[Transpose@{Range[-ly, -1], YPerm}, Last][[All,
1]]}] & /@ F@ch@#] &}]]
用Lena測試
foreground = Import["ExampleData/lena.tif", "Data"];
background =
Rasterize[Style["清心也可以", 20, White], Background -> Black][[1, 1]]/4;
{res, per} = WaterMark[foreground, background];
Image@(per@res/(255./4))
GraphicsRow[{Image@(res/255.), Image@(foreground/255.)}]
恩看起來還不錯~不過我不知道如何用MMA測試修圖的影響就是LOL
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.231.164.244
※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1480842071.A.594.html
發現MMA有512x512版的Lena
foreground = ExampleData[{"TestImage", "Lena"}, "Data"];
background =
Rasterize[Style["清心也可以", 40, White], Background -> Black][[1, 1]]/4;
{res, per} = WaterMark[foreground, background];
Print /@ GraphicsRow /@
Map[Image, {{res, foreground},
4 per /@ {foreground[[;; 50]]~Join~res[[51 ;;]], res}}/
255., {2}];
順便測試一下修圖(把前50行換回原本的圖),看起來還蠻明顯的~
※ 編輯: AmibaGelos (140.112.4.190), 12/06/2016 11:59:49
... <看更多>