{-|
Module      : WLED.Octocat.Flags
Copyright   : (c) Andreas Ländle, 2024
License     : BSD-3
Stability   : experimental

Octolamp specific feature to display flags.
-}

module WLED.Octocat.Flags(france) where

import           WLED.Types

-- | The French flag.
france :: StatePatch
france :: StatePatch
france = (StatePatch
forall a. Monoid a => a
mempty :: StatePatch) { stateSeg = Just [ seg 0 5 white, seg 5 16 red, seg 16 23 white, seg 23 34 blue, seg 34 41 white, seg 41 52 blue, seg 52 57 white, seg 57 68 red, seg 68 101 white ]} where
    red :: [Int]
    red :: [Int]
red = [Int
255,Int
0,Int
0]
    white :: [Int]
    white :: [Int]
white = [Int
255,Int
255,Int
255]
    blue :: [Int]
    blue :: [Int]
blue = [Int
0,Int
0,Int
255]

seg :: Int -> Int -> [Int] -> SegmentPatch
seg :: Int -> Int -> [Int] -> SegmentPatch
seg Int
start Int
stop [Int]
color = (SegmentPatch
forall a. Monoid a => a
mempty :: SegmentPatch) { segmentStart = Just start, segmentStop = Just stop, segmentCol = Just [color], segmentFx = Just 0 }