module Main where

import qualified Data.ByteString.Lazy as BL

import Data.Word

import Data.Int

import Data.Binary

import Data.Bits

import Control.Monad

data LineType = Solid | Erasing

    deriving Eq

data Chunk = Line LineType Word8 [(Int16, Int16)]

instance Binary Chunk where

    put (Line lt r ((x1, y1):ps)) = do

        let flags = r .|. (if lt == Solid then 0 else (1 `shift` 6))

        putWord8 $ flags .|. (1 `shift` 7)

        put x1

        put y1

        forM_ ps $ \(x, y) -> do

            putWord8 flags

            put x

            put y

    get = undefined

mapString = BL.drop 8 . encode $

    [

        Line Solid 7 [(0, 0), (2048, 1024), (1024, 768)]

    ]

main = BL.writeFile "out.hwmap" mapString