mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-09 15:12:21 +00:00
13 lines
340 B
Haskell
Executable file
13 lines
340 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.External
|
|
import Codec.Picture.Types
|
|
|
|
main :: IO ()
|
|
main = reanimate $ staticFrame 1 $
|
|
let icon = "cplusplus" in mkGroup
|
|
[ mkBackgroundPixel (promotePixel $ simpleIconColor icon)
|
|
, withFillOpacity 1 $ simpleIcon icon ]
|