上传头像时，想弄个透明背景。图片本身背景很单一，但gimp扣了下发现魔棒效果很差，无法与PS相比。

用Haskell随手写了个小东西，根据亮度来降alpha通道值。一开始还想弄个复杂点的阈值函数，调了几下，发现简单的才是最好的。

module Main where

import System.Environment
import Codec.Picture

main =
  fmap head getArgs >>= readPng >>=
    writePng "out.png" .
    (\(Right (ImageRGBA8 im)) ->
          pixelMap
          (\(PixelRGBA8 r g b al) ->
            let a = (fromIntegral r) +
                    (fromIntegral g) +
                    (fromIntegral b) :: Int
                alpha = if a > ( 3 * 245)
                        then 0
                        else if a > (3*200)
                             then round $
                                  (fromIntegral (a - (3*200)) /
                                   fromIntegral ((3*255)::Int)) * 255
                             else al
            in PixelRGBA8 r g b alpha) im)