summaryrefslogtreecommitdiff
path: root/systems/doc/metapost/source-manual/figs.mp
diff options
context:
space:
mode:
Diffstat (limited to 'systems/doc/metapost/source-manual/figs.mp')
-rw-r--r--systems/doc/metapost/source-manual/figs.mp24
1 files changed, 24 insertions, 0 deletions
diff --git a/systems/doc/metapost/source-manual/figs.mp b/systems/doc/metapost/source-manual/figs.mp
new file mode 100644
index 0000000000..c8e87ba562
--- /dev/null
+++ b/systems/doc/metapost/source-manual/figs.mp
@@ -0,0 +1,24 @@
+% Examples for MetaPost doc, by John Hobby. Public domain.
+
+input boxes
+beginfig(1);
+pair shadowshift; shadowshift=(1,-1)*bp;
+
+def drawshadowed(text t) =
+ forsuffixes $=t:
+ fill bpath$ shifted shadowshift;
+ unfill bpath$;
+ drawboxed($);
+ endfor
+enddef;
+
+boxit.a(btex \s8A\s+2 \(lh a etex);
+circleit.b(btex $e sup {i omega t}$ etex rotated 20);
+b.w - a.e = (10,0)*bp;
+drawshadowed(a,b);
+draw a.e..b.w;
+
+draw bbox currentpicture dashed evenly;
+endfig;
+
+end