{-# LANGUAGE NoMonomorphismRestriction #-}
-----------------------------------------------------------------------------
module Main where
import Diagrams.Prelude
import Diagrams.Backend.SVG
import Diagrams.Backend.SVG.CmdLine
l1 = straight unitX
l2 = straight unitX # rotateBy (1/12)
t = trailFromSegments [l1, l2]
t1 = adjust t with { adjMethod = ByAbsolute (-0.5), adjSide = Start}
t2 = adjust t with { adjMethod = ByAbsolute (-0.5), adjSide = End}
ex = strokeT t === strutY 0.25
               === strokeT t1 === strutY 0.25
               === strokeT t2
main = defaultMain $ ex # centerXY # pad 1.1