前一陣子看到這樣一則知乎問答，得知有這種利用頻域轉換，把水印編碼
後當成 mask加上去的，抗盜圖者破壞的隱形水印 (blind watermark)
http://www.zhihu.com/question/50735753
因為看起來就跟 Mathematica Cookbook 裡提到的 high-pass / low-pass
filter 有 87% 像，讀到這章就手癢想玩玩看。
來一個線上的傅立葉filter實做分享，以利手邊沒書的版友
http://mathematica.stackexchange.com/questions/110914/
不過因為這些年來，我腦子理還是沒有任何訊號處理的知識，亂玩一通
之後算是失敗了，主要是把這樣形式的水印
Graphics[MapThread[
Text[Style[#1, 100, FontFamily -> '微軟正黑體 Light'], #2*{rx, ry},
Automatic, ReIm[Exp[I RandomReal[2 Pi]]]] &,
{{'清', '心', '也', '可', '以'}, oneroots[5]}
], ImageSize -> {width, height}]
加上去之後逆傅立葉轉換會得到很淒慘充滿雜訊的灰階圖，完全沒有如
範例般不顯眼。
而討論中提到的 alpha 值的定義我也還沒學到。
這個應用，我應該就...來日再戰吧。
打亂 mask(水印) ，又重新復原之的方式，應該可以利用 InversePertubation
scramble= RandomSample[Range[10]];
unscramble= InversePertubation[scramble];
(Array[a,10][[scramble]])[[unscramble]]
- -
Out[]:= {a[1], a[2] ,..., a[10]}
--
