UDMURTI SILA

udmurt.hs

{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE UnicodeSyntax #-}

import Data.Colour
import Diagrams.Prelude
import Diagrams.Backend.Cairo.CmdLine
import Graphics.Rendering.Diagrams.Points


main ∷ IO ()
main = defaultMain flag


flag ∷ Diagram Cairo R2
flag =
  stripeV black |||
  solarSign `mappend` stripeV white |||
  stripeV red
 where
  stripeV c = square 2 # scaleX 0.6 # fc c # lcA transparent

  solarSign = star (StarSkip 3) (regPoly 8 0.40) # stroke # fc red # lcA transparent

👍