summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/fmp/fmp-doc.hs
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-11 23:03:17 +0000
committerKarl Berry <karl@freefriends.org>2006-01-11 23:03:17 +0000
commitecf966f305f6aeff2bbdf42c82d8425921aa9eda (patch)
treedb606a57e3619610e4c35cae849d41cf4e0937d5 /Master/texmf-dist/source/latex/fmp/fmp-doc.hs
parentac3c55a3216b5988f0e48ba9414ddb059f19a699 (diff)
source 1
git-svn-id: svn://tug.org/texlive/trunk@105 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/fmp/fmp-doc.hs')
-rw-r--r--Master/texmf-dist/source/latex/fmp/fmp-doc.hs37
1 files changed, 37 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/fmp/fmp-doc.hs b/Master/texmf-dist/source/latex/fmp/fmp-doc.hs
new file mode 100644
index 00000000000..cbece3f2337
--- /dev/null
+++ b/Master/texmf-dist/source/latex/fmp/fmp-doc.hs
@@ -0,0 +1,37 @@
+--
+-- This is file `fmp-doc.hs',
+-- generated with the docstrip utility.
+--
+-- The original source files were:
+--
+-- fmp.dtx (with options: `examples')
+--
+-- Example source code for the FMP package
+--
+module FMPDoc where
+import FMP
+import FMPTree
+
+example1 = binom 5
+ where
+ ce = circle empty
+ binom 0 = node ce []
+ binom n = node ce [edge (binom i)
+ | i <- [(n-1),(n-2)..0]]
+ #setAlign AlignRight
+
+example2 = box (math "U" |||
+ ooalign [toPicture [cArea a 0.7,
+ cArea b 0.7,
+ cArea ab 0.4],
+ bOverA])
+ where
+ cArea a c = toArea a #setColor c
+ bOverA = column [math "B" #setBGColor white,
+ vspace 50,
+ math "A" #setBGColor white]
+ a = transformPath (scaled 30) fullcircle
+ b = transformPath (scaled 30 & shifted (0,-30))
+ fullcircle
+ ab = buildCycle a b
+