visualize bytebeat

vis.hs

{-# LANGUAGE BangPatterns #-}
-- | Visualize bytebeat. currently doesn't print fast enough...
module Main where

import Control.Monad
import Data.Bits
import qualified Data.Char as C
import Data.List
import System.IO
import System.Environment
import qualified Data.ByteString as BS

visualize :: Int -> String
visualize !byte = (mconcat $ replicate  byte " ") ++ "#"

visualizeBits :: Int -> Int -> String
visualizeBits len byte = foldr f "" [1..len]  where
  f n str = c : str where
    c = if testBit byte n then '█' else ' '


foo :: Handle -> String -> IO ()
foo h str = do
  putStr $ mconcat $ (visualizeBits 8 . C.ord) <$> str
  hPutStr h str

main :: IO ()
main = do
  (fifopath:_) <- getArgs
  h <- openFile fifopath WriteMode
  forever $ (replicateM 256 getChar) >>= foo h

ls bytebeat.hs vis.hs | entr -cr bash -c "runghc bytebeat.hs | tee >(aplay > /dev/null) | runghc vis.hs"
ls bytebeat.hs vis.hs | entr -cr bash -c "runghc bytebeat.hs | runghc vis.hs >(aplay &> /dev/null)"