15 lines
283 B
Haskell
15 lines
283 B
Haskell
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
|
|
|