Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
48 lines (41 sloc) 1.35 KB
{-# LANGUAGE OverloadedStrings #-}
import Text.LaTeX
import Text.LaTeX.Packages.Inputenc
import Text.LaTeX.Packages.TikZ
main :: IO ()
main = execLaTeXT tikztest >>= renderFile "tikz.tex"
tikztest :: LaTeXT IO ()
tikztest = do
thePreamble
document theBody
thePreamble :: LaTeXT IO ()
thePreamble = do
documentclass [] article
usepackage [utf8] inputenc
usepackage [] tikz
author "Daniel Díaz"
title "Example using TikZ"
theBody :: LaTeXT IO ()
theBody = do
maketitle
"Below a picture generated using the TikZ DSL of "
hatex
"."
center $ tikzpicture $ draw $
Cycle $ Start (pointAtXY 0 0) ->- pointAtXY 1 0 ->- pointAtXY 0 1
"And some pictures more."
center $ tikzpicture $
draw (Rectangle (Start $ pointAtXY 0 0 ) (pointAtXY 1 1))
->> fill (Circle (Start $ pointAtXY 1.5 0.5) 0.5)
->> shade (Ellipse (Start $ pointAtXY 3 0.5 ) 1 0.5)
center $ tikzpicture $ draw $
(Cycle $ Start (pointAtXY 0 0) ->- pointAtXY 1 0 ->- pointAtXY 0 1) ->- pointAtXY 1 1
"We also show the graph of the "
emph "sine"
" function."
center $ tikzpicture $
draw (Start (pointAtXY 0 1) ->- pointAtXY 0 (-1))
->> draw (Start (pointAtXY (-0.2) 0) ->- pointAtXY (3*pi) 0 )
->> scope [TColor $ BasicColor Blue, TWidth (Pt 1)] (draw $ bpath (pointAtXY 0 0) $
mapM_ line [ pointAtXY x (sin x) | x <- [0,0.05 .. 3*pi] ]
)
Something went wrong with that request. Please try again.