Skip to content

Instantly share code, notes, and snippets.

@LukaHorvat

LukaHorvat/Main.hs

Created October 18, 2015 15:20
Show Gist options
  • Save LukaHorvat/a198888c99198662f1cf to your computer and use it in GitHub Desktop.
Save LukaHorvat/a198888c99198662f1cf to your computer and use it in GitHub Desktop.
Download ZIP
diag.hs
Raw
Main.hs
lns :: Diagram SVG
lns = Diag.fromOffsets [Diag.unitX # Diag.rotateBy (1/8)]
pattern :: Diagram SVG
pattern = Diag.gridCat $ replicate 64 lns
circle :: Diagram SVG
circle = Diag.circle 4 `Diag.clipBy` pattern
where circleClip = Diag.circle 4 # Diag.translate (Diag.r2 (4, 4)) # Diag.showOrigin :: Diagram SVG
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment