kreed131

{- 
Depends on scrot.
shootMe <directory to save images> <period>
Using:
ghc -o shootMe ShootMe.hs;
shootMe /home/user/images/screenshots/auto/ 60 &
-}

import Control.Concurrent (threadDelay)
import System (system, getArgs)

kreed131

{-- 
    kreed131.blogspot.com
--}

import           Prelude hiding (catch)
import           Data.Char (isDigit)
import           Data.Maybe (fromMaybe)
import qualified Data.Map as M (lookup)
import           System.IO
import           System.Random (randomRIO)

kreed131

import Graphics.UI.GLUT
import Data.IORef
import Data.List (delete)
import System.Random (randomRIO)
import Control.Monad (forM_, when)

type Coord          = (Int, Int)
type Snake          = (Direction, [Coord])
type SnakeDigestion = [Coord]
type Food           = [Coord]