diagrams-braille-0.1.0.0: app/Main.hs

{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TypeFamilies #-}
module Main where

import Diagrams.Backend.Braille.CmdLine
import Diagrams.Prelude

d = f 1 `atop` f (sqrt 2 / 2) `atop` f (sqrt 2 * (sqrt 2 / 2) / 2) where
  f x = circle x `atop` square (x * sqrt 2)

main = multiMain [
    ("a", vcat $ [text "Hello" <> rect 5 2, text "World!" <> rect 6 2])
  , ("b", atPoints (rotateBy (1/24) (dodecagon 1)) (map (baselineText.show) $ reverse $ take 12 $ drop 4 $ cycle [0..11]) <> rotateBy (1/24) (dodecagon 1.2))
  , ("d", d)
  , ("triangle", triangle 1)
  , ("square", square 1)
  , ("pentagon", pentagon 1)
  , ("hexagon", hexagon 1)
  , ("heptagon", heptagon 1)
  , ("octagon", octagon 1)
  , ("nonagon", nonagon 1)
  , ("decagon", decagon 1)
  , ("hendecagon", hendecagon 1)
  , ("dodecagon", dodecagon 1)
  , ("ellipse", ellipse 0.5)
  , ("circle", circle 1)
  ]