summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/fmp/fmp-doc.hs
diff options
context:
space:
mode:
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
+