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
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
|
|
|