module Dodge.Render.Outline
    where
import Picture

hackOutline :: Color -> Float -> Picture -> Picture
hackOutline col x pic = pictures 
    (map (color col)
    [ translate x 0 pic
    , translate (-x) 0 pic
    , translate 0 x pic
    , translate 0 (-x) pic
    ]
    ) <> pic