15 lines
275 B
Haskell
15 lines
275 B
Haskell
module Dodge.Render.Outline
|
|
where
|
|
import Picture
|
|
|
|
hackOutline :: Color -> Float -> Picture -> Picture
|
|
hackOutline col x pic = foldMap
|
|
(color col)
|
|
[ translate x 0 pic
|
|
, translate (-x) 0 pic
|
|
, translate 0 x pic
|
|
, translate 0 (-x) pic
|
|
]
|
|
<> pic
|
|
|