/prog/ - ITT tribute ascii art

Name: Anonymous 2010-04-19 15:29

░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░▓▓▓▓▓▓▓▓░░▓▓▓▓▓▓████▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░▓▓░░░░░░▓▓▓▓▓▓██████████████▓▓░░░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░▓▓▓▓████████████████████░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░▓▓░░▓▓████████████████████▓▓░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓░░░░░░▓▓▓▓████████░░░░░░░░░░░░░░░░░░░░ ░░ ░░▓▓░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░░░▓▓▓▓██▓▓░░░░░░░░░░░░ ░░░░ ░░ ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░▓▓▓▓▓▓░░░░░░░░░░ ░░░░ ░░ ░░██████████████████▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░▓▓▓▓░░░░░░░░░░░░░░░░ ░░░░░░░░░░ ▓▓██████████████████▓▓██▓▓░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓░░░░░░░░░░░░ ░░░░░░░░ ▓▓████▓▓██████▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░ ░░░░ ▓▓██████████▓▓▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓████▓▓▓▓░░░░░░░░ ░░ ░░░░░░ ▓▓████████▓▓░░░░▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓██████████▓▓░░░░░░ ░░░░░░░░░░░░░░░░████▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓██████████▓▓░░░░░░ ░░░░░░░░░░░░░░░░██▓▓░░░░▓▓▓▓▓▓░░░░░░░░▓▓████▓▓░░░░░░░░░░░░▓▓████████████▓▓░░░░ ░░░░░░░░░░░░░░░░████▓▓▓▓▓▓▓▓██▓▓░░░░░░▓▓▓▓░░░░░░░░▓▓▓▓░░░░▓▓██████████████░░ ░░░░░░░░░░░░░░░░▓▓██▓▓▓▓▓▓██▓▓▓▓░░░░░░░░░░░░██▓▓▓▓▓▓▓▓░░░░▓▓████████████▓▓░░ ░░░░░░░░ ░░░░░░████▓▓██▓▓██░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░▓▓████████████░░ ░░░░░░░░░░░░░░░░████▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████████░░ ░░░░░░░░░░░░░░░░▓▓██░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████████░░ ░░░░░░░░░░░░░░░░████░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████████▓▓ ░░░░░░░░░░░░░░░░▓▓██░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██▓▓██████▓▓░░ ░░ ░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░▓▓░░▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░▓▓▓▓░░▓▓██▓▓▓▓░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████▓▓░░░░░░░░░░░░░░░░▓▓▓▓░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░▓▓▓▓░░░░░░░░░░░░ ░░

Name: Anonymous 2010-04-19 15:30

░░░░░░░░░░░░░░░░▓▓██░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████████░░ ░░░░░░░░░░░░░░░░████░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████████▓▓ ░░░░░░░░░░░░░░░░▓▓██░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██▓▓██████▓▓░░ ░░ ░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░▓▓░░▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░▓▓▓▓░░▓▓██▓▓▓▓░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████▓▓░░░░░░░░░░░░░░░░▓▓▓▓░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░▓▓▓▓░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓██▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░██████░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░▓▓▓▓████▓▓░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓████▓▓░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓██████░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓████░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░░░░░▓▓░░▓▓▓▓▓▓▓▓██▓▓████░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓██▓▓████▓▓░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓████████████▓▓░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░██████████████████████████▓▓░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██████████████████▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓████████████▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██████▓▓░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓░░░░▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░██▓▓░░░░▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓██▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░██▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░ ██▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░ ░░██░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░ ▓▓░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░ ░░░░░░▓▓░░░░░░░░░░░░░░░░░░░░▓▓░░ ░░░░░░░░░░░░ ▓▓████ ░░░░░░░░░░░░░░░░░░░░░░▓▓██░░ ░░░░░░░░ ░░██████░░ ░░░░░░░░░░░░░░░░░░░░▓▓████░░ ░░░░░░ ░░████████░░░░░░░░ ░░░░░░░░░░░░▓▓██▓▓

Name: Anonymous 2010-04-19 15:30



import Data.List.Split

import Graphics.GD

import Prelude hiding (putStrLn)

import System.IO.UTF8 (putStrLn)



imageToHash :: Image -> IO String

imageToHash img = do

  (w,h) <- imageSize img

  pixels <- sequence [ getPixel (x,y) img | y <- [0..h-1], x <- [0..w-1] ]

  let lines = chunk w pixels

      colourize n | n' > max'*0.75 = "  "

                  | n' > max'*0.50 = "░░"

                  | n' > max'*0.40 = "▓▓"

                  | otherwise      = "██"

          where n' = fromIntegral n

      max' = fromIntegral $ foldr max 0 pixels

  return . concat . map ((++"\n") . concat . map (colourize)) $ lines



go i = withImage (loadPngFile i) imageToHash

       >>= putStrLn

ITT tribute ascii art

1 Name: Anonymous 2010-04-19 15:29

2 Name: Anonymous 2010-04-19 15:30

3 Name: Anonymous 2010-04-19 15:30

Name: Anonymous 2010-04-19 15:29

Name: Anonymous 2010-04-19 15:30

Name: Anonymous 2010-04-19 15:30