Fancy vector graphics with Diagrams.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

27 lines
660 B

{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TypeFamilies #-}
import Diagrams.Prelude
import Diagrams.Backend.SVG.CmdLine
import Data.Colour hiding (atop)
alpha = 22.5 @@ deg
darcsgreen = RGB 118 255 0
ground :: Diagram B
ground = circle 1.8 # fc gray # lw veryThick # lc black
middleCirc :: Diagram B
middleCirc = circle 0.15 # fc gray # lw veryThick # lc green
node :: Diagram B
node = circle 0.3 # fc green # lw none # showOrigin
nodes = atPoints (trailVertices $ regPoly 8 0.9 # rotate alpha) (repeat node)
example = middleCirc `atop` nodes `atop` ground
main = mainWith example